home *** CD-ROM | disk | FTP | other *** search
/ Complete Bookshop / CompleteWorkshop.iso / greatlit / pcshx10a / pcshx10a.exe / PCSHX.EXE / LESS.SED < prev    next >
Text File  |  1991-10-09  |  220b  |  30 lines
  1. 1 {
  2. h
  3. :tp
  4. /^[A-Z]+/ {
  5. :one
  6. n
  7. /^ *\L+/ !{
  8. n
  9. b tp
  10. }
  11. H
  12. }
  13. d
  14. }
  15. /%/ {
  16. s/^\([A-Z1-3\-]+\)\ .*/\1/
  17. H
  18. g
  19. s/\n/_/g
  20. s/^\(.*\)_\(.*\)_\(.*\)/\3_\1_\2/
  21. t two
  22. s/^\(.*\)_\(.*\)/\2_\1/
  23. :two
  24. p
  25. $ q
  26. n
  27. h
  28. b tp
  29. }
  30.