ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/url/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/url/url-expand.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!\207" [require url-methods url-util url-parse] 2)
(defalias 'url-expander-remove-relative-links #[(name) "\302\232\203 \302\207\303\304\"\204 \305P\202 \303\306 \"\203\" \305P\303\307 \"\2038 \310\311\224O \311\225\312OP\202\" \303\313 \"\203N \310\311\224O \311\225\312OP\2028 \303\314 \"\203^ \311\224\312O\202N )\207" [name new "" string-match "^/" "/" "/\\.+$" "/\\(\\./\\)" 0 1 nil "/\\([^/]*/\\.\\./\\)" "^/\\.\\.\\(/\\)"] 4])
#@307 Convert URL to a fully specified URL, and canonicalize it.
Second arg DEFAULT is a URL to start with if URL is relative.
If DEFAULT is nil or missing, the current buffer's URL is used.
Path components that are `.' are removed, and
path components followed by `..' are removed, along with the `..' itself.
(defalias 'url-expand-file-name #[(url &optional default) "\203 \306\307\"\204 \310\311\312#\313 !\203 \202; \203% \314 !\202; \n\203- \n\202; \306 \"\2038 \315\202; \316\317!G\320U\203G \321 !\207\306 \"\203P \207\314! \322 \323 \320H>\204g \324\325\300 D\"\210 \326H\327\" \306\330\"\203\216 \314 \320H>\204\206 \324\325\300 D\"\210 \326H\331Q!\f \"\210\321\f!+\207" [url default url-current-object url-nonrelative-link urlobj inhibit-file-name-handlers string-match "^#" mapconcat #[(x) "\301>\203 \302\207\303!\207" [x (32 10 13) #1="" char-to-string] 2] #1# vectorp url-generic-parse-url nil error "url-expand-file-name confused - no default?" 0 url-recreate-url t url-scheme-get-property signal wrong-type-argument 1 expand-file-name "^//" ":" cl-struct-url-tags expander] 5 (#$ . 908)])
(defalias 'url-identity-expander #[(urlobj defobj) "\304H >\204 \305\306\307D\"\210\211\310\304H >\204\" \305\306\307D\"\210\310H\206: \304H >\2047 \305\306\307 D\"\210 \310HI)\207" [urlobj cl-struct-url-tags #1=#:v defobj 0 signal wrong-type-argument url 1] 7])
(defalias 'url-default-expander #[(urlobj defobj) "\306H >\204 \307\310\311D\"\210\312H?\205g\306H >\204% \307\310\311D\"\210\211\312\306H >\2048 \307\310\311D\"\210\312H\206P \306H >\204M \307\310\311 D\"\210 \312HI\210)\211 \306H >\204d \307\310\311\fD\"\210\f\211 \313\306H >\204w \307\310\311D\"\210\313H\206\347 \306H >\204\214 \307\310\311D\"\210\312H \306H >\204\236 \307\310\311 D\"\210 \312H\230\205\347 \211\306H >\204\266 \307\310\311D\"\210\313H\206\346 \306H >\204\313 \307\310\311D\"\210\312H\205\346 \314\306H >\204\341 \307\310\311D\"\210\312H\315\")I\210*\306H >\204\371 \307\310\311D\"\210\312H\316\230\204?\306H >\204\307\310\311D\"\210\211 \317\306H >\204$\307\310\311D\"\210\317H\206< \306H >\2049\307\310\311 D\"\210 \317HI\210)\306H >\204N\307\310\311D\"\210\312H\320\230\203\224\306H >\204e\307\310\311D\"\210\211 \321\306H >\204y\307\310\311D\"\210\321H\206\221 \306H >\204\216\307\310\311 D\"\210 \321HI\210)\306H >\204\243\307\310\311D\"\210\322H\204\322\306H >\204\270\307\310\311D\"\210\211 \322 \306H >\204\314\307\310\311 D\"\210 \322HI\210)\323! \323 ! @ A\206\361 \324\232\205\361 A !\325\326\306H >\204\307\310\311D\"\210\327H\"\203\330 ! \202A\330 \324\232\203'\323 !@\206>\324\202>\331 \306H >\2047\307\310\311 D\"\210 \327H! P! \306H >\204P\307\310\311D\"\210\211 \"\327!\203c \332!Q\202e I-\207" [urlobj cl-struct-url-tags #1=#:v defobj #2=#:v #3=#:v 0 signal wrong-type-argument url 1 5 url-scheme-get-property default-port "file" 4 "ftp" 2 9 url-path-and-query "" string-match "^/" 6 url-expander-remove-relative-links url-file-directory "?" #4=#:v #5=#:v #6=#:v pathandquery defpathandquery file query #7=#:v] 8])
(provide 'url-expand)
Kontol Shell Bypass