1 #!/usr/local/plan9/bin/rc
2 builtin cd $1
3 for (i in [a-z0-9:]*.[0-9]*) {
4 	b=`{echo $i | sed 's/\..*//'}
5 	9 sed -n '
6 	/SH *NAM/,/SH/{
7 		/SH/d
8 		s/, *$//
9 		ty
10 		:y
11 		s/ *\\*-.*//
12 		tx
13 		s/ *\\\(mi.*//
14 		tx
15 		s/, */\
16 /g
17 		s/\n\\n/\
18 /g
19 		s/$/ '$i'/g
20 		p
21 	}
22 	/SH *DES/q
23 	d
24 	:x
25 	s/ *\\*-.*//
26 	s/ *\\\(mi.*//
27 	/^$/d
28 	s/, */\
29 /g
30 	s/\n\n/\
31 /g
32 	s/$/ '$i'/g
33 	p
34 	q
35 ' $i
36 echo $b $i
37 } |9 sort -u