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

1.1       root        1: |environment(roman;
                      2:        font roman;)
                      3:        |comment<summary: roman (alias for r)>
                      4: 
                      5: |environment(r;
                      6:        font roman;)
                      7:        |comment<summary: r (roman)>
                      8: 
                      9: |environment(italics;
                     10:        font italics;)
                     11:        |comment<summary: italics (alias for i)>
                     12: 
                     13: |environment(i;
                     14:        font italics;)
                     15:        |comment<summary: i (italics)>
                     16: 
                     17: |environment(bold;
                     18:        font bold;)
                     19:        |comment<summary: bold (alias for b)>
                     20: 
                     21: |environment(b;
                     22:        font bold;)
                     23:        |comment<summary: b (bold)>
                     24: 
                     25: |environment(bolditalics;
                     26:        font bolditalics;)
                     27:        |comment<summary: bolditalics (alias for bi)>
                     28: 
                     29: |environment(bi;
                     30:        font bolditalics;)
                     31:        |comment<summary: bi (bolditalics)>
                     32: 
                     33: |environment(constant_width;
                     34:        font cw;)
                     35:        |comment<summary: constant_width (alias for cw)>
                     36: 
                     37: |environment(cw;
                     38:        font cw;)
                     39:        |comment<summary: cw (constant width)>
                     40: 
                     41: |environment(here;
                     42:        here on;)
                     43:        |comment<summary: here (keep a block together on this page or start a new page)>
                     44: 
                     45: |environment(around;
                     46:        around on;)
                     47:        |comment<summary: around (keep a block together here or move it to the next page)>
                     48: 
                     49: |environment(around_placement;
                     50:        ;
                     51: 
                     52:        around_placement)
                     53:        |comment<summary: around_placement (output all arounds here)>
                     54: 
                     55: |environment(full;
                     56:        around_width full, footnote_width full;)
                     57:        |comment<summary: full (use the whole page for footnotes and arounds)>
                     58: 
                     59: |environment(narrow;
                     60:        around_width narrow, footnote_width narrow;)
                     61:        |comment<summary: narrow (use just this column for footnotes and arounds)>
                     62: 
                     63: |associate(blank_space;;;
                     64: 
                     65:        [$;
                     66:                spacing on, blank.lines $;]
                     67:        [;
                     68:                spacing on, blank.lines 1;])
                     69:        |comment<summary: blank_space (leave this much blank space)>
                     70: 
                     71: |associate(new_page;;;
                     72: 
                     73:        [1;
                     74:                spacing on, new.page;]
                     75:        [2;
                     76:                spacing on, new.page, spacing on, new.page;]
                     77:        [3;
                     78:                spacing on, new.page, spacing on, new.page, spacing on, new.page;]
                     79:        [4;
                     80:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     81:                spacing on, new.page;]
                     82:        [5;
                     83:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     84:                spacing on, new.page, spacing on, new.page;]
                     85:        [6;
                     86:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     87:                spacing on, new.page, spacing on, new.page, spacing on, new.page;]
                     88:        [7;
                     89:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     90:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     91:                spacing on, new.page;]
                     92:        [8;
                     93:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     94:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     95:                spacing on, new.page, spacing on, new.page;]
                     96:        [9;
                     97:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     98:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                     99:                spacing on, new.page, spacing on, new.page, spacing on, new.page;]
                    100:        [10;
                    101:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    102:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    103:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    104:                spacing on, new.page;]
                    105:        [11;
                    106:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    107:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    108:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    109:                spacing on, new.page, spacing on, new.page;]
                    110:        [12;
                    111:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    112:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    113:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    114:                spacing on, new.page, spacing on, new.page, spacing on, new.page;]
                    115:        [13;
                    116:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    117:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    118:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    119:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    120:                spacing on, new.page;]
                    121:        [14;
                    122:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    123:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    124:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    125:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    126:                spacing on, new.page, spacing on, new.page;]
                    127:        [15;
                    128:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    129:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    130:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    131:                spacing on, new.page, spacing on, new.page, spacing on, new.page,
                    132:                spacing on, new.page, spacing on, new.page, spacing on, new.page;]
                    133:        [;
                    134:                spacing on, new.page;])
                    135:        |comment<summary: new_page (skip to the next next page)>
                    136: 
                    137: |associate(column_style; column next;;
                    138: 
                    139:        [width $;;
                    140:                column width $]
                    141:        [offset $;;
                    142:                column offset $])
                    143:        |comment<summary: column_style (width, offset)>
                    144: 
                    145: |associate(new_column;;;
                    146: 
                    147:        [$;;
                    148:                column old $]
                    149:        [;;
                    150:                column new])
                    151:        |comment<summary: new_column (skip to the next column)>
                    152: 
                    153: |environment(indent;
                    154:        indent +3;)
                    155:        |comment<summary: indent (indent by standard amount)>
                    156: 
                    157: |environment(center;
                    158:        center on;)
                    159:        |comment<summary: center (center each line)>
                    160: 
                    161: |environment(center_block;
                    162:        fill off, center.block on;)
                    163:        |comment<summary: center_block (center all lines as a block)>
                    164: 
                    165: |environment(small;
                    166:        size -1;)
                    167:        |comment<summary: small (reduce the point size)>
                    168: 
                    169: |environment(s;
                    170:        size -1;)
                    171:        |comment<summary: s (alias for small)>
                    172: 
                    173: |environment(big;
                    174:        size +1;)
                    175:        |comment<summary: big (increase point size)>
                    176: 
                    177: |environment(u;
                    178:        underline on;)
                    179:        |comment<summary: u (underline)>
                    180: 
                    181: |environment(underline;
                    182:        underline on;)
                    183:        |comment<summary: underline (alias for u)>
                    184: 
                    185: |environment(quotation;
                    186:        indent +.5i, line.length -.5i, line.spacing 1;
                    187: 
                    188:        line.length +.5i, new.line)
                    189:        |comment<summary: quotation (indent left and right)>
                    190: 
                    191: |environment(verbatim;
                    192:        verbatim on, file.information, line.spacing 1, fill off;)
                    193:        |comment<summary: verbatim (text exactly as it is)>
                    194: 
                    195: |environment(text;
                    196:        fill on;)
                    197:        |comment<summary: text (fill the text)>
                    198: 
                    199: |environment(left_adjust;
                    200:        adjust left;)
                    201:        |comment<summary: left_adjust (left adjust the text)>
                    202: 
                    203: |associate(left_center_right;
                    204: 
                    205:        set string temporary_string "`";
                    206: 
                    207:        title temporary_string;
                    208: 
                    209:        [$;
                    210:                add string temporary_string $, add string temporary_string "`";])
                    211:        |comment<summary: left_center_right (left justify, center, right justify a line>
                    212: 
                    213: |environment(footnote;
                    214:        size -2, vertical.motion -.4m,
                    215:        number ++ footnote_counter, vertical.motion +.4m, space -2, line.spacing 1,
                    216:        footnote on, indent 0.2i, indent.line -0.2i,
                    217:        number footnote_counter, text ".", horizontal.motion "|0.2i";
                    218: 
                    219:        SPACE)
                    220:        |comment<summary: footnote (numbered footnote)>
                    221: 
                    222: |environment(unnumbered_footnote;
                    223:        size -2, space -2, line.spacing 1,
                    224:        footnote on, indent 0.2i;
                    225: 
                    226:        SPACE)
                    227:        |comment<summary: unnumbered_footnote (unnumbered footnote)>
                    228: 
                    229: |environment(dagnote;
                    230:        size -2, vertical.motion -.4m,
                    231:        text "\(dg", vertical.motion +.4m, space -2, line.spacing 1,
                    232:        footnote on, indent 0.2i, indent.line -0.2i,
                    233:        text "\(dg", horizontal.motion "|0.2i";
                    234: 
                    235:        SPACE)
                    236:        |comment<summary: dagnote (footnote marked with a dagger)>
                    237: 
                    238: |environment(authordagnote;
                    239:        size -2, space -2, line.spacing 1,
                    240:        footnote on, indent 0.2i, indent.line -0.2i,
                    241:        text "\(dg", horizontal.motion "|0.2i";
                    242: 
                    243:        SPACE)
                    244:        |comment<summary: authordagnote (footnote marked with a dagger for author names)>
                    245: 
                    246: |environment(starnote;
                    247:        size -2, vertical.motion -.4m,
                    248:        text "\(**", vertical.motion +.4m, space -2, line.spacing 1,
                    249:        footnote on, indent 0.2i, indent.line -0.2i,
                    250:        text "\(**", horizontal.motion "|0.2i";
                    251: 
                    252:        SPACE)
                    253:        |comment<summary: starnote (footnote marked with a star)>
                    254: 
                    255: |environment(endnote;
                    256:        size -2, vertical.motion -.4m,
                    257:        number ++ endnote_counter, vertical.motion +.4m, size +2,
                    258:        append.output on endnote_output,
                    259:        |ifvalue sawendnote on [
                    260:                minimum.lines,
                    261:        ]
                    262:        indent.line 3, number endnote_counter, text ". ";
                    263: 
                    264:        sawendnote on)
                    265:        |comment<summary: endnote (numbered endnote)>
                    266: 
                    267: |environment(endnote_placement;
                    268:        |ifvalue sawendnote on [
                    269:                new.page,
                    270:                set string temporary_string "NOTES",
                    271:                inline off, size +1, center on,
                    272:                font bold, string temporary_string, font roman,
                    273:                center off, size -1, inline on,
                    274:                minimum.lines,
                    275:                clear string remember_string,
                    276:                contents section 1 remember_string temporary_string,
                    277:                line.spacing 1, macro endnote_output
                    278:        ];
                    279: 
                    280:        sawendnote off)
                    281:        |comment<summary: endnote_placement (produce endnotes here)>
                    282: 
                    283: |environment(notation;
                    284:        minimum.lines, fill off;
                    285: 
                    286:        minimum.lines)
                    287:        |comment<summary: notation (notation)>
                    288: 
                    289: |environment(approved;
                    290:        minimum.lines 2, text bold "Approval:  ", blank.lines 3,
                    291:        line 3.5i, tab.stops 1.5iC, new.line, tab;
                    292: 
                    293:        tab, minimum.lines)
                    294:        |comment<summary: approved (approved)>

unix.superglobalmegacorp.com

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