Current File : //usr/share/emacs/24.3/lisp/url/url-methods.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:23 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-methods.el
;;; in Emacs version 24.3.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.

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


(require 'url-parse)
(defvar url-scheme-registry (make-hash-table :size 7 :test 'equal))
#@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)) (#$ . 647))
(defconst url-scheme-default-properties (list '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 'ignore 'file-attributes 'ignore))
#@44 Signal an error for an unknown URL scheme.
(defalias 'url-scheme-default-loader #[(url &optional callback cbargs) "\302\303\304H	>\204\302\305\306\300#\210\307H\"\207" [url cl-struct-url-tags error "Unknown URL scheme: %s" 0 "%s accessing a non-%s" url-type 1] 6 (#$ . 1445)])
(defvar url-scheme--registering-proxy nil)
#@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
\n\203
\314\315\n\"\203\221\316\311!\211\317H&>\204I\320\321\322\323#\210
\211'\324\325I\210)
\317H&>\204a\320\321\326\323#\210
\211(\327\330\324\n\"I\210)
\211)\317H&>\204\320\321\331\323#\210)\211*\332\333\330\334\n\"!I\210*\202
\314+\n\"\203\320\316\n!\211\317H&>\204\254\320\321\322\323#\210
\211,\324\325I\210)
\317H&>\204\304\320\321\335\323#\210
\211-\336\311I\210)\202
\316\311!\211\317H&>\204\343\320\321\322\323#\210
\211.\324\325I\210)
\317H&>\204\373\320\321\326\323#\210
\211/\327\nI\210)\f?\205m

\205m
\337\340
\317H&>\204
\320\321\326\323#\210
\327H
\211\317H&>\2043
\320\321\331\323#\210
\332H\206c

\317H&>\204H
\320\321\322\323#\210
\324H\205c
\341
\317H&>\204^
\320\321\322\323#\210
\324H\342\")#BB\343\344\"-\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 "%s accessing a non-%s" url-type url 1 "http" url-host 4 match-string url-portspec 5 string-to-number 2 url-target 7 format "%s:%d" url-scheme-get-property default-port message "Using a proxy for %s..." url-scheme--registering-proxy cl-struct-url-tags #1=#:v #2=#:v #3=#:v #4=#:v url-nonrelative-link #5=#:v #6=#:v #7=#:v #8=#:v] 10 (#$ . 1775)])
#@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 (byte-code "\302\303\232\203\304\202\f	!\207" [scheme loader require "https" url-http] 3) ((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 --dolist-tail-- type symbol property url-scheme-default-properties] 6 (#$ . 3287)])
(provide 'url-methods)