add release dir

release/base/contrib/README

@@ -0,0 +1,49 @@
+The archie standalone clients are the property of the individual authors
+and are included here for the convenience of our customers. All of these
+clients are available on the Internet via anonymous FTP. 
+
+The modified sources for less used with the archie system are included
+in less-177-for-archie.tar.Z
+
+NOTE: These sources do _NOT_ contain the prospero patch for V2/V3
+      archie/prospero systems. However, the fix is included if you would
+      perform the patch yourself. It is in prospero-fix.
+      
+
+		Archie Standalone clients 
+
+File name	Author				Comments
+----------      ------				------------
+
+c-archie-1.[1-3].tar.Z
+		Brendan Kehoe 		     Command line interface
+		(brendan@cygnus.com)         written in C
+
+c-archie-1.[2,3]-for-vms.com
+	       Brendan Kehoe                 Command line interface
+               (brendan@cygnus.com)          written for VMS
+
+		
+archie.el	
+              Brendan Kehoe                  Command line interface
+              (brendan@cygnus.com)           written for emacs
+
+perl-archie-3.8.tar.Z
+		Khun Yee Fung		     Command line interface
+		(clipper@csd.uwo.ca)	     written in Perl
+
+xarchie-2.0.8.tar.Z
+	        George Ferguson		     X11(R4) interface
+		(ferguson@cs.rochester.edu)  Athena widget set
+
+archie-one-liner.sh
+		Mark Moraes 
+		(moraes@deshaw.com)	     /bin/sh interface
+
+archie.zip	Brad Clemens 
+		(bkc@omnigate.clarkson.edu)  PC DOS client
+
+mac-archie-client-09.hqx
+		Chris J McNeil
+		cmcneil@macc2.mta.ca	     Mac archie client 
+		(This is shareware)

release/base/contrib/archie.el

@@ -0,0 +1,71 @@
+;;
+;; archie.el v1.0 -- by Brendan Kehoe (brendan@cs.widener.edu)
+;;
+;; A mock-interface to Archie for Emacs.  This will shave by when you need
+;; it.  ARCHIE-SEZ will insert the result of the query in the current buffer,
+;; and plain ARCHIE will create a separate buffer .
+;;
+;; TODO: hack ange-ftp to use the output of archie -l, and let you select
+;;       from a magic list which one you want to FTP into an Emacs buffer.
+;;
+
+(defvar archie-program "/usr/local/bin/archie"
+  "Program that queries archie servers.")
+
+(defvar archie-server "archie.sura.net"
+  "Server for \\[archie] searches.
+
+Known archie servers:
+	archie.ans.net (USA [NY])
+	archie.sura.net (USA [MD])
+	archie.mcgill.ca (Canada)
+	archie.funet.fi (Finland/Mainland Europe)
+	archie.au (Australia)
+	archie.doc.ic.ac.uk (Great Britain/Ireland)
+")
+
+(defvar archie-search-type "-e"
+  "Search type for \\[archie] searches.
+Can be one of: -c for substring searches
+               -e for exact matches (default)
+               -r for a regexp
+               -s for a case-insensitive substring search
+")
+
+(defun archie-sez (string)
+  "Insert the results of an archie query on STRING into the current buffer.
+   Uses the function `archie' for its main work."
+  (interactive (list (read-string "String: " nil)))
+  (archie string nil t))
+
+(defun archie (string &optional type inplace)
+  "Look for STRING on an Archie server.
+Optional second arg TYPE is the type of search to make -- by default, it's
+`archie-search-type'.  Possible values are substring, subcase (case insensitive
+substring), and regexp (a regular expression).  Interactively, a prefix arg
+will make it prompt for this."
+  (interactive (list (read-string "String: " nil)
+		     (and current-prefix-arg
+			  (read-string "Search type [-c/-e/-r/-s]: "
+				       archie-search-type))))
+  (let ((buf (or inplace (get-buffer-create "*Archie*"))))
+    (if inplace
+	(progn
+	  (push-mark (point) t)
+	  (insert "Archie sez: \n"))
+      (progn
+	(pop-to-buffer buf)
+	(setq buffer-read-only nil
+	      mode-line-process (concat ": " string)
+	      mode-name "Query for"
+	      minor-mode-alist nil)
+	(erase-buffer)))
+    (call-process archie-program nil buf nil
+		  "-h" archie-server
+		  (or type archie-search-type)
+		  string))
+
+  (if (not inplace)
+      (progn
+	(setq buffer-read-only t)
+	(goto-char (point-min)))))