ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/nxml/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/nxml/rng-uri.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@129 Return a URI for the filename F.
Multibyte characters are left as is. Use `rng-uri-escape-multibyte' to
escape them using %HH.
(defalias 'rng-file-name-uri #[(f) "\302!\303\304\305#\306 G\307V\203 \307H\310U\203 \311\202 \312 Q)\207" [f url expand-file-name replace-regexp-in-string "[ -<>#%\"{}|\\^[]`%?;]" rng-percent-encode "file:" 0 47 "//" "///"] 4 (#$ . 411)])
#@37 Escape multibyte characters in URI.
(defalias 'rng-uri-escape-multibyte #[(uri) "\301\302\303\304\305\"#\207" [uri replace-regexp-in-string "[:nonascii:]" rng-percent-encode encode-coding-string utf-8] 6 (#$ . 795)])
(defalias 'rng-percent-encode #[(str) "\301\302\303\304\305\306\"\262\"\"\207" [str apply concat mapcar #[(ch) "\301\302\303\245\303\246#\207" [ch format "%%%x%x" 16] 5] append nil] 8])
#@91 Return the filename represented by a URI.
Signal an error if URI is not a valid file URL.
(defalias 'rng-uri-file-name #[(uri) "\301\302\"\207" [uri rng-uri-file-name-1 nil] 3 (#$ . 1210)])
#@71 Return a regexp for filenames represented by URIs that match PATTERN.
(defalias 'rng-uri-pattern-file-name-regexp #[(pattern) "\301\302\"\207" [pattern rng-uri-file-name-1 match] 3 (#$ . 1407)])
(defalias 'rng-uri-pattern-file-name-replace-match #[(pattern) "\301\302\"\207" [pattern rng-uri-file-name-1 replace] 3])
(defalias 'rng-uri-file-name-1 #[(uri pattern) "\306\307\"\204\f \310\311\"\210\312!\313!\206 \310\314\"\211@ A@\315 8 \306\316\f\" \317 8 .\320 8 /\n\204F 0\204R \310\321\"\210\202R \n\227\322\230\204R \310\323\"\210 \324 \325B\235\204` \310\326\"\210.\203j \310\327\"\210/\203t \310\330\"\210\306\331\f\"\203\200 \310\332\"\210\306\333\f\"\203\214 \310\334\"\2101\335=\203\245
\203\245 \336\f\337\340O!\203\245 \f\337\340O0\203\266 \306\341\f\"\203\266 \f\315\340O0\342=\203\303 \343\f!\202\324 0\344=\203\321 \345\f\315\"\202\324 \346\f!\306\347\f\"\203\341 \310\350\"\2100\342=\203\364
\203\360 \351\202\361 \352\fP0\342=\203\353\f\354Q\2020\344=\203
\204\355\fP\202\f.\207" [uri components scheme authority path absolutep string-match "\\`\\(?:[^%]\\|%[0-9a-fA-F]{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" ";" "`;' not escaped in URI `%s'" "%2[fF]" "Escaped slash in URI `%s'" windows-nt file-name-absolute-p 1 nil "\\`\\./" match rng-uri-unescape-unibyte-match replace rng-uri-unescape-unibyte-replace rng-uri-unescape-unibyte " " "URI `%s' has NUL character in path" "\\(\\)" "\\(\\(?:[^/]*/\\)*\\)" "\\`" "\\'" "\\1" query fragment-id pattern system-type] 5])
(defalias 'rng-uri-error #[(&rest args) "\301\302\303\304\"C\"\207" [args signal rng-uri-error apply format-message] 5])
(define-error 'rng-uri-error "Invalid URI")
(defalias 'rng-uri-split #[(str) "\301\302\"\205 \303\304\"\303\305\"\303\306\"\303\307\"\303\310\"\257\207" [str string-match "\\`\\(?:\\([^:/?#]+\\):\\)?\\(?://\\([^/?#]*\\)\\)?\\([^?#]*\\)\\(?:\\?\\([^#]*\\)\\)?\\(?:#\\(\\(?:.\\|\n\\)*\\)\\)?\\'" match-string 1 2 3 4 5] 7])
(defalias 'rng-uri-join #[(scheme authority path &optional query fragment-id) "\2055 \306\n\203 \307\nD \203 \310 BB B\f\203& \311\f BB
\2030
\312 BB\313\314 \")\207" [path parts fragment-id query authority scheme nil "#" "?" "//" ":" apply concat] 3])
#@280 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.
(defalias 'rng-uri-resolve #[(uri-ref base-uri) "\306!\211@ A@\307 8 \310 8 \311 8
\306! \2031 \n\2041 \2031 @\2045 \202i @ \204a A@\f\312\232\203Y
\204Y \3078\3108\202a \313\f\3078\"\314\n \f
%.\207" [uri-ref components scheme authority path query rng-uri-split 2 3 4 "" rng-resolve-path rng-uri-join fragment-id base-uri base-components] 7 (#$ . 4024)])
(defalias 'rng-resolve-path #[(path base-path) "\306\307\"\204 \306\307 \"\204 \207\310!\310 !\nG\311V\203( \312\n! \244\2020 \n@ @P\240\210\313 !\211 @\314\232\203? \f\315\240\210)\316\314 \"\317\211 \317 A\203\220
\204\220 A@\320\232\203j @\320\232\203s A\211\202R \317\240\210AAA?\205\204 \315\240\210\321\322\317 \"\202P
\204J *\323 !*\207" [path base-path base-segments segments last-segment matched string-match "\\`/" rng-split-path 1 nbutlast last "." "" delete nil ".." t delq rng-join-path iter] 4])
#@148 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.
(defalias 'rng-relative-uri #[(full base) "\306!\211@ A@\307 8 \310 8 \311 8
\306! \203W \203W \n\203W \n@\232\203W \312 \203L A@\232\203L \312\313\f\3078\"\314\n \f
%\202X .\207" [full components scheme authority path query rng-uri-split 2 3 4 nil rng-relative-path rng-uri-join fragment-id base base-components] 7 (#$ . 5244)])
(defalias 'rng-relative-path #[(path base-path) "\304!\304 !\nG\305V\203 \306\n!\307 \235\204+ \310 \235\204+ \307\n\235\204+ \310\n\235\203/ \202d \203H \n\203H @\n@\230\203H A\nA\202/ \n\203V \nA\310 B\202H @\311\232\203a \307 B\312 !*\207" [path base-path base-segments segments rng-split-path 1 nbutlast "." ".." "" rng-join-path] 3])
(defalias 'rng-split-path #[(path) "\303\304\305\306\n #\203 \n \303\224OB\303\225\202 \n \304OB\237*\207" [segments start path 0 nil string-match "/"] 4])
(defalias 'rng-join-path #[(segments) "\205 \301\302\303#\207" [segments mapconcat identity "/"] 4])
(defalias 'rng-uri-unescape-multibyte #[(str) "\301\302\303#\207" [str replace-regexp-in-string "\\(?:%[89a-fA-F][0-9a-fA-F]\\)+" rng-multibyte-percent-decode] 4])
(defalias 'rng-multibyte-percent-decode #[(str) "\301\302\303\304\305\306\307\"\"\"\310\"\207" [str decode-coding-string apply string mapcar #[(h) "\301\302\"\207" [h string-to-number 16] 3] split-string "%" utf-8] 8])
(defalias 'rng-uri-unescape-unibyte #[(str) "\301\302\303\304\211%\207" [str replace-regexp-in-string "%[0-7][0-9a-fA-F]" #[(h) "\301\302\303O\304\"\207" [h string-to-number 1 nil 16] 4] t] 6])
(defalias 'rng-uri-unescape-unibyte-match #[(str) "\301\302\303\304\211%\207" [str replace-regexp-in-string "%[0-7][0-9a-fA-F]\\|[^%]" #[(match) "\301\230\203 \302\207\303G\304U\203 \202 \305\304\306O\307\"!\207" [match "*" "\\([^/]*\\)" regexp-quote 1 string-to-number nil 16] 5] t] 6])
(defalias 'rng-uri-unescape-unibyte-replace #[(str next-match-index) "\301\302\303\304\211%\207" [str replace-regexp-in-string "%[0-7][0-9a-fA-F]\\|[^%]" #[(match) "\304\230\203 \211T\305\306\n\")\207G\307U\203 \310H\202% \311\307\312O\313\"\211\314=\2033 \315\314\211\"\2026 \315 !)\207" [match next-match-index n ch "*" format "\\%s" 1 0 string-to-number nil 16 92 string] 5] t] 6])
(provide 'rng-uri)
Kontol Shell Bypass