/[emacs]/emacs/lisp/url/url-nfs.el
ViewVC logotype

Diff of /emacs/lisp/url/url-nfs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by miles, Sat Apr 10 05:55:48 2004 UTC revision 1.3.4.1 by miles, Mon Jun 28 07:30:01 2004 UTC
# Line 1  Line 1 
1  ;;; url-nfs.el --- NFS URL interface  ;;; url-nfs.el --- NFS URL interface
2    
3    ;; Copyright (c) 1996,97,98,1999,2004  Free Software Foundation, Inc.
4    ;; Copyright (c) 1996 by William M. Perry <wmperry@cs.indiana.edu>
5    
6  ;; Keywords: comm, data, processes  ;; Keywords: comm, data, processes
7    
8  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;; This file is part of GNU Emacs.
9  ;;; Copyright (c) 1996 by William M. Perry <wmperry@cs.indiana.edu>  ;;
10  ;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.  ;; GNU Emacs is free software; you can redistribute it and/or modify
11  ;;;  ;; it under the terms of the GNU General Public License as published by
12  ;;; This file is part of GNU Emacs.  ;; the Free Software Foundation; either version 2, or (at your option)
13  ;;;  ;; any later version.
14  ;;; GNU Emacs is free software; you can redistribute it and/or modify  ;;
15  ;;; it under the terms of the GNU General Public License as published by  ;; GNU Emacs is distributed in the hope that it will be useful,
16  ;;; the Free Software Foundation; either version 2, or (at your option)  ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17  ;;; any later version.  ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  ;;;  ;; GNU General Public License for more details.
19  ;;; GNU Emacs is distributed in the hope that it will be useful,  ;;
20  ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of  ;; You should have received a copy of the GNU General Public License
21  ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  ;; along with GNU Emacs; see the file COPYING.  If not, write to the
22  ;;; GNU General Public License for more details.  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23  ;;;  ;; Boston, MA 02111-1307, USA.
24  ;;; You should have received a copy of the GNU General Public License  
25  ;;; along with GNU Emacs; see the file COPYING.  If not, write to the  ;;; Commentary:
26  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,  
27  ;;; Boston, MA 02111-1307, USA.  ;;; Code:
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
28    
29  (eval-when-compile (require 'cl))  (eval-when-compile (require 'cl))
30  (require 'url-parse)  (require 'url-parse)
# Line 72  Each can be used any number of times.") Line 75  Each can be used any number of times.")
75    (url-file (url-nfs-build-filename url) callback cbargs))    (url-file (url-nfs-build-filename url) callback cbargs))
76    
77  (defmacro url-nfs-create-wrapper (method args)  (defmacro url-nfs-create-wrapper (method args)
78    (` (defun (, (intern (format "url-nfs-%s" method))) (, args)    `(defun ,(intern (format "url-nfs-%s" method)) ,args
79         (, (format "NFS URL wrapper around `%s' call." method))       ,(format "NFS URL wrapper around `%s' call." method)
80         (setq url (url-nfs-build-filename url))       (setq url (url-nfs-build-filename url))
81         (and url ((, (intern (format "url-file-%s" method)))       (and url (,(intern (format "url-file-%s" method))
82                   (,@ (remove '&rest (remove '&optional args))))))))                 ,@(remove '&rest (remove '&optional args))))))
83    
84  (url-nfs-create-wrapper file-exists-p (url))  (url-nfs-create-wrapper file-exists-p (url))
85  (url-nfs-create-wrapper file-attributes (url))  (url-nfs-create-wrapper file-attributes (url &optional id-format))
86  (url-nfs-create-wrapper file-symlink-p (url))  (url-nfs-create-wrapper file-symlink-p (url))
87  (url-nfs-create-wrapper file-readable-p (url))  (url-nfs-create-wrapper file-readable-p (url))
88  (url-nfs-create-wrapper file-writable-p (url))  (url-nfs-create-wrapper file-writable-p (url))
# Line 93  Each can be used any number of times.") Line 96  Each can be used any number of times.")
96    
97  (provide 'url-nfs)  (provide 'url-nfs)
98    
99  ;;; arch-tag: cdf9c9ba-b7d2-4c29-8b48-7ae9bbc0d437  ;; arch-tag: cdf9c9ba-b7d2-4c29-8b48-7ae9bbc0d437
100    ;;; url-nfs.el ends here

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26