Return to research.m CVS log

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

Annotation of researchv10dc/cmd/monk/db/research.m, revision 1.1.1.1

1.1       root        1: |include(global.h)
                      2: 
                      3: |include(macro.h)
                      4: 
                      5: |STRING(name_string, N0)
                      6: |STRING(number_string, N1)
                      7: |STRING(range_string, N2)
                      8: |STRING(author_string, N3)
                      9: |STRING(wpn_string, N4)
                     10: 
                     11: |REGISTER(position, P0)
                     12: 
                     13: |associate(department;;;
                     14: 
                     15:        [name $;
                     16:                set string name_string $;]
                     17:        [number $;
                     18:                set string number_string $;])
                     19:        |comment<summary: department (name, number for title box)>
                     20: 
                     21: |associate(date;;;
                     22: 
                     23:        [report $;
                     24:                set string date_string $;]
                     25:        [range $;
                     26:                set string range_string $;])
                     27:        |comment<summary: date (report, range for title box)>
                     28: 
                     29: |associate(author;;;
                     30: 
                     31:        [name $;
                     32:                set string author_string $;]
                     33:        [number $;
                     34:                set string wpn_string $;])
                     35:        |comment<summary: author (name, number for footer and title box)>
                     36: 
                     37: |environment(titlebox;
                     38: 
                     39:        font bold, line.length +.5i, page.offset -.25i,
                     40:        spacing on, goto .5i, blank.lines -1,
                     41:        set string temporary_string "`Research Report`Department ",
                     42:        add string.from.string temporary_string number_string,
                     43:        add string temporary_string "`",
                     44:        add string.from.string temporary_string date_string,
                     45:        add string temporary_string "`",
                     46:        title temporary_string,
                     47: 
                     48:        blank.lines .5,
                     49:        set string temporary_string "`",
                     50:        add string.from.string temporary_string range_string,
                     51:        add string temporary_string "`",
                     52:        add string.from.string temporary_string name_string,
                     53:        add string temporary_string "`\s-1WPN\s+1 ",
                     54:        add string.from.string temporary_string wpn_string,
                     55:        add string temporary_string "`",
                     56:        title temporary_string,
                     57: 
                     58:        page.offset +.25i, line.length -.5i, minimum.lines 1;)
                     59:        |comment<summary: titlebox (title box)>
                     60: 
                     61: |associate(paragraph;
                     62:        minimum.lines .5, clear string temporary_string;;
                     63: 
                     64:        [indented;
                     65:                indent.line 3;]
                     66:        [i;
                     67:                indent.line 3;])
                     68:        |comment<summary: paragraph (i, indented)>
                     69: 
                     70: |associate(p;
                     71:        minimum.lines .5, clear string temporary_string;;
                     72: 
                     73:        [indented;
                     74:                indent.line 3;]
                     75:        [i;
                     76:                indent.line 3;])
                     77:        |comment<summary: p (alias for paragraph)>
                     78: 
                     79: |environment(section;
                     80:        minimum.lines .5, protect, font bold;
                     81: 
                     82:        paragraph)
                     83:        |comment<summary: section (section)>
                     84: 
                     85: |environment(signature;
                     86:        minimum.lines 3,
                     87:        remember position,
                     88:        indent.line .3125i,
                     89:        text "AT&T \(em PROPRIETARY", new.line,
                     90:        text "Use pursuant to Company Instructions", new.line,
                     91:        return position,
                     92:        indent 3i, blank.lines 1,
                     93:        tab.stops 1.5iC, fill off, tab, string author_string, tab;)
                     94:        |comment<summary: signature (signature)>
                     95: 
                     96: |environment(:document;
                     97:        page.offset +.25i;)
                     98: 
                     99: |environment(:document_save;
                    100:        ;)
                    101: 
                    102: |environment(:document_restore;
                    103:        ;)

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