secindex 322 B

123456789101112131415161718192021222324252627282930313233343536
  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