| rsc | a19c44b | 2005-01-03 06:41:38 +0000 | [diff] [blame] | 1 | #!/usr/local/plan9/bin/rc |
| 2 | builtin cd $1 |
| rsc | 93aa30a | 2005-01-14 03:27:51 +0000 | [diff] [blame] | 3 | for (i in [a-z0-9:]*.[0-9]*) { |
| rsc | a19c44b | 2005-01-03 06:41:38 +0000 | [diff] [blame] | 4 | b=`{echo $i | sed 's/\..*//'} |
| rsc | c8b6342 | 2005-01-13 04:49:19 +0000 | [diff] [blame] | 5 | 9 sed -n ' |
| rsc | a19c44b | 2005-01-03 06:41:38 +0000 | [diff] [blame] | 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 |
| rsc | c8b6342 | 2005-01-13 04:49:19 +0000 | [diff] [blame] | 37 | } |9 sort -u |
