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

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-handlers.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)
#@60 Convert url to a fully specified url, and canonicalize it.
(autoload 'url-expand-file-name "url-expand" '(#$ . 580))
#@63 Dissect the current buffer and return a list of MIME handles.
(autoload 'mm-dissect-buffer "mm-decode" '(#$ . 703))
#@31 Get property of a URL SCHEME.
(autoload 'url-scheme-get-property "url-methods" '(#$ . 825))
#@269 Non-nil if Url-Handler mode is enabled.
See the command `url-handler-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `url-handler-mode'.
(custom-declare-variable 'url-handler-mode nil '(#$ . 924) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'url :type 'boolean)
#@228 Toggle using `url' library for URL filenames (URL Handler mode).
With a prefix argument ARG, enable URL Handler mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.
(defalias 'url-handler-mode #[(&optional arg) "\305 	\306=\203\n?\202\307	!\310V\311\312\313\"\"\n\203&\f\313BB\314\315\n\2030\316\2021\317\"\210\320\321!\203V\322\302!\210\305 \203I\305 \232\203V\323\324\n\203S\325\202T\326\"\210)\327 \210\n\207" [#1=#:last-message arg url-handler-mode file-name-handler-alist url-handler-regexp current-message toggle prefix-numeric-value 0 delq rassq url-file-handler run-hooks url-handler-mode-hook url-handler-mode-on-hook url-handler-mode-off-hook called-interactively-p any customize-mark-as-set message "Url-Handler mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1353) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\210\305\306\307\310\311\312\313\314\315\316&	\207" [url-handler-mode-map add-minor-mode url-handler-mode nil boundp custom-declare-variable url-handler-regexp "\\`\\(https?\\|ftp\\|file\\|nfs\\)://" "Regular expression for URLs handled by `url-handler-mode'.\nWhen URL Handler mode is enabled, this regular expression is\nadded to `file-name-handler-alist'.\n\nSome valid URL protocols just do not make sense to visit\ninteractively (about, data, info, irc, mailto, etc).  This\nregular expression avoids conflicts with local files that look\nlike URLs (Gnus is particularly bad at this)." :group url :type regexp :set #[(symbol value) "\300\304!\210\305\n\"\210	\205\300 )\207" [url-handler-mode enable symbol value 0 set-default] 3]] 10)
(defalias 'url-run-real-handler #[(operation args) "\304	=\205\nB\305\"*\207" [operation inhibit-file-name-operation inhibit-file-name-handlers args url-file-handler apply] 3])
#@187 Function called from the `file-name-handler-alist' routines.
OPERATION is what needs to be done (`file-exists-p', etc).  ARGS are
the arguments that would have been passed to OPERATION.
(defalias 'url-file-handler #[(operation &rest args) "\306N\307\211\211\204%\310\311\312\"!\203%\313\310\311\312\"!!\203%\314\315\"\210\2039\316\317 \320\216\321
\"*\202@\307\322
\"\323\324\325	\203K\326\202L\327
\n&\210\n+\207" [operation hooked val fn save-match-data-internal args url-file-handlers nil intern-soft format "url-%s" fboundp error "Missing URL handler mapping for %s" t match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) apply url-run-real-handler url-debug handlers "%s %S%S => %S" "Hooked" "Real"] 8 (#$ . 3250)])
(defalias 'url-file-handler-identity #[(&rest args) "@\207" [args] 1])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\321#\210\300\323\302\321#\207" [put file-readable-p url-file-handlers url-file-exists-p substitute-in-file-name url-file-handler-identity file-name-absolute-p #[(&rest ignored) "\300\207" [t] 1] expand-file-name url-handler-expand-file-name directory-file-name url-handler-directory-file-name unhandled-file-name-directory url-handler-unhandled-file-name-directory file-remote-p url-handler-file-remote-p file-writable-p ignore file-symlink-p vc-registered] 4)
(defalias 'url-handler-expand-file-name #[(file &optional base) "\302!\203\303\304\"\207\305	\"\207" [file base file-name-absolute-p expand-file-name "/" url-expand-file-name] 3])
(defalias 'url-handler-directory-file-name #[(dir) "\301\302\"\203	\207\303\304C\"\207" [dir string-match "//\\'" url-run-real-handler directory-file-name] 3])
(defalias 'url-handler-unhandled-file-name-directory #[(filename) "\303!\211\304H\n>\204\305\306\307\301#\210	\310H\311\232\2051\312	\304H\n>\204)\305\306\313\301#\210	\314H!\2061\315)\207" [filename url cl-struct-url-tags url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 "file" file-name-directory url-filename 6 "/"] 6])
(defalias 'url-handler-file-remote-p #[(filename &optional identification connected) "\306!\211\307H\n>\204\310\311\312\301#\210	\313H\205%
	\307H\n>\204&\310\311\312\301#\210	\313H\314\232?\205%
\315=\203I	\307H\n>\204C\310\311\312\301#\210	\313H\202%
\316=\203c	\307H\n>\204]\310\311\317\301#\210	\320H\202%
\321=\203}	\307H\n>\204w\310\311\322\301#\210	\323H\202%
\324=\203\227	\307H\n>\204\221\310\311\325\301#\210	\326H\202%
\327	\307H\n>\204\246\310\311\312\301#\210	\313H	\307H\n>\204\267\310\311\317\301#\210	\320H	\307H\n>\204\310\310\311\322\301#\210	\323H	\211\307H\n>\204\333\310\311\330\301#\210\f\331H\206	
\f\307H\n>\204\357\310\311\312\301#\210\f\313H\205	
\332\f\307H\n>\204
\310\311\312\301#\210\f\313H\333\") \334\335 \336
\336\211\211\211\211\337&\f,!)\207" [filename url cl-struct-url-tags identification urlobj portspec url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 "file" method user url-user 2 host url-host 4 localname url-filename 6 url-recreate-url url-portspec 5 url-scheme-get-property default-port vector cl-struct-url nil t type] 15])
#@526 Copy URL to NEWNAME.  Both args must be strings.
Signals a `file-already-exists' error if file NEWNAME already exists,
unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.
A number as third arg means request confirmation if NEWNAME already exists.
This is what happens in interactive use with M-x.
Fourth arg KEEP-TIME non-nil means give the new file the same
last-modified time as the old one.  (This works on only some systems.)
Fifth arg PRESERVE-UID-GID is ignored.
A prefix arg makes KEEP-TIME non-nil.
(defalias 'url-copy-file #[(url newname &optional ok-if-already-exists keep-time preserve-uid-gid) "\305!\203	\204\306\307\"\210\310\n!\311\211\204\306\312\n\"\210r\fq\210\313\314!)\315\"\210\316\f!\210\317!*\207" [newname ok-if-already-exists url handle buffer file-exists-p error "Opening output file: File already exists, %s" url-retrieve-synchronously nil "Opening input file: No such file or directory, %s" mm-dissect-buffer t mm-save-part-to-file kill-buffer mm-destroy-parts] 4 (#$ . 6587)])
(put 'copy-file 'url-file-handlers 'url-copy-file)
#@125 Copy URL into a temporary file on this machine.
Returns the name of the local copy, or nil, if FILE is directly
accessible.
(defalias 'url-file-local-copy #[(url &rest ignored) "\302\303!\304	\305#\210)\207" [filename url make-temp-file "url" url-copy-file ok-if-already-exists] 4 (#$ . 7683)])
(put 'file-local-copy 'url-file-handlers 'url-file-local-copy)
#@487 Insert the body of a URL object.
BUFFER should be a complete URL buffer as returned by `url-retrieve'.
If the headers specify a coding-system, it is applied to the body before it is inserted.
Returns a list of the form (SIZE CHARSET), where SIZE is the size in bytes
of the inserted text and CHARSET is the charset that was specified in the header,
or nil if none was found.
BEG and END can be used to only insert a subpart of the body.
They count bytes from the beginning of the body.
(defalias 'url-insert #[(buffer &optional beg end) "rq\210\306\307!)r	@q\210\n\203$e\n\\\203e\\\202 d{\202&\310 )\311	A@\305\"\312	!\210
\203B\313\f\314
!\"c\210\202E\fc\210\fG
+D\207" [buffer handle beg end data charset mm-dissect-buffer t buffer-string mail-content-type-get mm-destroy-parts mm-decode-string mm-charset-to-coding-system] 4 (#$ . 8051)])
(defalias 'url-insert-file-contents #[(url &optional visit beg end replace) "\306!\211\204
\307\310\"\210\n\203\212`\311	
\f#
\312	!\210\203/e\f|\210`d|\210
\211A@)\204G\313\f`\n
\f&\210
@,D\207" [url buffer visit buffer-file-name start beg url-retrieve-synchronously error "Opening input file: No such file or directory, %s" url-insert kill-buffer decode-coding-inserted-region end size-and-charset replace x] 9])
(put 'insert-file-contents 'url-file-handlers 'url-insert-file-contents)
(defalias 'url-file-name-completion #[(url directory &optional predicate) "\300\301!\207" [error "Unimplemented"] 2])
(put 'file-name-completion 'url-file-handlers 'url-file-name-completion)
(defalias 'url-file-name-all-completions #[(file directory) "\300\301!\207" [error "Unimplemented"] 2])
(put 'file-name-all-completions 'url-file-handlers 'url-file-name-all-completions)
(defalias 'url-handlers-create-wrapper '(macro . #[(method args) "\302\303\304\305\306\"!	\305\307\310\311\"\206\312#\313\314\315\316\317\320\321DE\322\323\322\324	\"\"BBE\257\325\326\321D\327BB\330\321D\331\321\304\305\306\"!DFEE\207" [method args progn defun intern format "url-%s" "URL file-name-handler wrapper for `%s' call.\n---\n%s" documentation t "No original documentation." (setq url (url-generic-parse-url url)) when (url-type url) funcall url-scheme-get-property (url-type url) quote remove &rest &optional unless get ('url-file-handlers) put 'url-file-handlers] 15]))
#@292 URL file-name-handler wrapper for `file-exists-p' call.
---
Return t if file FILENAME exists (whether or not you can read it.)
See also `file-readable-p' and `file-attributes'.
This returns nil for a symlink to a nonexistent file.
Use `file-symlink-p' to test for such links.

(fn FILENAME)
(defalias 'url-file-exists-p #[(url) "\302!\211\303H	>\204\304\305\306\300#\210\307H\205.\310\303H	>\204'\304\305\306\300#\210\307H\311\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 url-scheme-get-property file-exists-p] 6 (#$ . 10396)])
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [file-exists-p url-file-handlers put url-file-exists-p] 4)
#@2181 URL file-name-handler wrapper for `file-attributes' call.
---
Return a list of attributes of file FILENAME.
Value is nil if specified file cannot be opened.

ID-FORMAT specifies the preferred format of attributes uid and gid (see
below) - valid values are 'string and 'integer.  The latter is the
default, but we plan to change that, so you should specify a non-nil value
for ID-FORMAT if you use the returned uid or gid.

Elements of the attribute list are:
 0. t for directory, string (name linked to) for symbolic link, or nil.
 1. Number of links to file.
 2. File uid as a string or a number.  If a string value cannot be
  looked up, a numeric value, either an integer or a float, is returned.
 3. File gid, likewise.
 4. Last access time, as a list of integers (HIGH LOW USEC PSEC) in the
  same style as (current-time).
  (See a note below about access time on FAT-based filesystems.)
 5. Last modification time, likewise.  This is the time of the last
  change to the file's contents.
 6. Last status change time, likewise.  This is the time of last change
  to the file's attributes: owner and group, access mode bits, etc.
 7. Size in bytes.
  This is a floating point number if the size is too large for an integer.
 8. File modes, as a string of ten letters or dashes as in ls -l.
 9. t if file's gid would change if file were deleted and recreated.
10. inode number.  If it is larger than what an Emacs integer can hold,
  this is of the form (HIGH . LOW): first the high bits, then the low 16 bits.
  If even HIGH is too large for an Emacs integer, this is instead of the form
  (HIGH MIDDLE . LOW): first the high bits, then the middle 24 bits,
  and finally the low 16 bits.
11. Filesystem device number.  If it is larger than what the Emacs
  integer can hold, this is a cons cell, similar to the inode number.

On most filesystems, the combination of the inode and the device
number uniquely identifies the file.

On MS-Windows, performance depends on `w32-get-true-file-attributes',
which see.

On some FAT-based filesystems, only the date of last access is recorded,
so last access time will always be midnight of that day.

(fn FILENAME &optional ID-FORMAT)
(defalias 'url-file-attributes #[(url &optional id-format) "\303!\211\304H	>\204\305\306\307\300#\210\310H\205/\311\304H	>\204'\305\306\307\300#\210\310H\312\"\n\"\207" [url cl-struct-url-tags id-format url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 url-scheme-get-property file-attributes] 6 (#$ . 11112)])
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [file-attributes url-file-handlers put url-file-attributes] 4)
#@303 URL file-name-handler wrapper for `file-symlink-p' call.
---
Return non-nil if file FILENAME is the name of a symbolic link.
The value is the link target, as a string.
Otherwise it returns nil.

This function returns t when given the name of a symlink that
points to a nonexistent file.

(fn FILENAME)
(defalias 'url-file-symlink-p #[(url) "\302!\211\303H	>\204\304\305\306\300#\210\307H\205.\310\303H	>\204'\304\305\306\300#\210\307H\311\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 url-scheme-get-property file-symlink-p] 6 (#$ . 13757)])
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [file-symlink-p url-file-handlers put url-file-symlink-p] 4)
#@138 URL file-name-handler wrapper for `file-writable-p' call.
---
Return t if file FILENAME can be written or created by you.

(fn FILENAME)
(defalias 'url-file-writable-p #[(url) "\302!\211\303H	>\204\304\305\306\300#\210\307H\205.\310\303H	>\204'\304\305\306\300#\210\307H\311\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 url-scheme-get-property file-writable-p] 6 (#$ . 14487)])
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [file-writable-p url-file-handlers put url-file-writable-p] 4)
#@227 URL file-name-handler wrapper for `file-directory-p' call.
---
Return t if FILENAME names an existing directory.
Symbolic links to directories count as directories.
See `file-symlink-p' to distinguish symlinks.

(fn FILENAME)
(defalias 'url-file-directory-p #[(url) "\302!\211\303H	>\204\304\305\306\300#\210\307H\205.\310\303H	>\204'\304\305\306\300#\210\307H\311\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 url-scheme-get-property file-directory-p] 6 (#$ . 15056)])
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [file-directory-p url-file-handlers put url-file-directory-p] 4)
#@193 URL file-name-handler wrapper for `file-executable-p' call.
---
Return t if FILENAME can be executed by you.
For a directory, this means you can access files in that directory.

(fn FILENAME)
(defalias 'url-file-executable-p #[(url) "\302!\211\303H	>\204\304\305\306\300#\210\307H\205.\310\303H	>\204'\304\305\306\300#\210\307H\311\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 url-scheme-get-property file-executable-p] 6 (#$ . 15718)])
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [file-executable-p url-file-handlers put url-file-executable-p] 4)
#@576 URL file-name-handler wrapper for `directory-files' call.
---
Return a list of names of files in DIRECTORY.
There are three optional arguments:
If FULL is non-nil, return absolute file names.  Otherwise return names
 that are relative to the specified directory.
If MATCH is non-nil, mention only file names that match the regexp MATCH.
If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
 Otherwise, the list returned is sorted with `string-lessp'.
 NOSORT is useful if you plan to sort the result yourself.

(fn DIRECTORY &optional FULL MATCH NOSORT)
(defalias 'url-directory-files #[(url &optional full match nosort) "\305!\211\306H	>\204\307\310\311\300#\210\312H\2051\313\306H	>\204'\307\310\311\300#\210\312H\314\"\n\f$\207" [url cl-struct-url-tags full match nosort url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 url-scheme-get-property directory-files] 6 (#$ . 16350)])
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [directory-files url-file-handlers put url-directory-files] 4)
#@366 URL file-name-handler wrapper for `file-truename' call.
---
Return the truename of FILENAME.
If FILENAME is not absolute, first expands it against `default-directory'.
The truename of a file name is found by chasing symbolic links
both at the level of the file and at the level of the directories
containing it, until no links are left at any level.

(fn FILENAME)
(defalias 'url-file-truename #[(url &optional counter prev-dirs) "\304!\211\305H	>\204\306\307\310\300#\210\311H\2050\312\305H	>\204'\306\307\310\300#\210\311H\313\"\n#\207" [url cl-struct-url-tags counter prev-dirs url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 url-scheme-get-property file-truename] 6 (#$ . 17408)])
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305\306\"\207" [file-truename url-file-handlers put url-file-truename add-hook find-file-hook url-handlers-set-buffer-mode] 4)
#@69 Set correct modes for the current buffer if visiting a remote file.
(defalias 'url-handlers-set-buffer-mode #[nil ";\205\302	\"\205\303\304!\207" [buffer-file-name url-handler-regexp string-match auto-save-mode 0] 3 (#$ . 18308)])
(provide 'url-handlers)