ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/url/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/url/url-http.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\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\311\312\"\207" [require cl-lib url-gw url-parse url-cookie mail-parse url-auth url autoload url-cache-create-filename "url-cache"] 3)
#@20 Default HTTP port.
(defconst url-http-default-port 80 (#$ . 652))
#@35 HTTP retrievals are asynchronous.
(defconst url-http-asynchronous-p t (#$ . 724))
(defalias 'url-http-expand-file-name 'url-default-expander)
(defvar url-http-real-basic-auth-storage nil)
(defvar url-http-proxy-basic-auth-storage nil)
#@47 A hash table of all open network connections.
(defvar url-http-open-connections (make-hash-table :test 'equal :size 17) (#$ . 965))
#@241 What version of HTTP we advertise, as a string.
Valid values are 1.1 and 1.0.
This is only useful when debugging the HTTP subsystem.
Setting this to 1.0 will tell servers not to send chunked encoding,
and other HTTP/1.1 specific features.
(defvar url-http-version "1.1" (#$ . 1104))
#@207 Whether to use a single TCP connection multiple times in HTTP.
This is only useful when debugging the HTTP subsystem. Setting to
nil will explicitly close the connection to the server after every
request.
(defvar url-http-attempt-keepalives t (#$ . 1395))
#@39 The HTTP return codes and their text.
(defconst url-http-codes '((100 continue "Continue with request") (101 switching-protocols "Switching protocols") (102 processing "Processing (Added by DAV)") (200 OK "OK") (201 created "Created") (202 accepted "Accepted") (203 non-authoritative "Non-authoritative information") (204 no-content "No content") (205 reset-content "Reset content") (206 partial-content "Partial content") (207 multi-status "Multi-status (Added by DAV)") (300 multiple-choices "Multiple choices") (301 moved-permanently "Moved permanently") (302 found "Found") (303 see-other "See other") (304 not-modified "Not modified") (305 use-proxy "Use proxy") (307 temporary-redirect "Temporary redirect") (400 bad-request "Bad Request") (401 unauthorized "Unauthorized") (402 payment-required "Payment required") (403 forbidden "Forbidden") (404 not-found "Not found") (405 method-not-allowed "Method not allowed") (406 not-acceptable "Not acceptable") (407 proxy-authentication-required "Proxy authentication required") (408 request-timeout "Request time-out") (409 conflict "Conflict") (410 gone "Gone") (411 length-required "Length required") (412 precondition-failed "Precondition failed") (413 request-entity-too-large "Request entity too large") (414 request-uri-too-large "Request-URI too large") (415 unsupported-media-type "Unsupported media type") (416 requested-range-not-satisfiable "Requested range not satisfiable") (417 expectation-failed "Expectation failed") (422 unprocessable-entity "Unprocessable Entity (Added by DAV)") (423 locked "Locked") (424 failed-Dependency "Failed Dependency") (500 internal-server-error "Internal server error") (501 not-implemented "Not implemented") (502 bad-gateway "Bad gateway") (503 service-unavailable "Service unavailable") (504 gateway-timeout "Gateway time-out") (505 http-version-not-supported "HTTP version not supported") (507 insufficient-storage "Insufficient storage")) (#$ . 1658))
(defalias 'url-http-debug #[(&rest args) "\203 \303p!\211\203 \304 \305\"\210\306 \305\"\210\307\310!\210)\311\312\313\n#\207" [quit-flag proc args get-buffer-process set-process-sentinel nil set-process-filter error "Transfer interrupted!" apply url-debug http] 5])
(put 'url-http-debug 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'url-http-mark-connection-as-busy #[(host port proc) "\306 \nF\f\203! \307p!\211\203 \310\n\311\"\210\312\n\311\"\210\313\314!\210)\315\316\317 #)\210\320\n\321\"\210\322 B\323\n\324 B
\"\"
#\210\n\207" [host port proc args quit-flag url-http-open-connections "Marking connection as busy: %s:%d %S" get-buffer-process set-process-sentinel nil set-process-filter error "Transfer interrupted!" apply url-debug http set-process-query-on-exit-flag t puthash delq gethash] 7])
(defalias 'url-http-mark-connection-as-free #[(host port proc) "\306 \nF\f\203! \307p!\211\203 \310\n\311\"\210\312\n\311\"\210\313\314!\210)\315\316\317 #)\210\320\n!\321>\203N \322\n\311\"\210\310\n\323\"\210\324\n\311\"\210\325 B\n\326 B
\"B
#\210\311\207" [host port proc args quit-flag url-http-open-connections "Marking connection as free: %s:%d %S" get-buffer-process set-process-sentinel nil set-process-filter error "Transfer interrupted!" apply url-debug http process-status (open run connect) set-process-buffer url-http-idle-sentinel set-process-query-on-exit-flag puthash gethash] 6])
(defalias 'url-http-find-free-connection #[(host port &optional gateway-method) "\306 B\n\"\307 \f\203\207 \204\207 \310\f@!\311>\204P \312 \f@F \203@ \313p!\211 \203; \314 \307\"\210\315 \307\"\210\316\317!\210)\320\321\322
#)\210\323\f@\307\"\210\202 \f@\324 F \203x \313p!\211 \203s \314 \307\"\210\315 \307\"\210\316\317!\210)\320\321\322
#)\210\f\211A\210\202 \203\271 \325 E \203\257 \313p!\211 \203\252 \314 \307\"\210\315 \307\"\210\316\317!\210)\320\321\322
#)\210\202\344 \326 E \203\335 \313p!\211 \203\330 \314 \307\"\210\315 \307\"\210\316\317!\210)\320\321\322
#)\210\327\326 #\210 \204\330\331! !\332\216\333! \"% \334 !\203\335 \307\"\210 + \205\336 #*\207" [host port url-http-open-connections connection conns args gethash nil process-status (run open connect) "Cleaning up dead process: %s:%d %S" get-buffer-process set-process-sentinel set-process-filter error "Transfer interrupted!" apply url-debug http url-http-idle-sentinel "Found existing connection: %s:%d %S" "Reusing existing connection: %s:%d" "Contacting host: %s:%d" url-lazy-message generate-new-buffer " *url-http-temp*" #[nil "\301!\203
\302\301!\303\"\210\304!\207" [buf get-buffer-process set-process-query-on-exit-flag nil kill-buffer] 3] url-open-stream processp set-process-buffer url-http-mark-connection-as-busy quit-flag proc buf gateway-method] 6])
(defalias 'url-http-user-agent-string #[nil "\302=\204 <\203 \303>\203 \304\207\305 !\203 \207 \207" [url-privacy-level url-user-agent paranoid agent "" functionp] 2])
#@75 Create an HTTP request for `url-http-target-url', referred to by REF-URL.
(defalias 'url-http-create-request #[(&optional ref-url) "\306\211\307\310\n\"\243\f \307\311\n\"\243\206
??\205$ \312 @\313\f\306\314\306$) AB\315HC>\2048 \316\317\320BD\"\210B\321H D\322B\315HC>\204Q \316\317\320BD\"\210B\323H! E\307\324\n\"\243?\205s \313\325\326!\203m \206o B\306\314\306$ FD\327\232\203 \330D \205\207 \331\332 \"F\203\224 \333F\334QFA\203\240 \335A\334QAG\203\274 G;\203\274 G\336\230\204\271 G\327\230\203\274 \306GH\337>\204\320 H<\203\323 \340H>\203\323 \306G\341\342\n\334#\211\327\232\204\343 \334PI\206\351 \343\344\322
\203\366 \345B!\202\370 D!\346J\334\347\350
\204K\204\f\351\202
\352\334L\205\353\354L\"B\211 M\315HC>\204-\316\317\320MD\"\210M\355H\206fM\315HC>\204F\316\317\320MD\"\210M\356H\205f\357M\315HC>\204`\316\317\320MD\"\210M\356H\360\")\357B\315HC>\204z\316\317\320BD\"\210B\356H\360\"U\204\333\353\361EB\211 M\315HC>\204\235\316\317\320MD\"\210M\355H\206\326M\315HC>\204\266\316\317\320MD\"\210M\356H\205\326\357M\315HC>\204\320\316\317\320MD\"\210M\356H\360\")#\202\340\353\362E\"N\205\352\363N\334QO\205\364\364O\334QP\205 \365\322P!\334QQ\205\n\366Q\334Q\367R\206\370\334\371 AFB\315HC>\204*\316\317\320BD\"\210B\372H\205Q\322\373EDB\315HC>\204I\316\317\320BD\"\210B\356H\374\232#! ?\205qI\375\235\205q\376B!\211 S\205p\377\201X S!\334Q)G\205}\201Y G\334QT\205\217\201Z \201[ TG!\334Q\334T\260 \201\\ ! GU\204\251\201] \201^ \"\210\201_ D UV\203\331\201` p!\211 W\203\320\201a W\306\"\210\201b W\306\"\210\201] \201c !\210)\201d \201e \201f U#)\210 .\207" [extra-headers request url-http-extra-headers no-cache url-http-proxy using-proxy nil assoc "Pragma" "Proxy-Authorization" url-http-proxy-basic-auth-storage url-get-authentication any 0 signal wrong-type-argument url 6 url-http--encode-string 4 "Authorization" boundp proxy-info "" "/" string-match "no-cache" "Authorization: " "
\n" "Proxy-Authorization: " "file:nil" (low high paranoid) lastloc mapconcat #[(x) "@\301AQ\207" [x ": "] 3] "GET" " " url-recreate-url " HTTP/" "MIME-Version: 1.0
\n" "Connection: " "close" "keep-alive" format "Extension: %s
\n" 5 1 url-scheme-get-property default-port "Host: %s:%d
\n" "Host: %s
\n" "From: " "Accept-encoding: " "Accept-charset: " "Accept-language: " "Accept: " "*/*" url-http-user-agent-string 11 url-cookie-generate-header-lines "https" ("GET" nil) url-is-cached "If-modified-since: " url-basic-auth-storage proxy-auth url-http-target-url cl-struct-url-tags real-fname host auth ref-url url-privacy-level url-http-method url-http-version url-http-attempt-keepalives url-extensions-header urlobj url-personal-mail-address url-mime-encoding-string url-mime-charset-string url-mime-language-string url-mime-accept-string tm url-http-data args quit-flag proc url-get-normalized-date "Referer: " "Content-length: " number-to-string string-bytes error "Multibyte text in HTTP request: %s" "Request is: \n%s" get-buffer-process set-process-sentinel set-process-filter "Transfer interrupted!" apply url-debug http] 31 (#$ . 6623)])
(defalias 'url-http--encode-string #[(s) "\301!\203 \302\303\"\207\207" [s multibyte-string-p encode-coding-string us-ascii] 3])
#@126 Remove trailing
from header lines.
This allows us to use `mail-fetch-field', etc.
Return the number of characters removed.
(defalias 'url-http-clean-headers #[nil "\302!eb\210\303\304\305#\203 \306\307!\210\202 Z)\207" [url-http-end-of-headers end marker-position re-search-forward "
$" t replace-match ""] 4 (#$ . 9969)])
(defalias 'url-http-handle-authentication #[(proxy) "\306\203 \307\202\n \310D\n\203' \311p!\211\203\" \312 \313\"\210\314 \313\"\210\315\316!\210)\317\320\321 #)\210\322\2037 \323\2028 \324\313\211\325$\237\206A \326\313\327\f!\327\203T \330\305!\203T
\202U \f!\203^ \331\202_ \332\313\333 / 0 1 2 3 4\211 5\313 6\211 7\203\312 7@6\334\3356!!6\336\3376\"\203\227 6\333\211\224O\202\231 6\227 8\3408!\211 9AA :9\203\300 :/V\203\300 6084:/+7A\2117\204y *\3404!\204\361 ~\210db\210\3414\206\350 0\206\350 3\206\350 \342\343\344\261\210\313\202:\345\346\347\3500#!\3512\352\353 \"\2434\325 %\211 0\204\325\2029\203\354\202\3550B;B;<=; > ? @\3563AB#\210+\313*.\207" [proxy args quit-flag proc url-current-object url-http-proxy "Handling %s authentication" "proxy" "normal" get-buffer-process set-process-sentinel nil set-process-filter error "Transfer interrupted!" apply url-debug http mail-fetch-field "proxy-authenticate" "www-authenticate" t ("basic") url-recreate-url boundp url-http-proxy-basic-auth-storage url-http-real-basic-auth-storage 0 url-eat-trailing-space url-strip-leading-spaces string-match "[ ]" url-auth-registered "<hr>Sorry, but I do not know how to handle " "" " authentication. If you'd like to write it," " please use M-x report-emacs-bug RET.<hr>" url-parse-args subst-char-in-string 44 59 url-get-authentication assoc "realm" "Proxy-Authorization" "Authorization" url-retrieve-internal strength auth url-basic-auth-storage auth-url url type auths this-auth --dolist-tail-- this-type registered this-strength url-http-extra-headers url-http-method url-http-data url-request-extra-headers url-request-data url-request-method url-callback-function url-callback-arguments] 8])
#@31 Parse just the response code.
(defalias 'url-http-parse-response #[nil "\204\n \306\307\310 \"\210\311\310 D\n\203* \312p!\211\203% \313 \314\"\210\315 \314\"\210\306\316!\210)\317\320\321 #)\210eb\210\322\314w\210\323\314w\210`\324\314w\210`{\325p!\211\207" [url-http-end-of-headers args quit-flag proc url-http-response-version url-http-response-status error "Trying to parse HTTP response code in odd buffer: %s" buffer-name "url-http-parse-response called in (%s)" get-buffer-process set-process-sentinel nil set-process-filter "Transfer interrupted!" apply url-debug http " \n" "HTTP/" "[0-9]." read] 4 (#$ . 12061)])
#@161 Handle all set-cookie / set-cookie2 headers in an HTTP response.
The buffer must already be narrowed to the headers, so `mail-fetch-field' will
work correctly.
(defalias 'url-http-handle-cookies #[nil "\305\306\307\211\310$\237\305\311\307\211\310$\237\211\203; \312 GD \2034 \313p!\211 \203/ \314\f\307\"\210\315\f\307\"\210\316\317!\210)\320\321\322\n#)\210\203f \323GD \203_ \313p!\211 \203Z \314\f\307\"\210\315\f\307\"\210\316\317!\210)\320\321\322\n#)\210 \205u \324 \211A\242!\210\202f *\207" [cookies2 cookies args quit-flag proc mail-fetch-field "Set-Cookie" nil t "Set-Cookie2" "Found %d Set-Cookie headers" get-buffer-process set-process-sentinel set-process-filter error "Transfer interrupted!" apply url-debug http "Found %d Set-Cookie2 headers" url-cookie-handle-set-cookie] 7 (#$ . 12697)])
#@133 Parse and handle HTTP specific headers.
Return t if and only if the current buffer is still active and
should be shown to the user.
(defalias 'url-http-parse-headers #[nil "\306\307H >\204 \310\311\312D\"\210\313H\211\307H >\204$ \310\311\312\nD\"\210\n\314H\206T \n\307H >\2049 \310\311\312\nD\"\210\n\315H\205T \316\n\307H >\204O \310\311\312\nD\"\210\n\315H\317\") #\210\320 \203w \321 !\211 \204m \322
@\323\"\203v
\324
@\323\f#\240\210)\325\326!\203\202 \204\210 \327\330\331 \"\210eb\210\332\331 D @A\203\260 \333p!\211 B\203\253 \334B\335\"\210\336B\335\"\210\327\337!\210)\340\341\342@#)\210\343 \210\344 \210\345\346! CD\347\230\203\336 C\203\327 C\227\350\230\204\357 \351 !\210\202\357 C\203\357 C\227\352\230\203\357 \351 !\210)p EF\353\245 G\335 HFI\236A@ J\354GFE @A\203,\333p!\211 B\203'\334B\335\"\210\336B\335\"\210\327\337!\210)\340\341\342@#)\210K\307H >\204E\310\311\312KD\"\210K\355H\203O\356 \210G\315=\203d\357E!\210\327\360F\"\210\202\206G\361=\203\223J\362>\203z\357E!\210\202\215~\210L\203\215M\363\232\203\215\364E!\210\365H\202\206G\366=\203w\345\367!\206\243\345\370! NJ\371=\204/J\372>\203\300M\373\235\204/\335N\202/J\374=\203\320\363M\335O\202/J\375=\203 \376\377\201^ \365!!D @A\203\333p!\211 B\203\374\334B\335\"\210\336B\335\"\210\327\337!\210)\340\341\342@#)\210\201_ \377\201^ \365!!!\210\335N\365H\202/J\201` =\203/\327\201a N\"\210N\203s\201b \201c N\"\203I\201d \315N\"N\201b \201e N\"\203^\201d \315N\"N\201b PN\"\204s\201f NK\"N\201g \201h Q\201i \201j \201k \201l &QMOQ R S TU\307W\204\333U\307V\203-
@\307 V WW\203\322W@\201m =\203\300VTVWA\211W\203\254WA\211W\204\261VUW*\203-
\211 X\201m ND
@\244\240\210)\201n \201Z !\210\201o NY
\307H >\204\n\310\311\312D\"\210\201p H\307H >\204 \310\311\312D\"\210\355H?%Z\357E!\210\202r\201q C @A\203R\333p!\211 B\203M\334B\335\"\210\336B\335\"\210\327\337!\210)\340\341\342@#)\210
\211 [\201r \327\201s NED
@\244\240\210)\365H+)\202\206G\313=\203\\J\201t =\203\217\201u \335!\202@J\201v =\203\245\357E!\210\327\201w !\202@J\201x =\203\262\365\202@J\201y =\203\277\365\202@J\201z =\203\314\365\202@J\201{ =\203\331\365\202@J\201| =\203\352\201u \365!\202@J\201} =\204;J\201~ =\204;J\201 =\204;J\201\200 =\204;J\201\201 =\204;J\201\202 >\204;J\201\203 =\204;J\201\204 =\204;J\201\205 =\203?\365\202@\365\211H\203\206
\211 \\\201r \327\342FED
@\244\240\210)\202\206G\314=\203|\365H
\211 ]\201r \327\342FED
@\244\240\210)\202\206\327\201\206 GF#\210H\204\223\357E!\210\202\230\201\207 \210\201\210 HD @A\203\277\333p!\211 B\203\272\334B\335\"\210\336B\335\"\210\327\337!\210)\340\341\342@#)\210~\210eb\210H,\207" [url-current-object cl-struct-url-tags urlobj url-http-process status url-callback-arguments url-http-mark-connection-as-free 0 signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port gnutls-available-p gnutls-peer-status plist-get :peer plist-put boundp url-http-end-of-headers error "Trying to parse headers in odd buffer: %s" buffer-name "url-http-parse-headers called in (%s)" get-buffer-process set-process-sentinel nil set-process-filter "Transfer interrupted!" apply url-debug http url-http-parse-response mail-narrow-to-head mail-fetch-field "Connection" "1.0" "keep-alive" delete-process "close" 100 "Parsed HTTP headers: class=%d status=%d" 11 url-http-handle-cookies url-mark-buffer-as-dead "HTTP responses in class 1xx not supported (%d)" 2 (reset-content no-content) "GET" url-store-in-cache t 3 "Location" "URI" multiple-choices (temporary-redirect found moved-permanently) ("HEAD" "GET") see-other not-modified "Extracting document from cache... (%s)" url-cache-create-filename args quit-flag proc connection url-http-response-version buffer url-http-response-status class success url-http-codes status-symbol url-http-target-url url-automatic-caching url-http-method redirect-uri url-http-data url-nonrelative-link url-http-extra-headers url-request-extra-headers url-request-data url-request-method url-max-redirections old-redirects events #1=#:v url-callback-function url-redirect-buffer #2=#:v #3=#:v #4=#:v url-view-url url-cache-extract use-proxy "Redirection thru a proxy server not supported: %s" string-match "\\([^ ]+\\)[ ]" match-string "^<\\(.*\\)>$" url-expand-file-name cl-remove "Authorization" :key car :test equal :redirect make-local-variable url-retrieve-internal 10 "Maximum redirections reached" :error http-redirect-limit unauthorized url-http-handle-authentication payment-required "Somebody wants you to give them money" forbidden not-found method-not-allowed not-acceptable proxy-authentication-required request-timeout conflict gone length-required precondition-failed (request-uri-too-large request-entity-too-large) unsupported-media-type requested-range-not-satisfiable expectation-failed "Unknown class of HTTP response code: %d (%d)" url-handle-content-transfer-encoding "Finished parsing HTTP headers: %S"] 10 (#$ . 13517)])
(defalias 'url-handle-content-transfer-encoding #[nil "\301\302!\211\205+ \303\304!\205+ \304 \205+ \227\305\232\205+ \214~\210eb\210\306\307!\205* \310`d\"))\207" [encoding mail-fetch-field "content-encoding" fboundp zlib-available-p "gzip" search-forward "\n\n" zlib-decompress-region] 4])
#@59 Activate callback specified when this buffer was created.
(defalias 'url-http-activate-callback #[nil "\306\307H >\204 \310\311\312D\"\210\313H\211\307H >\204$ \310\311\312\nD\"\210\n\314H\206T \n\307H >\2049 \310\311\312\nD\"\210\n\315H\205T \316\n\307H >\204O \310\311\312\nD\"\210\n\315H\317\") #\210\320\321 \f
F \203 \322p!\211 \203z \323 \324\"\210\325 \324\"\210\326\327!\210)\330\331\332#)\210\330\f
\"\207" [url-current-object cl-struct-url-tags urlobj url-http-process url-callback-function url-callback-arguments url-http-mark-connection-as-free 0 signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port "Activating callback in buffer (%s): %S %S" buffer-name get-buffer-process set-process-sentinel nil set-process-filter error "Transfer interrupted!" apply url-debug http args quit-flag proc] 8 (#$ . 18919)])
#@70 Remove (now defunct) process PROC from the list of open connections.
(defalias 'url-http-idle-sentinel #[(proc why) "\301\302\"\207" [url-http-open-connections maphash #[(key val) " >\205 \304\n\305 \" #\207" [proc val key url-http-open-connections puthash delq] 5]] 3 (#$ . 19781)])
(defalias 'url-http-end-of-document-sentinel #[(proc why) "\306\307!D\n\203! \310p!\211\203 \311\312\"\210\313\312\"\210\314\315!\210)\316\317\320 #)\210\321 \"\210\322\307!!\205p r\307!q\210eb\210\323\324!\204h \f\203M \325 \202o \326 \210
\327 p$+\202o \330 \205o \325 )\207" [proc args quit-flag why url-http-no-retry url-http-method "url-http-end-of-document-sentinel in buffer (%s)" process-buffer get-buffer-process set-process-sentinel nil set-process-filter error "Transfer interrupted!" apply url-debug http url-http-idle-sentinel buffer-name looking-at "HTTP/" url-http-activate-callback erase-buffer url-http url-http-parse-headers url-http-extra-headers url-http-data url-request-data url-request-extra-headers url-request-method url-current-object url-callback-function url-callback-arguments] 5])
(defalias 'url-http-simple-after-change-function #[(st nd length) "\301\302\303!\"\207" [nd url-lazy-message "Reading %s..." file-size-human-readable] 4])
#@212 Function used when we DO know how long the document is going to be.
More sophisticated percentage downloaded, etc.
Also does minimal parsing of HTTP headers and will actually cause
the callback to be triggered.
(defalias 'url-http-content-length-after-change-function #[(st nd length) "\203! \304\305\306 \nZ \"\307 \nZ!\307 !\306 \nZ \"&\210\2029 \304\310\306 \nZ \"\307 \nZ!\307 !\306 \nZ \"%\210 \nZ V\205Q \304\311\211\"\210\312\313!\210\314 \205Q \315 \207" [url-http-content-type nd url-http-end-of-headers url-http-content-length url-display-percentage "Reading [%s]... %s of %s (%d%%)" url-percentage file-size-human-readable "Reading... %s of %s (%d%%)" nil url-lazy-message "Reading... done." url-http-parse-headers url-http-activate-callback] 9 (#$ . 21067)])
#@203 Function used when dealing with chunked encoding.
Cannot give a sophisticated percentage, but we need a different
function to look for the special 0-length chunk that signifies
the end of the document.
(defalias 'url-http-chunked-encoding-after-change-function #[(st nd length) "\212b\210\306\211\307\211 \f\205f
\310U2\203$ \311\307\3122
$\210\202* \311\307\313
#\210\314
34\257 56\203T \315p!\211 7\203O \3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\210 \203d \325\202e \3268\203\341 389\\V\203\254 \327
D 56\203\232 \315p!\211 7\203\225 \3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\21089\\b\210\202\341 \33089\\3ZD 56\203\327 \315p!\211 7\203\322 \3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\210\307\f\204\331C 56\203\315p!\211 7\203\3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\210\202\f \203\332\307w\210\333\n!\204S\334`D 56\203E\315p!\211 7\203@\3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\210\307\211\202
\335\310\224\310\225\336\306\337\306\340\306\341\342\343\306\257\n#\210\344\345\224\345\225{\346\"9
T8\206z\347 \310\225\307\2238\310\224\310\225|\210\350
9\3518!F 56\203\260\315p!\211 7\203\253\3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\2109\310U\203\f \352C 56\203\342\315p!\211 7\203\335\3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\210\307\311\307\211\"\210\333\353!\203(\354C 56\203\315p!\211 7\203\3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\210\310\224\310\225|\210\355\356\307\306#\203[\357C 56\203S\315p!\211 7\203N\3167\307\"\210\3177\307\"\210\320\321!\210)\322\323\3245#)\210\360 \203\f \361 \210\202\f -\207" [st no-initial-crlf regexp case-fold-search read-next-chunk url-http-chunked-counter t nil 0 url-display-percentage "Reading [%s]... chunk #%d" "Reading... chunk #%d" "Reading chunk %d (%d %d %d)" get-buffer-process set-process-sentinel set-process-filter error "Transfer interrupted!" apply url-debug http "\\([0-9a-z]+\\).*
?\n" "
?\n\\([0-9a-z]+\\).*
?\n" "Got to the end of chunk #%d!" "Still need %d bytes to hit end of chunk" "Still spinning for next chunk..." "
\n" looking-at "Did not see start of chunk @ %d!" add-text-properties start-open end-open chunked-encoding face cursor invisible string-to-number 1 16 make-marker "Saw start of chunk %d (length=%d, start=%d" marker-position "Saw end of stream chunk!" "
?\n" "Removing terminator of last chunk" re-search-forward "^
?\n" "Saw end of trailers..." url-http-parse-headers url-http-activate-callback url-http-content-type nd length args quit-flag proc url-http-chunked-start url-http-chunked-length] 14 (#$ . 21848)])
(defalias 'url-http-wait-for-headers-change-function #[(st nd length) "\306\307 D \203 \310p!\211\203 \311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\312\211p\312 :o\204\367eb\210\321\322!\203N \321\323!\204N \324:\325;\324\202\221 \326\327\312\324#\203\221 \330u\210\331\307 D \203y \310p!\211\203t \311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\332 `\312\223;\324:<\333 Z<:\203\367
\204\271 \334 \210\335 \210\336\337!=\336\340!>\336\341!\203\267 \342\336\341!!?~\210=\203\303 =\227=@\204\316 \343 \210\202\367@\344U\204\334 @\345U\203\346@\307 E \203\376 \310p!\211\203\371 \311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\347 \203\367\343 \210\202\367A\350\230\203I\351\307 D \2037\310p!\211\2032\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\347 \203\367\343 \210\202\367A\352\230\203\200\353C \203n\310p!\211\203i\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\347 \203\367\343 \210\202\367@\354\232\203\222\347 \203\367\343 \210\202\367
\203\301\355C \203\264\310p!\211\203\257\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\356B\202\367=\357\232\203-\360C \203\346\310p!\211\203\341\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\361B<;V\203\367\362C \203\310p!\211\203\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\361\363;!<\211;Z#\210\202\367?\250\203\317\364C \203Q\310p!\211\203L\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\365B?\325U\203\222\366C \203\200\310p!\211\203{\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\347 \203\367\343 \210\202\367<;V\203\367\367C \203\270\310p!\211\203\263\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\365\363;!<\211;Z#\210\202\367\370C \203\355\310p!\211\203\350\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\356B\371C \203\310p!\211\203\311\n\312\"\210\313\n\312\"\210\314\315!\210)\316\317\320#)\210\fp=\205$db,\207" [args quit-flag proc content-length process-buffer old-http "url-http-wait-for-headers-change-function (%s)" buffer-name get-buffer-process set-process-sentinel nil set-process-filter error "Transfer interrupted!" apply url-debug http looking-at ".*\n" "^HTTP/[1-9]\\.[0-9]" t 0 re-search-forward "^
?\n" -1 "Saw end of headers... (%s)" make-marker url-http-clean-headers url-http-parse-response mail-narrow-to-head mail-fetch-field "transfer-encoding" "content-type" "content-length" string-to-number url-http-activate-callback 204 205 "%d response must have headers only (%s)." url-http-parse-headers "HEAD" "HEAD request must have headers only (%s)." "CONNECT" "CONNECT request must have headers only." 304 "Saw HTTP/0.9 response, connection closed means end of document." url-http-simple-after-change-function "chunked" "Saw chunked encoding." url-http-chunked-encoding-after-change-function "Calling initial chunked-encoding for extra data at end of headers" marker-position "Got a content-length, being smart about document end." url-http-content-length-after-change-function "Got 0-length content-length, activating callback immediately." "Calling initial content-length for extra data at end of headers" "No content-length, being dumb." "Spinning waiting for headers..." end-of-headers url-http-end-of-headers nd url-http-transfer-encoding url-http-content-type url-http-content-length url-http-response-status url-http-method url-http-after-change-function] 5])
#@760 Retrieve URL via HTTP asynchronously.
URL must be a parsed URL. See `url-generic-parse-url' for details.
When retrieval is completed, execute the function CALLBACK,
passing it an updated value of CBARGS as arguments. The first
element in CBARGS should be a plist describing what has happened
so far during the request, as described in the docstring of
`url-retrieve' (if in doubt, specify nil). The current buffer
then CALLBACK is executed is the retrieval buffer.
Optional arg RETRY-BUFFER, if non-nil, specifies the buffer of a
previous `url-http' call, which is being re-attempted.
Optional arg GATEWAY-METHOD specifies the gateway to be used,
overriding the value of `url-gateway-method'.
The return value of this function is the retrieval buffer.
(defalias 'url-http #[(url callback cbargs &optional retry-buffer gateway-method) "\306!\204 \307\310\311\300E\"\210 \206 \312H\n>\204% \307\310\300 \206\" D\"\210 \206* \313H \2062 \211 \312H\n>\204B \307\310\300\fD\"\210\f\314H\206r \f\312H\n>\204W \307\310\300\fD\"\210\f\315H\205r \316\f\312H\n>\204m \307\310\300\fD\"\210\f\315H\317\") +\206\201 \320\321!\205\201 ,\322
-# ./ 01\206\233 \323\324\325
#! 2.\204\263 \3262!\210\3272\330\331
#\210\202_r2q\210\332 \2103\3334\334\327 5\211 6\203\340 6@5\3355!\327L\2106A\2116\204\313 *7\206\347 \33689:+;<.=\327\211>?\312@ABCD\337E3F1G\327H0/ I\340.2\"\210\341.\342\"\210\343.!\211 J\344=\203A\345.\346\"\210\202^J\347=\203Q\330\331
#\210\202^\345.\350\"\210\351.\352 \"\210*2.\207" [url url-using-proxy cl-struct-url-tags host urlobj port vectorp signal wrong-type-argument "Need a pre-parsed URL." 0 4 5 1 url-scheme-get-property default-port boundp url-http-noninteractive url-http-find-free-connection generate-new-buffer format " *http %s:%d*" kill-buffer nil error "Could not create connection to %s:%d" mm-disable-multibyte "%b [%s]" (url-http-end-of-headers url-http-content-type url-http-content-length url-http-transfer-encoding url-http-after-change-function url-http-response-version url-http-response-status url-http-chunked-length url-http-chunked-counter url-http-chunked-start url-callback-function url-callback-arguments url-show-status url-http-process url-http-method url-http-extra-headers url-http-noninteractive url-http-data url-http-target-url url-http-no-retry url-http-connection-opened url-mime-accept-string url-http-proxy) make-local-variable "GET" url-http-wait-for-headers-change-function set-process-buffer set-process-filter url-http-generic-filter process-status connect set-process-sentinel url-http-async-sentinel failed url-http-end-of-document-sentinel process-send-string url-http-create-request url-request-noninteractive nsm-noninteractive gateway-method connection url-mime-accept-string mime-accept-string retry-buffer buffer url-current-object mode-line-format var --dolist-tail-- url-request-method url-http-method url-request-extra-headers url-http-extra-headers url-request-data url-http-data url-http-process url-http-chunked-length url-http-chunked-start url-http-chunked-counter callback url-callback-function cbargs url-callback-arguments url-http-after-change-function url-http-target-url url-http-no-retry url-http-connection-opened url-http-proxy #1=#:val] 6 (#$ . 28169)])
(defalias 'url-http-async-sentinel #[(proc why) "\306\307!!\205\315 r\307!q\210 \203 \310\311 \"\202\314 \312\313O\314\230\203> \310\31513 \316\317 \"0\202\314 \320\321\322\f\")\202\314
\211 \323\304\324 \325 \206N !\312H\">\204c \326\327\330 \206` !D\"\210 \206j !\313H\331 \206t !\211 #\312H\">\204\207 \326\327\330#D\"\210#\332H\206\300 #\312H\">\204\240 \326\327\330#D\"\210#\333H\205\300 \334#\312H\">\204\272 \326\327\330#D\"\210#\333H\335\")\257D
@\244\240\210)\336 )\207" [proc url-http-connection-opened url-http-no-retry why error url-callback-arguments buffer-name process-buffer t url-http-end-of-document-sentinel 0 4 "open" (file-error) process-send-string url-http-create-request nil message "HTTP error: %s" :error connection-failed :host signal wrong-type-argument url :service 5 1 url-scheme-get-property default-port url-http-activate-callback #1=#:v url-http-proxy url-current-object cl-struct-url-tags urlobj] 14])
(defalias 'url-http-generic-filter #[(proc data) "\305!\205H G\306U?\205H r\305!q\210\307\nE\f\2034 \310p!\211\203/ \311\312\"\210\313\312\"\210\314\315!\210)\316\317\320 #)\210\nddb\210 c\210d G#)\207" [proc data url-http-after-change-function args quit-flag process-buffer 0 "Calling after change function `%s' for `%S'" get-buffer-process set-process-sentinel nil set-process-filter error "Transfer interrupted!" apply url-debug http] 4])
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias url-http-symbol-value-in-buffer fboundp symbol-value-in-buffer #[(symbol buffer &optional unbound-value) "rq\210\303 !\204 \n\202 J)\207" [buffer symbol unbound-value boundp] 2 "Return the value of SYMBOL in BUFFER, or UNBOUND-VALUE if it is unbound."]] 4)
(defalias 'url-http-head #[(url) "\303\304\305\n!*\207" [url-request-data url-request-method url "HEAD" nil url-retrieve-synchronously] 2])
(defalias 'url-http-file-exists-p #[(url) "\303!\211\205! \304\305 \306#\211\250\205 \n\307Y\205 \n\310W\311 !\210))\207" [url buffer status url-http-head url-http-symbol-value-in-buffer url-http-response-status 500 200 300 kill-buffer] 5])
(defalias 'url-http-file-readable-p 'url-http-file-exists-p)
(defalias 'url-http-head-file-attributes #[(url &optional id-format) "\302!\211\205 \303\304\305\211\303\211\211\306\307 \310#\311\303\211\211\257\f\312 !\210)\207" [url buffer url-http-head nil 1 0 url-http-symbol-value-in-buffer url-http-content-length -1 "----------" kill-buffer] 13])
(defalias 'url-http-file-attributes #[(url &optional id-format) "\302!\203 \303 \"\207\304 \"\207" [url id-format url-dav-supported-p url-dav-file-attributes url-http-head-file-attributes] 3])
#@677 Return a property list describing options available for URL.
This list is retrieved using the `OPTIONS' HTTP method.
Property list members:
methods
A list of symbols specifying what HTTP methods the resource
supports.
dav
A list of numbers specifying what DAV protocol/schema versions are
supported.
dasl
A list of supported DASL search types supported (string form)
ranges
A list of the units available for use in partial document fetches.
p3p
The `Platform For Privacy Protection' description for the resource.
Currently this is just the raw header contents. This is likely to
change once P3P is formally supported by the URL package or
Emacs/W3.
(defalias 'url-http-options #[(url) "\306\307\310\n!\307\211 \203\214 \311\312 \313#\314\245\315U\203\214 r q\210\214\316 &\317\216\320 \210\321\322!\211\203> \323
\324\325\326\327\f\330\"\"#\321\331!\211\203U \323
\332\333\313\325\334\327\f\335\"\"\"#\321\336!\211\203f \323
\337\327\f\335\"#\321\340!\211\203t \323
\341\f#\321\342!\211\203\213 \323
\343\333\344\325\326\327\f\335\"\"\"#, \203\224 \345 !\210
-\207" [url-request-method url-request-data url buffer header options "OPTIONS" nil url-retrieve-synchronously url-http-symbol-value-in-buffer url-http-response-status 0 100 2 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] mail-narrow-to-head mail-fetch-field "allow" plist-put methods mapcar intern split-string "[ ,]+" "dav" dav delq string-to-number "[, ]+" "dasl" dasl "p3p" p3p "accept-ranges" ranges none kill-buffer save-match-data-internal] 11 (#$ . 34173)])
(require 'tls)
#@21 Default HTTPS port.
(defconst url-https-default-port 443 (#$ . 35806))
#@36 HTTPS retrievals are asynchronous.
(defconst url-https-asynchronous-p t (#$ . 35883))
(defalias 'url-https-expand-file-name 'url-default-expander)
(defalias 'url-https-create-secure-wrapper '(macro . #[(method args) "\302\303\304\203 \305\202\f \306\"! \304\307\206 \310\"\303\304\203\" \311\202# \310\"!\312\313\312\314\315 ?\2052 \316\"\"\"B\257\207" [method args defun intern format "url-https-%s" "url-https" "HTTPS wrapper around `%s' call." "url-http" "url-http-%s" remove &rest &optional append (nil 'tls)] 12]))
#@39 HTTPS wrapper around `url-http' call.
(defalias 'url-https #[(url callback cbargs) "\303 \n\304\305%\207" [url callback cbargs url-http nil tls] 6 (#$ . 36418)])
#@44 HTTPS wrapper around `file-exists-p' call.
(defalias 'url-https-file-exists-p #[(url) "\301!\207" [url url-http-file-exists-p] 2 (#$ . 36587)])
#@46 HTTPS wrapper around `file-readable-p' call.
(defalias 'url-https-file-readable-p #[(url) "\301!\207" [url url-http-file-readable-p] 2 (#$ . 36738)])
#@46 HTTPS wrapper around `file-attributes' call.
(defalias 'url-https-file-attributes #[(url &optional id-format) "\302 \"\207" [url id-format url-http-file-attributes] 3 (#$ . 36895)])
(provide 'url-http)
Kontol Shell Bypass