;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@137 Return a URI for the filename F.
Multibyte characters are left as is.  Use `rng-uri-escape-multibyte' to
escape them using %HH.

(fn F)
(defalias 'rng-file-name-uri #[257 "\300
!\262
\301\302\303#\304
G\305V\203
\305H\306U\203\307\202\310Q\207" [expand-file-name replace-regexp-in-string "[]- \"#%;<>?[\\^`{|}]" rng-percent-encode "file:" 0 47 "//" "///"] 5 (#$ . 85)])
#@47 Escape multibyte characters in URI.

(fn URI)
(defalias 'rng-uri-escape-multibyte #[257 "\300\301\302\303\304\"#\207" [replace-regexp-in-string "[[:nonascii:]]" rng-percent-encode encode-coding-string utf-8] 7 (#$ . 471)])
#@12 

(fn STR)
(defalias 'rng-percent-encode #[257 "\300\301\302\303\304
\305\"\262
\"\"\207" [apply concat mapcar #[257 "\300\301\302\245\302\246#\207" [format "%%%x%x" 16] 6 "\n\n(fn CH)"] append nil] 9 (#$ . 701)])
#@101 Return the filename represented by a URI.
Signal an error if URI is not a valid file URL.

(fn URI)
(defalias 'rng-uri-file-name #[257 "\300
\301\"\207" [rng-uri-file-name-1 nil] 4 (#$ . 925)])
#@85 Return a regexp for filenames represented by URIs that match PATTERN.

(fn PATTERN)
(defalias 'rng-uri-pattern-file-name-regexp #[257 "\300
\301\"\207" [rng-uri-file-name-1 match] 4 (#$ . 1125)])
#@16 

(fn PATTERN)
(defalias 'rng-uri-pattern-file-name-replace-match #[257 "\300
\301\"\207" [rng-uri-file-name-1 replace] 4 (#$ . 1327)])
#@20 

(fn URI PATTERN)
(defalias 'rng-uri-file-name-1 #[514 "\301\302\"\204\f\303\304\"\210\305!\262\306!\206\303\307\"\211@
A@\3108\301\311\"\3128\3138\204@\204M\303\314\n\"\210\202M\227\315\230\204M\303\316\n\"\210\317 \320B\235\204\\\303\321\n\"\210
\203f\303\322\n\"\210\211\203p\303\323\n\"\210\324\325\"\203}\303\326\n\"\210\301\327\"\203\212\303\330\n\"\210\331=\203\243\203\243\332\333\334O!\203\243\333\334O\262\203\265\301\335\"\203\265\310\334O\262\336\267\202\311\337!\202\314\340\310\"\202\314\341!\262\324\342\"\203\333\303\343\n\"\210\344=\203\357\203\352\345\202\353\346P\262\344=\203\373\347\350Q\207\351=\203\n
\204\n
\352P\207\207" [system-type string-match "\\`\\(?:[^%]\\|%[[:xdigit:]]{2}\\)*\\'" rng-uri-error "Bad escapes in URI `%s'" rng-uri-unescape-multibyte rng-uri-split "Cannot split URI `%s' into its components" 2 "\\`/" 3 4 "URI `%s' does not have a scheme" "file" "URI `%s' does not use the `file:' scheme" system-name (nil "" "localhost") "URI `%s' does not start with `file:///' or `file://localhost/'" "`?' not escaped in file URI `%s'" "URI `%s' has a fragment identifier" string-search ";" "`;' not escaped in URI `%s'" "%2[fF]" "Escaped slash in URI `%s'" windows-nt file-name-absolute-p 1 nil "\\`\\./" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (match 188 replace 194)) rng-uri-unescape-unibyte-match rng-uri-unescape-unibyte-replace rng-uri-unescape-unibyte "" "URI `%s' has NUL character in path" match "\\(\\)" "\\(\\(?:[^/]*/\\)*\\)" "\\`" "\\'" replace "\\1"] 13 (#$ . 1469)])
#@19 

(fn &rest ARGS)
(defalias 'rng-uri-error #[128 "\300\301\302\303\"C\"\207" [signal rng-uri-error apply format-message] 6 (#$ . 3118)])
(define-error 'rng-uri-error "Invalid URI")
#@12 

(fn STR)
(defalias 'rng-uri-split #[257 "\300\301\"\205\302\303\"\302\304\"\302\305\"\302\306\"\302\307\"\257\207" [string-match "\\`\\(?:\\([^:/?#]+\\):\\)?\\(?://\\([^/?#]*\\)\\)?\\([^?#]*\\)\\(?:\\?\\([^#]*\\)\\)?\\(?:#\\(\\(?:.\\|\n\\)*\\)\\)?\\'" match-string 1 2 3 4 5] 8 (#$ . 3306)])
#@58 

(fn SCHEME AUTHORITY PATH &optional QUERY FRAGMENT-ID)
(defalias 'rng-uri-join #[1283 "\205:\300
\203\301D\262
\203\302BB\262

B\262
\203)\303BB\262
\2034\304BB\262
\305\306\"\262
\207" [nil "#" "?" "//" ":" apply concat] 9 (#$ . 3616)])
#@303 Resolve a possibly relative URI reference into absolute form.
URI-REF is the URI reference to be resolved.
BASE-URI is the base URI to use for resolving it.
The algorithm is specified by RFC 2396.
If there is some problem with URI-REF or BASE-URI, then
URI-REF will be returned.

(fn URI-REF BASE-URI)
(defalias 'rng-uri-resolve #[514 "\300!\211@
A@\3018\3028\3038\300!\203'\204'\211\203'\211@\204*\207\211@\262\204V\211A@\262\304\232\203N\204N\301
8\262\302
8\262\202V\305\3018\"\262\306%\207" [rng-uri-split 2 3 4 "" rng-resolve-path rng-uri-join] 15 (#$ . 3883)])
#@23 

(fn PATH BASE-PATH)
(defalias 'rng-resolve-path #[514 "\300\301\"\204\300\301\"\204
\207\302!\302!\211G\303V\203'\304
!\244\262\202/

@@P\240\210\305!\211@\306\232\203=\211\307\240\210\210\310\306\"\262\311\211\311\262
A\262
\203\207\211\204\207
A@\312\232\203d
@\312\232\203k
A\262\202M
\311\240\210
AAA?\205y\307\240\210\313\262
\314\311\"\262\202M\211\204F\266\315!\207" [string-match "\\`/" rng-split-path 1 nbutlast last "." "" delete nil ".." t delq rng-join-path] 9 (#$ . 4495)])
#@164 Return a URI that relative to BASE is equivalent to FULL.
The returned URI will be relative if possible.
Both FULL and BASE must be absolute URIs.

(fn FULL BASE)
(defalias 'rng-relative-uri #[514 "\300!\211@
A@\3018\3028\3038\300!\203P\211\203P\203P
@\232\203P\304\262\203C
A@\232\203C\304\262\305\3018\"\262\306%\207\207" [rng-uri-split 2 3 4 nil rng-relative-path rng-uri-join] 15 (#$ . 5024)])
#@23 

(fn PATH BASE-PATH)
(defalias 'rng-relative-path #[514 "\300!\300!\211G\301V\203\302
!\262
\303\235\204*\304\235\204*\303
\235\204*\304
\235\203,\207
\203G\211\203G
@
@\230\203G
A\262\211A\262
\202,\211\203W\211A\262
\304B\262\202G
@\305\232\203c\303B\262\306!\207" [rng-split-path 1 nbutlast "." ".." "" rng-join-path] 6 (#$ . 5463)])
#@13 

(fn PATH)
(defalias 'rng-split-path #[257 "\300\301\302\303#\203\300\224O
B\262
\300\225\262\202\301O
B\237\207" [0 nil string-match "/"] 7 (#$ . 5831)])
#@17 

(fn SEGMENTS)
(defalias 'rng-join-path #[257 "\211\205	\300\301\302#\207" [mapconcat identity "/"] 5 (#$ . 6004)])
#@12 

(fn STR)
(defalias 'rng-uri-unescape-multibyte #[257 "\300\301\302#\207" [replace-regexp-in-string "\\(?:%[89a-fA-F][[:xdigit:]]\\)+" rng-multibyte-percent-decode] 5 (#$ . 6129)])
#@12 

(fn STR)
(defalias 'rng-multibyte-percent-decode #[257 "\300\301\302\303\304\305\306\"\"\"\307\"\207" [decode-coding-string apply string mapcar #[257 "\300
\301\"\207" [string-to-number 16] 4 "\n\n(fn H)"] split-string "%" utf-8] 9 (#$ . 6318)])
#@12 

(fn STR)
(defalias 'rng-uri-unescape-unibyte #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "%[0-7][[:xdigit:]]" #[257 "\300
\301\302O\303\"\207" [string-to-number 1 nil 16] 5 "\n\n(fn H)"] t] 7 (#$ . 6574)])
#@12 

(fn STR)
(defalias 'rng-uri-unescape-unibyte-match #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "%[0-7][[:xdigit:]]\\|[^%]" #[257 "\211\300\230\203\301\207\302
G\303U\203
\202\304\303\305O\306\"!\207" ["*" "\\([^/]*\\)" regexp-quote 1 string-to-number nil 16] 6 "\n\n(fn MATCH)"] t] 7 (#$ . 6805)])
#@29 

(fn STR NEXT-MATCH-INDEX)
(defalias 'rng-uri-unescape-unibyte-replace #[514 "\211C\300\301\302\303\"\304\211%\207" [replace-regexp-in-string "%[0-7][[:xdigit:]]\\|[^%]" make-closure #[257 "\211\301\230\203\300\242\300
T\240\210\302\303\"\207\211G\304U\203\211\305H\202&\306
\304\307O\310\"\211\311=\2031\312\311\211\"\207\312
!\207" [V0 "*" format "\\%s" 1 0 string-to-number nil 16 92 string] 5 "\n\n(fn MATCH)"] t] 9 (#$ . 7135)])
(provide 'rng-uri)