Gecko [ 122.154.134.11 ]

Name	Size	Permission
url-about.elc	2.7 KB	-rw-r--r--
url-auth.elc	10.21 KB	-rw-r--r--
url-cache.elc	5.79 KB	-rw-r--r--
url-cid.elc	1.44 KB	-rw-r--r--
url-cookie.elc	15.75 KB	-rw-r--r--
url-dav.elc	21.04 KB	-rw-r--r--
url-dired.elc	2.98 KB	-rw-r--r--
url-expand.elc	4.48 KB	-rw-r--r--
url-file.elc	7.68 KB	-rw-r--r--
url-ftp.elc	979 B	-rw-r--r--
url-gw.elc	7.17 KB	-rw-r--r--
url-handlers.elc	15.91 KB	-rw-r--r--
url-history.elc	5.29 KB	-rw-r--r--
url-http.elc	32.76 KB	-rw-r--r--
url-imap.elc	2.32 KB	-rw-r--r--
url-irc.elc	2.88 KB	-rw-r--r--
url-ldap.elc	6.4 KB	-rw-r--r--
url-mailto.elc	3.19 KB	-rw-r--r--
url-methods.elc	4.47 KB	-rw-r--r--
url-misc.elc	3.43 KB	-rw-r--r--
url-news.elc	7.51 KB	-rw-r--r--
url-nfs.elc	4.47 KB	-rw-r--r--
url-ns.elc	2.36 KB	-rw-r--r--
url-parse.elc	14.35 KB	-rw-r--r--
url-privacy.elc	1.88 KB	-rw-r--r--
url-proxy.elc	1.84 KB	-rw-r--r--
url-util.elc	12.18 KB	-rw-r--r--
url-vars.elc	13.65 KB	-rw-r--r--
url.elc	7.69 KB	-rw-r--r--

