%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/url/
Current File : //usr/local/share/emacs/27.2/lisp/url/url-file.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@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 (#$ . 742)])
#@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=\307\303 \310\211\224#\202?\303 \232)\207" [case-fold-search t "" system-name string-match "^localhost$" "\\." substring 0] 6 (#$ . 1300)])
#@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!\3058\262rq\210db\210\211\306U\204-\307\310\"c\210\311c\210\312!\210\313\314!	>\204E\315\316\317D\"\210\320H!\204]\3211X\322!0\202\\\210\202]\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 (#$ . 1683)])
#@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\336\312\"\202\372\333\337\"\203\371\340P\202\372\211\203\203\317\320!\203\341#\210\342!\203:\333\343\"\204:\302!>\204/\304\305\306\nD\"\210\211\325\321\344\"I\266\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) substring "\\`/[^/]+:/" "/:" ange-ftp-set-passwd file-directory-p "/\\'" "%s/"] 14 (#$ . 2257)])
#@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&\313\314\211\224#\202'\211\262\315\316!!\262\316!\211\317\267\202Q\320\202R\321\202R\322\202R\323\202R\324\202R\325\202R\303\262\262\326!\203c\327!\210\202\356r\330\331!\211\262q\210\332\333!\210\334 \210\335\206|\336\337\261\210\203\212\340\337\261\210\341\342	!\n>\204\234\343\344\345D\"\210\346H!\203\311\347\350!\203\271\351\303\211p&\210\202\355\351\303\211\211p\f\f&\210\202\355\352\353\354\355 \"!\347\350!\203\354\356\357!\360\303\360\351p\257\360&\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\\)$" substring 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" 57 ".z" 57 ".Z" 61 ".uue" 65 ".hqx" 69 ".bz2" 73 ".xz" 77)) "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 (#$ . 3464)])
#@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 (#$ . 5023)]))
(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)
Zerion Mini Shell 1.0