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) |
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)) |
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 |