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