From 8c8b8430b557f8f1503bfecce39b6f2938665e5a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 4 Apr 2004 01:21:46 +0000 Subject: Initial revision --- lisp/url/url-https.el | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) create mode 100644 lisp/url/url-https.el (limited to 'lisp/url/url-https.el') diff --git a/lisp/url/url-https.el b/lisp/url/url-https.el new file mode 100644 index 00000000000..27652792d49 --- /dev/null +++ b/lisp/url/url-https.el @@ -0,0 +1,53 @@ +;;; url-https.el --- HTTP over SSL routines +;; Author: $Author: wmperry $ +;; Created: $Date: 2001/11/22 14:32:13 $ +;; Version: $Revision: 1.3 $ +;; Keywords: comm, data, processes + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Copyright (c) 1999 Free Software Foundation, Inc. +;;; +;;; 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) +;;; any later version. +;;; +;;; GNU Emacs is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Emacs; see the file COPYING. If not, write to the +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;;; Boston, MA 02111-1307, USA. +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(require 'url-gw) +(require 'url-util) +(require 'url-parse) +(require 'url-cookie) +(require 'url-http) + +(defconst url-https-default-port 443 "Default HTTPS port.") +(defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.") +(defalias 'url-https-expand-file-name 'url-http-expand-file-name) + +(defmacro url-https-create-secure-wrapper (method args) + (` (defun (, (intern (format (if method "url-https-%s" "url-https") method))) (, args) + (, (format "HTTPS wrapper around `%s' call." (or method "url-http"))) + (condition-case () + (require 'ssl) + (error + (error "HTTPS support could not find `ssl' library."))) + (let ((url-gateway-method 'ssl)) + ((, (intern (format (if method "url-http-%s" "url-http") method))) (,@ (remove '&rest (remove '&optional args)))))))) + +(url-https-create-secure-wrapper nil (url callback cbargs)) +(url-https-create-secure-wrapper file-exists-p (url)) +(url-https-create-secure-wrapper file-readable-p (url)) +(url-https-create-secure-wrapper file-attributes (url)) + +(provide 'url-https) -- cgit v1.2.1 From e5566bd545c8557083a84f651b02a6090316dfed Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sun, 4 Apr 2004 04:44:10 +0000 Subject: Resolve CVS conflicts --- lisp/url/url-https.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/url/url-https.el') diff --git a/lisp/url/url-https.el b/lisp/url/url-https.el index 27652792d49..d603740357e 100644 --- a/lisp/url/url-https.el +++ b/lisp/url/url-https.el @@ -1,7 +1,7 @@ ;;; url-https.el --- HTTP over SSL routines -;; Author: $Author: wmperry $ -;; Created: $Date: 2001/11/22 14:32:13 $ -;; Version: $Revision: 1.3 $ +;; Author: $Author: monnier $ +;; Created: $Date: 2004/04/04 01:21:46 $ +;; Version: $Revision: 1.1.1.1 $ ;; Keywords: comm, data, processes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -51,3 +51,5 @@ (url-https-create-secure-wrapper file-attributes (url)) (provide 'url-https) + +;;; arch-tag: c3645ac5-c248-4d12-ad41-7c4b6f7b6d19 -- cgit v1.2.1 From 1f3ddf11e81c4c707fe2f231d05012185b842403 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sat, 10 Apr 2004 05:55:49 +0000 Subject: Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-196 Remove RCS keywords 2004-04-10 Miles Bader RCS keyword removal (only non-comment changes are enumerated here): * lisp/emacs-lisp/bytecomp.el (byte-compile-version): Variable removed. (byte-compile-insert-header): Don't use `byte-compile-version'. * lisp/url/url-vars.el (url-version): Use the constant string "Emacs" instead of calculating something from the RCS `State' keyword [the latter is almost entirely useless anyway]. * lisp/forms.el (forms-version): Variable removed. (forms-mode): Don't use `forms-version'. * lisp/recentf.el (recentf-version): Variable removed. * lisp/progmodes/delphi.el (delphi-version): Variable removed. * lisp/progmodes/ada-mode.el (ada-mode): RCS keyword removed from docstring. --- lisp/url/url-https.el | 3 --- 1 file changed, 3 deletions(-) (limited to 'lisp/url/url-https.el') diff --git a/lisp/url/url-https.el b/lisp/url/url-https.el index d603740357e..9754cd1b976 100644 --- a/lisp/url/url-https.el +++ b/lisp/url/url-https.el @@ -1,7 +1,4 @@ ;;; url-https.el --- HTTP over SSL routines -;; Author: $Author: monnier $ -;; Created: $Date: 2004/04/04 01:21:46 $ -;; Version: $Revision: 1.1.1.1 $ ;; Keywords: comm, data, processes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- cgit v1.2.1 From 39c541030ed5051e508f7f4d30ce9b180fb62e46 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 Apr 2004 04:04:21 +0000 Subject: (url-https-create-secure-wrapper): Use modern backquotes. --- lisp/url/url-https.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'lisp/url/url-https.el') diff --git a/lisp/url/url-https.el b/lisp/url/url-https.el index 9754cd1b976..0ea11a45b79 100644 --- a/lisp/url/url-https.el +++ b/lisp/url/url-https.el @@ -33,14 +33,14 @@ (defalias 'url-https-expand-file-name 'url-http-expand-file-name) (defmacro url-https-create-secure-wrapper (method args) - (` (defun (, (intern (format (if method "url-https-%s" "url-https") method))) (, args) - (, (format "HTTPS wrapper around `%s' call." (or method "url-http"))) - (condition-case () - (require 'ssl) - (error - (error "HTTPS support could not find `ssl' library."))) - (let ((url-gateway-method 'ssl)) - ((, (intern (format (if method "url-http-%s" "url-http") method))) (,@ (remove '&rest (remove '&optional args)))))))) + `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args + ,(format "HTTPS wrapper around `%s' call." (or method "url-http")) + (condition-case () + (require 'ssl) + (error + (error "HTTPS support could not find `ssl' library"))) + (let ((url-gateway-method 'ssl)) + ( ,(intern (format (if method "url-http-%s" "url-http") method)) ,@(remove '&rest (remove '&optional args)))))) (url-https-create-secure-wrapper nil (url callback cbargs)) (url-https-create-secure-wrapper file-exists-p (url)) -- cgit v1.2.1 From 3abd7705a802ba5355c03580c6de7cdac4dd3809 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 16 Apr 2004 22:02:46 +0000 Subject: (url-https-file-attributes): Add id-format param. --- lisp/url/url-https.el | 48 ++++++++++++++++++++++++++---------------------- 1 file changed, 26 insertions(+), 22 deletions(-) (limited to 'lisp/url/url-https.el') diff --git a/lisp/url/url-https.el b/lisp/url/url-https.el index 0ea11a45b79..11b2593ea80 100644 --- a/lisp/url/url-https.el +++ b/lisp/url/url-https.el @@ -1,26 +1,29 @@ ;;; url-https.el --- HTTP over SSL routines + +;; Copyright (c) 1999, 2004 Free Software Foundation, Inc. + ;; Keywords: comm, data, processes -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; Copyright (c) 1999 Free Software Foundation, Inc. -;;; -;;; 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) -;;; any later version. -;;; -;;; GNU Emacs is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with GNU Emacs; see the file COPYING. If not, write to the -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;;; Boston, MA 02111-1307, USA. -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; 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) +;; any later version. +;; +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;;; Code: (require 'url-gw) (require 'url-util) @@ -45,8 +48,9 @@ (url-https-create-secure-wrapper nil (url callback cbargs)) (url-https-create-secure-wrapper file-exists-p (url)) (url-https-create-secure-wrapper file-readable-p (url)) -(url-https-create-secure-wrapper file-attributes (url)) +(url-https-create-secure-wrapper file-attributes (url &optional id-format)) (provide 'url-https) -;;; arch-tag: c3645ac5-c248-4d12-ad41-7c4b6f7b6d19 +;; arch-tag: c3645ac5-c248-4d12-ad41-7c4b6f7b6d19 +;;; url-https.el ends here -- cgit v1.2.1