Path: utzoo!attcan!uunet!husc6!bbn!gateway!RELAY-NSWC.NAVY.MIL!dsill
From: dsill@RELAY-NSWC.NAVY.MIL (Dave Sill)
Newsgroups: comp.emacs
Subject: New Improved Elisp Directory, part 2 of 3
Message-ID: <33805@bbn.COM>
Date: 22 Dec 88 16:36:11 GMT
Sender: news@bbn.COM
Organization: Naval Surface Warfare Center, Dahlgren, VA
Lines: 50

#!/bin/sh
#
#        Name: format
#    Synopsis: format <datafile
#      Author: Dave Sill, dsill@relay-nswc.navy.mil
#        Date: 22 Dec 88
#     Version: 1.0
# Description: Mostly-awk shell script to format datafile of GNU Emacs
#              Lisp code.  Datafile format is:
#	            Name|Author|Contact|Description|Date|Version
#              For field definitions see key below.
awk \
'BEGIN { 
    FS="|"
    print "                    GNU Emacs Lisp Code Directory"
    print " "
    print "This is a directory of GNU Emacs Lisp code that has been posted to the"
    print "UNIX-EMACS ARPAnet mailing list (comp.emacs) or otherwise made"
    print "available to the general public.  If you see something you would like,"
    print "please request a copy directly from the author or contact listed.  If"
    print "you are unable to reach him (I believe they are all male), you can"
    print "either post a query to the net or ask me if I have a copy.  I do not"
    print "have the time or resources to maintain a publicly accessible archive"
    print "of all this code, but I *may* have what you want, if not the latest"
    print "version."
    print
    print "Please send additions and corrections to dsill@relay-nswc.navy.mil."
    print
    print "Key:"
    print "            name: name of command or package"
    print "     description: very short description of command or package"
    print "          author: primary or most-recent author of package"
    print "         contact: where to get the code, Internet domain-style address"
    print "                  is default, (U) is UUCP, (C) is CSnet, (B) is Bitnet"
    print "            date: date of last modification or publication"
    print "         version: version number assigned by author"
    print
}
{
    n=$1
    a=$2
    c=$3
    d=$4
    t=$5
    v=$6
    printf "%-15s  %-30s  %-15s  %8s/%-4s  %s\n", substr(n,1,15), \
	substr(d,1,30), substr(a,1,15), t, v, c
    if (NR == 1)	# Header record
	print "-------------------------------------------------------------------------------"
}'