Return to cspress CVS log

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

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

1.1     ! root        1: 
        !             2: 
        !             3: 
        !             4: 
        !             5: 
        !             6: 
        !             7: 
        !             8: 
        !             9: 
        !            10: 
        !            11: 
        !            12: 
        !            13: 
        !            14: 
        !            15: 
        !            16: 
        !            17: 
        !            18: 
        !            19: 
        !            20: 
        !            21: 
        !            22: 
        !            23: 
        !            24: 
        !            25: 
        !            26: 
        !            27: 
        !            28: 
        !            29: 
        !            30: 
        !            31: 
        !            32: 
        !            33: 
        !            34: |associate(author;
        !            35: incr A, clear T,
        !            36: clear string T1 T2 T3
        !            37: T4 T5 T6;
        !            38: 
        !            39: store string A\nA T1,
        !            40: store string I\nA T2,
        !            41: store string L\nA T3,
        !            42: store string D\nA T4,
        !            43: store string E\nA T5,
        !            44: store string R\nA T6;
        !            45: 
        !            46: [name $;
        !            47: incr T, set string T1 $;]
        !            48: [initials $;
        !            49: incr T, set string T2 $;]
        !            50: [location $;
        !            51: incr T, set string T3 $;]
        !            52: [department $;
        !            53: incr T, set string T4 $;]
        !            54: [extension $;
        !            55: incr T, set string T5 $;]
        !            56: [room $;
        !            57: incr T, set string T6 $;]
        !            58: [$;
        !            59: incr T,
        !            60: set string T\nT $;])
        !            61: |comment<summary: author (name, initials, location, department, extension, room for title box and coversheet)>
        !            62: 
        !            63: |associate(document;
        !            64: incr D, clear T,
        !            65: clear string T1 T2 T3;
        !            66: 
        !            67: store string S\nD T1,
        !            68: store string F\nD T2,
        !            69: store string W\nD T3;
        !            70: 
        !            71: [number $;
        !            72: incr T, set string T1 $;]
        !            73: [file_case $;
        !            74: incr T, set string T2 $;]
        !            75: [work_program $;
        !            76: incr T, set string T3 $;]
        !            77: [$;
        !            78: incr T,
        !            79: set string T\nT $;])
        !            80: |comment<summary: document (number, file_case, work_program for title box and coversheet)>
        !            81: 
        !            82: |environment(title;
        !            83: divert.input on TI;)
        !            84: |comment<summary: title (title of document for title box and coversheet)>
        !            85: 
        !            86: |environment(date;
        !            87: divert.string DT;)
        !            88: |comment<summary: date (date of tm for title box and coversheet)>
        !            89: 
        !            90: |environment(abstract;
        !            91: divert.input on AS;
        !            92: 
        !            93: sawabstract on)
        !            94: |comment<summary: abstract (abstract for coversheet)>
        !            95: 
        !            96: |environment(keywords;
        !            97: divert.input on KW;
        !            98: 
        !            99: sawkeywords on)
        !           100: |comment<summary: keywords (keywords for cover sheet)>
        !           101: 
        !           102: |environment(titlebox;
        !           103: ;
        !           104: 
        !           105: new.page, indent.line +4.375i, string LO,
        !           106: blank.lines 2, size -2, remember P0,
        !           107: page.offset -.5i, text "subject:", new.line,
        !           108: return P0, indent +4.875i, text "date:", blank.lines,
        !           109: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
        !           110: line.length -3i, font bold, return P0, fill off,
        !           111: macro TI, fill on, line.length +3i, new.line,
        !           112: size -1,
        !           113: |for i in 1 2 3 4 5 6 7 8 9 [
        !           114: if begin "\nD>=$i",
        !           115: new.line, text "Work Program ", string W$i,
        !           116: text " File Case ", string F$i,
        !           117: if end,
        !           118: ]
        !           119: size +1,
        !           120: return P0, indent +4.75i, line.length +3i,
        !           121: string DT,
        !           122: |for i in 1 2 3 4 5 6 7 8 9 [
        !           123: if begin "\nA>=$i",
        !           124: blank.lines,
        !           125: string A$i, new.line,
        !           126: string L$i, text " ",
        !           127: string D$i, new.line,
        !           128: string R$i, text " ",
        !           129: string E$i,
        !           130: if end,
        !           131: ]
        !           132: line.length -3i, spacing on, blank.lines, fill off,
        !           133: string S1, fill on, indent -4.75i, blank.lines 3,
        !           134: center on, font roman, text italics "TECHNICAL MEMORANDUM",
        !           135: center off, minimum.lines 2)
        !           136: |comment<summary: titlebox (produce title box here)>
        !           137: 
        !           138: 
        !           139: |environment(titlebox;
        !           140: minimum.lines 2.75i;)
        !           141: |comment<summary: titlebox (produce title box here)>
        !           142: 
        !           143: |environment(:document;
        !           144: clear A D,
        !           145: line.length 5.25i,
        !           146: page.length 10.625i,
        !           147: inline off, size 12, inline on, space 14, reference.option rp;
        !           148: 
        !           149: clear string Ts)
        !           150: 
        !           151: |comment<the above `clear string Ts' and the ` global.h'
        !           152: are a kludge to fix a problem troff has with files that don't end in \n>
        !           153: 
        !           154: |environment(:document_save;
        !           155: ;)
        !           156: 
        !           157: |environment(:document_restore;
        !           158: ;)

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