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 / sh.me < prev    next >
Text File  |  1980-02-17  |  2KB  |  107 lines
  1. .nr _0 \n(c.
  2. .de sh            \" *** section heading
  3. .if (\\n(si>0)&(\\n(si<1n) \
  4. .    nr si \\n(sin
  5. .ce 0
  6. .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
  7. .if !"\\$2"_" \
  8. \{\
  9. .    ds |x \&\\$2
  10. .    $p "\\*(|x" "\\*($n" \\n($0
  11. .    $0 "\\*(|x" "\\*($n" \\n($0
  12. .    rm |x
  13. .\}
  14. .nr $p 0 1            \" reset .np count
  15. ..
  16. .de @d            \" --- change section depth
  17. .if !""\\$1" \
  18. .    nr $0 \\$1
  19. .if \\n($0&(\\n(.$>1) \
  20. .    nr $\\n($0 \\$2
  21. .ds $n \&\"
  22. .ie \\n($0>=1 \
  23. \{\
  24. .    if \\n($1=0 \
  25. .        nr $1 1
  26. .    if (\\n(.$>=3) .if !"\\$3"-" \
  27. .        nr $1 \\$3
  28. .    as $n \\n($1
  29. .\}
  30. .el \
  31. .    nr $1 0
  32. .ie \\n($0>=2 \
  33. \{\
  34. .    if \\n($2=0 \
  35. .        nr $2 1
  36. .    if (\\n(.$>=4) .if !"\\$4"-" \
  37. .        nr $2 \\$4
  38. .    as $n .\\n($2
  39. .\}
  40. .el \
  41. .    nr $2 0
  42. .ie \\n($0>=3 \
  43. \{\
  44. .    if \\n($3=0 \
  45. .        nr $3 1
  46. .    if (\\n(.$>=5) .if !"\\$5"-" \
  47. .        nr $3 \\$5
  48. .    as $n .\\n($3
  49. .\}
  50. .el \
  51. .    nr $3 0
  52. .ie \\n($0>=4 \
  53. \{\
  54. .    if \\n($4=0 \
  55. .        nr $4 1
  56. .    if (\\n(.$>=6) .if !"\\$6"-" \
  57. .        nr $4 \\$6
  58. .    as $n .\\n($4
  59. .\}
  60. .el \
  61. .    nr $4 0
  62. .ie \\n($0>=5 \
  63. \{\
  64. .    if \\n($5=0 \
  65. .        nr $5 1
  66. .    if (\\n(.$>=7) .if !"\\$7"-" \
  67. .        nr $5 \\$7
  68. .    as $n .\\n($5
  69. .\}
  70. .el \
  71. .    nr $5 0
  72. .ie \\n($0>=6 \
  73. \{\
  74. .    if \\n($6=0 \
  75. .        nr $6 1
  76. .    if (\\n(.$>=8) .if !"\\$8"-" \
  77. .        nr $6 \\$8
  78. .    as $n .\\n($6
  79. .\}
  80. .el \
  81. .    nr $6 0
  82. ..
  83. .de sx            \" *** heading up, no increment (2.1.1 -> 2.1)
  84. .ce 0
  85. .ul 0
  86. .nr _0 \\n($0-1
  87. .if \\n(.$ .nr _0 +1
  88. .if \\n(.$ .nr _0 \\$1
  89. .@d \\n(_0
  90. .rr _0
  91. .$p "" "" \\n($0
  92. .nr $p 0 1            \" reset .np count
  93. ..
  94. .de uh            \" *** unnumbered section heading
  95. .$p "\\$1"
  96. .$0 "\\$1"
  97. ..
  98. .if \n(sf<=0 \
  99. .    nr sf 8            \" section font -- Times Bold
  100. .if \n(sp<=0 \
  101. .    nr sp 10        \" section title pointsize
  102. .if \n(ss<=0 \
  103. .    nr ss 12p        \" section prespacing
  104. .if \n(si<=0 \
  105. .    nr si 0            \" section indent
  106. .nr c. \n(_0
  107.