Current File : //usr/share/emacs/24.3/lisp/url/url-nfs.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:24 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-nfs.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require url-parse url-file custom-declare-variable url-nfs-automounter-directory-spec "file:/net/%h%f" "How to invoke the NFS automounter.  Certain % sequences are recognized.\n\n%h -- the hostname of the NFS server\n%n -- the port # of the NFS server\n%u -- the username to use to authenticate\n%p -- the password to use to authenticate\n%f -- the filename on the remote server\n%% -- a literal %\n\nEach can be used any number of times." :group url :type string] 8)
(defalias 'url-nfs-unescape #[(format host port user pass file) "r\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	>\204\307\310\311\300#\210\312H\211\306H	>\204\"\307\310\313\300#\210\314H\206P\306H	>\2046\307\310\315\300#\210\316H\205P\317\306H	>\204K\307\310\315\300#\210\316H\320\")\306H	>\204`\307\310\321\300#\210\322H\306H	>\204r\307\310\323\300#\210\324H\306H	>\204\205\307\310\325\300#\210\326H\327\330\n\f
&!-\207" [url cl-struct-url-tags host urlobj port pass 0 error "%s accessing a non-%s" url-host 4 url-portspec 5 url-type 1 url-scheme-get-property default-port url-password 3 url-user 2 url-filename 6 url-generic-parse-url url-nfs-unescape user file url-nfs-automounter-directory-spec] 9])
(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 (#$ . 2800)])
#@48 NFS URL wrapper around `file-attributes' call.
(defalias 'url-nfs-file-attributes #[(url &optional id-format) "\302!\211\205\f\303	\"\207" [url id-format url-nfs-build-filename url-file-file-attributes] 4 (#$ . 2990)])
#@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 (#$ . 3219)])
#@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 (#$ . 3412)])
#@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 (#$ . 3608)])
#@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 (#$ . 3804)])
#@48 NFS URL wrapper around `directory-files' call.
(defalias 'url-nfs-directory-files #[(url &optional full match nosort) "\304!\211\205\305	\n$\207" [url full match nosort url-nfs-build-filename url-file-directory-files] 6 (#$ . 4006)])
#@46 NFS URL wrapper around `file-truename' call.
(defalias 'url-nfs-file-truename #[(url &optional counter prev-dirs) "\303!\211\205
\304	\n#\207" [url counter prev-dirs url-nfs-build-filename url-file-file-truename] 5 (#$ . 4252)])
(provide 'url-nfs)