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

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.