Edit file

File name : url-file.elc

Content :;ELC��� ;;; Compiled ;;; in Emacs version 26.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 (#$ . 524)) #@33 FTP transfers are asynchronous. (defconst url-file-asynchronous-p t (#$ . 595)) (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\242P\211!\203�\n\202�+\207" [found compressed-extensions scratch fname nil ("" ".gz" ".z" ".Z" ".bz2" ".xz") file-exists-p] 4 (#$ . 742)]) #@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 (#$ . 1328)]) (defalias 'url-file-asynch-callback #[(x y name buff func args &optional efs) "\306\307!\204�\n\f\310\311 !8rq\210db\210 \312U\204'�\313\314 \"c\210\315c\210\316 !\210\317\320!>\204A�\321\322\323D\"\210\324H!\204Y�\3251T�\326 !0\202X�\210\202Y�\210\327\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 type-of signal wrong-type-argument url 4 (error) delete-file apply url-current-object cl-struct-url-tags] 5]) (defalias 'url-file-build-filename #[(url) "\306! >\204\f�\307!\306! >\204�\310\311\300D\"\210\312H\306! >\204.�\310\311\300D\"\210\313H\306
! >\204B�\310\311\300D\"\210\211\314H\206r�\306
! >\204W�\310\311\300D\"\210\211\315H\205r�\316\306! >\204m�\310\311\300D\"\210
\315H\317\"\262
\306! >\204\204�\310\311\300D\"\210\320H\f\203\250�\f\321U\204\250�\322\323!\203\240�\324\325 \f#\202\251�\324\326 \f#\202\251� ,\327\306! >\204\273�\310\311\300D\"\210\330H!-\n\204\313�\331 !\204\334�\332\n\206\321�\333\334,\335-\260\202
\336\337-\"\203\363�.\340>\203\363�-\315\341O\202
\336\342-\"\203
\343-P\202
-/\3410\n\203
\203
\322\323!\203
\344 \n#\210\345/!\203H
\336\346/\"\204H
\306! >\204;
\310\311\300D\"\210\2111\330\324\347/\"I\210)\345/!\203r
2\203r
\3502/\"\2110\203r
\3510!\203r
\3520!\203r
0/\353/!\211/.\207" [url cl-struct-url-tags user pass port host type-of url-generic-parse-url signal wrong-type-argument 2 3 5 1 url-scheme-get-property default-port 4 21 featurep ange-ftp format "%s %d" "%s#%d" url-unhex-string 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 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 !\2117\204�\311\312\313 !\"\210\314\3157\"\203+�7\316\211\224O\202-�7\317\320 !!\3207!\2118\321\235\203D�\322\202|�8\323\232\203O�\324\202|�8\325\232\203Z�\326\202|�8\327\232\203e�\330\202|�8\331\232\203p�\332\202|�8\333\232\203{�\334\202|�\306)\3357!\203\215�\3367!\210\202
r\337\340!\211q\210\341\342!\210\343 \210 9\344\n\206\245�\345\346\261\210\203\263�\347\346\261\210\350\351 !:>\204\304�\352\353\305 D\"\210 \354H!\203\362�\355\356!\203\341�\357\306\2117p;<&\210\202
\357\306\211\2117p;<&\210\202
\360\361\362\363 \"!=\355\356!\203
\3647\365=!\366\306\366\357=p;<\257\366&\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 (".gz" ".z") "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*" require mm-util mm-disable-multibyte "Content-type: " "application/octet-stream" "\n" "Content-transfer-encoding: " url-file-host-is-local-p type-of signal wrong-type-argument 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 (#$ . 3661)]) (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)

Save