ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/url/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/url/url-file.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 526))
#@33 FTP transfers are asynchronous.
(defconst url-file-asynchronous-p t (#$ . 597))
(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 (#$ . 744)])
#@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 (#$ . 1330)])
(defalias 'url-file-asynch-callback #[(x y name buff func args &optional efs) "\306\307!\204 \n \f\310\311 !8 rq\210db\210
\312U\204' \313\314
\"c\210\315c\210\316 !\210\317\320H>\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 0 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\n \307!\310H >\204 \311\312\300D\"\210\313H\310H >\204, \311\312\300D\"\210\314H\211 \310H >\204A \311\312\300\fD\"\210\f\315H\206q \f\310H >\204V \311\312\300\fD\"\210\f\316H\205q \317\f\310H >\204l \311\312\300\fD\"\210\f\316H\320\") \310H >\204\202 \311\312\300D\"\210\321H -
\203\251
\322U\204\251 \323\324!\203\240 \325\326-
#\202\253 \325\327-
#\202\253 - .\330\310H >\204\275 \311\312\300D\"\210\331H! /\n\204\316 \332-!\204\337 \333\n\206\324 \334\335.\336/\260\202\337\340/\"\203\366 0\341>\203\366 /\316\342O\202\337\343/\"\203\344/P\202/ 1\342 2\n\203! \203!\323\324!\203!\345-\n #\210\3461!\203L\337\3471\"\204L\310H >\204?\311\312\300D\"\210\211 3\331\325\3501\"I\210)\3461!\203v4\203v\35141\"\2112\203v\3522!\203v\3532!\203v21\3541!\2111.\207" [url cl-struct-url-tags user pass urlobj port vectorp url-generic-parse-url 0 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 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
!\211 4\204 \311\312\313
!\"\210\314\3154\"\203+ 4\316\211\224O\202- 4\317\320 !!\3204!\211 5\321\235\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\202r\337\340!\211q\210\341 \210
6\342\n\206\241 \343\344\261\210 \203\257 \345 \344\261\210\346
\316H7>\204\300 \347\350\305
D\"\210
\351H!\203\356 \352\353!\203\335 \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 (".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*" mm-disable-multibyte "Content-type: " "application/octet-stream" "\n" "Content-transfer-encoding: " url-file-host-is-local-p 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 (#$ . 3668)])
(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)
Kontol Shell Bypass