;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:53:06 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/url/url-methods.el ;;; in Emacs version 23.4.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 "\301\302!\210\303B\304\303!\204\305\303\306\307\310\311\312$\"\210\301\207" [current-load-list require url-parse url-scheme-registry default-boundp set-default make-hash-table :size 7 :test equal] 7) #@57 Assoc-list of methods that each URL loader can provide. (defconst url-scheme-methods '((default-port . variable) (asynchronous-p . variable) (expand-file-name . function) (file-exists-p . function) (file-attributes . function) (parse-url . function) (file-symlink-p . function) (file-writable-p . function) (file-directory-p . function) (file-executable-p . function) (directory-files . function) (file-truename . function)) (#$ . 761)) (byte-code "\301B\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\320\324\320\257!\207" [current-load-list url-scheme-default-properties (lambda (#1=#:defconst-tmp-var) (defconst url-scheme-default-properties #1#)) name "unknown" loader url-scheme-default-loader default-port 0 expand-file-name url-identity-expander parse-url url-generic-parse-url asynchronous-p nil file-directory-p ignore file-truename #[(&rest args) "\301@!\207" [args url-recreate-url] 2] file-exists-p file-attributes] 21) #@44 Signal an error for an unknown URL scheme. (defalias 'url-scheme-default-loader #[(url &optional callback cbargs) "\302\303\304H >\204\302\305!\210\306H\"\207" [url cl-struct-url-tags error "Unkown URL scheme: %s" 0 "url-type accessing a non-url" 1] 4 (#$ . 1728)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list url-scheme--registering-proxy default-boundp set-default nil] 3) #@75 Automatically find a proxy for SCHEME and put it in `url-proxy-services'. (defalias 'url-scheme-register-proxy #[(scheme) "\306P\307 \226!\206\307 \227!\310 \"\311\312(\n;\203'\n\313\230\203'\311\f\204\352\n\203\352\314\315\n\"\203\217\316\311!\211\317H)>\204G\320\321!\210 \322\323I\210 *\324\322\n\"+*\317H)>\204c\320\325!\210*\326+I\210* ,\327\324\330\n\"!-,\317H)>\204\204\320\331!\210,\332-I\210*\202\352\314.\n\"\203\302\316\n!\211\317H)>\204\250\320\321!\210 \322\323I\210 \317H)>\204\272\320\333!\210 \334\311I\210\202\352\316\311!\211\317H)>\204\323\320\321!\210 \322\323I\210 \317H)>\204\345\320\325!\210 \326\nI\210\f?\205K \205K\335\336 \317H)>\204\320\337!\210 \326H \211\317H)>\204\320\340!\210 \332H\206A \317H)>\204(\320\341!\210 \342H\205A\343 \317H)>\204<\320\344!\210 \322H\345\")#B B\346\347\"-\207" [scheme env-var env-proxy url-proxy-services cur-proxy urlobj "_proxy" getenv assoc nil t "" string-match "^\\([^:]+\\):\\([0-9]+\\)$" url-generic-parse-url 0 error "url-type storing a non-url" 1 "http" match-string "url-host storing a non-url" 4 string-to-number 2 "url-portspec storing a non-url" 5 "url-target storing a non-url" 7 format "%s:%d" "url-host accessing a non-url" "url-portspec accessing a non-url" "url-fullness accessing a non-url" 9 url-scheme-get-property "url-type accessing a non-url" default-port message "Using a proxy for %s..." url-scheme--registering-proxy cl-struct-url-tags #1=#:--cl-x-- #2=#:--cl-store-- #3=#:--cl-urlobj-- #4=#:--cl-port-- url-nonrelative-link] 8 (#$ . 2150)]) #@126 Get PROPERTY of a URL SCHEME. Will automatically try to load a backend from url-SCHEME.el if it has not already been loaded. (defalias 'url-scheme-get-property #[(scheme property) "\227\306 \"\211\204\236\307P\310 !\311\312\313\217\210\314\f!\203\235 \204'\315!\210\316\304\fF\311\211\203\226@\317\320\321 @#!A\211\203\214\322=\203k\314!\203\214\323\n@#\202\214\324=\203\206\325!\203\214\323\n@J#\202\214\326\327\"\210*A\211\2048*\330\n #\210*\331\n\"\206\254\331 \")\207" [scheme url-scheme-registry desc stub loader url-scheme--registering-proxy gethash "url-" intern nil (require loader) ((error)) fboundp url-scheme-register-proxy name intern-soft format "%s-%s" function plist-put variable boundp error "Malformed url-scheme-methods entry: %S" puthash plist-get url-scheme-methods cell #1=#:--cl-dolist-temp-- type symbol property url-scheme-default-properties] 7 (#$ . 3750)]) (provide 'url-methods)