Return to titlebox.m CVS log

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

Annotation of researchv10no/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, 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, 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: 
        !            60:        sawabstract on)
        !            61:        |comment<summary: abstract (abstract for coversheet)>
        !            62: 
        !            63: |environment(keywords;
        !            64:        divert.input on keyword_string;
        !            65: 
        !            66:        sawkeywords on)
        !            67:        |comment<summary: keywords (keywords for cover sheet)>
        !            68: 
        !            69: |environment(titlebox;
        !            70:        ;
        !            71: 
        !            72:        new.page, indent.line +4.375i, string att_logo,
        !            73:        blank.lines 2, size -2, remember position0,
        !            74:        page.offset -.5i, text "subject:", new.line,
        !            75:        return position0, indent +4.875i, text "date:", blank.lines,
        !            76:        text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
        !            77:        line.length -3i, font bold, return position0, fill off,
        !            78:        macro title_string, fill on, line.length +3i, new.line,
        !            79:        size -1,
        !            80: |for i in 1 2 3 4 5 6 7 8 9 [
        !            81:        if begin GE(document_counter, $i),
        !            82:                new.line, text "Work Program ", string work_program_array[$i],
        !            83:                text " File Case ", string file_case_array[$i],
        !            84:        if end,
        !            85: ]
        !            86:        size +1,
        !            87:        return position0, indent +4.75i, line.length +3i,
        !            88:        string date_string,
        !            89: |for i in 1 2 3 4 5 6 7 8 9 [
        !            90:        if begin GE(author_counter, $i),
        !            91:                blank.lines,
        !            92:                string author_array[$i], new.line,
        !            93:                string location_array[$i], text " ",
        !            94:                string department_array[$i], new.line,
        !            95:                string room_array[$i], text " ",
        !            96:                string extension_array[$i],
        !            97:        if end,
        !            98: ]
        !            99:        line.length -3i, spacing on, blank.lines, fill off,
        !           100:        string document_array[1], fill on, indent -4.75i, blank.lines 3,
        !           101:        center on, font roman, text italics "TECHNICAL MEMORANDUM",
        !           102:        center off, minimum.lines 2)
        !           103:        |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.