;ELC   
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan  5 18:16:18 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/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!\210\300\303!\207" [require url-vars url-parse cl] 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" (#$ . -733))
(defalias 'url-nfs-unescape #[(format host port user pass file) "\212\306\307!q\210\310 \210c\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 #[(url) "\306!\211\307H\310	\311H\206 	\312H\205 \313	\314H\"\243!	\315H	\316H	\317H\320\321\n\f&!.\207" [url urlobj host url-default-ports port pass url-generic-parse-url 3 string-to-int 4 8 assoc 0 2 1 5 url-retrieve url-nfs-unescape user file url-nfs-automounter-directory-spec] 9])