Return to centerpb.m CVS log

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

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

1.1     ! root        1: |include(macro.h)
        !             2: 
        !             3: |DEFINE_STRING(name_string, N0)
        !             4: |DEFINE_STRING(nicname_string, N1)
        !             5: |DEFINE_STRING(phone_string, N2)
        !             6: |DEFINE_STRING(room_string, N3)
        !             7: |DEFINE_STRING(email_string, N4)
        !             8: |DEFINE_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.