![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cspress CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / monk / o.db|
Return to cspress CVS log | Up to [Research Unix] / researchv10no / cmd / monk / o.db |
1.1 root 1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34: |associate(author;
35: incr A, clear T,
36: clear string T1 T2 T3
37: T4 T5 T6;
38:
39: store string A\nA T1,
40: store string I\nA T2,
41: store string L\nA T3,
42: store string D\nA T4,
43: store string E\nA T5,
44: store string R\nA T6;
45:
46: [name $;
47: incr T, set string T1 $;]
48: [initials $;
49: incr T, set string T2 $;]
50: [location $;
51: incr T, set string T3 $;]
52: [department $;
53: incr T, set string T4 $;]
54: [extension $;
55: incr T, set string T5 $;]
56: [room $;
57: incr T, set string T6 $;]
58: [$;
59: incr T,
60: set string T\nT $;])
61: |comment<summary: author (name, initials, location, department, extension, room for title box and coversheet)>
62:
63: |associate(document;
64: incr D, clear T,
65: clear string T1 T2 T3;
66:
67: store string S\nD T1,
68: store string F\nD T2,
69: store string W\nD T3;
70:
71: [number $;
72: incr T, set string T1 $;]
73: [file_case $;
74: incr T, set string T2 $;]
75: [work_program $;
76: incr T, set string T3 $;]
77: [$;
78: incr T,
79: set string T\nT $;])
80: |comment<summary: document (number, file_case, work_program for title box and coversheet)>
81:
82: |environment(title;
83: divert.input on TI;)
84: |comment<summary: title (title of document for title box and coversheet)>
85:
86: |environment(date;
87: divert.string DT;)
88: |comment<summary: date (date of tm for title box and coversheet)>
89:
90: |environment(abstract;
91: divert.input on AS;
92:
93: sawabstract on)
94: |comment<summary: abstract (abstract for coversheet)>
95:
96: |environment(keywords;
97: divert.input on KW;
98:
99: sawkeywords on)
100: |comment<summary: keywords (keywords for cover sheet)>
101:
102: |environment(titlebox;
103: ;
104:
105: new.page, indent.line +4.375i, string LO,
106: blank.lines 2, size -2, remember P0,
107: page.offset -.5i, text "subject:", new.line,
108: return P0, indent +4.875i, text "date:", blank.lines,
109: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
110: line.length -3i, font bold, return P0, fill off,
111: macro TI, fill on, line.length +3i, new.line,
112: size -1,
113: |for i in 1 2 3 4 5 6 7 8 9 [
114: if begin "\nD>=$i",
115: new.line, text "Work Program ", string W$i,
116: text " File Case ", string F$i,
117: if end,
118: ]
119: size +1,
120: return P0, indent +4.75i, line.length +3i,
121: string DT,
122: |for i in 1 2 3 4 5 6 7 8 9 [
123: if begin "\nA>=$i",
124: blank.lines,
125: string A$i, new.line,
126: string L$i, text " ",
127: string D$i, new.line,
128: string R$i, text " ",
129: string E$i,
130: if end,
131: ]
132: line.length -3i, spacing on, blank.lines, fill off,
133: string S1, fill on, indent -4.75i, blank.lines 3,
134: center on, font roman, text italics "TECHNICAL MEMORANDUM",
135: center off, minimum.lines 2)
136: |comment<summary: titlebox (produce title box here)>
137:
138:
139: |environment(titlebox;
140: minimum.lines 2.75i;)
141: |comment<summary: titlebox (produce title box here)>
142:
143: |environment(:document;
144: clear A D,
145: line.length 5.25i,
146: page.length 10.625i,
147: inline off, size 12, inline on, space 14, reference.option rp;
148:
149: clear string Ts)
150:
151: |comment<the above `clear string Ts' and the ` global.h'
152: are a kludge to fix a problem troff has with files that don't end in \n>
153:
154: |environment(:document_save;
155: ;)
156:
157: |environment(:document_restore;
158: ;)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.