WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/url
Viewing File: /usr/share/emacs/24.3/lisp/url/url-parse.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:04 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el
;;; in Emacs version 24.3.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 "\301\302!\210\301\303!\210\304\305\306\"\210\307\310\311\312#\210\313\307\310\314\315\316!!#\210)\301\207" [file require url-vars auth-source autoload url-scheme-get-property "url-methods" put url-type compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-type (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-type 'url)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-type #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-type url 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-user compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-user (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-user 'url)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-user #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-user url 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-password compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-password (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-password 'url)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-password #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-password url 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-host compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-host (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-host 'url)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-host #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-host url 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-portspec compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-portspec (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-portspec 'url)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-portspec #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-portspec url 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-filename compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-filename (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-filename 'url)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-filename #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-filename url 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-target compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-target (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-target 'url)) (aref cl-x 7)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-target #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-target url 7] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-attributes compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-attributes (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-attributes 'url)) (aref cl-x 8)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-attributes #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-attributes url 8] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-fullness compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-fullness (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-fullness 'url)) (aref cl-x 9)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-fullness #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-fullness url 9] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-silent compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-silent (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-silent 'url)) (aref cl-x 10)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-silent #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-silent url 10] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-use-cookies compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-use-cookies (or (and (memq (aref cl-x 0) cl-struct-url-tags)) (error "%s accessing a non-%s" 'url-use-cookies 'url)) (aref cl-x 11)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-use-cookies #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-tags 0 error "%s accessing a non-%s" url-use-cookies url 11] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-p (and (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-url-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(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 "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-parse-make-urlobj compiler-macro #[(_cl-whole-arg &rest #1=#:--cl-rest--) "\211A@\211A@\211A@\211A@\211A@\211A@
\211A@\211A@\211A@\203H\306\307\310\311G\\D\"\210\312\313\314\310\211\211	\n\f

&.	\207" [#1# type user password host portspec signal wrong-number-of-arguments nil 10 cl--defsubst-expand (type user password host portspec filename target attributes fullness) (cl-block url-parse-make-urlobj (vector 'cl-struct-url type user password host portspec filename target attributes fullness nil t)) filename target attributes fullness] 15 "\n\n(fn CL-WHOLE-ARG &cl-quote &optional TYPE USER PASSWORD HOST PORTSPEC FILENAME TARGET ATTRIBUTES FULLNESS)"] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-parse.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@87 

(fn &optional TYPE USER PASSWORD HOST PORTSPEC FILENAME TARGET ATTRIBUTES FULLNESS)
(defalias 'url-parse-make-urlobj #[(&rest #1=#:--cl-rest--) "\211A@\211A@\211A@\211A@\211A@\211A@\211A@\211A@\211A@\203H\306\307\310\311G\\D\"\210\312\313	\n\f
\314\315&\f.	\207" [#1# type user password host portspec signal wrong-number-of-arguments url-parse-make-urlobj 9 vector cl-struct-url nil t filename target attributes fullness] 13 (#$ . 8977)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\317#\210\302\320\315\313#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\210\302\326\315\313#\210\302\327\315\313#\210\302\330\315\313#\210\302\331\315\313#\210\302\332\315\313#\207" [cl-struct-url-tags cl-struct-url put url cl-struct-slots ((cl-tag-slot) (type) (user) (password) (host) (portspec) (filename) (target) (attributes) (fullness) (silent) (use-cookies t)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t url-parse-make-urlobj side-effect-free url-p error-free url-use-cookies url-silent url-fullness url-attributes url-target url-filename url-portspec url-host url-password url-user url-type] 4)
#@57 Return the port number for the URL specified by URLOBJ.
(defalias 'url-port #[(urlobj) "\302H	>\204\303\304\305\306#\210\307H\206<\302H	>\204\"\303\304\310\306#\210\311H\205<\312\302H	>\2047\303\304\310\306#\210\311H\313\"\207" [urlobj cl-struct-url-tags 0 error "%s accessing a non-%s" url-portspec url 5 url-type 1 url-scheme-get-property default-port] 5 (#$ . 10290)])
(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\303D	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\310\311#\210\312H\313\211\211\2032\314\315\f\"\2030\f\305\211\224O\f\305\225\313O\2022\f\316\232\203:\313\n\316\232\203B\313\n+B\207" [urlobj cl-struct-url-tags query path name 0 error "%s accessing a non-%s" url-filename url 6 nil string-match "\\?" ""] 5 (#$ . 10955)])
#@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\307\310#\210\311H\312\211\2059\304H	>\204&\305\306\313\310#\210\314H\211\2038\315\n\316\"\232?\2059*\207" [urlobj cl-struct-url-tags type port 0 error "%s accessing a non-%s" url-portspec url 5 nil url-type 1 url-scheme-get-property default-port] 5 (#$ . 11543)])
#@47 Recreate a URL string from the parsed URLOBJ.
(defalias 'url-recreate-url #[(urlobj) "\306H	>\204\307\310\311\312#\210\313H\306H	>\204 \307\310\314\312#\210\315H\306H	>\2042\307\310\316\312#\210\317H\306H	>\204D\307\310\320\312#\210\321H\322!$\306H	>\204[\307\310\323\312#\210\324H%\306H	>\204n\307\310\325\312#\210\326H&\n\205z\n\327P\306H	>\204\210\307\310\330\312#\210\331H\205\217\332\204\227\f\205\241\f\205\237\327\fP\333Q
$\205\351\334\335\211\306H	>\204\271\307\310\336\312#\210\337H\206\347\306H	>\204\315\307\310\311\312#\210\313H\205\347\340\306H	>\204\342\307\310\311\312#\210\313H\341\")\"%\206\357\342&\205\370\343&P\260.\207" [urlobj cl-struct-url-tags type user pass host 0 error "%s accessing a non-%s" url-type url 1 url-user 2 url-password 3 url-host 4 url-port-if-non-default url-filename 6 url-target 7 ":" url-fullness 9 "//" "@" format ":%d" url-portspec 5 url-scheme-get-property default-port "/" "#" port file frag] 12 (#$ . 12022)])
#@66 Recreate the attributes of an URL string from the parsed URLOBJ.
(defalias 'url-recreate-url-attributes #[(urlobj) "\302H	>\204\303\304\305\306#\210\307H\205+\310\311\312\302H	>\204%\303\304\305\306#\210\307H\310#P\207" [urlobj cl-struct-url-tags 0 error "%s accessing a non-%s" url-attributes url 8 ";" mapconcat #[(x) "A\203\f@\301AQ\207@\207" [x "="] 3]] 7 (#$ . 13045)])
(make-obsolete 'url-recreate-url-attributes nil "24.3")
#@1367 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 iff 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 \210c\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{&\2025\337\310w\210\317\340!\203\341\310w\210,`{&\317\342!\2035`-\323u\210m\204/`d{%-d|\210)(\203H\327\343(\"\203H\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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 13497)])
(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\204LG\313V\203L\314\315\316\317\211A@	!\320	\313H
>\2043\321\322\323\300#\210	\316H&\324\f@\325\"\326\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 error "%s accessing a non-%s" url-type plist-get :user functionp] 11 (#$ . 16806)])
#@59 Attempt to use .authinfo to find a password for this URL.
(defalias 'url-password-for-url #[(url) "\306!\307	!\310\311D\312\n\204LG\313V\203L\314\315\316\317\211A@	!\320	\313H
>\2043\321\322\323\300#\210	\316H&\324\f@\325\"\326\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 error "%s accessing a non-%s" url-type plist-get :secret functionp] 11 (#$ . 17315)])
(provide 'url-parse)
F1l3 Manager
