Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
url-about.elc	2.51 KB	-rw-r--r--
url-auth.elc	20.29 KB	-rw-r--r--
url-cache.elc	6.7 KB	-rw-r--r--
url-cid.elc	1.24 KB	-rw-r--r--
url-cookie.elc	23.96 KB	-rw-r--r--
url-dav.elc	20.14 KB	-rw-r--r--
url-dired.elc	2.78 KB	-rw-r--r--
url-domsuf.elc	1.78 KB	-rw-r--r--
url-expand.elc	4.04 KB	-rw-r--r--
url-file.elc	7.18 KB	-rw-r--r--
url-ftp.elc	778 B	-rw-r--r--
url-future.elc	9.17 KB	-rw-r--r--
url-gw.elc	6.68 KB	-rw-r--r--
url-handlers.elc	20.17 KB	-rw-r--r--
url-history.elc	5.46 KB	-rw-r--r--
url-http.elc	38.02 KB	-rw-r--r--
url-imap.elc	1.93 KB	-rw-r--r--
url-irc.elc	2.52 KB	-rw-r--r--
url-ldap.elc	6.06 KB	-rw-r--r--
url-mailto.elc	2.94 KB	-rw-r--r--
url-methods.elc	4.1 KB	-rw-r--r--
url-misc.elc	3.27 KB	-rw-r--r--
url-news.elc	7.36 KB	-rw-r--r--
url-nfs.elc	4.23 KB	-rw-r--r--
url-parse.elc	17.39 KB	-rw-r--r--
url-privacy.elc	1.61 KB	-rw-r--r--
url-proxy.elc	1.82 KB	-rw-r--r--
url-queue.elc	14.9 KB	-rw-r--r--
url-tramp.elc	2.97 KB	-rw-r--r--
url-util.elc	17.34 KB	-rw-r--r--
url-vars.elc	14.89 KB	-rw-r--r--
url.elc	9.12 KB	-rw-r--r--

Code Editor : url-file.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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)
#@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\356�r\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)

${this.title}

Code Editor : url-file.elc