Return to coversheet.m CVS log

Up to [Research Unix] / researchv8dc / cmd / monk / db

Annotation of researchv8dc/cmd/monk/db/coversheet.m, revision 1.1

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.