xref: /plan9/sys/lib/man/secindex (revision 7dd7cddf99dd7472612f1413b4da293630e6b1bc)
13e12c5d1SDavid du Colombier#!/bin/rc
2219b2ee8SDavid du Colombierbuiltin cd $1
33e12c5d1SDavid du Colombierfor (i in [a-z0-9:]*) {
43e12c5d1SDavid du Colombier	sed -n '
53e12c5d1SDavid du Colombier	/SH *NAM/,/SH/{
63e12c5d1SDavid du Colombier		/SH/d
73e12c5d1SDavid du Colombier		s/, *$//
83e12c5d1SDavid du Colombier		ty
93e12c5d1SDavid du Colombier		:y
103e12c5d1SDavid du Colombier		s/ *\\*-.*//
113e12c5d1SDavid du Colombier		tx
123e12c5d1SDavid du Colombier		s/ *\\\(mi.*//
133e12c5d1SDavid du Colombier		tx
143e12c5d1SDavid du Colombier		s/, */\
153e12c5d1SDavid du Colombier/g
163e12c5d1SDavid du Colombier		s/\n\\n/\
173e12c5d1SDavid du Colombier/g
18*7dd7cddfSDavid du Colombier		s/$/ '$i'/g
193e12c5d1SDavid du Colombier		p
203e12c5d1SDavid du Colombier	}
213e12c5d1SDavid du Colombier	/SH *DES/q
223e12c5d1SDavid du Colombier	d
233e12c5d1SDavid du Colombier	:x
243e12c5d1SDavid du Colombier	s/ *\\*-.*//
253e12c5d1SDavid du Colombier	s/ *\\\(mi.*//
263e12c5d1SDavid du Colombier	/^$/d
273e12c5d1SDavid du Colombier	s/, */\
283e12c5d1SDavid du Colombier/g
293e12c5d1SDavid du Colombier	s/\n\n/\
303e12c5d1SDavid du Colombier/g
31*7dd7cddfSDavid du Colombier	s/$/ '$i'/g
323e12c5d1SDavid du Colombier	p
333e12c5d1SDavid du Colombier	q
343e12c5d1SDavid du Colombier' $i
353e12c5d1SDavid du Colombierecho $i $i
363e12c5d1SDavid du Colombier} |sort -u
37