emacs: lisp/url/url-cache.el annotate

annotate lisp/url/url-cache.el @ 62789:74e26c83386f

(eshell-eval-command): If the return value of `eshell-resume-eval' is wrapped in a list, it indicates that the command was run asynchronously. In that case, unwrap the value before checking the delimiter value.

author	John Wiegley <johnw@newartisans.com>
date	Fri, 27 May 2005 02:56:52 +0000 (2005-05-27)
parents	2954cb243379
children	a8fa7c632ee4 ae7fab96922c

rev	line source
54695 3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	1 ;;; url-cache.el --- Uniform Resource Locator retrieval tool
57612 2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	2
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	3 ;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	4
54695 3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	5 ;; Keywords: comm, data, processes, hypermedia
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	6
57612 2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	7 ;; This file is part of GNU Emacs.
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	8
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	9 ;; GNU Emacs is free software; you can redistribute it and/or modify
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	10 ;; it under the terms of the GNU General Public License as published by
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	11 ;; the Free Software Foundation; either version 2, or (at your option)
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	12 ;; any later version.
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	13
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	14 ;; GNU Emacs is distributed in the hope that it will be useful,
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	17 ;; GNU General Public License for more details.
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	18
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	19 ;; You should have received a copy of the GNU General Public License
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	22 ;; Boston, MA 02111-1307, USA.
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	23
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	24 ;;; Code:
2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	25
54695 3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	26 (require 'url-parse)
54793 4051557a5374 (url-util): Require. Stefan Monnier <monnier@iro.umontreal.ca> parents: 54770 diff changeset	27 (require 'url-util)
54695 3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	28
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	29 (defcustom url-cache-directory
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	30 (expand-file-name "cache" url-configuration-directory)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	31 "*The directory where cache files should be stored."
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	32 :type 'directory
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	33 :group 'url-file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	34
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	35 ;; Cache manager
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	36 (defun url-cache-file-writable-p (file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	37 "Follows the documentation of `file-writable-p', unlike `file-writable-p'."
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	38 (and (file-writable-p file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	39 (if (file-exists-p file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	40 (not (file-directory-p file))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	41 (file-directory-p (file-name-directory file)))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	42
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	43 (defun url-cache-prepare (file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	44 "Makes it possible to cache data in FILE.
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	45 Creates any necessary parent directories, deleting any non-directory files
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	46 that would stop this. Returns nil if parent directories can not be
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	47 created. If FILE already exists as a non-directory, it changes
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	48 permissions of FILE or deletes FILE to make it possible to write a new
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	49 version of FILE. Returns nil if this can not be done. Returns nil if
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	50 FILE already exists as a directory. Otherwise, returns t, indicating that
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	51 FILE can be created or overwritten."
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	52 (cond
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	53 ((url-cache-file-writable-p file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	54 t)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	55 ((file-directory-p file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	56 nil)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	57 (t
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	58 (condition-case ()
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	59 (or (make-directory (file-name-directory file) t) t)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	60 (error nil)))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	61
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	62 ;;;###autoload
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	63 (defun url-store-in-cache (&optional buff)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	64 "Store buffer BUFF in the cache."
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	65 (if (not (and buff (get-buffer buff)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	66 nil
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	67 (save-excursion
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	68 (and buff (set-buffer buff))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	69 (let* ((fname (url-cache-create-filename (url-view-url t))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	70 (if (url-cache-prepare fname)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	71 (let ((coding-system-for-write 'binary))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	72 (write-region (point-min) (point-max) fname nil 5)))))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	73
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	74 ;;;###autoload
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	75 (defun url-is-cached (url)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	76 "Return non-nil if the URL is cached."
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	77 (let* ((fname (url-cache-create-filename url))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	78 (attribs (file-attributes fname)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	79 (and fname ; got a filename
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	80 (file-exists-p fname) ; file exists
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	81 (not (eq (nth 0 attribs) t)) ; Its not a directory
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	82 (nth 5 attribs)))) ; Can get last mod-time
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	83
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	84 (defun url-cache-create-filename-human-readable (url)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	85 "Return a filename in the local cache for URL"
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	86 (if url
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	87 (let* ((url (if (vectorp url) (url-recreate-url url) url))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	88 (urlobj (url-generic-parse-url url))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	89 (protocol (url-type urlobj))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	90 (hostname (url-host urlobj))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	91 (host-components
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	92 (cons
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	93 (user-real-login-name)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	94 (cons (or protocol "file")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	95 (reverse (split-string (or hostname "localhost")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	96 (eval-when-compile
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	97 (regexp-quote ".")))))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	98 (fname (url-filename urlobj)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	99 (if (and fname (/= (length fname) 0) (= (aref fname 0) ?/))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	100 (setq fname (substring fname 1 nil)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	101 (if fname
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	102 (let ((slash nil))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	103 (setq fname
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	104 (mapconcat
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	105 (function
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	106 (lambda (x)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	107 (cond
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	108 ((and (= ?/ x) slash)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	109 (setq slash nil)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	110 "%2F")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	111 ((= ?/ x)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	112 (setq slash t)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	113 "/")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	114 (t
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	115 (setq slash nil)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	116 (char-to-string x))))) fname ""))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	117
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	118 (setq fname (and fname
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	119 (mapconcat
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	120 (function (lambda (x)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	121 (if (= x ?~) "" (char-to-string x))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	122 fname ""))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	123 fname (cond
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	124 ((null fname) nil)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	125 ((or (string= "" fname) (string= "/" fname))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	126 url-directory-index-file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	127 ((= (string-to-char fname) ?/)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	128 (if (string= (substring fname -1 nil) "/")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	129 (concat fname url-directory-index-file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	130 (substring fname 1 nil)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	131 (t
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	132 (if (string= (substring fname -1 nil) "/")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	133 (concat fname url-directory-index-file)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	134 fname))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	135 (and fname
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	136 (expand-file-name fname
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	137 (expand-file-name
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	138 (mapconcat 'identity host-components "/")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	139 url-cache-directory))))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	140
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	141 (defun url-cache-create-filename-using-md5 (url)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	142 "Create a cached filename using MD5.
54793 4051557a5374 (url-util): Require. Stefan Monnier <monnier@iro.umontreal.ca> parents: 54770 diff changeset	143 Very fast if you have an `md5' primitive function, suitably fast otherwise."
54695 3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	144 (require 'md5)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	145 (if url
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	146 (let* ((url (if (vectorp url) (url-recreate-url url) url))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	147 (checksum (md5 url))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	148 (urlobj (url-generic-parse-url url))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	149 (protocol (url-type urlobj))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	150 (hostname (url-host urlobj))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	151 (host-components
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	152 (cons
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	153 (user-real-login-name)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	154 (cons (or protocol "file")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	155 (nreverse
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	156 (delq nil
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	157 (split-string (or hostname "localhost")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	158 (eval-when-compile
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	159 (regexp-quote "."))))))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	160 (fname (url-filename urlobj)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	161 (and fname
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	162 (expand-file-name checksum
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	163 (expand-file-name
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	164 (mapconcat 'identity host-components "/")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	165 url-cache-directory))))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	166
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	167 (defcustom url-cache-creation-function 'url-cache-create-filename-using-md5
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	168 "*What function to use to create a cached filename."
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	169 :type '(choice (const :tag "MD5 of filename (low collision rate)"
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	170 :value url-cache-create-filename-using-md5)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	171 (const :tag "Human readable filenames (higher collision rate)"
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	172 :value url-cache-create-filename-human-readable)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	173 (function :tag "Other"))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	174 :group 'url-cache)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	175
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	176 (defun url-cache-create-filename (url)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	177 (funcall url-cache-creation-function url))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	178
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	179 ;;;###autoload
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	180 (defun url-cache-extract (fnam)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	181 "Extract FNAM from the local disk cache"
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	182 (erase-buffer)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	183 (insert-file-contents-literally fnam))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	184
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	185 ;;;###autoload
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	186 (defun url-cache-expired (url mod)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	187 "Return t iff a cached file has expired."
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	188 (let* ((urlobj (if (vectorp url) url (url-generic-parse-url url)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	189 (type (url-type urlobj)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	190 (cond
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	191 (url-standalone-mode
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	192 (not (file-exists-p (url-cache-create-filename url))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	193 ((string= type "http")
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	194 t)
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	195 ((member type '("file" "ftp"))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	196 (if (or (equal mod '(0 0)) (not mod))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	197 t
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	198 (or (> (nth 0 mod) (nth 0 (current-time)))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	199 (> (nth 1 mod) (nth 1 (current-time))))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	200 (t nil))))
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	201
3fb37923e567 Initial revision Stefan Monnier <monnier@iro.umontreal.ca> parents: diff changeset	202 (provide 'url-cache)
54699 7784ae10206d Resolve CVS conflicts Miles Bader <miles@gnu.org> parents: 54695 diff changeset	203
7784ae10206d Resolve CVS conflicts Miles Bader <miles@gnu.org> parents: 54695 diff changeset	204 ;;; arch-tag: 95b050a6-8e81-4f23-8e63-191b9d1d657c
57612 2954cb243379 Update header and footer. Lars Hansen <larsh@soem.dk> parents: 57427 diff changeset	205 ;;; url-cache.el ends here

Mercurial > emacs

annotate lisp/url/url-cache.el @ 62789:74e26c83386f