| Current Path : /usr/share/emacs/24.3/lisp/url/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/url/url-expand.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:19 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-expand.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 "\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\303\"\204 \304P\202 \302\305 \"\203 \304P\302\306 \"\2030 \307\310\224O \310\225\311OP\202 \302\312 \"\203F \307\310\224O \310\225\311OP\2020 \302\313 \"\203V \310\224\311O\202F )\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\307\"\203P \207\306 \"\203Y \207\314! \322 \323 \320H>\204o \316\324\325\300#\210 \326H\327\" \306\330\"\203\225 \314 \320H>\204\215 \316\324\325\300#\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 "%s accessing a non-%s" url-type 1 expand-file-name "^//" ":" cl-struct-url-tags expander] 5 (#$ . 1027)]) (defalias 'url-identity-expander #[(urlobj defobj) "\304H >\204 \305\306\307\310#\210\211\311\304H >\204 \305\306\307\310#\210\311H\2067 \304H >\2044 \305\306\307\310#\210 \311HI)\207" [urlobj cl-struct-url-tags #1=#:v defobj 0 error "%s accessing a non-%s" url-type url 1] 7]) (defalias 'url-default-expander #[(urlobj defobj) "\306H >\204 \307\310\311\312#\210\313H?\205\353\306H >\204# \307\310\311\312#\210\211\313\306H >\2045 \307\310\311\312#\210\313H\206L \306H >\204I \307\310\311\312#\210 \313HI\210)\211 \306H >\204_ \307\310\314\312#\210\f\211 \315\211\306H >\204s \307\310\314\312#\210\315H\206\241 \306H >\204\207 \307\310\311\312#\210\313H\205\241 \316\306H >\204\234 \307\310\311\312#\210\313H\317\")\206\n\306H >\204\263 \307\310\311\312#\210\313H \306H >\204\304 \307\310\311\312#\210 \313H\230\205\n \211\306H >\204\333 \307\310\314\312#\210\315H\206 \306H >\204\357 \307\310\311\312#\210\313H\205 \316\306H >\204\307\310\311\312#\210\313H\317\")I\210*\306H >\204\307\310\311\312#\210\313H\320\230\204^\306H >\2041\307\310\321\312#\210\211 \"\322\306H >\204D\307\310\321\312#\210\322H\206[ \306H >\204X\307\310\321\312#\210 \322HI\210)\306H >\204l\307\310\311\312#\210\313H\323\230\203\257\306H >\204\202\307\310\324\312#\210\211 #\325\306H >\204\225\307\310\324\312#\210\325H\206\254 \306H >\204\251\307\310\324\312#\210 \325HI\210)\306H >\204\275\307\310\326\312#\210\327H\330\230\203\334\306H >\204\323\307\310\326\312#\210\211 $\327\331I\210)\306H >\204\352\307\310\332\312#\210\333H\204\306H >\204\376\307\310\332\312#\210\211 %\333 \306H >\204\307\310\332\312#\210 \333HI\210)\334\335\306H >\204'\307\310\326\312#\210\327H\"?\205\353\336\211\211 & ' (\334\337\306H >\204H\307\310\326\312#\210\327H\"\203\230\306H >\204]\307\310\326\312#\210\327H\306\225\336O(\306H >\204t\307\310\326\312#\210\327H\306\211\224O'\306H >\204\213\307\310\326\312#\210\327H\306\224\306\225O&\202\253\306H >\204\246\307\310\326\312#\210\327H'\340\341 \306H >\204\273\307\310\326\312#\210 \327H!'P!'\306H >\204\323\307\310\326\312#\210\211 )\327(\203\347'&(Q\202\351'I,\207" [urlobj cl-struct-url-tags #1=#:v defobj #2=#:v #3=#:v 0 error "%s accessing a non-%s" url-type url 1 url-portspec 5 url-scheme-get-property default-port "file" url-host 4 "ftp" url-user 2 url-filename 6 "" "/" url-fullness 9 string-match "^/" nil "[?#]" url-expander-remove-relative-links url-file-directory #4=#:v #5=#:v #6=#:v #7=#:v sepchar file query #8=#:v] 8]) (provide 'url-expand)