![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to coversheet.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / monk / db|
Return to coversheet.m CVS log | Up to [Research Unix] / researchv8dc / cmd / monk / db |
1.1 root 1: |associate(mercury;
2: clear temporary_counter, clear string temporary_array(1) temporary_array(2)
3: temporary_array(3) temporary_array(4) temporary_array(5) temporary_array(6)
4: temporary_array(7);
5:
6: if begin equal_string(temporary_array(1), yes),
7: incr mercury_counter,
8: set string mercury_array(mercury_counter)
9: "CHM - Chemistry and Materials",
10: if end,
11: if begin equal_string(temporary_array(2), yes),
12: incr mercury_counter, set string mercury_array(mercury_counter)
13: "CMM - Communications",
14: if end,
15: if begin equal_string(temporary_array(3), yes),
16: incr mercury_counter, set string mercury_array(mercury_counter)
17: "CMP - Computing",
18: if end,
19: if begin equal_string(temporary_array(4), yes),
20: incr mercury_counter, set string mercury_array(mercury_counter)
21: "ELC - Electronics",
22: if end,
23: if begin equal_string(temporary_array(5), yes),
24: incr mercury_counter, set string mercury_array(mercury_counter)
25: "LFS - Life Sciences",
26: if end,
27: if begin equal_string(temporary_array(6), yes),
28: incr mercury_counter,
29: set string mercury_array(mercury_counter)
30: "MAS - Mathematics and Statistics",
31: if end,
32: if begin equal_string(temporary_array(7), yes),
33: incr mercury_counter, set string mercury_array(mercury_counter)
34: "PHY - Physics",
35: if end;
36:
37: [chm;
38: incr temporary_counter, incr mercury_counter,
39: set string mercury_array(mercury_counter)
40: "CHM - Chemistry and Materials";]
41: [cmm;
42: incr temporary_counter, incr mercury_counter,
43: set string mercury_array(mercury_counter) "CMM - Communications";]
44: [cmp;
45: incr temporary_counter, incr mercury_counter,
46: set string mercury_array(mercury_counter) "CMP - Computing";]
47: [elc;
48: incr temporary_counter, incr mercury_counter,
49: set string mercury_array(mercury_counter) "ELC - Electronics";]
50: [lfs;
51: incr temporary_counter, incr mercury_counter,
52: set string mercury_array(mercury_counter) "LFS - Life Sciences";]
53: [mas;
54: incr temporary_counter, incr mercury_counter,
55: set string mercury_array(mercury_counter)
56: "MAS - Mathematics and Statistics";]
57: [phy;
58: incr temporary_counter, incr mercury_counter,
59: set string mercury_array(mercury_counter) "PHY - Physics";]
60: [yes;
61: incr temporary_counter,
62: set string temporary_array(temporary_counter) yes;]
63: [no;
64: incr temporary_counter,
65: set string temporary_array(temporary_counter) no;])
66: |comment<summary: mercury (chm, cmm, cmp, elc, lfs, mas, and phy mercury distribution for cover sheet)>
67:
68: |associate(proprietary_class;;;
69: [yes; set string proprietary_string yes;]
70: [no; set string proprietary_string no;])
71: |comment<summary: proprietary_class (proprietary classification for cover sheet)>
72:
73: |associate(government_security;;;
74: [yes; set string government_string yes;]
75: [no; set string government_string no;])
76: |comment<summary: government_security (government security clearance for cover sheet)>
77:
78: |associate(earlier;
79: clear temporary_counter, clear string temporary_array(1)
80: temporary_array(2) temporary_array(3) temporary_array(4);
81:
82: store string earlier_document_number_string temporary_array(1),
83: store string earlier_file_case_number_string temporary_array(2),
84: store string earlier_author_string temporary_array(3),
85: store string earlier_date_string temporary_array(4);
86:
87: [document_number $;
88: incr temporary_counter, set string temporary_array(1) $;]
89: [file_case_number $;
90: incr temporary_counter, set string temporary_array(2) $;]
91: [author $;
92: incr temporary_counter, set string temporary_array(3) $;]
93: [date $;
94: incr temporary_counter, set string temporary_array(4) $;]
95: [$;
96: incr temporary_counter,
97: set string temporary_array(temporary_counter) $;])
98: |comment<summary: earlier (replacing earlier document_number, file_case_number, author and date for cover sheet)>
99:
100: |associate(att;
101: clear temporary_counter, clear string temporary_array(1) temporary_array(2);
102:
103: store string att_networking_string temporary_array(1),
104: store string att_release_string temporary_array(2);
105:
106: [is_networking yes;
107: incr temporary_counter, set string temporary_array(1) yes;]
108: [is_networking no;
109: incr temporary_counter, set string temporary_array(1) no;]
110: [is_release yes;
111: incr temporary_counter, set string temporary_array(2) yes;]
112: [is_release no;
113: incr temporary_counter, set string temporary_array(2) no;]
114: [yes;
115: incr temporary_counter,
116: set string temporary_array(temporary_counter) yes;]
117: [no;
118: incr temporary_counter,
119: set string temporary_array(temporary_counter) no;])
120: |comment<summary: att (att is_networking and is_release for cover sheet)>
121:
122: |environment(director_name;
123: divert.string director_string;)
124: |comment<summary: director_name (director's name for cover sheet)>
125:
126: |environment(distribute_complete_memo;
127: divert.input on complete_memo_string;)
128: |comment<summary: distribute_complete_memo (distribution list for complete memo for cover sheet)>
129:
130: |environment(distribute_cover_sheet;
131: divert.input on cover_sheet_string;)
132: |comment<summary: distribute_cover_sheet (distribution list for cover sheet for cover sheet)>
133:
134: |associate(totals;
135: clear temporary_counter,
136: store temporary_array(1) page_counter,
137: set temporary_array(2) 0,
138: store temporary_array(3) figure_counter,
139: store temporary_array(4) table_counter,
140: store temporary_array(5) reference_counter;
141:
142: store text_page_counter temporary_array(1),
143: store other_page_counter temporary_array(2),
144: store figure_counter temporary_array(3),
145: store table_counter temporary_array(4),
146: store reference_counter temporary_array(5);
147:
148: [text $;
149: incr temporary_counter, set temporary_array(1) $;]
150: [other $;
151: incr temporary_counter, set temporary_array(2) $;]
152: [figures $;
153: incr temporary_counter, set temporary_array(3) $;]
154: [tables $;
155: incr temporary_counter, set temporary_array(4) $;]
156: [references $;
157: incr temporary_counter, set temporary_array(5) $;]
158: [$;
159: incr temporary_counter, set temporary_array(temporary_counter) $;])
160: |comment<summary: totals (text, other, figures, tables, references counts for cover sheet)>
161:
162: |environment(cover_sheet;
163: clear string page_header, new.page,
164: line.length 7.5i, page.offset .3i, font.family helvetica,
165: cs_heading_page1,
166: cs_title,
167: cs_authors,
168: cs_numbers,
169: cs_keywords,
170: cs_mercury,
171: cs_abstract_part1,
172: cs_footer_page1,
173: cs_abstract_part2,
174: cs_heading_page2,
175: cs_distribution_list,
176: cs_spacing,
177: cs_proprietary,
178: cs_government,
179: cs_att,
180: cs_other_companies,
181: cs_signatures,
182: cs_earlier,
183: cs_footer_page2;)
184: |comment<summary: cover_sheet (produce the coversheet here)>
185:
186: |environment(cs_heading_page1;
187: spacing on, size 16, font bold, goto 0.2i,
188: text "AT&T Bell Laboratories", horizontal.motion 2.35i,
189: text "Document Cover Sheet", blank.lines 0.1i, indent.line 4.4i,
190: text "for Technical Memorandum"; thick.line)
191:
192: |environment(cs_title;
193: new.line, remember position0, font bold,
194: text "Title:", horizontal.motion 5.5i,
195: text "Author's Date:", font,
196: return position0,
197: indent .5i, line.length 5.0i,
198: macro title_string,
199: line.length 7.5i, indent,
200: return position0, blank.lines, indent.line 6i,
201: string date_string, new.line; blank.lines -0.1i, thick.line)
202:
203: |environment(cs_authors;
204: tab.stops 1.5i 4.25i 5.5i 6.75i, font bold,
205: if else gt(author_counter, 1),
206: set string plural_string "s",
207: if else,
208: clear string plural_string,
209: tab, text "Author", string plural_string,
210: tab, text "Location", tab, text "Ext.",
211: tab, text "Dept.",
212: font, tab.stops 4.2i 4.5i 5.5i 6.7i,
213: |for i in 1 2 3 4 5 6 7 8 9 [
214: if begin ge(author_counter, $i),
215: new.line, string author_array($i), tab,
216: string location_array($i), text " ", string room_array($i), tab,
217: string extension_array($i), tab, string department_array($i),
218: if end,
219: ]
220: new.line; blank.lines -0.1i, thick.line)
221:
222: |environment(cs_numbers;
223: tab.stops 0.9i 3.4i 5.65i, font bold,
224: if else gt(document_counter, 1),
225: set string plural_string "s",
226: if else,
227: clear string plural_string,
228: tab, text "Document No", string plural_string, text ".",
229: tab, text "Filing Case No", string plural_string, text ".",
230: tab, text "Work Program No", string plural_string, text ".",
231: font, tab.stops 0.8i 3.5i 5.75i,
232: |for i in 1 2 3 4 5 6 7 8 9 [
233: if begin ge(document_counter, $i),
234: new.line, tab, string document_array($i),
235: tab, string file_case_array($i), tab, string work_program_array($i),
236: if end,
237: ]
238: new.line; blank.lines -0.1i, thick.line)
239:
240: |environment(cs_keywords;
241: temporary.font bold "Keywords",
242: blank.lines 0.1i, indent.line .2i, adjust off,
243: macro keyword_string, new.line; blank.lines -0.1i, thick.line)
244:
245: |environment(cs_mercury;
246: tab.stops 3.4i 5.65i,
247: temporary.font bold "MERCURY Announcement Bulletin Sections",
248: blank.lines 0.1i, indent .9i, font.size 8,
249: |for i in 1 4 7 [
250: if begin ge(mercury_counter, $i),
251: set i_plus_one $i+1,
252: set i_plus_two $i+2,
253: string mercury_array($i), tab,
254: string mercury_array(i_plus_one), tab,
255: string mercury_array(i_plus_two),
256: if end,
257: ]
258: new.line; blank.lines -0.1i, thick.line)
259:
260: |environment(cs_abstract_part1;
261: temporary.font bold "ABSTRACT", new.line,
262: remember position0;)
263:
264: |environment(cs_footer_page1;
265: goto 8.375i,
266: remember position1,
267: thick.line,
268:
269: font.size 8, add total_page_counter text_page_counter other_page_counter,
270: text "Pages of Text ", size +2, number text_page_counter, size -2, text " ",
271: text "Other Pages ", size +2, number other_page_counter, size -2, text " ",
272: text "Total ", size +2, number total_page_counter, size -2, new.line,
273: text "No. Figs. ", size +2, number figure_counter, size -2, text " ",
274: text "No. Tables ", size +2, number table_counter, size -2, text " ",
275: text "No. Refs. ", size +2, number reference_counter, size -2, font.size,
276:
277: return position1, blank.lines 1i,
278: if begin equal_string(proprietary_string, yes),
279: indent .5i,
280: temporary.font italics
281: " AT&T BELL LABORATORIES \(em PROPRIETARY",
282: new.line,
283: text "Not for use or disclosure outside AT&T Bell Laboratories",
284: new.line,
285: text " except by written approval of the Director of the",
286: new.line,
287: text " originating organization (see G.E.I. 2.2).",
288: new.line, indent,
289: if end,
290:
291: return position1, blank.lines .75i, indent.line 5.25i,
292: temporary.font bold "Mailing Label";)
293:
294: |environment(cs_abstract_part2;
295: return position0, indent .2i, line.length 7i,
296: macro abstract_string; line.length 7.5i)
297:
298: |environment(cs_heading_page2;
299: new.page, spacing on, goto 0.2i,
300:
301: font bold,
302: text "Initial Distribution Specifications", horizontal.motion 3.0i,
303: string document_array(1), new.line; blank.lines -0.1i, thick.line)
304:
305: |environment(cs_distribution_list;
306: font bold, horizontal.motion 1.25i,
307: text "Complete Copy", horizontal.motion 2.75i, text "Cover Sheet Only",
308: font, new.line, remember position0, fill off,
309: macro complete_memo_string, return position0, indent 4i,
310: macro cover_sheet_string;)
311:
312: |environment(cs_spacing;
313: goto 1.50i,
314:
315: if unequal_string(proprietary_string, yes),
316: blank.lines 1.0i,
317: if unequal_string(government_string, yes),
318: blank.lines 0.35i,
319: if le(author_counter, 1),
320: blank.lines 0.5i,
321: if le(author_counter, 4),
322: blank.lines 0.5i,
323: if le(author_counter, 7),
324: blank.lines 0.5i,
325: if null_strings(earlier_document_number_string,
326: earlier_file_case_number_string, earlier_author_string,
327: earlier_date_string),
328: blank.lines 0.65i;
329: thick.line)
330:
331: |environment(cs_proprietary;
332: if begin equal_string(proprietary_string, yes),
333: temporary.font bold "Proprietary Classification", blank.lines .05i,
334: text "This document will be be classified",
335: text " AT&T BELL LABORATORIES \(em PROPRIETARY.",
336: blank.lines 0.2i, indent.line 1.0i,
337: temporary.font bold "Approval: ", line 3.5i, indent.line 2.0i,
338: string director_string, text ", Director",
339: blank.lines -.1i, thick.line,
340: if end;)
341:
342: |environment(cs_government;
343: if begin equal_string(government_string, yes),
344: tab.stops 0.25i, box x, tab,
345: temporary.font bold "Government Security Classified",
346: blank.lines -0.05i, thick.line,
347: if end;)
348:
349: |environment(cs_att;
350: temporary.font bold "AT&T-IS Distribution", new.line,
351: text "To expedite the movement of documents to AT&T-IS, ",
352: text "Director-level action is requested ",
353: text "regarding items (1) and (2) below, when the document is first ",
354: text "distributed. In those cases where approval is not provided on ",
355: text "the cover sheet, approval will be sought when a request is ",
356: text "received from AT&T-IS, with consequent delay in filling the request.",
357: blank.lines 0.1i,
358: text "Indicate whether the document:", blank.lines 0.1i, indent .18i,
359: indent.line -.18i,
360: temporary.font bold "(1) ",
361: text "Contains network planning information, customer proprietary ",
362: text "information, or nongeneric software for use in AT&T-IS ",
363: text "products or services that AT&T-BL may not furnish to AT&T-IS.",
364: if else begin equal_string(att_networking_string, yes),
365: text " ", box x, text " Yes", horizontal.motion .4i,
366: box empty, text " No",
367: if end,
368: if else begin,
369: text " ", box empty, text " Yes", horizontal.motion .4i,
370: box x, text " No",
371: if end,
372: blank.lines 0.1i,
373: indent.line -.18i,
374: temporary.font bold "(2) ",
375: text "May be supplied on request to AT&T-IS R&D organizations.",
376: if else begin equal_string(att_release_string, yes),
377: text " ", box x, text " Yes", horizontal.motion .4i,
378: box empty, text " No",
379: if end,
380: if else begin,
381: text " ", box empty, text " Yes", horizontal.motion .4i,
382: box x, text " No",
383: if end,
384: indent, blank.lines, indent.line 3.25i,
385: temporary.font bold "Approval: ", line 3.5i, indent.line 4.25i,
386: string director_string, text ", Director";
387:
388: blank.lines -0.1i, thick.line)
389:
390: |environment(cs_other_companies;
391: temporary.font bold "Other AT&T Company Distribution", new.line,
392: text "May be supplied on request to other AT&T company requesters.",
393: blank.lines, indent.line 3.25i,
394: temporary.font bold "Approval: ", line 3.5i, indent.line 4.25i,
395: string director_string, text ", Director";
396:
397: blank.lines -0.1i, thick.line)
398:
399: |environment(cs_signatures;
400: if else gt(author_counter, 1),
401: set string plural_string "s",
402: if else,
403: clear string plural_string,
404: font bold,
405: text "Author Signature", string plural_string, font, new.line,
406: |for i in 0 3 6 [
407: tab.stops 2.635i 5.25i,
408: if gt(author_counter, $i),
409: blank.lines 0.1i,
410: if eq(author_counter, ($i+1)),
411: line 2.25i,
412: if begin eq(author_counter, ($i+2)),
413: line 2.25i, tab, line 2.25i,
414: if end,
415: if begin gt(author_counter, ($i+2)),
416: line 2.25i, tab, line 2.25i, tab, line 2.25i,
417: if end,
418: new.line,
419: if begin gt(author_counter, $i),
420: tab.stops 0.25i 2.875i 5.5i,
421: set i_plus_one $i+1,
422: set i_plus_two $i+2,
423: set i_plus_three $i+3,
424: tab, string author_array(i_plus_one),
425: tab, string author_array(i_plus_two),
426: tab, string author_array(i_plus_three),
427: if end,
428: ]
429: ;
430:
431: blank.lines -0.1i, thick.line)
432:
433: |environment(cs_earlier;
434: if begin not_null_strings(earlier_document_number_string,
435: earlier_file_case_number_string,
436: earlier_author_string, earlier_date_string),
437: temporary.font bold
438: "Complete if this document supersedes or amends an earlier one:",
439: new.line,
440: remember position0, blank.lines 0.05i,
441: text "Earlier Document Number ", line 2.6i,
442: text " Author ", line 2.8i,
443: return position0, tab.stops 2.0i 5.0i,
444: tab, string earlier_document_number_string, tab,
445: string earlier_author_string, new.line,
446: remember position0, blank.lines 0.05i,
447: text "Filing Case No. ", line 3.25i, text " Date ", line 2.9i,
448: return position0, tab.stops 1.5i 5.0i,
449: tab, string earlier_file_case_number_string, tab,
450: string earlier_date_string,
451: blank.lines -0.1i, thick.line,
452: if end;)
453:
454: |environment(cs_footer_page2;
455: temporary.font bold "For Use by Recipient of Cover Sheet:", font.size -3,
456: blank.lines 0.05i,
457: remember position0,
458: text " To get a complete copy of this document:",
459: blank.lines 0.1i, line.length 3.5i, indent .1i, indent.line -.1i,
460: text "1 Be sure your correct location is given on the mailing ",
461: text "label on the other side.",
462: new.line, indent.line -.1i,
463: text "2 Fold this sheet in half with this side out.",
464: new.line, indent.line -.1i,
465: text "3 Check the address of your local Internal Technical Document ",
466: text "Service if listed; otherwise, use HO 4F-112. Use no envelope.",
467: new.line, indent.line -.1i,
468: text "4 Indicate whether microfiche or paper copy is desired.",
469: return position0, line.length 7.5i, indent 4i,
470: text "\ Internal Technical Document Service",
471: blank.lines, tab.stops 1i,
472: text "( ) HO 4F-112", tab, text "( ) ALC 1B-102", new.line,
473: text "( ) IH 7K-101", tab, text "( ) MV 1D-40", new.line,
474: text "( ) WH 3E-204", tab, text "( ) CB 1C-338", blank.lines,
475: text "Please send a complete ", size +2, box, size -2,
476: text "\ microfiche ", size +2, box, size -2,
477: text "\ paper copy of this document to the address shown on the ",
478: text "other side. Computing network users may order copies via the ",
479: temporary.font italics "library ",
480: text "system; for information, type ``man library'' after logon.",
481: new.line;)
482:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.