home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / me / index.me < prev    next >
Text File  |  1980-02-17  |  626b  |  52 lines
  1. .nr _0 \n(c.
  2. .de (x            \" *** begin index entry
  3. .ds |X x
  4. .if \\n(.$ \
  5. .    ds |X \\$1
  6. .am %\\*(|X )x
  7. .sp \\n(xsu
  8. ..
  9. .de )x            \" *** end index entry
  10. .ds |x \\n%
  11. .if \\n(.$ \
  12. .    ds |x \\$1
  13. .if "\\*(|x"_" \
  14. .    ig ..
  15. .am %\\*(|X ..
  16. .if \w'\\$2'>(\\n(.l-\\n(.i-\\n(.k) \
  17. .    ti +\\n(xuu
  18. \\\\a\\\\t\\$2\\*(|x
  19. ...
  20. .rm |x
  21. .rm |X
  22. ..
  23. .de xp            \" *** print the index
  24. .br
  25. .@C 2
  26. .ls 1
  27. .vs \\n(.su*\\n($Ru
  28. .fi
  29. .ds |X x
  30. .if \\n(.$ \
  31. .    ds |X \\$1
  32. .xl -(\\n(xuu+\w'...'u)
  33. .di |x
  34. .%\\*(|X
  35. .br
  36. .di
  37. .rm %\\*(|X
  38. .xl \\n($lu
  39. .rm |X
  40. .ev
  41. .nf
  42. .in 0
  43. .ta \\n(.lu-\\n(xuuR \\n(.luR
  44. .|x
  45. .fi
  46. .in
  47. .rm |x
  48. ..
  49. .if \n(xu<=0 \
  50. .    nr xu 0.5i        \" index undent
  51. .nr c. \n(_0
  52.