;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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)) (#$ . 497)) (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\304! >\204\305\306\300D\"\210\307H\"\207" [url cl-struct-url-tags error "Unknown URL scheme: %s" type-of signal wrong-type-argument 1] 6 (#$ . 1295)]) (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\226\316\311!\317 !\">\204J\320\321\322 D\"\210 \211#\323\324I\210)\317 !\">\204c\320\321\322 D\"\210 \211$\325\326\323\n\"I\210) %\317%!\">\204\204\320\321\322%D\"\210%\211&\327\330\326\331\n\"!I\210*\202 \314'\n\"\203\327\316\n!\317 !\">\204\262\320\321\322 D\"\210 \211(\323\324I\210)\317 !\">\204\313\320\321\322 D\"\210 \211)\332\311I\210)\202 \316\311!\317 !\">\204\353\320\321\322 D\"\210 \211*\323\324I\210)\317 !\">\204\320\321\322 D\"\210 \211+\325\nI\210)\f?\205z \205z\333\334\317 !\">\204)\320\321\322 D\"\210 \325H \317!\">\204=\320\321\322D\"\210\211\327H\206o\317!\">\204S\320\321\322D\"\210\211\323H\205o\335\317!\">\204j\320\321\322D\"\210\323H\336\"\262#B B\337\340\"-\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 type-of signal wrong-type-argument url 1 "http" 4 match-string 5 string-to-number 2 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] 11 (#$ . 1624)]) #@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\254\307P\310 !\3111)\312\313\232\203#\314\202$\f!0\202-\210\202.\210\315\f!\203\253 \204<\316!\210\317\304\fF\320\211\203\244@\321\322\323 @#!A\211\203\232\324\267\202\224\315!\203\232\325\n@#\202\232\326!\203\232\325\n@J#\202\232\327\330\"\210*A\211\204M*\331\n #\210*\332\n \"\206\272\332! \")\207" [scheme url-scheme-registry desc stub loader url-scheme--registering-proxy gethash "url-" intern (error) require "https" url-http fboundp url-scheme-register-proxy name nil intern-soft format "%s-%s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 109 variable 128)) plist-put 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 (#$ . 3093)]) (provide 'url-methods)