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

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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
#BB\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)