1 aa83d772 2004-05-17 devnull #!/bin/sh
 2 aa83d772 2004-05-17 devnull 
 3 aa83d772 2004-05-17 devnull awk ' # doclean
 4 aa83d772 2004-05-17 devnull 
 5 aa83d772 2004-05-17 devnull #   Input:  "number tab IX string
 6 aa83d772 2004-05-17 devnull #	107     IX self-reference #1186 -
 7 aa83d772 2004-05-17 devnull #	281     TL APPENDIX A  AMPL Reference Manual   #26 -
 8 aa83d772 2004-05-17 devnull #   Output:        string (tab) number
 9 aa83d772 2004-05-17 devnull #	excess spaces are removed output string
10 aa83d772 2004-05-17 devnull #	note reversal of order;  rest of programs expect it
11 aa83d772 2004-05-17 devnull 
12 aa83d772 2004-05-17 devnull # This contains some special pleading for the AMPL book
13 aa83d772 2004-05-17 devnull 
14 aa83d772 2004-05-17 devnull BEGIN	      { FS = OFS = "\t" }
15 aa83d772 2004-05-17 devnull 
16 aa83d772 2004-05-17 devnull /\t(TL|H1|H2|H3|LASTPAGE)/	{ next }	# zap expected noise
17 aa83d772 2004-05-17 devnull 
18 aa83d772 2004-05-17 devnull $0 !~ /[0-9ixv]+\tIX / {
19 aa83d772 2004-05-17 devnull 	print "doclean: non index line: " $0 | "cat 1>&2"; next
20 aa83d772 2004-05-17 devnull }
21 aa83d772 2004-05-17 devnull 
22 aa83d772 2004-05-17 devnull {	sub(/IX +/, "", $2)	# zap "IX "
23 aa83d772 2004-05-17 devnull         sub(/ +#[0-9]+ .*$/, "", $2)	# zap trailing blanks, slug, file
24 aa83d772 2004-05-17 devnull         gsub(/  +/, " ", $2)	# compress internal blanks
25 aa83d772 2004-05-17 devnull         print $2, $1		# item (tab) page number
26 aa83d772 2004-05-17 devnull }
27 aa83d772 2004-05-17 devnull ' $*