xref: /plan9/sys/lib/man/secindex (revision 219b2ee8daee37f4aad58d63f21287faa8e4ffdc)
13e12c5d1SDavid du Colombier#!/bin/rc
2*219b2ee8SDavid 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
183e12c5d1SDavid du Colombier		s/\n/ '$i'&/g
193e12c5d1SDavid du Colombier		s/$/ '$i'/
203e12c5d1SDavid du Colombier		p
213e12c5d1SDavid du Colombier	}
223e12c5d1SDavid du Colombier	/SH *DES/q
233e12c5d1SDavid du Colombier	d
243e12c5d1SDavid du Colombier	:x
253e12c5d1SDavid du Colombier	s/ *\\*-.*//
263e12c5d1SDavid du Colombier	s/ *\\\(mi.*//
273e12c5d1SDavid du Colombier	/^$/d
283e12c5d1SDavid du Colombier	s/, */\
293e12c5d1SDavid du Colombier/g
303e12c5d1SDavid du Colombier	s/\n\n/\
313e12c5d1SDavid du Colombier/g
323e12c5d1SDavid du Colombier	s/\n/ '$i'&/g
333e12c5d1SDavid du Colombier	s/(.|\n)*$/& '$i'/
343e12c5d1SDavid du Colombier	p
353e12c5d1SDavid du Colombier	q
363e12c5d1SDavid du Colombier' $i
373e12c5d1SDavid du Colombierecho $i $i
383e12c5d1SDavid du Colombier} | sort -u
39