![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to monk.mac CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / vol2 / ADM|
Return to monk.mac CVS log | Up to [Research Unix] / researchv10dc / vol2 / ADM |
1.1 root 1: |macro(top.of.page;
2: [
3: '\" ;P page number register TEMP
4: .nr ;! 1
5: .de TP
6: 'sp
7: .af ;P \\gP \" save format of page_counter
8: .af P 1 \" normal format for next line
9: .nr ;P \\n P \" must use different name for P
10: .af P \\g(;P \" restore format to P
11: .af ;P 1 \" normal format for control register
12: 'sp 2
13: .ie \\n(;!>1 \{ \" output headers
14: .tl \\*(PH
15: .if !\\n(;P%2 .tl \\*(EH
16: .if \\n(;P%2 .tl \\*(OH \}
17: .el 'sp 1
18: 'sp 2
19: .rr ;P \" free storage
20: .nr ;! 2
21: ..
22: ])
23:
24: |style(page_width 6.5i)
25:
26: |environment(titlebox;
27: ;
28:
29: new.page,
30: fill off, inline off, size +2, space +2, font bold, center on,
31: macro TI, font roman, size -2, space -2, SPACE,
32: blank.lines, size +1, inline on,
33: |for i in 1 2 3 [
34: if "\nA>=$i",
35: string A$i,
36: ]
37: inline off, font roman, size -1, inline on, blank.lines,
38: text italics "AT&T Bell Laboratories", new.line,
39: text italics "Murray Hill, New Jersey 07974", new.line,
40: center off, fill on,
41:
42: |ifvalue sawabstract on {
43: blank.lines, center on, size +1, text italics "ABSTRACT",
44: size -1, center off, minimum.lines,
45: indent +.5i, line.length -.5i, line.spacing 1, paragraph,
46: macro AS, line.length +.5i, indent -.5i,
47: }
48: minimum.lines)
49: |comment<summary: titlebox (produce title box here)>
50:
51: |environment(reference_placement;
52: |ifvalue sawreference on [
53: spacing on, blank.lines 3,
54: set string Ts "References",
55: inline off, size +1, center on,
56: font bold, string Ts, font roman,
57: center off, size -1, inline on,
58: minimum.lines,
59: clear string Rs,
60: contents section 1 Rs Ts,
61: reference.placement
62: ];
63:
64: sawreference off)
65: |comment<summary: reference_placement (produce references here)>
66:
67: |environment(appendix;
68: spacing on, blank.lines 3,
69: number format AC A, incr AC,
70: clear S0 S1 S2 S3,
71: set string Rs "Appendix ",
72: add string.from.number Rs AC,
73: divert.string Ts;
74:
75: sectioning byappendix,
76: center on, size +1, font bold,
77: string Rs, blank.lines, string Ts,
78: font roman, size -1, center off,
79: minimum.lines 1, paragraph,
80: store string.from.number Rs AC,
81: contents section 1 Rs Ts)
82: |comment<summary: appendix (numbered appendix; IT)>
83:
84: |environment(index;
85: divert.input on Ts;)
86: |comment<summary: index (toss this item for index)>
87:
88: |associate(paragraph;
89: minimum.lines .3v;
90:
91: |ifvalue localparagraph.style indented [
92: indent.line +5n,
93: ]
94: |ifvalue localparagraph.style numbered [
95: incr S3, number format S3 i,
96: store string.from.number Ts S3,
97: add string Ts ") ",
98: string italics Ts,
99: ]
100: |ifvalue globalparagraph.style indented [
101: localparagraph.style indented,
102: ]
103: |ifvalue globalparagraph.style numbered [
104: localparagraph.style numbered,
105: ]
106: |ifvalue globalparagraph.style flushed [
107: localparagraph.style flushed,
108: ];
109:
110: [numbered;;
111: localparagraph.style numbered]
112: [n;;
113: localparagraph.style numbered]
114: [indented;;
115: localparagraph.style indented]
116: [i;;
117: localparagraph.style indented]
118: [flushed;;
119: localparagraph.style flushed]
120: [f;;
121: localparagraph.style flushed])
122: |comment<summary: paragraph (n, i, f, numbered, indented, flushed)>
123:
124: |associate(p;
125: minimum.lines .3v;
126:
127: |ifvalue localparagraph.style indented [
128: indent.line +5n,
129: ]
130: |ifvalue localparagraph.style numbered [
131: incr S3, number format S3 i,
132: store string.from.number Ts S3,
133: add string Ts ") ",
134: string italics Ts,
135: ]
136: |ifvalue globalparagraph.style indented [
137: localparagraph.style indented,
138: ]
139: |ifvalue globalparagraph.style numbered [
140: localparagraph.style numbered,
141: ]
142: |ifvalue globalparagraph.style flushed [
143: localparagraph.style flushed,
144: ];
145:
146: [numbered;;
147: localparagraph.style numbered]
148: [n;;
149: localparagraph.style numbered]
150: [indented;;
151: localparagraph.style indented]
152: [i;;
153: localparagraph.style indented]
154: [flushed;;
155: localparagraph.style flushed]
156: [f;;
157: localparagraph.style flushed])
158: |comment<summary: p (alias for paragraph)>
159:
160: |style(paragraph_style indented)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.