| Current File : //usr/share/emacs/24.3/lisp/url/url-file.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:19 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-file.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\300\303!\210\300\304!\207" [require mailcap url-vars url-parse url-dired] 2)
#@19 Default FTP port.
(defconst url-file-default-port 21 (#$ . 671))
#@33 FTP transfers are asynchronous.
(defconst url-file-asynchronous-p t (#$ . 742))
(defalias 'url-file-expand-file-name 'url-default-expander)
#@323 Find the exact file referenced by `fname'.
This tries the common compression extensions, because things like
ange-ftp and efs are not quite smart enough to realize when a server
can do automatic decompression for them, and won't find 'foo' if
'foo.gz' exists, even though the FTP server would happily serve it up
to them.
(defalias 'url-file-find-possibly-compressed-file #[(fname &rest args) "\304\305\304 \203! \204! \306 \211A@P\211!\203 \n\202 +\207" [found compressed-extensions scratch fname nil ("" ".gz" ".z" ".Z" ".bz2" ".xz") file-exists-p] 4 (#$ . 889)])
#@48 Return t if HOST references our local machine.
(defalias 'url-file-host-is-local-p #[(host) "\302 ?\206? \303\230\206? \227\304 \227\232\206? \305\306 \"\203! \302\202? \305\307 \"?\205? \227\305\307\304 \"\203< \304 \310\211\224O\202> \304 \232)\207" [case-fold-search host t "" system-name string-match "^localhost$" "\\." 0] 4 (#$ . 1472)])
(defalias 'url-file-asynch-callback #[(x y name buff func args &optional efs) "\306\307!\204 \n \f\310\311 !8 rq\210db\210
\312U\204' \313\314
\"c\210\315c\210\316 !\210\317\320H>\204? \321\322\323\324#\210\325H!\204L \326\327\330\217\210\331\n \"*\207" [buff name func args efs size featurep ange-ftp 7 file-attributes -1 format "Content-length: %d\n" "\n" insert-file-contents-literally url-file-host-is-local-p 0 error "%s accessing a non-%s" url-host url 4 nil (delete-file name) ((error)) apply url-current-object cl-struct-url-tags] 5])
(defalias 'url-file-build-filename #[(url) "\306!\204\n \307!\310H >\204 \311\312\313\300#\210\314H\310H >\204* \311\312\315\300#\210\316H\211 \310H >\204> \311\312\317\300#\210\f\320H\206l \f\310H >\204R \311\312\321\300#\210\f\322H\205l \323\f\310H >\204g \311\312\321\300#\210\f\322H\324\") \310H >\204| \311\312\325\300#\210\326H 3
\203\243
\327U\204\243 \330\331!\203\232 \332\3333
#\202\245 \332\3343
#\202\245 3 4\335\310H >\204\266 \311\312\336\300#\210\337H! 5\n\204\307 \3403!\204\330 \341\n\206\315 \342\3434\3445\260\202 \345\3465\"\203\357 6\347>\203\357 5\322\350O\202 \345\3515\"\203\376 \3525P\202 5 7\350 8\n\203 \203\330\331!\203\3533\n #\210\3547!\203D\345\3557\"\204D\310H >\2047\311\312\336\300#\210\211 9\337\332\3567\"I\210)\3547!\203n:\203n\357:7\"\2118\203n\3608!\203n\3618!\203n87\3627!\2117.\207" [url cl-struct-url-tags user pass urlobj port vectorp url-generic-parse-url 0 error "%s accessing a non-%s" url-user 2 url-password 3 url-portspec 5 url-type 1 url-scheme-get-property default-port url-host 4 21 featurep ange-ftp format "%s %d" "%s#%d" url-unhex-string url-filename 6 url-file-host-is-local-p "/" "anonymous" "@" ":" string-match "\\`/[a-zA-Z]:/" (ms-dos windows-nt) nil "\\`/[^/]+:/" "/:" ange-ftp-set-passwd file-directory-p "/\\'" "%s/" expand-file-name file-exists-p file-readable-p url-file-find-possibly-compressed-file host site file system-type filename pos-index #1=#:v url-directory-index-file] 7])
#@29 Handle file: and ftp: URLs.
(defalias 'url-file #[(url callback cbargs) "\306\211\306\211\307 \310
!\211 4\204 \311\312\313
!\"\210\314\3154\"\203+ 4\316\211\224O\202- 4\317\320 !!\3204!\211 5\321>\203D \322\202| 5\323\232\203O \324\202| 5\325\232\203Z \326\202| 5\327\232\203e \330\202| 5\331\232\203p \332\202| 5\333\232\203{ \334\202| \306)\3354!\203\215 \3364!\210\202r\337\340!\211q\210\341 \210
6\342\n\206\241 \343\344\261\210 \203\257 \345 \344\261\210\346
\316H7>\204\277 \311\347\350\305#\210
\351H!\203\355 \352\353!\203\334 \354\306\2114p89&\210\202\354\306\211\2114p89&\210\202\355\356\357\360 \"! :\352\353!\203\3614\362:!\363\306\363\354:p89\257\363&\210)).\207" [buffer uncompressed-filename content-type content-encoding coding-system-for-read url nil binary url-file-build-filename error "File does not exist: %s" url-recreate-url string-match "\\.\\(gz\\|Z\\|z\\)$" 0 mailcap-extension-to-mime url-file-extension (".z" ".gz") "gzip" ".Z" "compress" ".uue" "x-uuencoded" ".hqx" "x-hqx" ".bz2" "x-bzip2" ".xz" "x-xz" file-directory-p url-find-file-dired generate-new-buffer " *url-file*" mm-disable-multibyte "Content-type: " "application/octet-stream" "\n" "Content-transfer-encoding: " url-file-host-is-local-p "%s accessing a non-%s" url-host 4 featurep ange-ftp url-file-asynch-callback make-temp-file format "url-tmp.%d" user-real-uid ange-ftp-copy-file-internal expand-file-name t filename #1=#:val url-current-object cl-struct-url-tags callback cbargs new] 12 (#$ . 3895)])
(defalias 'url-file-create-wrapper '(macro . #[(method args) "\302\303\304\305\306\"!D\307\304\305\310\"! \305\311\"\312\313\314\315\316\315\317 \"\"BE\257E\207" [method args defalias quote intern format "url-ftp-%s" defun "url-file-%s" "FTP/FILE URL wrapper around `%s' call." (setq url (url-file-build-filename url)) and url remove &rest &optional] 15]))
(byte-code "\300\301\300\302\303\"\"\210\300\304\300\305\306\"\"\210\300\307\300\310\311\"\"\210\300\312\300\313\314\"\"\210\300\315\300\316\317\"\"\210\300\320\300\321\322\"\"\210\300\323\300\324\325\"\"\210\300\326\300\327\330\"\"\210\331\332!\207" [defalias url-ftp-file-exists-p url-file-file-exists-p #[(url) "\301!\211\205 \302!\207" [url url-file-build-filename file-exists-p] 3 "FTP/FILE URL wrapper around `file-exists-p' call."] url-ftp-file-attributes url-file-file-attributes #[(url &optional id-format) "\302!\211\205\f \303 \"\207" [url id-format url-file-build-filename file-attributes] 4 "FTP/FILE URL wrapper around `file-attributes' call."] url-ftp-file-symlink-p url-file-file-symlink-p #[(url) "\301!\211\205 \302!\207" [url url-file-build-filename file-symlink-p] 3 "FTP/FILE URL wrapper around `file-symlink-p' call."] url-ftp-file-readable-p url-file-file-readable-p #[(url) "\301!\211\205 \302!\207" [url url-file-build-filename file-readable-p] 3 "FTP/FILE URL wrapper around `file-readable-p' call."] url-ftp-file-writable-p url-file-file-writable-p #[(url) "\301!\211\205 \302!\207" [url url-file-build-filename file-writable-p] 3 "FTP/FILE URL wrapper around `file-writable-p' call."] url-ftp-file-executable-p url-file-file-executable-p #[(url) "\301!\211\205 \302!\207" [url url-file-build-filename file-executable-p] 3 "FTP/FILE URL wrapper around `file-executable-p' call."] url-ftp-directory-files url-file-directory-files #[(url &optional full match nosort) "\304!\211\205 \305 \n $\207" [url full match nosort url-file-build-filename directory-files] 6 "FTP/FILE URL wrapper around `directory-files' call."] url-ftp-file-truename url-file-file-truename #[(url &optional counter prev-dirs) "\303!\211\205
\304 \n#\207" [url counter prev-dirs url-file-build-filename file-truename] 5 "FTP/FILE URL wrapper around `file-truename' call."] provide url-file] 5)