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