Return to model CVS log

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

Annotation of researchv10no/cmd/monk/o.db/model, 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: |environment(reference_placement;
        !            27: |ifvalue sawreference on [
        !            28: minimum.lines 2, protect,
        !            29: set string Ts "REFERENCES",
        !            30: inline off, size +1, center on,
        !            31: font bold, string Ts, font roman,
        !            32: center off, size -1, inline on,
        !            33: minimum.lines,
        !            34: clear string Rs,
        !            35: contents section 1 Rs Ts,
        !            36: reference.placement
        !            37: ];
        !            38: 
        !            39: sawreference off)
        !            40: |comment<summary: reference_placement (produce references here)>
        !            41: 
        !            42: 
        !            43: 
        !            44: 
        !            45: 
        !            46: 
        !            47: 
        !            48: 
        !            49: 
        !            50: |associate(author;
        !            51: incr A, clear T,
        !            52: clear string T1 T2 T3
        !            53: T4 T5 T6;
        !            54: 
        !            55: store string A\nA T1,
        !            56: store string I\nA T2,
        !            57: store string L\nA T3,
        !            58: store string D\nA T4,
        !            59: store string E\nA T5,
        !            60: store string R\nA T6;
        !            61: 
        !            62: [name $;
        !            63: incr T, set string T1 $;]
        !            64: [initials $;
        !            65: incr T, set string T2 $;]
        !            66: [location $;
        !            67: incr T, set string T3 $;]
        !            68: [department $;
        !            69: incr T, set string T4 $;]
        !            70: [extension $;
        !            71: incr T, set string T5 $;]
        !            72: [room $;
        !            73: incr T, set string T6 $;]
        !            74: [$;
        !            75: incr T,
        !            76: set string T\nT $;])
        !            77: |comment<summary: author (name, initials, location, department, extension, room for title box and coversheet)>
        !            78: 
        !            79: |associate(document;
        !            80: incr D, clear T,
        !            81: clear string T1 T2 T3;
        !            82: 
        !            83: store string S\nD T1,
        !            84: store string F\nD T2,
        !            85: store string W\nD T3;
        !            86: 
        !            87: [number $;
        !            88: incr T, set string T1 $;]
        !            89: [file_case $;
        !            90: incr T, set string T2 $;]
        !            91: [work_program $;
        !            92: incr T, set string T3 $;]
        !            93: [$;
        !            94: incr T,
        !            95: set string T\nT $;])
        !            96: |comment<summary: document (number, file_case, work_program for title box and coversheet)>
        !            97: 
        !            98: |environment(title;
        !            99: divert.input on TI;)
        !           100: |comment<summary: title (title of document for title box and coversheet)>
        !           101: 
        !           102: |environment(date;
        !           103: divert.string DT;)
        !           104: |comment<summary: date (date of tm for title box and coversheet)>
        !           105: 
        !           106: |environment(abstract;
        !           107: divert.input on AS;
        !           108: 
        !           109: sawabstract on)
        !           110: |comment<summary: abstract (abstract for coversheet)>
        !           111: 
        !           112: |environment(keywords;
        !           113: divert.input on KW;
        !           114: 
        !           115: sawkeywords on)
        !           116: |comment<summary: keywords (keywords for cover sheet)>
        !           117: 
        !           118: |environment(titlebox;
        !           119: ;
        !           120: 
        !           121: new.page, indent.line +4.375i, string LO,
        !           122: blank.lines 2, size -2, remember P0,
        !           123: page.offset -.5i, text "subject:", new.line,
        !           124: return P0, indent +4.875i, text "date:", blank.lines,
        !           125: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
        !           126: line.length -3i, font bold, return P0, fill off,
        !           127: macro TI, fill on, line.length +3i, new.line,
        !           128: size -1,
        !           129: |for i in 1 2 3 4 5 6 7 8 9 [
        !           130: if begin "\nD>=$i",
        !           131: new.line, text "Work Program ", string W$i,
        !           132: text " File Case ", string F$i,
        !           133: if end,
        !           134: ]
        !           135: size +1,
        !           136: return P0, indent +4.75i, line.length +3i,
        !           137: string DT,
        !           138: |for i in 1 2 3 4 5 6 7 8 9 [
        !           139: if begin "\nA>=$i",
        !           140: blank.lines,
        !           141: string A$i, new.line,
        !           142: string L$i, text " ",
        !           143: string D$i, new.line,
        !           144: string R$i, text " ",
        !           145: string E$i,
        !           146: if end,
        !           147: ]
        !           148: line.length -3i, spacing on, blank.lines, fill off,
        !           149: string S1, fill on, indent -4.75i, blank.lines 3,
        !           150: center on, font roman, text italics "TECHNICAL MEMORANDUM",
        !           151: center off, minimum.lines 2)
        !           152: |comment<summary: titlebox (produce title box here)>
        !           153: 
        !           154: 
        !           155: |environment(titlebox;
        !           156: ;
        !           157: 
        !           158: new.page, fill off, inline off, size +2, space +2, font bold, center on,
        !           159: macro TI, font roman, size -2, space -2, SPACE, inline on, fill on,
        !           160: blank.lines,
        !           161: |for i in 1 2 3 4 5 6 7 8 9 [
        !           162: if begin "\nA>=$i",
        !           163: new.line, size +1, font italics,
        !           164: string A$i, font roman, size -1,
        !           165: if begin "!@\*(L$i@\*(L$i+1@",
        !           166: if begin "@\*(L$i@BC@",
        !           167: text "Boston College", new.line,
        !           168: text "Chestnut Hill, MA 02167", new.line,
        !           169: if end,
        !           170: if begin "@\*(L$i@CM@",
        !           171: text "Carnegie-Mellon University", new.line,
        !           172: text "Electrical and Computer Engineering Department", new.line,
        !           173: text "Pittsburgh, PA 15213", new.line,
        !           174: if end,
        !           175: if begin "@\*(L$i@SDSU@",
        !           176: text "San Diego State University", new.line,
        !           177: text "San Diego, CA 92000", new.line,
        !           178: if end,
        !           179: if begin "@\*(L$i@UA@",
        !           180: text "University of Antwerp", new.line,
        !           181: text "B-2610 Antwerp, Belgium", new.line,
        !           182: if end,
        !           183: if begin "@\*(L$i@UCB@",
        !           184: text "University of California", new.line,
        !           185: text "Berkeley, CA 94720", new.line,
        !           186: if end,
        !           187: if begin "@\*(L$i@UNL@",
        !           188: text "University of Nebraska", new.line,
        !           189: text "Lincoln, NE 68588", new.line,
        !           190: if end,
        !           191: if begin "@\*(L$i@AK@",
        !           192: text "AT&T Bell Laboratories", new.line,
        !           193: text "Norcross, GA 30071", new.line,
        !           194: if end,
        !           195: if begin "@\*(L$i@AL@",
        !           196: text "AT&T Bell Laboratories", new.line,
        !           197: text "Allentown, PA 18103", new.line,
        !           198: if end,
        !           199: if begin "@\*(L$i@ALC@",
        !           200: text "AT&T Bell Laboratories", new.line,
        !           201: text "Allentown, PA 18103-6265", new.line,
        !           202: if end,
        !           203: if begin "@\*(L$i@AN@",
        !           204: text "AT&T Bell Laboratories", new.line,
        !           205: text "Andover, MA 01810", new.line,
        !           206: if end,
        !           207: if begin "@\*(L$i@CB@",
        !           208: text "AT&T Bell Laboratories", new.line,
        !           209: text "Columbus, OH 43213", new.line,
        !           210: if end,
        !           211: if begin "@\*(L$i@CH@",
        !           212: text "AT&T Bell Laboratories", new.line,
        !           213: text "Chester, NJ 07930", new.line,
        !           214: if end,
        !           215: if begin "@\*(L$i@DR@",
        !           216: text "AT&T Bell Laboratories", new.line,
        !           217: text "Denver, CO 80234", new.line,
        !           218: if end,
        !           219: if begin "@\*(L$i@HL@",
        !           220: text "AT&T Bell Laboratories", new.line,
        !           221: text "Short Hills, NJ 07078-0905", new.line,
        !           222: if end,
        !           223: if begin "@\*(L$i@HO@",
        !           224: text "AT&T Bell Laboratories", new.line,
        !           225: text "Holmdel, NJ 07733-1988", new.line,
        !           226: if end,
        !           227: if begin "@\*(L$i@HOH@",
        !           228: text "AT&T Bell Laboratories", new.line,
        !           229: text "Holmdel, NJ 07733-0400", new.line,
        !           230: if end,
        !           231: if begin "@\*(L$i@HR@",
        !           232: text "AT&T Bell Laboratories", new.line,
        !           233: text "Middletown, NJ 07748-3052", new.line,
        !           234: if end,
        !           235: if begin "@\*(L$i@IH@",
        !           236: text "AT&T Bell Laboratories", new.line,
        !           237: text "Naperville, IL 60566-7033", new.line,
        !           238: if end,
        !           239: if begin "@\*(L$i@INH@",
        !           240: text "AT&T Bell Laboratories", new.line,
        !           241: text "Indianapolis, IN 46206", new.line,
        !           242: if end,
        !           243: if begin "@\*(L$i@INP@",
        !           244: text "AT&T Bell Laboratories", new.line,
        !           245: text "Naperville, IL 60566-7050", new.line,
        !           246: if end,
        !           247: if begin "@\*(L$i@KD@",
        !           248: text "AT&T Bell Laboratories", new.line,
        !           249: text "Piscataway, NJ 08854", new.line,
        !           250: if end,
        !           251: if begin "@\*(L$i@LC@",
        !           252: text "AT&T Bell Laboratories", new.line,
        !           253: text "Warren, NJ 07060", new.line,
        !           254: if end,
        !           255: if begin "@\*(L$i@LZ@",
        !           256: text "AT&T Bell Laboratories", new.line,
        !           257: text "Lincroft, NJ 07738-1526", new.line,
        !           258: if end,
        !           259: if begin "@\*(L$i@MH@",
        !           260: text "AT&T Bell Laboratories", new.line,
        !           261: text "Murray Hill, NJ 07974-2070", new.line,
        !           262: if end,
        !           263: if begin "@\*(L$i@MO@",
        !           264: text "AT&T Bell Laboratories", new.line,
        !           265: text "Morristown, NJ 07960-4499", new.line,
        !           266: if end,
        !           267: if begin "@\*(L$i@MT@",
        !           268: text "AT&T Bell Laboratories", new.line,
        !           269: text "Middletown, NJ 07748-4801", new.line,
        !           270: if end,
        !           271: if begin "@\*(L$i@MV@",
        !           272: text "AT&T Bell Laboratories", new.line,
        !           273: text "North Andover, MA 01845", new.line,
        !           274: if end,
        !           275: if begin "@\*(L$i@PK@",
        !           276: text "AT&T Bell Laboratories", new.line,
        !           277: text "Parsippany, NJ 07054-11794", new.line,
        !           278: if end,
        !           279: if begin "@\*(L$i@RD@",
        !           280: text "AT&T Bell Laboratories", new.line,
        !           281: text "Reading, PA 19604", new.line,
        !           282: if end,
        !           283: if begin "@\*(L$i@SF@",
        !           284: text "AT&T Bell Laboratories", new.line,
        !           285: text "Summit, NJ 07901-1444", new.line,
        !           286: if end,
        !           287: if begin "@\*(L$i@WB@",
        !           288: text "AT&T Bell Laboratories", new.line,
        !           289: text "West Long Branch, NJ 07764-1394", new.line,
        !           290: if end,
        !           291: if begin "@\*(L$i@WH@",
        !           292: text "AT&T Bell Laboratories", new.line,
        !           293: text "Whippany, NJ 07981-0903", new.line,
        !           294: if end,
        !           295: if begin "@\*(L$i@WI@",
        !           296: text "AT&T Bell Laboratories", new.line,
        !           297: text "Ward Hill, MA 01830", new.line,
        !           298: if end,
        !           299: if end,
        !           300: if end,
        !           301: ]
        !           302: center off,
        !           303: 
        !           304: new.page,
        !           305: 
        !           306: |ifvalue sawabstract on {
        !           307: center on, size +1, text italics "ABSTRACT",
        !           308: size -1, center off, minimum.lines, paragraph, macro AS,
        !           309: minimum.lines,
        !           310: }
        !           311: 
        !           312: |ifvalue sawkeywords on {
        !           313: font italics, text "Keywords:", macro KW, font roman,
        !           314: }
        !           315: minimum.lines .5i)
        !           316: |comment<summary: titlebox (produce title box here)>
        !           317: 
        !           318: |environment(:document;
        !           319: clear A D,
        !           320: format.type model,
        !           321: line.length 4.25i,
        !           322: page.length 11.0i,
        !           323: inline off, size 12, inline on, space 14, reference.option rp;)
        !           324: 
        !           325: |environment(:document_save;
        !           326: ;)
        !           327: 
        !           328: |environment(:document_restore;
        !           329: ;)

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