dsill@RELAY-NSWC.NAVY.MIL (Dave Sill) (12/23/88)
#!/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 "-------------------------------------------------------------------------------" }'