;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	!8rq\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\326H3
\203\243
\327U\204\243\330\331!\203\232\332\3333
#\202\245\332\3343
#\202\24534\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\3576\347>\203\3575\322\350O\202
\345\3515\"\203\376\3525P\202
57\3508\n\203
\203
\330\331!\203
\3533\n#\210\3547!\203D
\345\3557\"\204D
\310H	>\2047
\311\312\336\300#\210\2119\337\332\3567\"I\210)\3547!\203n
:\203n
\357:7\"\2118\203n
\3608!\203n
\3618!\203n
87\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
!\2114\204\311\312\313
!\"\210\314\3154\"\203+4\316\211\224O\202-4\317\320	!!\3204!\2115\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\202
r\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)