comparison lisp/url/url-http.el @ 83104:625059157bad

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-220 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-221 Restore deleted tagline in etc/TUTORIAL.ru * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-222 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-223 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-224 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-225 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-144

83103:efc0b56b83d9

;; Copyright (c) 1999, 2001, 2004  Free Software Foundation, Inc.

;; Author: Bill Perry <[e-mail]>
;; Keywords: comm, data, processes
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)

    exists))

;;;###autoload
(defalias 'url-http-file-readable-p 'url-http-file-exists-p)

(defun url-http-head-file-attributes (url)
  (let ((buffer (url-http-head url))
	(attributes nil))
    (when buffer
      (setq attributes (make-list 11 nil))
      (setf (nth 1 attributes) 1)	; Number of links to file

      (setf (nth 8 attributes) (eval-when-compile (make-string 10 ?-)))
      (kill-buffer buffer))
    attributes))

;;;###autoload
(defun url-http-file-attributes (url)
  (if (url-dav-supported-p url)
      (url-dav-file-attributes url)
    (url-http-head-file-attributes url)))

;;;###autoload
(defun url-http-options (url)
  "Returns a property list describing options available for URL.
This list is retrieved using the `OPTIONS' HTTP method.

83104:625059157bad

;; Copyright (c) 1999, 2001, 2004  Free Software Foundation, Inc.

;; Author: Bill Perry <[e-mail]>
;; Keywords: comm, data, processes

;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)

    exists))

;;;###autoload
(defalias 'url-http-file-readable-p 'url-http-file-exists-p)

(defun url-http-head-file-attributes (url &optional id-format)
  (let ((buffer (url-http-head url))
	(attributes nil))
    (when buffer
      (setq attributes (make-list 11 nil))
      (setf (nth 1 attributes) 1)	; Number of links to file

      (setf (nth 8 attributes) (eval-when-compile (make-string 10 ?-)))
      (kill-buffer buffer))
    attributes))

;;;###autoload
(defun url-http-file-attributes (url &optional id-format)
  (if (url-dav-supported-p url)
      (url-dav-file-attributes url id-format)
    (url-http-head-file-attributes url id-format)))

;;;###autoload
(defun url-http-options (url)
  "Returns a property list describing options available for URL.
This list is retrieved using the `OPTIONS' HTTP method.