;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 (#$ . 200))
#@33 FTP transfers are asynchronous.
(defconst url-file-asynchronous-p t (#$ . 271))
(defalias 'url-file-expand-file-name 'url-default-expander)
#@343 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.

(fn FNAME &rest _)
(defalias 'url-file-find-possibly-compressed-file #[385 "\300\301\300
\203!\211\204!\302\211A\262\242P\211\262!\203\262
\202\207" [nil ("" ".gz" ".z" ".Z" ".bz2" ".xz") file-exists-p] 9 (#$ . 418)])
#@59 Return t if HOST references our local machine.

(fn HOST)
(defalias 'url-file-host-is-local-p #[257 "\301\211?\206?\211\302\230\206?\211\227\303 \227\232\206?\304\305\"\203!\301\202?\304\306\"?\205?\211\227\304\306\303 \"\203<\303 \307\211\224O\202>\303 \232)\207" [case-fold-search t "" system-name string-match "^localhost$" "\\." 0] 5 (#$ . 976)])
#@46 

(fn X Y NAME BUFF FUNC ARGS &optional EFS)
(defalias 'url-file-asynch-callback #[1798 "\302\303!\204\262\262
\262\211\262\304!\305
8\262
rq\210db\210\211\306U\204-\307\310\"c\210\311c\210\312!\210\313\314!	>\204E\315\316\317D\"\210\320H!\204Z\3211Y\322!0\210\202Z\210\323\")\207" [url-current-object cl-struct-url-tags featurep ange-ftp file-attributes 7 -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] 13 (#$ . 1344)])
#@12 

(fn URL)
(defalias 'url-file-build-filename #[257 "\302
!>\204
\303
!\262
\302
!>\204\304\305\306D\"\210\211\307H\302!>\204.\304\305\306D\"\210
\310H\302
!>\204A\304\305\306D\"\210\211\311H\206q\302
!>\204V\304\305\306D\"\210\211\312H\205q\313\302!>\204l\304\305\306D\"\210
\312H\314\"\262
\302!>\204\203\304\305\306D\"\210\315H
\203\246
\316U\204\246\317\320!\203\236\321\322#\202\247\321\323#\202\247\211\324\302!>\204\271\304\305\306	D\"\210\325H!\204\310\326!\204\330\327\206\317\330\331\332\260\202\372\333\334\"\203\354	\335>\203\354\211\312\336O\202\372\333\337\"\203\371\340
P\202\372\211\203
\203
\317\320!\203
\341#\210\342
!\2038
\333\343\"\2048
\302!>\204/
\304\305\306\nD\"\210\325\321\344\"I\210\207" [cl-struct-url-tags system-type type-of url-generic-parse-url signal wrong-type-argument url 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/"] 13 (#$ . 1911)])
#@55 Handle file: and ftp: URLs.

(fn URL CALLBACK CBARGS)
(defalias 'url-file #[771 "\303\211\211\211\304\305!\211\204\306\307\310\n!\"\210\311\312\"\203%\211\313\211\224O\202&\211\262\314\315!!\262\315
!\211\316\267\202P\317\202Q\320\202Q\321\202Q\322\202Q\323\202Q\324\202Q\303\262
\262\325
!\203b\326
!\210\202\355r\327\330!\211\262q\210\331\332!\210\333 \210\334\206{\335\336\261\210
\203\211\337\336\261\210\340\341	!\n>\204\233\342\343\344D\"\210\345H!\203\310\346\347!\203\270\350\303\211p&\210\202\354\350\303\211\211p\f\f&\210\202\354\351\352\353\354 \"!\346\347!\203\353\355\356!\357\303\357\350p\257\357&\210\210))\207" [coding-system-for-read url-current-object cl-struct-url-tags 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 #s(hash-table size 7 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (".gz" 56 ".z" 56 ".Z" 60 ".uue" 64 ".hqx" 68 ".bz2" 72 ".xz" 76)) "gzip" "compress" "x-uuencoded" "x-hqx" "x-bzip2" "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 url 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] 20 (#$ . 3109)])
#@20 

(fn METHOD ARGS)
(defalias 'url-file-create-wrapper '(macro . #[514 "\300\301\302\303\304\"!D\305\302\303\306\"!\303\307\"\310\311\312\n\313\314\313\315\"\"BE\257E\207" [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] 17 (#$ . 4659)]))
(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 #[257 "\300
!\262
\211\205\f\301
!\207" [url-file-build-filename file-exists-p] 3 "FTP/FILE URL wrapper around `file-exists-p' call.\n\n(fn URL)"] url-ftp-file-attributes url-file-file-attributes #[513 "\300!\262
\205
\301\"\207" [url-file-build-filename file-attributes] 5 "FTP/FILE URL wrapper around `file-attributes' call.\n\n(fn URL &optional ID-FORMAT)"] url-ftp-file-symlink-p url-file-file-symlink-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-file-build-filename file-symlink-p] 3 "FTP/FILE URL wrapper around `file-symlink-p' call.\n\n(fn URL)"] url-ftp-file-readable-p url-file-file-readable-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-file-build-filename file-readable-p] 3 "FTP/FILE URL wrapper around `file-readable-p' call.\n\n(fn URL)"] url-ftp-file-writable-p url-file-file-writable-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-file-build-filename file-writable-p] 3 "FTP/FILE URL wrapper around `file-writable-p' call.\n\n(fn URL)"] url-ftp-file-executable-p url-file-file-executable-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-file-build-filename file-executable-p] 3 "FTP/FILE URL wrapper around `file-executable-p' call.\n\n(fn URL)"] url-ftp-directory-files url-file-directory-files #[1025 "\300!\262\205\301$\207" [url-file-build-filename directory-files] 9 "FTP/FILE URL wrapper around `directory-files' call.\n\n(fn URL &optional FULL MATCH NOSORT)"] url-ftp-file-truename url-file-file-truename #[769 "\300!\262\205\301#\207" [url-file-build-filename file-truename] 7 "FTP/FILE URL wrapper around `file-truename' call.\n\n(fn URL &optional COUNTER PREV-DIRS)"] provide url-file] 5)