;ELC   
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan  5 18:41:53 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/url-cvs-20030105-src/lisp/url-methods.el
;;; in Emacs version 21.1.1
;;; with bytecomp version 2.85
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`url-methods.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\302\303!\210\302\304!\210\301B\305\301!\204 \306\307\310\311\312$\302\207" [current-load-list url-scheme-registry require url-auto url-parse boundp make-hash-table :size 7 :test equal] 5)
#@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)) (#$ . 865))
(byte-code "\301B\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\317\323\317\257\315\207" [current-load-list url-scheme-default-properties 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] 20)
#@44 Signal an error for an unknown URL scheme.
(defalias 'url-scheme-default-loader #[(url &optional callback cbargs) "\301\302\303H\"\207" [url error "Unkown URL scheme: %s" 0] 4 (#$ . 1754)])
#@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\f\204k \n\203k \312\313\n\"\203D \314\311!\211\315\316I\210\317\320\321\n\"I\210\322\323\320\324\n\"!I\210\202k \312\n\"\203] \314\n!\211\315\316I\210\325\311I\210\202k \314\311!\211\315\316I\210\317\nI\210\f?\205\225 \205\225 \326\327\317H\322H\206\214 \330H\205\214 \331\315H\332\"#BB\333\334\",\207" [scheme env-var env-proxy url-proxy-services cur-proxy urlobj "_proxy" getenv assoc nil string-match "^\\([^:]+\\):\\([0-9]+\\)$" url-generic-parse-url 0 "http" 3 match-string 1 4 string-to-number 2 6 format "%s:%d" 8 url-scheme-get-property default-port message "Using a proxy for %s..." url-nonrelative-link] 8 (#$ . 1951)])
#@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\231 \307P\310!\311\312\313\217\210\314\f!\203\230 \315!\210\316\304\fF\311\211\203\221 @\317\320\321@#!A\211\203\207 \322=\203f \314!\203\207 \323\n@#\202\207 \324=\203\201 \325!\203\207 \323\n@J#\202\207 \326\327\"\210*A\211\2043 *\330\n	#\210*\331\n\"\206\247 \331\")\207" [scheme url-scheme-registry desc stub loader url-scheme-methods 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 cell #1=#:--dolist-temp--62501 type symbol property url-scheme-default-properties] 7 (#$ . 2778)])
(provide 'url-methods)