xref: /inferno-os/man/lib/secindex (revision 4eb166cf184c1f102fb79e31b1465ea3e2021c39)
1 #!/bin/rc
2 U='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
3 L='abcdefghijklmnopqrstuvwxyz'
4 builtin cd $1
5 for (i in [a-z0-9:]*) {
6 	sed -n '
7 	/SH *NAM/,/SH/{
8 		/SH/d
9 		s/, *$//
10 		ty
11 		:y
12 		s/ *\\*-.*//
13 		tx
14 		s/ *\\\(mi.*//
15 		tx
16 		s/[,:] */\
17 /g
18 		s/\n\\n/\
19 /g
20 		y/'$U'/'$L'/
21 		s/\n/ '$i'&/g
22 		s/$/ '$i'/
23 		p
24 	}
25 	/SH *DES/q
26 	d
27 	:x
28 	s/ *\\*-.*//
29 	s/ *\\\(mi.*//
30 	/^$/d
31 	s/[,:] */\
32 /g
33 	s/\n\n/\
34 /g
35 	y/'$U'/'$L'/
36 	s/\n/ '$i'&/g
37 	s/(.|\n)*$/& '$i'/
38 	p
39 	q
40 ' $i
41 kw=`{echo $i  | sed 's/0intro/intro/'}
42 echo $kw $i
43 } | sort -u
44