sys/lib/man/secindex

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