ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/url/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/url/url-parse.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\303\304\305\"\207" [require url-vars auth-source autoload url-scheme-get-property "url-methods"] 3)
(defalias 'url-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-url-tags) t)) nil] 7])
(put 'url-p 'compiler-macro 'url-p--cmacro)
(defalias 'url-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-url-tags vectorp 12 0 t] 2])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put url-p side-effect-free error-free put url cl-deftype-satisfies] 4)
(defalias 'url-type--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 1)) nil] 7])
(put 'url-type 'compiler-macro 'url-type--cmacro)
(defalias 'url-type #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 1] 4])
(function-put 'url-type 'side-effect-free t)
(defalias 'url-user--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-user (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 2)) nil] 7])
(put 'url-user 'compiler-macro 'url-user--cmacro)
(defalias 'url-user #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 2] 4])
(function-put 'url-user 'side-effect-free t)
(defalias 'url-password--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-password (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 3)) nil] 7])
(put 'url-password 'compiler-macro 'url-password--cmacro)
(defalias 'url-password #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 3] 4])
(function-put 'url-password 'side-effect-free t)
(defalias 'url-host--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-host (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 4)) nil] 7])
(put 'url-host 'compiler-macro 'url-host--cmacro)
(defalias 'url-host #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 4] 4])
(function-put 'url-host 'side-effect-free t)
(defalias 'url-portspec--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-portspec (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 5)) nil] 7])
(put 'url-portspec 'compiler-macro 'url-portspec--cmacro)
(defalias 'url-portspec #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 5] 4])
(function-put 'url-portspec 'side-effect-free t)
(defalias 'url-filename--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-filename (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 6)) nil] 7])
(put 'url-filename 'compiler-macro 'url-filename--cmacro)
(defalias 'url-filename #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 6] 4])
(function-put 'url-filename 'side-effect-free t)
(defalias 'url-target--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-target (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 7)) nil] 7])
(put 'url-target 'compiler-macro 'url-target--cmacro)
(defalias 'url-target #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 7] 4])
(function-put 'url-target 'side-effect-free t)
(defalias 'url-attributes--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-attributes (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 8)) nil] 7])
(put 'url-attributes 'compiler-macro 'url-attributes--cmacro)
(defalias 'url-attributes #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 8] 4])
(function-put 'url-attributes 'side-effect-free t)
(defalias 'url-fullness--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-fullness (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 9)) nil] 7])
(put 'url-fullness 'compiler-macro 'url-fullness--cmacro)
(defalias 'url-fullness #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 9] 4])
(function-put 'url-fullness 'side-effect-free t)
(defalias 'url-silent--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-silent (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 10)) nil] 7])
(put 'url-silent 'compiler-macro 'url-silent--cmacro)
(defalias 'url-silent #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 10] 4])
(function-put 'url-silent 'side-effect-free t)
(defalias 'url-use-cookies--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-use-cookies (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (signal 'wrong-type-argument (list 'url cl-x))) (aref cl-x 11)) nil] 7])
(put 'url-use-cookies 'compiler-macro 'url-use-cookies--cmacro)
(defalias 'url-use-cookies #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-url-tags 0 signal wrong-type-argument url 11] 4])
(function-put 'url-use-cookies 'side-effect-free t)
(defalias 'url-parse-make-urlobj--cmacro #[(_cl-whole-arg &optional type user password host portspec filename target attributes fullness) "\306\307\310\311\211\211 \n \f
\n \f&\207" [type user password host portspec filename cl--defsubst-expand (type user password host portspec filename target attributes fullness) (cl-block url-parse-make-urlobj "Constructor for objects of type `url'." (declare (side-effect-free t)) (vector 'cl-struct-url type user password host portspec filename target attributes fullness nil t)) nil target attributes fullness] 15])
(put 'url-parse-make-urlobj 'compiler-macro 'url-parse-make-urlobj--cmacro)
#@40 Constructor for objects of type `url'.
(defalias 'url-parse-make-urlobj #[(&optional type user password host portspec filename target attributes fullness) "\306\307 \n \f
\n \f\310\311&\f\207" [type user password host portspec filename vector cl-struct-url nil t target attributes fullness] 13 (#$ . 7743)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put url-parse-make-urlobj side-effect-free t cl-struct-define url nil cl-structure-object ((cl-tag-slot) (type) (user) (password) (host) (portspec) (filename) (target) (attributes) (fullness) (silent) (use-cookies t)) cl-struct-url-tags cl-struct-url] 10)
#@173 Return the port number for the URL specified by URLOBJ.
If the port spec is nil (i.e. URLOBJ specifies no port number),
return the default port number for URLOBJ's scheme.
(defalias 'url-port #[(urlobj) "\302H >\204 \303\304\305D\"\210\306H\206? \302H >\204$ \303\304\305D\"\210\307H\205? \310\302H >\204: \303\304\305D\"\210\307H\311\"\207" [urlobj cl-struct-url-tags 0 signal wrong-type-argument url 5 1 url-scheme-get-property default-port] 5 (#$ . 8409)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put url-port gv-expander #[(do &rest args) "\302\303\304 $\207" [do args gv--defsetter url-port #[(port urlobj) "\302\303D E\207" [urlobj port setf url-portspec] 3]] 5] byte-optimizer byte-compile-inline-expand] 4)
#@229 Return the path and query components of URLOBJ.
These two components are stored together in the FILENAME slot of
the object. The return value of this function is (PATH . QUERY),
where each of PATH and QUERY are strings or nil.
(defalias 'url-path-and-query #[(urlobj) "\305H >\204 \306\307\310D\"\210\311H\312\211\211 \2033 \313\314\f\"\2031 \f\305\211\224O\f\305\225\312O\2023 \f \n+B\207" [urlobj cl-struct-url-tags query path name 0 signal wrong-type-argument url 6 nil string-match "\\?"] 5 (#$ . 9160)])
#@128 Return the port number specified by URLOBJ, if it is not the default.
If the specified port number is the default, return nil.
(defalias 'url-port-if-non-default #[(urlobj) "\304H >\204 \305\306\307D\"\210\310H\311\211\205; \304H >\204( \305\306\307D\"\210\312H\211\203: \313\n\314\"\232?\205; *\207" [urlobj cl-struct-url-tags type port 0 signal wrong-type-argument url 5 nil 1 url-scheme-get-property default-port] 5 (#$ . 9686)])
#@47 Recreate a URL string from the parsed URLOBJ.
(defalias 'url-recreate-url #[(urlobj) "\306H >\204 \307\310\311D\"\210\312H\306H >\204\" \307\310\311D\"\210\313H\306H >\2045 \307\310\311D\"\210\314H \306H >\204H \307\310\311D\"\210\315H \316! \306H >\204` \307\310\311D\"\210\317H \306H >\204t \307\310\311D\"\210\320H \n\205\200 \n\321P\306H >\204\217 \307\310\311D\"\210\322H\205\226 \323 \204\236 \f\205\250 \f\205\246 \321\fP\324Q
\205\363 \325\326\211\306H >\204\301 \307\310\311D\"\210\327H\206\361 \306H >\204\326 \307\310\311D\"\210\312H\205\361 \330\306H >\204\354 \307\310\311D\"\210\312H\331\")\" \206\371 \332 \205\333 P\260.\207" [urlobj cl-struct-url-tags type user pass host 0 signal wrong-type-argument url 1 2 3 4 url-port-if-non-default 6 7 ":" 9 "//" "@" format ":%d" 5 url-scheme-get-property default-port "/" "#" port file frag] 12 (#$ . 10137)])
#@66 Recreate the attributes of an URL string from the parsed URLOBJ.
(defalias 'url-recreate-url-attributes #[(urlobj) "\302H >\204 \303\304\305D\"\210\306H\205- \307\310\311\302H >\204' \303\304\305D\"\210\306H\307#P\207" [urlobj cl-struct-url-tags 0 signal wrong-type-argument url 8 ";" mapconcat #[(x) "A\203\f @\301AQ\207@\207" [x "="] 3]] 7 (#$ . 11058)])
(make-obsolete 'url-recreate-url-attributes nil "24.3")
#@1366 Return an URL-struct of the parts of URL.
The CL-style struct contains the following fields:
TYPE is the URI scheme (string or nil).
USER is the user name (string or nil).
PASSWORD is the password (string [deprecated] or nil).
HOST is the host (a registered name, IP literal in square
brackets, or IPv4 address in dotted-decimal form).
PORTSPEC is the specified port (a number), or nil.
FILENAME is the path AND the query component of the URI.
TARGET is the fragment identifier component (used to refer to a
subordinate resource, e.g. a part of a webpage).
ATTRIBUTES is nil; this slot originally stored the attribute and
value alists for IMAP URIs, but this feature was removed
since it conflicts with RFC 3986.
FULLNESS is non-nil if the hierarchical sequence component of
the URL starts with two slashes, "//".
The parser follows RFC 3986, except that it also tries to handle
URIs that are not fully specified (e.g. lacking TYPE), and it
does not check for or perform %-encoding.
Here is an example. The URL
foo://bob:pass@example.com:42/a/b/c.dtb?type=animal&name=narwhal#nose
parses to
TYPE = "foo"
USER = "bob"
PASSWORD = "pass"
HOST = "example.com"
PORTSPEC = 42
FILENAME = "/a/b/c.dtb?type=animal&name=narwhal"
TARGET = "nose"
ATTRIBUTES = nil
FULLNESS = t
(defalias 'url-generic-parse-url #[(url) "\204 \306\307\310\211\211\211\211\211\211\211\211\211\311&\f\207\312\313!r q\210\314\216\310\315 !\210\316 \210c\210eb\210`\310\211\211\211\211\211\211\211\311 % & ' ( ) * + ,\317\320!\203\\ \321\225b\210`,\322\323!\227+\317\324!\203\363 \311\325u\210`,\326\310w\210,`{(\327\330(\"\203\213 \322\323(\"*(\321\225\310O(*\203\246 \327\331*\"\203\246 \322\325*\")\322\323*\"*\327\332(\"\203\277 \322\325(\"'\322\323(\"(\202\326 \327\333(\"\203\326 \322\323(\"'(\321\211\224O('\334\232\203\343 \310'\202\356 '\203\356 \335'!'(\227(`,+\336\230\203,d{&\2021\337\310w\210\317\340!\203\341\310w\210,`{&\317\342!\2031` -\323u\210`d{%-d|\210)(\203D\327\343(\"\203D\344(!(\306\307+*)('&%\310
\310\311&\f.\207" [url #1=#:temp-buffer deactivate-mark url-parse-syntax-table inhibit-read-only full vector cl-struct-url nil t generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] set-syntax-table erase-buffer looking-at "\\([a-zA-Z][-a-zA-Z0-9+.]*\\):" 0 match-string 1 "//" 2 "^/?#" string-match "^\\([^@]+\\)@" "\\`\\([^:]*\\):\\(.*\\)" "^\\(\\[[^]]+\\]\\)\\(?::\\([0-9]*\\)\\)?$" ":\\([0-9]*\\)$" "" string-to-number "data" "^?#" "?" "^#" "#" "%[0-9][0-9]" url-unhex-string fragment file port host pass user scheme save-pos opoint] 13 (#$ . 11490)])
(defalias 'url-bit-for-url '(macro . #[(method lookfor url) "\302\303\304\305\306BBD\307BB\310\311\312\313\304\314\315 EE\316BBBB\317BBB\207" [method lookfor let* (urlobj (url-generic-parse-url url)) bit funcall (urlobj) ((methods (list 'url-recreate-url 'url-host)) auth-info) while (and (not bit) (> (length methods) 0)) (setq auth-info (auth-source-search :max 1 :host (funcall (pop methods) urlobj) :port (url-type urlobj))) setq plist-get (nth 0 auth-info) ((when (functionp bit) (setq bit (funcall bit)))) (bit)] 10]))
#@55 Attempt to use .authinfo to find a user for this URL.
(defalias 'url-user-for-url #[(url) "\306!\307 !\310\311D\312 \n\204M G\313V\203M \314\315\316\317 \211A\242 !\320 \313H
>\2044 \321\322\300 D\"\210 \316H&\323\f@\324\"\325\n!\203 \n \211\203 \n,\207" [url urlobj bit methods auth-info cl-struct-url-tags url-generic-parse-url url-user url-recreate-url url-host nil 0 auth-source-search :max 1 :host :port signal wrong-type-argument plist-get :user functionp] 11 (#$ . 14775)])
#@59 Attempt to use .authinfo to find a password for this URL.
(defalias 'url-password-for-url #[(url) "\306!\307 !\310\311D\312 \n\204M G\313V\203M \314\315\316\317 \211A\242 !\320 \313H
>\2044 \321\322\300 D\"\210 \316H&\323\f@\324\"\325\n!\203 \n \211\203 \n,\207" [url urlobj bit methods auth-info cl-struct-url-tags url-generic-parse-url url-password url-recreate-url url-host nil 0 auth-source-search :max 1 :host :port signal wrong-type-argument plist-get :secret functionp] 11 (#$ . 15274)])
(provide 'url-parse)
Kontol Shell Bypass