![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to model 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 model 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: |environment(reference_placement;
27: |ifvalue sawreference on [
28: minimum.lines 2, protect,
29: set string Ts "REFERENCES",
30: inline off, size +1, center on,
31: font bold, string Ts, font roman,
32: center off, size -1, inline on,
33: minimum.lines,
34: clear string Rs,
35: contents section 1 Rs Ts,
36: reference.placement
37: ];
38:
39: sawreference off)
40: |comment<summary: reference_placement (produce references here)>
41:
42:
43:
44:
45:
46:
47:
48:
49:
50: |associate(author;
51: incr A, clear T,
52: clear string T1 T2 T3
53: T4 T5 T6;
54:
55: store string A\nA T1,
56: store string I\nA T2,
57: store string L\nA T3,
58: store string D\nA T4,
59: store string E\nA T5,
60: store string R\nA T6;
61:
62: [name $;
63: incr T, set string T1 $;]
64: [initials $;
65: incr T, set string T2 $;]
66: [location $;
67: incr T, set string T3 $;]
68: [department $;
69: incr T, set string T4 $;]
70: [extension $;
71: incr T, set string T5 $;]
72: [room $;
73: incr T, set string T6 $;]
74: [$;
75: incr T,
76: set string T\nT $;])
77: |comment<summary: author (name, initials, location, department, extension, room for title box and coversheet)>
78:
79: |associate(document;
80: incr D, clear T,
81: clear string T1 T2 T3;
82:
83: store string S\nD T1,
84: store string F\nD T2,
85: store string W\nD T3;
86:
87: [number $;
88: incr T, set string T1 $;]
89: [file_case $;
90: incr T, set string T2 $;]
91: [work_program $;
92: incr T, set string T3 $;]
93: [$;
94: incr T,
95: set string T\nT $;])
96: |comment<summary: document (number, file_case, work_program for title box and coversheet)>
97:
98: |environment(title;
99: divert.input on TI;)
100: |comment<summary: title (title of document for title box and coversheet)>
101:
102: |environment(date;
103: divert.string DT;)
104: |comment<summary: date (date of tm for title box and coversheet)>
105:
106: |environment(abstract;
107: divert.input on AS;
108:
109: sawabstract on)
110: |comment<summary: abstract (abstract for coversheet)>
111:
112: |environment(keywords;
113: divert.input on KW;
114:
115: sawkeywords on)
116: |comment<summary: keywords (keywords for cover sheet)>
117:
118: |environment(titlebox;
119: ;
120:
121: new.page, indent.line +4.375i, string LO,
122: blank.lines 2, size -2, remember P0,
123: page.offset -.5i, text "subject:", new.line,
124: return P0, indent +4.875i, text "date:", blank.lines,
125: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
126: line.length -3i, font bold, return P0, fill off,
127: macro TI, fill on, line.length +3i, new.line,
128: size -1,
129: |for i in 1 2 3 4 5 6 7 8 9 [
130: if begin "\nD>=$i",
131: new.line, text "Work Program ", string W$i,
132: text " File Case ", string F$i,
133: if end,
134: ]
135: size +1,
136: return P0, indent +4.75i, line.length +3i,
137: string DT,
138: |for i in 1 2 3 4 5 6 7 8 9 [
139: if begin "\nA>=$i",
140: blank.lines,
141: string A$i, new.line,
142: string L$i, text " ",
143: string D$i, new.line,
144: string R$i, text " ",
145: string E$i,
146: if end,
147: ]
148: line.length -3i, spacing on, blank.lines, fill off,
149: string S1, fill on, indent -4.75i, blank.lines 3,
150: center on, font roman, text italics "TECHNICAL MEMORANDUM",
151: center off, minimum.lines 2)
152: |comment<summary: titlebox (produce title box here)>
153:
154:
155: |environment(titlebox;
156: ;
157:
158: new.page, fill off, inline off, size +2, space +2, font bold, center on,
159: macro TI, font roman, size -2, space -2, SPACE, inline on, fill on,
160: blank.lines,
161: |for i in 1 2 3 4 5 6 7 8 9 [
162: if begin "\nA>=$i",
163: new.line, size +1, font italics,
164: string A$i, font roman, size -1,
165: if begin "!@\*(L$i@\*(L$i+1@",
166: if begin "@\*(L$i@BC@",
167: text "Boston College", new.line,
168: text "Chestnut Hill, MA 02167", new.line,
169: if end,
170: if begin "@\*(L$i@CM@",
171: text "Carnegie-Mellon University", new.line,
172: text "Electrical and Computer Engineering Department", new.line,
173: text "Pittsburgh, PA 15213", new.line,
174: if end,
175: if begin "@\*(L$i@SDSU@",
176: text "San Diego State University", new.line,
177: text "San Diego, CA 92000", new.line,
178: if end,
179: if begin "@\*(L$i@UA@",
180: text "University of Antwerp", new.line,
181: text "B-2610 Antwerp, Belgium", new.line,
182: if end,
183: if begin "@\*(L$i@UCB@",
184: text "University of California", new.line,
185: text "Berkeley, CA 94720", new.line,
186: if end,
187: if begin "@\*(L$i@UNL@",
188: text "University of Nebraska", new.line,
189: text "Lincoln, NE 68588", new.line,
190: if end,
191: if begin "@\*(L$i@AK@",
192: text "AT&T Bell Laboratories", new.line,
193: text "Norcross, GA 30071", new.line,
194: if end,
195: if begin "@\*(L$i@AL@",
196: text "AT&T Bell Laboratories", new.line,
197: text "Allentown, PA 18103", new.line,
198: if end,
199: if begin "@\*(L$i@ALC@",
200: text "AT&T Bell Laboratories", new.line,
201: text "Allentown, PA 18103-6265", new.line,
202: if end,
203: if begin "@\*(L$i@AN@",
204: text "AT&T Bell Laboratories", new.line,
205: text "Andover, MA 01810", new.line,
206: if end,
207: if begin "@\*(L$i@CB@",
208: text "AT&T Bell Laboratories", new.line,
209: text "Columbus, OH 43213", new.line,
210: if end,
211: if begin "@\*(L$i@CH@",
212: text "AT&T Bell Laboratories", new.line,
213: text "Chester, NJ 07930", new.line,
214: if end,
215: if begin "@\*(L$i@DR@",
216: text "AT&T Bell Laboratories", new.line,
217: text "Denver, CO 80234", new.line,
218: if end,
219: if begin "@\*(L$i@HL@",
220: text "AT&T Bell Laboratories", new.line,
221: text "Short Hills, NJ 07078-0905", new.line,
222: if end,
223: if begin "@\*(L$i@HO@",
224: text "AT&T Bell Laboratories", new.line,
225: text "Holmdel, NJ 07733-1988", new.line,
226: if end,
227: if begin "@\*(L$i@HOH@",
228: text "AT&T Bell Laboratories", new.line,
229: text "Holmdel, NJ 07733-0400", new.line,
230: if end,
231: if begin "@\*(L$i@HR@",
232: text "AT&T Bell Laboratories", new.line,
233: text "Middletown, NJ 07748-3052", new.line,
234: if end,
235: if begin "@\*(L$i@IH@",
236: text "AT&T Bell Laboratories", new.line,
237: text "Naperville, IL 60566-7033", new.line,
238: if end,
239: if begin "@\*(L$i@INH@",
240: text "AT&T Bell Laboratories", new.line,
241: text "Indianapolis, IN 46206", new.line,
242: if end,
243: if begin "@\*(L$i@INP@",
244: text "AT&T Bell Laboratories", new.line,
245: text "Naperville, IL 60566-7050", new.line,
246: if end,
247: if begin "@\*(L$i@KD@",
248: text "AT&T Bell Laboratories", new.line,
249: text "Piscataway, NJ 08854", new.line,
250: if end,
251: if begin "@\*(L$i@LC@",
252: text "AT&T Bell Laboratories", new.line,
253: text "Warren, NJ 07060", new.line,
254: if end,
255: if begin "@\*(L$i@LZ@",
256: text "AT&T Bell Laboratories", new.line,
257: text "Lincroft, NJ 07738-1526", new.line,
258: if end,
259: if begin "@\*(L$i@MH@",
260: text "AT&T Bell Laboratories", new.line,
261: text "Murray Hill, NJ 07974-2070", new.line,
262: if end,
263: if begin "@\*(L$i@MO@",
264: text "AT&T Bell Laboratories", new.line,
265: text "Morristown, NJ 07960-4499", new.line,
266: if end,
267: if begin "@\*(L$i@MT@",
268: text "AT&T Bell Laboratories", new.line,
269: text "Middletown, NJ 07748-4801", new.line,
270: if end,
271: if begin "@\*(L$i@MV@",
272: text "AT&T Bell Laboratories", new.line,
273: text "North Andover, MA 01845", new.line,
274: if end,
275: if begin "@\*(L$i@PK@",
276: text "AT&T Bell Laboratories", new.line,
277: text "Parsippany, NJ 07054-11794", new.line,
278: if end,
279: if begin "@\*(L$i@RD@",
280: text "AT&T Bell Laboratories", new.line,
281: text "Reading, PA 19604", new.line,
282: if end,
283: if begin "@\*(L$i@SF@",
284: text "AT&T Bell Laboratories", new.line,
285: text "Summit, NJ 07901-1444", new.line,
286: if end,
287: if begin "@\*(L$i@WB@",
288: text "AT&T Bell Laboratories", new.line,
289: text "West Long Branch, NJ 07764-1394", new.line,
290: if end,
291: if begin "@\*(L$i@WH@",
292: text "AT&T Bell Laboratories", new.line,
293: text "Whippany, NJ 07981-0903", new.line,
294: if end,
295: if begin "@\*(L$i@WI@",
296: text "AT&T Bell Laboratories", new.line,
297: text "Ward Hill, MA 01830", new.line,
298: if end,
299: if end,
300: if end,
301: ]
302: center off,
303:
304: new.page,
305:
306: |ifvalue sawabstract on {
307: center on, size +1, text italics "ABSTRACT",
308: size -1, center off, minimum.lines, paragraph, macro AS,
309: minimum.lines,
310: }
311:
312: |ifvalue sawkeywords on {
313: font italics, text "Keywords:", macro KW, font roman,
314: }
315: minimum.lines .5i)
316: |comment<summary: titlebox (produce title box here)>
317:
318: |environment(:document;
319: clear A D,
320: format.type model,
321: line.length 4.25i,
322: page.length 11.0i,
323: inline off, size 12, inline on, space 14, reference.option rp;)
324:
325: |environment(:document_save;
326: ;)
327:
328: |environment(:document_restore;
329: ;)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.