secindex (380B)
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