Return to titlebox.m CVS log

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

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

1.1     ! root        1: |associate(author;
        !             2:        incr author_counter, clear temporary_counter,
        !             3:        clear string temporary_array(1) temporary_array(2) temporary_array(3)
        !             4:        temporary_array(4) temporary_array(5) temporary_array(6);
        !             5: 
        !             6:        store string author_array(author_counter) temporary_array(1),
        !             7:        store string initials_array(author_counter) temporary_array(2),
        !             8:        store string location_array(author_counter) temporary_array(3),
        !             9:        store string department_array(author_counter) temporary_array(4),
        !            10:        store string extension_array(author_counter) temporary_array(5),
        !            11:        store string room_array(author_counter) temporary_array(6);
        !            12: 
        !            13:        [name $;
        !            14:                incr temporary_counter, set string temporary_array(1) $;]
        !            15:        [initials $;
        !            16:                incr temporary_counter, set string temporary_array(2) $;]
        !            17:        [location $;
        !            18:                incr temporary_counter, set string temporary_array(3) $;]
        !            19:        [department $;
        !            20:                incr temporary_counter, set string temporary_array(4) $;]
        !            21:        [extension $;
        !            22:                incr temporary_counter, set string temporary_array(5) $;]
        !            23:        [room $;
        !            24:                incr temporary_counter, set string temporary_array(6) $;]
        !            25:        [$;
        !            26:                incr temporary_counter,
        !            27:                set string temporary_array(temporary_counter) $;])
        !            28:        |comment<summary: author (name, initials, location, department, extension, and room for title box and coversheet)>
        !            29: 
        !            30: |associate(document;
        !            31:        incr document_counter, clear temporary_counter,
        !            32:        clear string temporary_array(1) temporary_array(2) temporary_array(3);
        !            33: 
        !            34:        store string document_array(document_counter) temporary_array(1),
        !            35:        store string file_case_array(document_counter) temporary_array(2),
        !            36:        store string work_program_array(document_counter) temporary_array(3);
        !            37: 
        !            38:        [number $;
        !            39:                incr temporary_counter, set string temporary_array(1) $;]
        !            40:        [file_case $;
        !            41:                incr temporary_counter, set string temporary_array(2) $;]
        !            42:        [work_program $;
        !            43:                incr temporary_counter, set string temporary_array(3) $;]
        !            44:        [$;
        !            45:                incr temporary_counter,
        !            46:                set string temporary_array(temporary_counter) $;])
        !            47:        |comment<summary: document (number, file_case, and work_program for title box and coversheet)>
        !            48: 
        !            49: |environment(title;
        !            50:        divert.input on title_string;)
        !            51:        |comment<summary: title (title of document for title box and coversheet)>
        !            52: 
        !            53: |environment(date;
        !            54:        divert.string date_string;)
        !            55:        |comment<summary: date (date of tm for title box and coversheet)>
        !            56: 
        !            57: |environment(abstract;
        !            58:        divert.input on abstract_string;)
        !            59:        |comment<summary: abstract (abstract for coversheet)>
        !            60: 
        !            61: |environment(keywords;
        !            62:        divert.input on keyword_string;)
        !            63:        |comment<summary: keywords (keywords for cover sheet)>
        !            64: 
        !            65: |environment(titlebox;
        !            66:        ;
        !            67: 
        !            68:        new.page, indent.line +4.375i, string att_logo,
        !            69:        blank.lines 2, size -2, remember position0,
        !            70:        page.offset -.5i, text "subject:", new.line,
        !            71:        return position0, indent +4.875i, text "date:", blank.lines,
        !            72:        text "from:", indent, new.line, page.offset, size,
        !            73:        line.length 3i, font bold, return position0, fill off,
        !            74:        macro title_string, fill on, line.length, new.line,
        !            75:        size -1,
        !            76: |for i in 1 2 3 4 5 6 7 8 9 [
        !            77:        if begin ge(document_counter, $i),
        !            78:                new.line, text "Work Program ", string work_program_array($i),
        !            79:                text " File Case ", string file_case_array($i),
        !            80:        if end,
        !            81: ]
        !            82:        size,
        !            83:        return position0, indent +4.75i, string date_string,
        !            84: |for i in 1 2 3 4 5 6 7 8 9 [
        !            85:        if begin ge(author_counter, $i),
        !            86:                blank.lines,
        !            87:                string author_array($i), new.line,
        !            88:                string location_array($i), text " ",
        !            89:                string department_array($i), new.line,
        !            90:                string room_array($i), text " ",
        !            91:                string extension_array($i),
        !            92:        if end,
        !            93: ]
        !            94:        spacing on, blank.lines, fill off,
        !            95:        string document_array(1), fill on, blank.lines 3,
        !            96:        indent, center on, temporary.font italics "TECHNICAL MEMORANDUM",
        !            97:        center off, blank.lines 2, font roman)
        !            98:        |comment<summary: titlebox (produce title box here)>

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.