More troff bits; if you want them elsewhere, feel free to repo copy them.

This commit is contained in:
wkj 2004-05-17 03:22:35 +00:00
parent a7eb134e87
commit aa83d77271
22 changed files with 670 additions and 1 deletions

View file

@ -0,0 +1,21 @@
awk ' # num.collapse
# Input: lines of form: string (tab) num1 [(space) num2]
# Output: lines of form: string (tab) fancy.num.list
#
# fancy.num.list contains items, separated by ", ", of form: num or num-num
# Sequence of input lines with same value of string is combined
# into a single output line. Each input line contributes either
# num or num-num to output line.
BEGIN { FS = OFS = "\t" }
{ sub(/ /, "\\(en", $2) } # use - if there is no en dash
$1 != p { p = $1
if (NR > 1) printf "\n"
printf "%s\t%s", $1, $2
next
}
{ printf ", %s", $2 }
END { if (NR > 0) printf "\n" }
' $*