4.3BSD/usr/ingres/doc/toc.sh

#
foreach i ($*)
ex - $i << 'EOF'
/DESCRIPTION/i
SYNOPSIS
.
0a
.s3
.i0
.in +4
.ti -4
XXX
.
.,/^\.th/-d
s/\.th \(.*\) \(.*\) \(.*\)$/\1(\2) \\-/
+,/NAME/d
s/^/- /
s/^.*- //
-,.join
+,/SYNOPSIS/c
.br
.
g/SYNOPSIS/d
1,/DESCRIPTION/-w! >> ../toc.nr
q!
'EOF'
end