Deleted file

1 files changed, 0 insertions, 201 deletions

diff --git a/lib/url-parse.el b/lib/url-parse.el
deleted file mode 100644
index 6d1e524d..00000000
--- a/lib/url-parse.el
+++ /dev/null
@@ -1,201 +0,0 @@
-;;; url-parse.el --- Uniform Resource Locator parser
-;; Author: wmperry
-;; Created: 1999/06/28 01:46:57
-;; Version: 1.2
-;; Keywords: comm, data, processes
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu>
-;;; Copyright (c) 1996 - 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.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defmacro url-type (urlobj)
-  (` (aref (, urlobj) 0)))
-
-(defmacro url-user (urlobj)
-  (` (aref (, urlobj) 1)))
-
-(defmacro url-password (urlobj)
-  (` (aref (, urlobj) 2)))
-
-(defmacro url-host (urlobj)
-  (` (aref (, urlobj) 3)))
-
-(defmacro url-port (urlobj)
-  (` (or (aref (, urlobj) 4)
-	 (if (url-fullness (, urlobj))
-	     (cdr-safe (assoc (url-type (, urlobj)) url-default-ports))))))
-
-(defmacro url-filename (urlobj)
-  (` (aref (, urlobj) 5)))
-
-(defmacro url-target (urlobj)
-  (` (aref (, urlobj) 6)))
-
-(defmacro url-attributes (urlobj)
-  (` (aref (, urlobj) 7)))
-
-(defmacro url-fullness (urlobj)
-  (` (aref (, urlobj) 8)))
-
-(defmacro url-set-type (urlobj type)
-  (` (aset (, urlobj) 0 (, type))))
-
-(defmacro url-set-user (urlobj user)
-  (` (aset (, urlobj) 1 (, user))))
-
-(defmacro url-set-password (urlobj pass)
-  (` (aset (, urlobj) 2 (, pass))))
-
-(defmacro url-set-host (urlobj host)
-  (` (aset (, urlobj) 3 (, host))))
-
-(defmacro url-set-port (urlobj port)
-  (` (aset (, urlobj) 4 (, port))))
-
-(defmacro url-set-filename (urlobj file)
-  (` (aset (, urlobj) 5 (, file))))
-
-(defmacro url-set-target (urlobj targ)
-  (` (aset (, urlobj) 6 (, targ))))
-
-(defmacro url-set-attributes (urlobj targ)
-  (` (aset (, urlobj) 7 (, targ))))
-
-(defmacro url-set-full (urlobj val)
-  (` (aset (, urlobj) 8 (, val))))
-  
-(defun url-recreate-url (urlobj)
-  (concat (url-type urlobj) ":" (if (url-host urlobj) "//" "")
-	  (if (url-user urlobj)
-	      (concat (url-user urlobj)
-		      (if (url-password urlobj)
-			  (concat ":" (url-password urlobj)))
-		      "@"))
-	  (url-host urlobj)
-	  (if (and (url-port urlobj)
-		   (not (equal (url-port urlobj)
-			       (cdr-safe (assoc (url-type urlobj)
-						url-default-ports)))))
-	      (concat ":" (url-port urlobj)))
-	  (or (url-filename urlobj) "/")
-	  (if (url-target urlobj)
-	      (concat "#" (url-target urlobj)))
-	  (if (url-attributes urlobj)
-	      (concat ";"
-		      (mapconcat
-		       (function
-			(lambda (x)
-			  (if (cdr x)
-			      (concat (car x) "=" (cdr x))
-			    (car x)))) (url-attributes urlobj) ";")))))
-
-(defun url-generic-parse-url (url)
-  "Return a vector of the parts of URL.
-Format is:
-\[proto username password hostname portnumber file reference attributes fullp\]"
-  (cond
-   ((null url)
-    (make-vector 9 nil))
-   ((or (not (string-match url-nonrelative-link url))
-	(= ?/ (string-to-char url)))
-    (let ((retval (make-vector 9 nil)))
-      (url-set-filename retval url)
-      (url-set-full retval nil)
-      retval))
-   (t
-    (save-excursion
-      (set-buffer (get-buffer-create " *urlparse*"))
-      (set-syntax-table url-mailserver-syntax-table)
-      (let ((save-pos nil)
-	    (prot nil)
-	    (user nil)
-	    (pass nil)
-	    (host nil)
-	    (port nil)
-	    (file nil)
-	    (refs nil)
-	    (attr nil)
-	    (full nil)
-	    (inhibit-read-only t))
-	(erase-buffer)
-	(insert url)
-	(goto-char (point-min))
-	(setq save-pos (point))
-	(if (not (looking-at "//"))
-	    (progn
-	      (skip-chars-forward "a-zA-Z+.\\-")
-	      (downcase-region save-pos (point))
-	      (setq prot (buffer-substring save-pos (point)))
-	      (skip-chars-forward ":")
-	      (setq save-pos (point))))
-
-	;; We are doing a fully specified URL, with hostname and all
-	(if (looking-at "//")
-	    (progn
-	      (setq full t)
-	      (forward-char 2)
-	      (setq save-pos (point))
-	      (skip-chars-forward "^/")
-	      (setq host (buffer-substring save-pos (point)))
-	      (if (string-match "^\\([^@]+\\)@" host)
-		  (setq user (url-match host 1)
-			host (substring host (match-end 0) nil)))
-	      (if (and user (string-match "\\([^:]+\\):\\(.*\\)" user))
-		  (setq pass (url-match user 2)
-			user (url-match user 1)))
-	      (if (string-match ":\\([0-9+]+\\)" host)
-		  (setq port (url-match host 1)
-			host (substring host 0 (match-beginning 0))))
-	      (if (string-match ":$" host)
-		  (setq host (substring host 0 (match-beginning 0))))
-	      (setq host (downcase host)
-		    save-pos (point))))
-
-	;; Gross hack to preserve ';' in data URLs
-
-	(setq save-pos (point))
-
-	(if (string= "data" prot)
-	    (goto-char (point-max))
-	  ;; Now check for references
-	  (skip-chars-forward "^#")
-	  (if (eobp)
-	      nil
-	    (delete-region
-	     (point)
-	     (progn
-	       (skip-chars-forward "#")
-	       (setq refs (buffer-substring (point) (point-max)))
-	       (point-max))))
-	  (goto-char save-pos)
-	  (skip-chars-forward "^;")
-	  (if (not (eobp))
-	      (setq attr (mm-parse-args (point) (point-max))
-		    attr (nreverse attr))))
-
-	(setq file (buffer-substring save-pos (point)))
-	(and port (string= port (or (cdr-safe (assoc prot url-default-ports))
-				    ""))
-	     (setq port nil))
-	(if (and host (string-match "%[0-9][0-9]" host))
-	    (setq host (url-unhex-string host)))
-	(vector prot user pass host port file refs attr full)))))) 
-
-(provide 'url-parse)