Return to cspress CVS log

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

Annotation of researchv10no/cmd/monk/db/cspress, revision 1.1.1.1

1.1       root        1: |associate(author;
                      2: incr A, clear T,
                      3: clear string T1 T2 T3
                      4: T4 T5 T6;
                      5: store string A\nA T1,
                      6: store string I\nA T2,
                      7: store string L\nA T3,
                      8: store string D\nA T4,
                      9: store string E\nA T5,
                     10: store string R\nA T6;
                     11: [name $;
                     12: incr T, set string T1 $;]
                     13: [initials $;
                     14: incr T, set string T2 $;]
                     15: [location $;
                     16: incr T, set string T3 $;]
                     17: [department $;
                     18: incr T, set string T4 $;]
                     19: [extension $;
                     20: incr T, set string T5 $;]
                     21: [room $;
                     22: incr T, set string T6 $;]
                     23: [$;
                     24: incr T,
                     25: set string T\nT $;])
                     26: |associate(document;
                     27: incr D, clear T,
                     28: clear string T1 T2 T3;
                     29: store string S\nD T1,
                     30: store string F\nD T2,
                     31: store string W\nD T3;
                     32: [number $;
                     33: incr T, set string T1 $;]
                     34: [file_case $;
                     35: incr T, set string T2 $;]
                     36: [work_program $;
                     37: incr T, set string T3 $;]
                     38: [$;
                     39: incr T,
                     40: set string T\nT $;])
                     41: |environment(title;
                     42: divert.input on TI;)
                     43: |environment(date;
                     44: divert.string DT;)
                     45: |environment(abstract;
                     46: divert.input on AS;
                     47: sawabstract on)
                     48: |environment(keywords;
                     49: divert.input on KW;
                     50: sawkeywords on)
                     51: |environment(titlebox;
                     52: ;
                     53: new.page, indent.line +4.375i, string LO,
                     54: blank.lines 2, size -2, remember P0,
                     55: page.offset -.5i, text "subject:", new.line,
                     56: return P0, indent +4.875i, text "date:", blank.lines,
                     57: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
                     58: line.length -3i, font bold, return P0, fill off,
                     59: macro TI, fill on, line.length +3i, new.line,
                     60: size -1,
                     61: |for i in 1 2 3 4 5 6 7 8 9 [
                     62: if begin "\nD>=$i",
                     63: new.line, text "Work Program ", string W$i,
                     64: text " File Case ", string F$i,
                     65: if end,
                     66: ]
                     67: size +1,
                     68: return P0, indent +4.75i, line.length +3i,
                     69: string DT,
                     70: |for i in 1 2 3 4 5 6 7 8 9 [
                     71: if begin "\nA>=$i",
                     72: blank.lines,
                     73: string A$i, new.line,
                     74: string L$i, text " ",
                     75: string D$i, new.line,
                     76: string R$i, text " ",
                     77: string E$i,
                     78: if end,
                     79: ]
                     80: line.length -3i, spacing on, blank.lines, fill off,
                     81: string S1, fill on, indent -4.75i, blank.lines 3,
                     82: center on, font roman, text italics "TECHNICAL MEMORANDUM",
                     83: center off, minimum.lines 2)
                     84: |environment(titlebox;
                     85: minimum.lines 2.75i;)
                     86: |environment(:document;
                     87: clear A D,
                     88: line.length 5.25i,
                     89: page.length 10.625i,
                     90: inline off, size 12, inline on, space 14, reference.option rp;
                     91: clear string Ts)
                     92: |environment(:document_save;
                     93: ;)
                     94: |environment(:document_restore;
                     95: ;)

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