;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:41:54 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/url-cvs-20030105-src/lisp/url-nfs.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`url-nfs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require url-parse url-file] 2) #@328 *How to invoke the NFS automounter. Certain % sequences are recognized. %h -- the hostname of the NFS server %n -- the port # of the NFS server %u -- the username to use to authenticate %p -- the password to use to authenticate %f -- the filename on the remote server %% -- a literal % Each can be used any number of times. (defvar url-nfs-automounter-directory-spec "file:/net/%h%f" (#$ . -725)) (defalias 'url-nfs-unescape #[(format host port user pass file) "\212\306\307!q\210\310 \210c\210eb\210\311\312\313\314#\203}\315\316!\317H\320\321\314\211#\210 \322=\203/\323c\210\202y \324=\203;\nc\210\202y \325=\203K \206F\321c\210\202y \326=\203[\f\206V\321c\210\202y \327=\203k \206f\321c\210\202y \330=\203y\206w\331c\210)\202\332 )\207" [format escape host port user pass get-buffer-create " *nfs-parse*" erase-buffer re-search-forward "%\\(.\\)" nil t match-string 1 0 replace-match "" 37 "%" 104 110 117 112 102 "/" buffer-string file] 4]) (defalias 'url-nfs-build-filename #[(url) "\306H\307\310H\206\311H\205\312\313H\314\"!\315H\316H\317H\320\321 \n\f &!-\207" [url host port pass user file 3 string-to-int 4 8 url-scheme-get-property 0 default-port 2 1 5 url-generic-parse-url url-nfs-unescape url-nfs-automounter-directory-spec] 8]) (defalias 'url-nfs #[(url callback cbargs) "\303\304! \n#\207" [url callback cbargs url-file url-nfs-build-filename] 4]) (defalias 'url-nfs-create-wrapper '(macro . #[(method args) "\302\303\304\305\"! \304\306\"\307\310\311\303\304\312\"!\313\314\313\315 \"\"BE\257\207" [method args defun intern format "url-nfs-%s" "NFS URL wrapper around `%s' call." (setq url (url-nfs-build-filename url)) and url "url-file-%s" remove &rest &optional] 13])) #@46 NFS URL wrapper around `file-exists-p' call. (defalias 'url-nfs-file-exists-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-exists-p] 3 (#$ . 2471)]) #@48 NFS URL wrapper around `file-attributes' call. (defalias 'url-nfs-file-attributes #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-attributes] 3 (#$ . 2661)]) #@47 NFS URL wrapper around `file-symlink-p' call. (defalias 'url-nfs-file-symlink-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-symlink-p] 3 (#$ . 2857)]) #@48 NFS URL wrapper around `file-readable-p' call. (defalias 'url-nfs-file-readable-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-readable-p] 3 (#$ . 3050)]) #@48 NFS URL wrapper around `file-writable-p' call. (defalias 'url-nfs-file-writable-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-writable-p] 3 (#$ . 3246)]) #@50 NFS URL wrapper around `file-executable-p' call. (defalias 'url-nfs-file-executable-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-executable-p] 3 (#$ . 3442)]) (byte-code "\300\301!\203\302\303M\210\304\305M\210\202\302\306M\210\304\307M\210\310\311!\207" [featurep xemacs url-nfs-directory-files #[(url &optional full match nosort files-only) "\305!\211\205\306 \n \f%\207" [url full match nosort files-only url-nfs-build-filename url-file-directory-files] 7 "NFS URL wrapper around `directory-files' call."] url-nfs-file-truename #[(url &optional default) "\302!\211\205\f\303 \"\207" [url default url-nfs-build-filename url-file-file-truename] 4 "NFS URL wrapper around `file-truename' call."] #[(url &optional full match nosort) "\304!\211\205\305 \n $\207" [url full match nosort url-nfs-build-filename url-file-directory-files] 6 "NFS URL wrapper around `directory-files' call."] #[(url &optional counter prev-dirs) "\303!\211\205 \304 \n#\207" [url counter prev-dirs url-nfs-build-filename url-file-file-truename] 5 "NFS URL wrapper around `file-truename' call."] provide url-nfs] 2)