![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to memo 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 memo 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: |associate(author;
32: incr A, clear T,
33: clear string T1 T2 T3
34: T4 T5 T6;
35:
36: store string A\nA T1,
37: store string I\nA T2,
38: store string L\nA T3,
39: store string D\nA T4,
40: store string E\nA T5,
41: store string R\nA T6;
42:
43: [name $;
44: incr T, set string T1 $;]
45: [initials $;
46: incr T, set string T2 $;]
47: [location $;
48: incr T, set string T3 $;]
49: [department $;
50: incr T, set string T4 $;]
51: [extension $;
52: incr T, set string T5 $;]
53: [room $;
54: incr T, set string T6 $;]
55: [$;
56: incr T,
57: set string T\nT $;])
58: |comment<summary: author (name, initials, location, department, extension, room for title box and coversheet)>
59:
60: |associate(document;
61: incr D, clear T,
62: clear string T1 T2 T3;
63:
64: store string S\nD T1,
65: store string F\nD T2,
66: store string W\nD T3;
67:
68: [number $;
69: incr T, set string T1 $;]
70: [file_case $;
71: incr T, set string T2 $;]
72: [work_program $;
73: incr T, set string T3 $;]
74: [$;
75: incr T,
76: set string T\nT $;])
77: |comment<summary: document (number, file_case, work_program for title box and coversheet)>
78:
79: |environment(title;
80: divert.input on TI;)
81: |comment<summary: title (title of document for title box and coversheet)>
82:
83: |environment(date;
84: divert.string DT;)
85: |comment<summary: date (date of tm for title box and coversheet)>
86:
87: |environment(abstract;
88: divert.input on AS;
89:
90: sawabstract on)
91: |comment<summary: abstract (abstract for coversheet)>
92:
93: |environment(keywords;
94: divert.input on KW;
95:
96: sawkeywords on)
97: |comment<summary: keywords (keywords for cover sheet)>
98:
99: |environment(titlebox;
100: ;
101:
102: new.page, indent.line +4.375i, string LO,
103: blank.lines 2, size -2, remember P0,
104: page.offset -.5i, text "subject:", new.line,
105: return P0, indent +4.875i, text "date:", blank.lines,
106: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
107: line.length -3i, font bold, return P0, fill off,
108: macro TI, fill on, line.length +3i, new.line,
109: size -1,
110: |for i in 1 2 3 4 5 6 7 8 9 [
111: if begin "\nD>=$i",
112: new.line, text "Work Program ", string W$i,
113: text " File Case ", string F$i,
114: if end,
115: ]
116: size +1,
117: return P0, indent +4.75i, line.length +3i,
118: string DT,
119: |for i in 1 2 3 4 5 6 7 8 9 [
120: if begin "\nA>=$i",
121: blank.lines,
122: string A$i, new.line,
123: string L$i, text " ",
124: string D$i, new.line,
125: string R$i, text " ",
126: string E$i,
127: if end,
128: ]
129: line.length -3i, spacing on, blank.lines, fill off,
130: string S1, fill on, indent -4.75i, blank.lines 3,
131: center on, font roman, text italics "TECHNICAL MEMORANDUM",
132: center off, minimum.lines 2)
133: |comment<summary: titlebox (produce title box here)>
134:
135:
136: |environment(titlebox;
137: ;
138:
139: new.page, indent.line +4.375i, string LO,
140: blank.lines 2, size -2, remember P0,
141: page.offset -.5i, text "subject:", new.line,
142: return P0, indent +4.875i, text "date:", blank.lines,
143: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
144: line.length -3i, font bold, return P0, fill off,
145: macro TI, fill on, line.length +3i, new.line,
146: size -1,
147: |for i in 1 2 3 4 5 6 7 8 9 [
148: if begin "\nD>=$i",
149: new.line, text "Work Program ", string W$i,
150: text " File Case ", string F$i,
151: if end,
152: ]
153: size +1,
154: return P0, indent +4.75i, line.length +3i,
155: string DT,
156: |for i in 1 2 3 4 5 6 7 8 9 [
157: if begin "\nA>=$i",
158: blank.lines,
159: string A$i, new.line,
160: string L$i, text " ",
161: string D$i, new.line,
162: string R$i, text " ",
163: string E$i,
164: if end,
165: ]
166: line.length -3i, spacing on, blank.lines, fill off,
167: string S1, fill on, indent -4.75i,
168: minimum.lines, inline off, font roman, inline on)
169: |comment<summary: titlebox (produce title box here)>
170:
171: |environment(signature;
172: here on, minimum.lines 1, indent +30, line.length +3i,
173: |for i in 1 2 3 4 5 6 7 8 9 [
174: if begin "\nA>=$i",
175: blank.lines 3,
176: string bold A$i,
177: if end,
178: ]
179: line.length -3i, indent -30, blank.lines -1;
180:
181: minimum.lines 3)
182: |comment<summary: signature (signatures and typing credits)>
183:
184: |environment(:document;
185: clear A D;)
186:
187: |environment(:document_save;
188: ;)
189:
190: |environment(:document_restore;
191: ;)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.