Return to centerpb.m CVS log

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

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

1.1       root        1: |include(macro.h)
                      2: 
                      3: |STRING(name_string, N0)
                      4: |STRING(nicname_string, N1)
                      5: |STRING(phone_string, N2)
                      6: |STRING(room_string, N3)
                      7: |STRING(email_string, N4)
                      8: |STRING(pre_string, N5)
                      9: 
                     10: |environment(date;
                     11:        divert.string date_string;)
                     12:        |comment<summary: date (date of center phone book)>
                     13: 
                     14: |environment(titlebox;
                     15:        new.line, spacing on, goto .75i,
                     16:        indent.line +6.0i, string att_logo, new.line,
                     17:        indent.line +6.5i, string date_string,
                     18:        goto 9.75i, page.offset 2.625i, line.length 2.625i, center on,
                     19:        text "AT&T \(em PROPRIETARY", new.line,
                     20:        text "Use pursuant to Company Instructions", new.line,
                     21:        center off;)
                     22:        |comment<summary: titlebox (title box)>
                     23: 
                     24: |environment(laboratory;
                     25:        goto .5i;
                     26:        size 8, space 8,
                     27:        tab.stops "\w'\s-1\f3\&9999\fP\s+1\& 'u +\w'# 'u +\w'Papathomas,T.V. (\f2\&Thomas\fP\&) 'u +\w'maureen 'u",
                     28:        line.length 8.5, column on)
                     29:        |comment<summary: laboratory (a laboratory)>
                     30: 
                     31: |environment(laboratory_title;
                     32:        inline off, font bold, size 12, space 14, center on;
                     33: 
                     34:        minimum.lines .5)
                     35:        |comment<summary: laboratory_title (title of laboratory)>
                     36: 
                     37: |associate(employee;
                     38:        clear string name_string nicname_string phone_string email_string
                     39:        room_string pre_string;
                     40: 
                     41:        size -1, string bold phone_string, size +1, tab,
                     42:        string pre_string, tab,
                     43:        string name_string, text " (",
                     44:        string italics nicname_string, text ")", tab,
                     45:        string email_string, tab,
                     46:        size -1, string bold room_string, size +1, new.line;
                     47: 
                     48:        [name $;
                     49:                set string name_string $;]
                     50:        [nicname $;
                     51:                set string nicname_string $;]
                     52:        [phone $;
                     53:                set string phone_string $;]
                     54:        [room $;
                     55:                set string room_string $;]
                     56:        [email $;
                     57:                set string email_string $;]
                     58:        [secretary;
                     59:                set string pre_string "$";]
                     60:        [casual;
                     61:                set string pre_string "*";]
                     62:        [consultant;
                     63:                set string pre_string "%";]
                     64:        [contractor;
                     65:                set string pre_string "{";]
                     66:        [intern;
                     67:                set string pre_string "!";]
                     68:        [limited term;
                     69:                set string pre_string "<";]
                     70:        [post doc;
                     71:                set string pre_string ">";]
                     72:        [resident visitor;
                     73:                set string pre_string "#";]
                     74:        [temporary;
                     75:                set string pre_string "+";]
                     76:        [mit coop;
                     77:                set string pre_string "}";]
                     78:        [department 45266;
                     79:                set string pre_string "\s-1\&@\s+1\&";])
                     80:        |comment<summary: employee (name, nicname, phone, room, email, secretary, casual, consultant, contractor, intern, limited term, post doc, resident visitor, temporary, mit coop,department 45266)>
                     81: 
                     82: |environment(department_title;
                     83:        inline off, font bold, center on;
                     84: 
                     85:        minimum.lines .5)
                     86:        |comment<summary: department_title (title of department)>
                     87: 
                     88: |environment(department;
                     89:        here on, minimum.lines 1.5;)
                     90:        |comment<summary: department (a department)>
                     91: 
                     92: |associate(room;
                     93:        clear string name_string phone_string room_string email_string;
                     94: 
                     95:        size -1, string bold phone_string, size +1, tab, tab,
                     96:        string name_string, tab,
                     97:        string email_string, tab,
                     98:        size -1, string bold room_string, size +1, new.line;
                     99: 
                    100:        [name $;
                    101:                set string name_string $;]
                    102:        [phone $;
                    103:                set string phone_string $;]
                    104:        [room $;
                    105:                set string room_string $;]
                    106:        [email $;
                    107:                set string email_string $;])
                    108:        |comment<summary: room (name, phone, room, email)>
                    109: 
                    110: |environment(:document;
                    111:        page.offset 0.0i,
                    112:        column 1 2.625i 0.0i, column 2 2.625i 2.6875i, column 3 2.625i 5.3125i,
                    113:        tab.stops "\w'\s-1\f3\&9999\fP\s+1\& 'u +\w'# 'u +\w'Flanagan,J.L. (\f2\&Jim\fP\&)  'u +\w'june  'u",
                    114:        fill off;)
                    115: 
                    116: |environment(:document_save;
                    117:        ;)
                    118: 
                    119: |environment(:document_restore;
                    120:        ;)

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