;ELC ;;; Compiled ;;; in Emacs version 27.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\300\310!\210\300\311!\210\312\313\314\"\207" [require cl-lib puny nsm 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 (#$ . 685)) #@35 HTTP retrievals are asynchronous. (defconst url-http-asynchronous-p t (#$ . 757)) (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) (#$ . 998)) #@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" (#$ . 1137)) #@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 (#$ . 1428)) #@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") (451 unavailable-for-legal-reasons "Unavailable for legal reasons") (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")) (#$ . 1691)) #@21 Default HTTPS port. (defconst url-https-default-port 443 (#$ . 3720)) #@19 (fn &rest ARGS) (defalias 'url-http-debug #[128 "\300\301\302#\207" [apply url-debug http] 5 (#$ . 3796)]) (put 'url-http-debug 'byte-optimizer 'byte-compile-inline-expand) #@23 (fn HOST PORT PROC) (defalias 'url-http-mark-connection-as-busy #[771 "\301F\302\303\304#\266\305\306\"\210\307B\310\311B\"\"#\210\207" [url-http-open-connections "Marking connection as busy: %s:%d %S" apply url-debug http set-process-query-on-exit-flag t puthash delq gethash] 10 (#$ . 3978)]) #@23 (fn HOST PORT PROC) (defalias 'url-http-mark-connection-as-free #[771 "\301F\302\303\304#\266\305!\306>\2034\307\310\"\210\311\312\"\210\313\310\"\210\314B\315B\"B#\210\310\207" [url-http-open-connections "Marking connection as free: %s:%d %S" apply url-debug http process-status (open run connect) set-process-buffer nil set-process-sentinel url-http-idle-sentinel set-process-query-on-exit-flag puthash gethash] 9 (#$ . 4296)]) #@43 (fn HOST PORT &optional GATEWAY-METHOD) (defalias 'url-http-find-free-connection #[770 "\303B\"\304\203G\211\204G\305@!\306>\204.\307@F\310\311\312#\266\313@\304\"\210\202>@\262\314F\310\311\312#\266\211A\262\210\202\211\203Y\315E\310\311\312#\266\202d\316E\310\311\312#\266\317\316#\210\211\204\375\320\321!\322\323\324\325\326!\327\"\330$\216\331 \203\234\332 !\n>\204\226\333\334\335 D\"\210 \336H\202\236 \203\347 \332!\n>\204\262\333\334\335D\"\210\211\337H\206\342\332!\n>\204\307\333\334\335D\"\210\211\340H\205\342\341\332!\n>\204\335\333\334\335D\"\210\340H\342\"\262\202\351%\343!\203\372\344\304\"\210\211\262\210)\210\211\205\345#\207" [url-http-open-connections url-using-proxy cl-struct-url-tags gethash nil process-status (run open connect) "Cleaning up dead process: %s:%d %S" 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*" make-byte-code 0 "\301\300!\203 \302\301\300!\303\"\210\304\300!\207" vconcat vector [get-buffer-process set-process-query-on-exit-flag nil kill-buffer] 3 url-open-stream type-of signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port processp set-process-buffer url-http-mark-connection-as-busy] 16 (#$ . 4753)]) #@67 Compute a default User-Agent string based on `url-privacy-level'. (defalias 'url-http--user-agent-default-string #[0 "\205 \306\307 #\n<\205\310\n>?\205\306\311 \"\n<\205!\312\n>?\205*\306\313\f #\306\314\"\315\316F\"\317\320\321#\266\202\207" [url-package-name url-package-version url-privacy-level emacs-version url-system-type url-os-type format "%s/%s" emacs "Emacs/%s" os "(%s; %s)" "URL/%s" delq nil " " mapconcat identity url-version] 10 (#$ . 6165)]) #@12 (fn URL) (defalias 'url-http--get-referer #[257 "\304pF\305\306\307#\266\205\265\310! >\204\311!\312!\310! >\204.\313\314\315D\"\210\211\211\316\317\310! >\204B\313\314\315D\"\210\316H!I\266\320!\n\321>?\205\261\n<\205[\322\n>?\205\261 \323\267\202\260\310! >\204t\313\314\315D\"\210\316H\310! >\204\207\313\314\315D\"\210\316H\230\205\221\266\202\202\261\324!\324!\205\253\211\205\253\230\205\253\266\202\202\261\211\262\262\207" [url-current-lastloc cl-struct-url-tags url-privacy-level url-lastloc-privacy-level "getting referer from buffer: buffer:%S target-url:%S lastloc:%S" apply url-debug http type-of url-generic-parse-url copy-sequence signal wrong-type-argument url 4 puny-encode-domain url-recreate-url (low high paranoid) lastloc #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (host-match 101 domain-match 150)) url-domain] 10 (#$ . 6649)]) #@95 Compute a User-Agent string. The string is based on `url-privacy-level' and `url-user-agent'. (defalias 'url-http-user-agent-string #[0 "\303=\206<\205\304>\211?\205/\305 !\203 \202/ ;\203' \202/ \306=\205/\307 \211\203}\310\311\312\211\313\206@\314\315Q\312\316\317#)\266\203\211\203Z\320\321#\202[\266\203\317\322\206e\314\323Q\"\203v\320\321\225\"\266\205\202y\266\205\"\202~\324\207" [url-privacy-level url-user-agent inhibit-changing-match-data paranoid agent functionp default url-http--user-agent-default-string format "User-Agent: %s \n" nil "\\(?:" "[ \n ]+" "\\)\\'" t string-match substring 0 "\\`\\(?:" "\\)" ""] 16 (#$ . 7601)]) #@130 Create an HTTP request for `url-http-target-url'. Use `url-http-referer' as the Referer-header (subject to `url-privacy-level'). (defalias 'url-http-create-request #[0 "\306\211\307\310\"\243 \307\311\"\243\206\211??\205\312\313 \306\314\306$)\315 !\f>\204.\316\317\320 D\"\210 \321H\315 !\f>\204@\316\317\320 D\"\210 \322H\307\323\"\243?\205\\\313\324\305!\203W \206X \306\314\306$\325@!\326\232\203i\327\262\205s\330\331\"\262\203\332\333Q\262\203\211\334\333Q\262\211\203\241\211;\203\241\211\335\230\204\236\211\326\230\203\241\306\262\336\337\333#\262 \326\232\204\265\333P\262 A\206\273\340\341\325\203\337\315 !\f>\204\321\316\317\320 D\"\210 \342H\343\232\204\337\344 !\202\341!\345B\346 \204\360C\204\364\347\202\365\350\333D\205\351\352D\" \315!\f>\204\316\317\320D\"\210\211\353H\206@\315!\f>\204%\316\317\320D\"\210\211\342H\205@\354\315!\f>\204;\316\317\320D\"\210\342H\355\"\262\354\315 !\f>\204R\316\317\320 D\"\210 \342H\355\"U\204\251\351\356\325\357!! \315!\f>\204s\316\317\320D\"\210\211\353H\206\243\315!\f>\204\210\316\317\320D\"\210\211\342H\205\243\354\315!\f>\204\236\316\317\320D\"\210\342H\355\"\262#\202\262\351\360\325\357!!\"E\205\274\361E\333QF\205\306\362F\333QG\205\322\363\325G!\333QH\205\334\364H\333Q\365I\206\343\366\333\367 \315 !\f>\204\371\316\317\320 D\"\210 \370H\205\325\371\315 !\f>\204\316\317\320 D\"\210 \342H\343\232#!?\2057A\372\235\2057\373 !\211\2055\374\375!\333Q\262\205A\376\333QJ\205R\377\201KJG!\333Q\333J\260\262\201L!GU\204p\201M\201N \"\210\201OD\201P\201Q\201R#\266\207" [url-http-extra-headers url-http-proxy url-basic-auth-storage url-http-target-url cl-struct-url-tags proxy-info nil assoc "Pragma" "Proxy-Authorization" url-http-proxy-basic-auth-storage url-get-authentication any type-of signal wrong-type-argument url 6 4 "Authorization" boundp url-http--encode-string "" "/" string-match "no-cache" "Authorization: " " \n" "Proxy-Authorization: " "file:nil" mapconcat #[257 "\211@\300AQ\207" [": "] 4 "\n\n(fn X)"] "GET" " " 1 "https" url-recreate-url " HTTP/" " \nMIME-Version: 1.0 \nConnection: " "close" "keep-alive" format "Extension: %s \n" 5 url-scheme-get-property default-port "Host: %s:%d \n" puny-encode-domain "Host: %s \n" "From: " "Accept-encoding: " "Accept-charset: " "Accept-language: " "Accept: " "*/*" url-http-user-agent-string 11 url-cookie-generate-header-lines ("GET" nil) url-is-cached "If-modified-since: " url-get-normalized-date "Referer: " "Content-length: " url-http-referer url-http-method url-http-version url-http-attempt-keepalives url-extensions-header url-personal-mail-address url-mime-encoding-string url-mime-charset-string url-mime-language-string url-mime-accept-string url-http-data number-to-string string-bytes error "Multibyte text in HTTP request: %s" "Request is: \n%s" apply url-debug http] 37 (#$ . 8291)]) #@10 (fn S) (defalias 'url-http--encode-string #[257 "\300!\203 \301\302\"\207\207" [multibyte-string-p encode-coding-string us-ascii] 4 (#$ . 11283)]) #@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 #[0 "\301!eb\210\302\303\304#\203\305\306!\210\202\211Z\207" [url-http-end-of-headers marker-position re-search-forward " $" t replace-match ""] 5 (#$ . 11442)]) #@14 (fn PROXY) (defalias 'url-http-handle-authentication #[257 "\306\203 \307\202\n\310D\311\312\313#\266\314\203\315\202\316\317\211\320$\237\206%\321\317\322!\322\2038\323\301!\2038 \2029!\203B\324\202C\325\317\326\327\330 \"\203T\331\332\"\210\211\203\230\211@\333\334!!\262\335\336\"\203s\337\326\211\224#\202t\211\227\340!\211AA\203\217\211V\203\217\262\262 \211\262\266A\266\202\202V\210\340!\204\275~\210db\210\341\206\264\206\264\206\264\342\343\344\261\210\317\202\375\345\346\347\350#!\351\327\352\"\243 \320%\211\204\330\320\202\373 \203\341\353\202\342\330B B\f -./\35401#\210+\317\266\202)\207" [url-current-object url-http-proxy url-basic-auth-storage url-http-extra-headers url-http-method url-http-data "Handling %s authentication" "proxy" "normal" apply url-debug http mail-fetch-field "proxy-authenticate" "www-authenticate" nil t ("basic") url-recreate-url boundp url-http-proxy-basic-auth-storage url-http-real-basic-auth-storage 0 assoc "Authorization" error "Wrong authorization used for %s" url-eat-trailing-space url-strip-leading-spaces string-match "[ ]" substring url-auth-registered "
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.
" url-parse-args subst-char-in-string 44 59 url-get-authentication "realm" "Proxy-Authorization" url-retrieve-internal url-request-extra-headers url-request-data url-request-method url-callback-function url-callback-arguments] 15 (#$ . 11776)]) #@31 Parse just the response code. (defalias 'url-http-parse-response #[0 "\204\n\303\304\305 \"\210\306\305 D\307\310\311#\266eb\210\312\313w\210\314\313w\210`\315\313w\210`{\316p!\211\207" [url-http-end-of-headers 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)" apply url-debug http " \n" nil "/HPT" "0-9." read] 5 (#$ . 13354)]) #@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 #[0 "\300\301\302\211\303$\237\300\304\302\211\303$\237\203\305GD\306\307\310#\266\211\203,\311GD\306\307\310#\266\205<\312\211A\262\242!\210\202,\207" [mail-fetch-field "Set-Cookie" nil t "Set-Cookie2" "Found %d Set-Cookie headers" apply url-debug http "Found %d Set-Cookie2 headers" url-cookie-handle-set-cookie] 7 (#$ . 13812)]) #@35 (fn BUFFER URL &optional VISIT) (defalias 'url-http--insert-file-helper #[770 "rq\210\302\300!\2056\2056\211\206!\303Y\203\304W\206!\305U?\2056\306 \2368\307!\210\310\311D\"\262)\207" [url-http-response-status url-http-codes boundp 200 300 304 2 kill-buffer signal file-error] 8 (#$ . 14360)]) #@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 #[0 "\306\307! >\204\310\311\312D\"\210\313H\307! >\204#\310\311\312D\"\210\211\314H\206S\307! >\2048\310\311\312D\"\210\211\315H\205S\316\307! >\204N\310\311\312D\"\210\315H\317\"\262\n#\210\320 \203v\321\n!\211\204l\322 @\323\"\203u \324 @\323#\240\210\210\325\304!\203\200\f\204\206\326\327\330 \"\210eb\210\331\330 D\332\333\334#\266\335 \210\336 \210\337\340! \341\230\203\265\211\203\256\211\227\342\230\204\304\343\n!\210\202\304\211\203\304\211\227\344\230\203\304\343\n!\210\210p@\345\245\346@A\236A@\347@E\332\333\334#\266\307B! >\204\357\310\311\312BD\"\210B\350H\203\371\351 \210\352\267\202c\353!\210\326\354@\"\210\202l\211\355>\203\353!\210\202+~\210C\203+D\356\232\203+\357!\210\360\262\202l\337\361!\206:\337\362!\363=\204|\364\267\202|\356D\346E\202|\356D\346E\202|\365\366\367\360!!D\332\333\334#\266\370\366\367\360!!!\210\346\262\360\262\202|\326\371\"\210\211\203y\372\373\"\203\215\374\315\"\262\372\375\"\203\232\374\315\"\262\372F\"\204\251\376B\"\262\377\201NG\201O\201P\201Q\201R&GDEGHIJK\201SW\204 K\201SV\203X @\201S\203@\201T=\203\363\211T\262A\211\262\203\342A\262\202\342\211KW\266\202\203X \211\201TD @\244\240\266\201U\201M!\210\201VL \307! >\2046\310\311\312D\"\210\201WH\307! >\204J\310\311\312D\"\210\350H?%M\353!\210\202x\201XC\332\333\334#\266 \211\201Y\326\201ZED @\244\240\266\360\262+\210\202l\211\201[\267\202\261\201\\\346!\202\376\353!\210\326\201]!\202\376\360\202\376\360\202\376\360\202\376\360\202\376\201\\\360!\202\376\211\201^=\204\371\211\201_=\204\371\211\201`=\204\371\211\201a=\204\371\211\201b=\204\371\211\201c>\204\371\211\201d=\204\371\211\201e=\204\371\211\201f=\203\375\360\202\376\360\262\203l \211\201Y\326\334@ED @\244\240\266\202l\360\262@\201g=\204K@\201h=\204K@\201i=\204K@\201j=\204K@\201k=\204K@\210\203l \211\201Y\326\334@ED @\244\240\266\202l\326\201l@#\210\204w\353!\210\202\212deZ\201m U\203\205\336 \210\201n \210\201oD\332\333\334#\266~\210eb\210\207" [url-current-object cl-struct-url-tags url-http-process url-callback-arguments url-http-end-of-headers url-http-response-version url-http-mark-connection-as-free type-of 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 error "Trying to parse headers in odd buffer: %s" buffer-name "url-http-parse-headers called in (%s)" apply url-debug http url-http-parse-response mail-narrow-to-head mail-fetch-field "Connection" "1.0" "keep-alive" delete-process "close" 100 nil "Parsed HTTP headers: class=%d status=%d" 11 url-http-handle-cookies #s(hash-table size 5 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 255 2 268 3 305 4 637 5 792)) url-mark-buffer-as-dead "HTTP responses in class 1xx not supported (%d)" (reset-content no-content) "GET" url-store-in-cache t "Location" "URI" multiple-choices #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (found 326 see-other 335 not-modified 344 use-proxy 375)) "Extracting document from cache... (%s)" url-cache-create-filename url-view-url url-cache-extract "Redirection thru a proxy server not supported: %s" string-match "\\([^ ]+\\)[ ]" match-string "^<\\(.*\\)>$" url-expand-file-name cl-remove url-http-response-status url-http-codes url-http-target-url url-automatic-caching url-http-method url-http-data url-nonrelative-link url-http-extra-headers url-request-extra-headers url-request-data url-request-method url-max-redirections url-callback-function url-redirect-buffer "Authorization" :key car :test equal 0 :redirect make-local-variable url-retrieve-internal 10 "Maximum redirections reached" :error http-redirect-limit #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unauthorized 645 payment-required 653 forbidden 665 not-found 669 method-not-allowed 673 not-acceptable 677 proxy-authentication-required 681)) url-http-handle-authentication "Somebody wants you to give them money" 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 not-implemented bad-gateway service-unavailable gateway-timeout http-version-not-supported "Unknown class of HTTP response code: %d (%d)" buffer-size url-handle-content-transfer-encoding "Finished parsing HTTP headers: %S"] 14 (#$ . 14680)]) (defalias 'url-handle-content-transfer-encoding #[0 "\300\301\302\211\211\303%\211\205/\304\305!\205/\305 \205/\211\227\306\232\205/\214~\210eb\210\307\310!\205.\311`d\303#)\207" [mail-fetch-field "content-encoding" nil t fboundp zlib-available-p "gzip" search-forward "\n\n" zlib-decompress-region] 6]) #@59 Activate callback specified when this buffer was created. (defalias 'url-http-activate-callback #[0 "\305\306! >\204\307\310\311D\"\210\312H\306! >\204#\307\310\311D\"\210\211\313H\206S\306! >\2048\307\310\311D\"\210\211\314H\205S\315\306! >\204N\307\310\311D\"\210\314H\316\"\262\n#\210\317\320 \fF\321\322\323#\266\321 \f\"\207" [url-current-object cl-struct-url-tags url-http-process url-callback-function url-callback-arguments url-http-mark-connection-as-free type-of signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port "Activating callback in buffer (%s): %S %S" buffer-name apply url-debug http] 8 (#$ . 19784)]) #@85 Remove (now defunct) process PROC from the list of open connections. (fn PROC WHY) (defalias 'url-http-idle-sentinel #[514 "\301\302\303\304\305\306!\307\"\310\311%\"\207" [url-http-open-connections maphash make-byte-code 514 "\300>\205\302\303\300\" #\207" vconcat vector [url-http-open-connections puthash delq] 7 "\n\n(fn KEY VAL)"] 9 (#$ . 20454)]) #@17 (fn PROC WHY) (defalias 'url-http-end-of-document-sentinel #[514 "\306\307!D\310\311\312#\266\313\"\210\314\307!!\205\213r\307!q\210eb\210\315\316!\204\203\2031\317 \202\212\320 \210 \n \321\f\322\f! >\204H\323\324\325\fD\"\210\f\326H\" \203_\327!\330\f!\"p\322\f! >\204u\323\324\325\fD\"\210\f\331H\332\230\205~\333%,\202\212\334 \205\212\317 )\207" [url-http-no-retry url-http-method url-http-extra-headers url-http-data url-current-object cl-struct-url-tags "url-http-end-of-document-sentinel in buffer (%s)" process-buffer apply url-debug http url-http-idle-sentinel buffer-name looking-at "HTTP/" url-http-activate-callback erase-buffer url-find-proxy-for-url type-of signal wrong-type-argument url 4 url-generic-parse-url url-http 1 "https" tls url-http-parse-headers url-using-proxy url-request-data url-request-extra-headers url-request-method url-callback-function url-callback-arguments] 11 (#$ . 20822)]) #@21 (fn ST ND LENGTH) (defalias 'url-http-simple-after-change-function #[771 "\301\302\303 !\"\207" [byte-count-to-string-function url-lazy-message "Reading %s..." buffer-size] 7 (#$ . 21779)]) #@231 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. (fn ST ND LENGTH) (defalias 'url-http-content-length-after-change-function #[771 "\203#\304\305\306 Z\n\"  Z! \n!\306 Z\n\"&\210\202<\304\307\306 Z\n\"  Z! \n!\306 Z\n\"%\210 Z\nV\205T\304\310\211\"\210\311\312!\210\313 \205T\314 \207" [url-http-content-type url-http-end-of-headers url-http-content-length byte-count-to-string-function url-display-percentage "Reading [%s]... %s of %s (%d%%)" url-percentage "Reading... %s of %s (%d%%)" nil url-lazy-message "Reading... done." url-http-parse-headers url-http-activate-callback] 12 (#$ . 21979)]) #@222 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. (fn ST ND LENGTH) (defalias 'url-http-chunked-encoding-after-change-function #[771 "\212b\210\305\211\306\211\2054 \307U\262\n\203!\310\306\311\n $\210\202'\310\306\312 #\210\313 \257\314\315\316#\266\211\203@\317\202A\320\262 \203s \f\\V\203a\321 D\314\315\316#\266 \f\\b\210\202s\322 \f\\ZD\314\315\316#\266\306\262\204\203\323C\314\315\316#\266\202\n\211\203\213\324\306w\210\325!\204\241\326`D\314\315\316#\266\306\262\202\n \307U\203\256\327 \210\325!\210\330\307\224\307\225\331\305\332\305\333\305\334\335\336\305\257\n#\210\337\340\224\340\225{\341\" T \206\323\342 \307\225\306\223\307\224\307\225|\210\343 \f\344 !F\314\315\316#\266\f\307U\203\n\345C\314\315\316#\266\306\262\310\306\211\"\210\325\346!\203\347C\314\315\316#\266\307\224\307\225|\210\350\351\306\305#\203)\352C\314\315\316#\266\353 \203\n\354 \210\202\n)\266\204)\207" [case-fold-search url-http-chunked-counter url-http-content-type url-http-chunked-start url-http-chunked-length t nil 0 url-display-percentage "Reading [%s]... chunk #%d" "Reading... chunk #%d" "Reading chunk %d (%d %d %d)" 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!" beginning-of-line 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] 20 (#$ . 22762)]) #@21 (fn ST ND LENGTH) (defalias 'url-http-wait-for-headers-change-function #[771 "\306\307 D\310\311\312#\266\313\211po\204\206eb\210\314\315!\203,\314\316!\204,\317\262\320\317\262\202Q\321\322\313\317#\203Q\323u\210\324\307 D\310\311\312#\266\325 `\313\223\317\262\326 Z\262\203\206\204u\327 \210\330 \210\331\332!\331\333!\331\334!\203s\335\331\334!!~\210 \203| \227\f\204\206\336 \210\202\206\f\337U\204\222\f\340U\203\251\341\f\307 E\310\311\312#\266\342 \203\206\336 \210\202\206 \343\230\203\305\344\307 D\310\311\312#\266\342 \203\206\336 \210\202\206 \345\230\203\337\346C\310\311\312#\266\342 \203\206\336 \210\202\206\f\347\232\203\360\342 \203\206\336 \210\202\206\203\350C\310\311\312#\266\3515\202\206 \352\232\2032\353C\310\311\312#\266\3545V\203\206\355C\310\311\312#\266\354\356!\211Z#\210\202\206 \250\203z\357C\310\311\312#\266\3605 \320U\203]\361C\310\311\312#\266\342 \203\206\336 \210\202\206V\203\206\362C\310\311\312#\266\360\356!\211Z#\210\202\206\363C\310\311\312#\266\3515\364C\310\311\312#\266\211p=\205\227db\207" [url-http-end-of-headers url-http-transfer-encoding url-http-content-type url-http-content-length url-http-response-status url-http-method "url-http-wait-for-headers-change-function (%s)" buffer-name apply url-debug http nil 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..." url-http-after-change-function] 11 (#$ . 24719)]) #@824 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. (fn URL CALLBACK CBARGS &optional RETRY-BUFFER GATEWAY-METHOD) (defalias 'url-http #[1283 "\306!>\204\307\310\311\312E\"\210 \206\313\302!\205\n\314\306!>\2041\307\310\312D\"\210\315H\306!>\204E\307\310\312D\"\210\211\316H\206u\306!>\204Z\307\310\312D\"\210\211\317H\205u\320\306!>\204p\307\310\312D\"\210\317H\321\"\262# \206\333\322\323\324\306\n!>\204\222\307\310\312\fD\"\210 \315H\n\306!>\204\247\307\310\312D\"\210\211\316H\206\327\306!>\204\274\307\310\312D\"\210\211\317H\205\327\320\306!>\204\322\307\310\312D\"\210\317H\321\"\262#!\325\326 !!\204K\327!\210\330\262\331\332\306 !>\204\377\307\310\312 D\"\210\n\315H \306!>\204\307\310\312D\"\210\211\316H\206D\306!>\204)\307\310\312D\"\210\211\317H\205D\320\306!>\204?\307\310\312D\"\210\317H\321\"\262#\210\202Rrq\210\333 \210\334.\335\211\203l\211@\336!\330L\210A\266\202\202Y\210/\206s\337012 345\330\21167\34089:\341;\f<=\330>?@\211A\342\"\210\343\344\"\210\345!\211\346\267\202\"\347\350\"\210\202P\331\332\306\f!>\204\326\307\310\312D\"\210 \315H\f\306!>\204\353\307\310\312D\"\210\211\316H\206\306!>\204\307\310\312D\"\210\211\317H\205\320\306!>\204\307\310\312D\"\210\317H\321\"\262#\210\202P@\203E\306\f!>\2046\307\310\312\fD\"\210\f\317H\351\230\203E\352!\210\202P\347\353\"\210\354\355 \"\210\210)*\207" [cl-struct-url-tags url-request-noninteractive url-http-noninteractive nsm-noninteractive url-current-object url-mime-accept-string type-of signal wrong-type-argument "Need a pre-parsed URL." url boundp url-http-find-free-connection 4 5 1 url-scheme-get-property default-port generate-new-buffer format " *http %s:%d*" url-http--encode-string url-http--get-referer 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 url-http-referer) make-local-variable "GET" 0 url-http-wait-for-headers-change-function set-process-buffer set-process-filter url-http-generic-filter process-status #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (connect 443 failed 451)) set-process-sentinel url-http-async-sentinel "https" url-https-proxy-connect url-http-end-of-document-sentinel process-send-string url-http-create-request mode-line-format 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 url-callback-function url-callback-arguments url-http-after-change-function url-http-target-url url-http-no-retry url-http-connection-opened url-using-proxy url-http-proxy url-http-referer] 20 (#$ . 27179)]) #@19 (fn CONNECTION) (defalias 'url-https-proxy-connect #[257 "\304\305\306\307\310 !\n>\204\311\312\313 D\"\210 \314H \310!\n>\204(\311\312\313D\"\210\211\315H\206X\310!\n>\204=\311\312\313D\"\210\211\316H\205X\317\310!\n>\204S\311\312\313D\"\210\316H\320\"\262\206^ \310 !\n>\204m\311\312\313 D\"\210 \314H$\"\207" [url-http-after-change-function url-current-object cl-struct-url-tags url-https-default-port url-https-proxy-after-change-function process-send-string format "CONNECT %s:%d HTTP/1.1 \nHost: %s \n \n" type-of signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port] 12 (#$ . 31221)]) #@21 (fn ST ND LENGTH) (defalias 'url-https-proxy-after-change-function #[771 "p\305!eb\210\306\307\310\311#\205\371\312u\210\313 `\310\223\314 \210 \204(\315 \210\316\317!\202\371 \320U\203\355\321 \203\347\3221\333\3231\316\324\325\326\327\n! >\204N\330\331\332\nD\"\210\n\333H\334\310&\335\327\n! >\204f\330\331\332\nD\"\210\n\333H\n\327! >\204y\330\331\332D\"\210\211\336H\206\251\327! >\204\216\330\331\332D\"\210\211\337H\205\251\340\327! >\204\244\330\331\332D\"\210\337H\341\"\262#\262rq\210\342 \210)\343\"\210\344\345\346\"\210\347\350 \"\26200\202\3710\315 \210\316\351\"\262\202\371\315 \210\316\352\"\262\202\371\316\353!\202\371\354 D\355\356\357#\266\315 \207" [url-http-end-of-headers url-http-response-status url-current-object cl-struct-url-tags url-http-after-change-function get-buffer-process re-search-forward "^ ?\n" nil t -1 make-marker url-http-parse-response url-http-activate-callback error "Malformed response from proxy, fail!" 200 gnutls-available-p (error) (gnutls-error) gnutls-negotiate :process :hostname type-of signal wrong-type-argument url 4 :verify-error nsm-verify-connection 5 1 url-scheme-get-property default-port erase-buffer set-process-buffer url-http-wait-for-headers-change-function set-process-filter url-http-generic-filter process-send-string url-http-create-request "gnutls-error: %s" "error: %s" "error: gnutls support needed!" "error response: %d" apply url-debug http] 15 (#$ . 31861)]) #@17 (fn PROC WHY) (defalias 'url-http-async-sentinel #[514 "\306\307!!\205\330r\307!q\210\203\310\311\"\202\327\312\313\314#\315\230\203`\310\n\203H\316 !\f>\204:\317\320\321 D\"\210 \322H\323\230\203H\324!\202\327\3251U\326\327 \"0\202\327\330\331\332\"\262\202\327 \211\333\334\335\336\316\n\206m !\f>\204~\317\320\321\n\206{ D\"\210\n\206\203 \314H\337\n\206\213 \316!\f>\204\232\317\320\321D\"\210\211\340H\206\312\316!\f>\204\257\317\320\321D\"\210\211\322H\205\312\341\316!\f>\204\305\317\320\321D\"\210\322H\342\"\262\257D @\244\240\266\343 )\207" [url-http-connection-opened url-http-no-retry url-http-proxy url-current-object cl-struct-url-tags url-callback-arguments buffer-name process-buffer t url-http-end-of-document-sentinel substring 0 4 "open" type-of signal wrong-type-argument url 1 "https" url-https-proxy-connect (file-error) process-send-string url-http-create-request nil message "HTTP error: %s" :error error connection-failed :host :service 5 url-scheme-get-property default-port url-http-activate-callback] 17 (#$ . 33351)]) #@18 (fn PROC DATA) (defalias 'url-http-generic-filter #[514 "\301!\205,\211G\302U?\205,r\301!q\210\303E\304\305\306#\266ddb\210c\210dG#)\207" [url-http-after-change-function process-buffer 0 "Calling after change function `%s' for `%S'" apply url-debug http] 7 (#$ . 34452)]) (byte-code "\300\301\302\303!\203\f\303\202 \304\"\207" [defalias url-http-symbol-value-in-buffer fboundp symbol-value-in-buffer #[770 "rq\210\300!\204\211\202J)\207" [boundp] 5 "Return the value of SYMBOL in BUFFER, or UNBOUND-VALUE if it is unbound.\n\n(fn SYMBOL BUFFER &optional UNBOUND-VALUE)"]] 4) #@12 (fn URL) (defalias 'url-http-head #[257 "\302\303\304!*\207" [url-request-data url-request-method "HEAD" nil url-retrieve-synchronously] 3 (#$ . 35056)]) #@12 (fn URL) (defalias 'url-http-file-exists-p #[257 "\300!\211\205 \301\302\303#\211\250\205\211\304Y\205\211\305W\306!\210\262\207" [url-http-head url-http-symbol-value-in-buffer url-http-response-status 500 200 300 kill-buffer] 6 (#$ . 35221)]) (defalias 'url-http-file-readable-p 'url-http-file-exists-p) #@32 (fn URL &optional ID-FORMAT) (defalias 'url-http-head-file-attributes #[513 "\300!\211\205\301\302\303\211\301\211\211\304\305 \306#\307\301\211\211\257\f\310!\210\207" [url-http-head nil 1 0 url-http-symbol-value-in-buffer url-http-content-length -1 "----------" kill-buffer] 15 (#$ . 35543)]) #@32 (fn URL &optional ID-FORMAT) (defalias 'url-http-file-attributes #[513 "\300!\203 \301\"\207\302\"\207" [url-dav-supported-p url-dav-file-attributes url-http-head-file-attributes] 5 (#$ . 35851)]) #@687 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. (fn URL) (defalias 'url-http-options #[257 "\302\303\304!\303\211\203\241\305\306\307#\310\245\311U\203\241rq\210\214\312 \313\307\314\315\316!\317\"\320$\216\321 \210\322\323!\211\262\203F\324\325\326\327\330\331\"\"#\262\322\332!\211\262\203`\324\333\334\307\326\335\330\n\336\"\"\"#\262\322\337!\211\262\203t\324\340\330\336\"#\262\322\341!\211\262\203\204\324\342#\262\322\343!\211\262\203\236\324\344\334\345\326\327\330\n\336\"\"\"#\262)\210*\203\251\346!\210*\207" [url-request-method url-request-data "OPTIONS" nil url-retrieve-synchronously url-http-symbol-value-in-buffer url-http-response-status 0 100 2 match-data make-byte-code "\301\300\302\"\207" vconcat vector [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] 15 (#$ . 36063)]) #@36 HTTPS retrievals are asynchronous. (defconst url-https-asynchronous-p t (#$ . 37710)) (defalias 'url-https-expand-file-name 'url-default-expander) #@20 (fn METHOD ARGS) (defalias 'url-https-create-secure-wrapper '(macro . #[514 "\300\301\302\203 \303\202\f\304\"!\302\305\206\306\"\301\302\203$\307\202%\306\"!\310\311\310\312\313\n\f?\2057\314\"\"\"B\257\207" [defun intern format "url-https-%s" "url-https" "HTTPS wrapper around `%s' call." "url-http" "url-http-%s" remove &rest &optional append (nil 'tls)] 14 (#$ . 37863)])) #@65 HTTPS wrapper around `url-http' call. (fn URL CALLBACK CBARGS) (defalias 'url-https #[771 "\300\301\302%\207" [url-http nil tls] 9 (#$ . 38267)]) #@54 HTTPS wrapper around `file-exists-p' call. (fn URL) (defalias 'url-https-file-exists-p #[257 "\300!\207" [url-http-file-exists-p] 3 (#$ . 38423)]) #@56 HTTPS wrapper around `file-readable-p' call. (fn URL) (defalias 'url-https-file-readable-p #[257 "\300!\207" [url-http-file-readable-p] 3 (#$ . 38578)]) #@76 HTTPS wrapper around `file-attributes' call. (fn URL &optional ID-FORMAT) (defalias 'url-https-file-attributes #[513 "\300\"\207" [url-http-file-attributes] 5 (#$ . 38739)]) (provide 'url-http)