Code Editor : url-cache.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:23 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/url/url-cache.el
;;; in Emacs version 23.1.1
;;; 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-cache.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require url-parse url-util url] 2)
#@52 *The directory where cache files should be stored.
(custom-declare-variable 'url-cache-directory '(expand-file-name "cache" url-configuration-directory) '(#$ . -702) :type 'directory :group 'url-file)
#@75 Follows the documentation of `file-writable-p', unlike `file-writable-p'.
(defalias 'url-cache-file-writable-p #[(file) "\301!\205�\302!\203�\303!?\207\303\304!!\207" [file file-writable-p file-exists-p file-directory-p file-name-directory] 3 (#$ . 909)])
#@492 Makes it possible to cache data in FILE.
Creates any necessary parent directories, deleting any non-directory files
that would stop this.  Returns nil if parent directories can not be
created.  If FILE already exists as a non-directory, it changes
permissions of FILE or deletes FILE to make it possible to write a new
version of FILE.  Returns nil if this can not be done, or if FILE already
exists as a directory.  Otherwise, returns t, indicating that
FILE can be created or overwritten.
(defalias 'url-cache-prepare #[(file) "\301!\203�\302\207\303!\203�\304\207\304\305\306\217\207" [file url-cache-file-writable-p t file-directory-p nil (byte-code "\301\302!\303\"\206\n�\303\207" [file make-directory file-name-directory t] 3) ((error))] 3 (#$ . 1178)])
#@33 Store buffer BUFF in the cache.
(defalias 'url-store-in-cache #[(&optional buff) "\205)�\303!\205)�r\203�q\210\304\305\306!!\307	!\205(�\310\311ed	\312\313%)*\207" [buff fname coding-system-for-write get-buffer url-cache-create-filename url-view-url t url-cache-prepare binary write-region nil 5] 6 (#$ . 1950)])
#@38 Return non-nil if the URL is cached.
(defalias 'url-is-cached #[(url) "\303!\304	!	\205�\305	!\205�\n@\306=?\205�\307\n8*\207" [url fname attribs url-cache-create-filename file-attributes file-exists-p t 5] 2 (#$ . 2276)])
#@47 Return a filename in the local cache for URL.
(defalias 'url-cache-create-filename-human-readable #[(url) "\205\374�\306!\203�\307!\202�\310!\211\311H\n>\204\"�\312\313!\210	\314H	\311H\n>\2042�\312\315!\210	\316H\317 \206=�\320\321\322\f\206D�\323\324\"!BB	\311H\n>\204V�\312\325!\210	\326H\211\"\203w�\"G\311U\204w�\"\311H\327U\203w�\"\314\330O\"\"\203\210�\330#\331\332\"\333#\")\"\205\223�\331\334\"\333#\211\"\204\235�\330\202\347�\"\333\230\204\253�\"\335\230\203\260�$\202\347�\336\"!\327U\203\323�\"\337\330O\335\230\203\313�\"$P\202\347�\"\314\330O\202\347�\"\337\330O\335\230\203\345�\"$P\202\347�\"\211\"\205\372�\340\"\340\331\341
\335#%\"\".\207" [url urlobj cl-struct-url-tags protocol hostname host-components vectorp url-recreate-url url-generic-parse-url 0 error "url-type accessing a non-url" 1 "url-host accessing a non-url" 4 user-real-login-name "file" reverse split-string "localhost" "\\." "url-filename accessing a non-url" 6 47 nil mapconcat #[(x) "\302U\203�	\203�\303\304\207\302U\203�\305\306\207\303\307!\207" [x slash 47 nil "%2F" t "/" char-to-string] 2] #1="" #[(x) "\301U\203�\302\207\303!\207" [x 126 #1# char-to-string] 2] "/" string-to-char -1 expand-file-name identity fname slash url-directory-index-file url-cache-directory] 8 (#$ . 2511)])
#@113 Create a cached filename using MD5.
Very fast if you have an `md5' primitive function, suitably fast otherwise.
(defalias 'url-cache-create-filename-using-md5 #[(url) "\306\307!\210\205y�\310!\203�\311!\202�\307!\312!\211\313H>\204*�\314\315!\210\n\316H\n\313H>\204:�\314\317!\210\n\320H\321 \f\206E�\322\323\324\325
\206M�\326\327\"\"\237BB\n\313H>\204a�\314\330!\210\n\331H\211\205w�\332	\332\333\334\335# \"\".\207" [url checksum urlobj cl-struct-url-tags protocol hostname require md5 vectorp url-recreate-url url-generic-parse-url 0 error "url-type accessing a non-url" 1 "url-host accessing a non-url" 4 user-real-login-name "file" delq nil split-string "localhost" "\\." "url-filename accessing a non-url" 6 expand-file-name mapconcat identity "/" host-components fname url-cache-directory] 8 (#$ . 3851)])
#@52 *What function to use to create a cached filename.
(custom-declare-variable 'url-cache-creation-function ''url-cache-create-filename-using-md5 '(#$ . -4695) :type '(choice (const :tag "MD5 of filename (low collision rate)" :value url-cache-create-filename-using-md5) (const :tag "Human readable filenames (higher collision rate)" :value url-cache-create-filename-human-readable) (function :tag "Other")) :group 'url-cache)
(defalias 'url-cache-create-filename #[(url) "	!\207" [url-cache-creation-function url] 2])
#@41 Extract FNAM from the local disk cache.
(defalias 'url-cache-extract #[(fnam) "\301 \210\302!\207" [fnam erase-buffer insert-file-contents-literally] 2 (#$ . 5217)])
#@40 Return t if a cached file has expired.
(defalias 'url-cache-expired #[(url mod) "\306!\203\n�\202
�\307!\211\310H\n>\204�\311\312!\210	\313H\f\203+�\314\315!!?\202^�\316\230\2035�\317\202^�\320\235\203]�
\321\232\204E�
\204I�\317\202^�
@\322 @V\206^�
A@\322 A@V\202^�\323*\207" [url urlobj cl-struct-url-tags type url-standalone-mode mod vectorp url-generic-parse-url 0 error "url-type accessing a non-url" 1 file-exists-p url-cache-create-filename "http" t ("file" "ftp") (0 0) current-time nil] 4 (#$ . 5390)])
(provide 'url-cache)

${this.title}

Code Editor : url-cache.elc