Return to memo.m CVS log

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

Annotation of researchv10no/cmd/monk/db/memo.m, revision 1.1.1.1

1.1       root        1: |include(macro.h)
                      2: 
                      3: |include(titlebox.h)
                      4: |include(titlebox.m)
                      5: 
                      6: |environment(titlebox;
                      7:        ;
                      8: 
                      9:        new.page, indent.line +4.375i, string att_logo,
                     10:        blank.lines 2, size -2, remember position0,
                     11:        page.offset -.5i, text "subject:", new.line,
                     12:        return position0, indent +4.875i, text "date:", blank.lines,
                     13:        text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
                     14:        line.length -3i, font bold, return position0, fill off,
                     15:        macro title_string, fill on, line.length +3i, new.line,
                     16:        size -1,
                     17: |for i in 1 2 3 4 5 6 7 8 9 [
                     18:        if begin GE(document_counter, $i),
                     19:                new.line, text "Work Program ", string work_program_array[$i],
                     20:                text " File Case ", string file_case_array[$i],
                     21:        if end,
                     22: ]
                     23:        size +1,
                     24:        return position0, indent +4.75i, line.length +3i,
                     25:        string date_string,
                     26: |for i in 1 2 3 4 5 6 7 8 9 [
                     27:        if begin GE(author_counter, $i),
                     28:                blank.lines,
                     29:                string author_array[$i], new.line,
                     30:                string location_array[$i], text " ",
                     31:                string department_array[$i], new.line,
                     32:                string room_array[$i], text " ",
                     33:                string extension_array[$i],
                     34:        if end,
                     35: ]
                     36:        line.length -3i, spacing on, blank.lines, fill off,
                     37:        string document_array[1], fill on, indent -4.75i,
                     38:        minimum.lines, inline off, font roman, inline on)
                     39:        |comment<summary: titlebox (produce title box here)>
                     40: 
                     41: |environment(signature;
                     42:        here on, minimum.lines 1, indent +30, line.length +3i,
                     43: |for i in 1 2 3 4 5 6 7 8 9 [
                     44:        if begin GE(author_counter, $i),
                     45:                blank.lines 3,
                     46:                string bold author_array[$i],
                     47:        if end,
                     48: ]
                     49:        line.length -3i, indent -30, blank.lines -1;
                     50: 
                     51:        minimum.lines 3)
                     52:        |comment<summary: signature (signatures and typing credits)>
                     53: 
                     54: |environment(:document;
                     55:        clear author_counter document_counter;)
                     56: 
                     57: |environment(:document_save;
                     58:        ;)
                     59: 
                     60: |environment(:document_restore;
                     61:        ;)

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