tsecindex - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       tsecindex (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