Return to monk.mac CVS log

Up to [Research Unix] / researchv10dc / vol2 / ADM

Annotation of researchv10dc/vol2/ADM/monk.mac, revision 1.1

1.1     ! root        1: |macro(top.of.page;
        !             2:        [
        !             3: '\"    ;P page number register TEMP
        !             4: .nr ;! 1
        !             5: .de TP
        !             6: 'sp
        !             7: .af ;P \\gP                    \" save format of page_counter
        !             8: .af P 1                                \" normal format for next line
        !             9: .nr ;P \\n P                   \" must use different name for P
        !            10: .af P \\g(;P                   \" restore format to P
        !            11: .af ;P 1                       \" normal format for control register
        !            12: 'sp 2
        !            13: .ie \\n(;!>1 \{                \" output headers
        !            14: .tl \\*(PH
        !            15: .if !\\n(;P%2 .tl \\*(EH
        !            16: .if \\n(;P%2 .tl \\*(OH \}
        !            17: .el 'sp 1
        !            18: 'sp 2
        !            19: .rr ;P                         \" free storage
        !            20: .nr ;! 2
        !            21: ..
        !            22: ])
        !            23: 
        !            24: |style(page_width 6.5i)
        !            25: 
        !            26: |environment(titlebox;
        !            27:        ;
        !            28: 
        !            29:        new.page,
        !            30:        fill off, inline off, size +2, space +2, font bold, center on,
        !            31:        macro TI, font roman, size -2, space -2, SPACE,
        !            32:        blank.lines, size +1, inline on,
        !            33: |for i in 1 2 3 [
        !            34:        if "\nA>=$i",
        !            35:                string A$i,
        !            36: ]
        !            37:        inline off, font roman, size -1, inline on, blank.lines,
        !            38:        text italics "AT&T Bell Laboratories", new.line,
        !            39:        text italics "Murray Hill, New Jersey 07974", new.line,
        !            40:        center off, fill on,
        !            41: 
        !            42:        |ifvalue sawabstract on {
        !            43:                blank.lines, center on, size +1, text italics "ABSTRACT",
        !            44:                size -1, center off, minimum.lines,
        !            45:                indent +.5i, line.length -.5i, line.spacing 1, paragraph,
        !            46:                macro AS, line.length +.5i, indent -.5i,
        !            47:        }
        !            48:        minimum.lines)
        !            49:        |comment<summary: titlebox (produce title box here)>
        !            50: 
        !            51: |environment(reference_placement;
        !            52:        |ifvalue sawreference on [
        !            53:                spacing on, blank.lines 3,
        !            54:                set string Ts "References",
        !            55:                inline off, size +1, center on,
        !            56:                font bold, string Ts, font roman,
        !            57:                center off, size -1, inline on,
        !            58:                minimum.lines,
        !            59:                clear string Rs,
        !            60:                contents section 1 Rs Ts,
        !            61:                reference.placement
        !            62:        ];
        !            63: 
        !            64:        sawreference off)
        !            65:        |comment<summary: reference_placement (produce references here)>
        !            66: 
        !            67: |environment(appendix;
        !            68:        spacing on, blank.lines 3,
        !            69:        number format AC A, incr AC,
        !            70:        clear S0 S1 S2 S3,
        !            71:        set string Rs "Appendix ",
        !            72:        add string.from.number Rs AC,
        !            73:        divert.string Ts;
        !            74: 
        !            75:        sectioning byappendix,
        !            76:        center on, size +1, font bold,
        !            77:        string Rs, blank.lines, string Ts,
        !            78:        font roman, size -1, center off,
        !            79:        minimum.lines 1, paragraph,
        !            80:        store string.from.number Rs AC,
        !            81:        contents section 1 Rs Ts)
        !            82:        |comment<summary: appendix (numbered appendix; IT)>
        !            83: 
        !            84: |environment(index;
        !            85:        divert.input on Ts;)
        !            86:        |comment<summary: index (toss this item for index)>
        !            87: 
        !            88: |associate(paragraph;
        !            89:        minimum.lines .3v;
        !            90: 
        !            91:        |ifvalue localparagraph.style indented [
        !            92:                indent.line +5n,
        !            93:        ]
        !            94:        |ifvalue localparagraph.style numbered [
        !            95:                incr S3, number format S3 i,
        !            96:                store string.from.number Ts S3,
        !            97:                add string Ts ") ",
        !            98:                string italics Ts,
        !            99:        ]
        !           100:        |ifvalue globalparagraph.style indented [
        !           101:                localparagraph.style indented,
        !           102:        ]
        !           103:        |ifvalue globalparagraph.style numbered [
        !           104:                localparagraph.style numbered,
        !           105:        ]
        !           106:        |ifvalue globalparagraph.style flushed [
        !           107:                localparagraph.style flushed,
        !           108:        ];
        !           109: 
        !           110:        [numbered;;
        !           111:                localparagraph.style numbered]
        !           112:        [n;;
        !           113:                localparagraph.style numbered]
        !           114:        [indented;;
        !           115:                localparagraph.style indented]
        !           116:        [i;;
        !           117:                localparagraph.style indented]
        !           118:        [flushed;;
        !           119:                localparagraph.style flushed]
        !           120:        [f;;
        !           121:                localparagraph.style flushed])
        !           122:        |comment<summary: paragraph (n, i, f, numbered, indented, flushed)>
        !           123: 
        !           124: |associate(p;
        !           125:        minimum.lines .3v;
        !           126: 
        !           127:        |ifvalue localparagraph.style indented [
        !           128:                indent.line +5n,
        !           129:        ]
        !           130:        |ifvalue localparagraph.style numbered [
        !           131:                incr S3, number format S3 i,
        !           132:                store string.from.number Ts S3,
        !           133:                add string Ts ") ",
        !           134:                string italics Ts,
        !           135:        ]
        !           136:        |ifvalue globalparagraph.style indented [
        !           137:                localparagraph.style indented,
        !           138:        ]
        !           139:        |ifvalue globalparagraph.style numbered [
        !           140:                localparagraph.style numbered,
        !           141:        ]
        !           142:        |ifvalue globalparagraph.style flushed [
        !           143:                localparagraph.style flushed,
        !           144:        ];
        !           145: 
        !           146:        [numbered;;
        !           147:                localparagraph.style numbered]
        !           148:        [n;;
        !           149:                localparagraph.style numbered]
        !           150:        [indented;;
        !           151:                localparagraph.style indented]
        !           152:        [i;;
        !           153:                localparagraph.style indented]
        !           154:        [flushed;;
        !           155:                localparagraph.style flushed]
        !           156:        [f;;
        !           157:                localparagraph.style flushed])
        !           158:        |comment<summary: p (alias for paragraph)>
        !           159: 
        !           160: |style(paragraph_style indented)

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