#!/bin/sh awk ' # doclean # Input: "number tab IX string# 107 IX self-reference #1186 -# 281 TL APPENDIX A AMPL Reference Manual #26 -# Output: string (tab) number# excess spaces are removed output string# note reversal of order; rest of programs expect it # This contains some special pleading for the AMPL book BEGIN { FS = OFS = "\t" } /\t(TL|H1|H2|H3|LASTPAGE)/ { next } # zap expected noise $0 !~ /[0-9ixv]+\tIX / { print "doclean: non index line: " $0 | "cat 1>&2"; next} { sub(/IX +/, "", $2) # zap "IX " sub(/ +#[0-9]+ .*$/, "", $2) # zap trailing blanks, slug, file gsub(/ +/, " ", $2) # compress internal blanks print $2, $1 # item (tab) page number}' $*
#!/bin/sh
awk ' # doclean
# Input: "number tab IX string
# 107 IX self-reference #1186 -
# 281 TL APPENDIX A AMPL Reference Manual #26 -
# Output: string (tab) number
# excess spaces are removed output string
# note reversal of order; rest of programs expect it
# This contains some special pleading for the AMPL book
BEGIN { FS = OFS = "\t" }
/\t(TL|H1|H2|H3|LASTPAGE)/ { next } # zap expected noise
$0 !~ /[0-9ixv]+\tIX / {
print "doclean: non index line: " $0 | "cat 1>&2"; next
}
{ sub(/IX +/, "", $2) # zap "IX "
sub(/ +#[0-9]+ .*$/, "", $2) # zap trailing blanks, slug, file
gsub(/ +/, " ", $2) # compress internal blanks
print $2, $1 # item (tab) page number
}
' $*