Return to macro CVS log

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

Annotation of researchv10no/cmd/monk/o.db/macro, 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: |macro(.top.of.page;
        !            26: [
        !            27: .de)h
        !            28: .ev2
        !            29: .ll\\nWu
        !            30: .lt\\nWu
        !            31: .ie"\*(.T"aps" \{\
        !            32: .nr;o \\n(.o
        !            33: .po0
        !            34: .lt7.5i
        !            35: .ps10
        !            36: .vs12p
        !            37: .ft1
        !            38: .tl'--''--'
        !            39: .ft
        !            40: .vs
        !            41: .ps
        !            42: .lt
        !            43: .po\\n(;ou \}
        !            44: .el\{\
        !            45: .ps10
        !            46: .vs12p
        !            47: .ft1
        !            48: .tl''''
        !            49: .ft
        !            50: .vs
        !            51: .ps\}
        !            52: .nrP +1
        !            53: .if\\n(:C \{\
        !            54: .ll\\n(W0u
        !            55: .lt\\n(W0u \}
        !            56: .TP
        !            57: .if\\n(:C \{\
        !            58: .ll\\nWu
        !            59: .lt\\nWu \}
        !            60: .br
        !            61: .ev
        !            62: .ch)n -\\n(:mu
        !            63: .ch)f -\\n(:ou
        !            64: .if!\\n(:q .nr :v 0
        !            65: .nr:V \\n(.v
        !            66: .mk:r
        !            67: .mkU0
        !            68: .rrU1 U2 U3 U4 U5 U6 U7 U8 U9
        !            69: .if\\n(:d=0&((\\n(:z-\\n(:w):(\\n(:w-\\n(:z)) \{\
        !            70: .nr;t \\n(:w%26+1
        !            71: .af;w a
        !            72: .nr;w \\n(;t
        !            73: .ie\\n(!\\n(;w \{\
        !            74: .)z
        !            75: .)s
        !            76: .mkU0
        !            77: .rrU1 U2 U3 U4 U5 U6 U7 U8 U9 \}
        !            78: .el\{\
        !            79: .)z
        !            80: .)s \}
        !            81: .rr;t ;w \}
        !            82: .nr:T 0
        !            83: .if\\n(:A>0 \{\
        !            84: .nr;i \\n(.i
        !            85: .in0
        !            86: .:2
        !            87: .nr:T 1
        !            88: .in\\n(;iu \}
        !            89: .mk#T
        !            90: .rr;i ;o ;t ;w
        !            91: .ns
        !            92: ..
        !            93: ])
        !            94: 
        !            95: |macro(top.of.page;
        !            96: [
        !            97: .deTP
        !            98: 'sp
        !            99: .af;P \\gP
        !           100: .afP 1
        !           101: .nr;P \\nP
        !           102: .afP \\g(;P
        !           103: .af;P 1
        !           104: 'sp2
        !           105: .if\\n(;P-1 .tl \\*(PH
        !           106: .if!\\n(;P%2 .tl \\*(EH
        !           107: .if\\n(;P%2 .tl \\*(OH
        !           108: 'sp2
        !           109: .if\\n(;P=4 .if "\\*(f0"model" \
        !           110: .pl13.25i
        !           111: .rr;P
        !           112: ..
        !           113: ])
        !           114: 
        !           115: |macro(.bottom.of.page;
        !           116: [
        !           117: .de)f
        !           118: .if\\n(:A \{\
        !           119: .rn)f ;u
        !           120: .nrT. 1
        !           121: .if\\n(:f=0 .T# 1
        !           122: 'br
        !           123: .nr:f 1
        !           124: .rn;u )f \}
        !           125: .nr;y \\n(.pu-\\n(nlu-\\n(:mu
        !           126: .if\\n(:qu>1v .nr ;y -1v
        !           127: .ie\\n(:q&\\n(;y&((\\n(:C<2):(\\n(:v=0)) .)o
        !           128: .el\{\
        !           129: .nr:o \\n(:m+\\n(:q
        !           130: .if\\n(:q \
        !           131: .nr:o +\\n(:Vu-1u
        !           132: .ch)n 15i
        !           133: .ch)f 15i \}
        !           134: .ie\\n(:C=0 'bp
        !           135: .el.ie \\n(:C=\\n(:c \{\
        !           136: .nr;d \\n(.lu-\\n(W\\n(:Cu
        !           137: .nr:C 1
        !           138: .nrO \\n(O1u
        !           139: .po\\nOu
        !           140: .nrW \\n(W1u+\\n(;du
        !           141: .ll\\nWu
        !           142: .lt\\nWu
        !           143: .nr:m \\n(:M
        !           144: 'bp
        !           145: .rr;d \}
        !           146: .el\{\
        !           147: .if\\n(:C=1 .if "\\*(f0"acm" \
        !           148: .pl10.875i
        !           149: .if\\n(nl>\\n(U\\n(:C \
        !           150: .mkU\\n(:C
        !           151: .nr;d \\n(.lu-\\n(W\\n(:Cu
        !           152: .nr:C +1
        !           153: .ie\\n(U\\n(:Cu \
        !           154: 'sp|\\n(U\\n(:Cu
        !           155: .el'sp |\\n(U0u
        !           156: .ch)n -\\n(:mu
        !           157: .ch)f -\\n(:ou
        !           158: .if!\\n(:q .nr :v 0
        !           159: .nrO \\n(O\\n(:Cu
        !           160: .po\\nOu
        !           161: .nrW \\n(W\\n(:Cu+\\n(;du
        !           162: .ll\\nWu
        !           163: .lt\\nWu
        !           164: .if\\n(:d=0&((\\n(:z-\\n(:w):(\\n(:w-\\n(:z)) \{\
        !           165: .nr;t \\n(:w%26+1
        !           166: .af;w a
        !           167: .nr;w \\n(;t
        !           168: .if!\\n(!\\n(;w \{\
        !           169: .)z
        !           170: .)s \}
        !           171: .rr;t ;w \}
        !           172: .nr:T 0
        !           173: .if\\n(:A>0 \{\
        !           174: .nr;i \\n(.i
        !           175: .in0
        !           176: .:2
        !           177: .nr:T 1
        !           178: .in\\n(;iu \}
        !           179: .mk#T
        !           180: .rr;d ;i ;t ;w
        !           181: .ns\}
        !           182: .if\\n(:A \{\
        !           183: .nr:K \\n(:ou+2v
        !           184: .ch>f -(\\n(:Ku+1v)
        !           185: 'br\}
        !           186: .rr;y
        !           187: ..
        !           188: ])
        !           189: 
        !           190: |macro(bottom.of.page;
        !           191: [
        !           192: .deBP
        !           193: .ev2
        !           194: .if\\n(:C \{\
        !           195: .ll\\n(W0u
        !           196: .lt\\n(W0u \}
        !           197: 'sp
        !           198: .af;P \\gP
        !           199: .afP 1
        !           200: .nr;P \\nP
        !           201: .afP \\g(;P
        !           202: .af;P 1
        !           203: .if!\\n(;P%2 .tl \\*(EF
        !           204: .if\\n(;P%2 .tl \\*(OF
        !           205: .tl\\*(PF
        !           206: .if\\n(:C \{\
        !           207: .ll\\nWu
        !           208: .lt\\nWu \}
        !           209: .ev
        !           210: .rr;P
        !           211: ..
        !           212: ])
        !           213: 
        !           214: |macro(.float.output;
        !           215: [
        !           216: .de)z
        !           217: .if\\n(:z=\\n(:w .tm no floats to output
        !           218: .nr:w \\n(:w%26+1
        !           219: .af;w a
        !           220: .nr;w \\n(:w
        !           221: .nr;q \\n(.u
        !           222: .nr;L \\n(.L
        !           223: .nr;i \\n(.i
        !           224: .ev1
        !           225: .nf
        !           226: .ls1
        !           227: .in0
        !           228: .nr:d 1
        !           229: .rs
        !           230: .br
        !           231: .?\\n(;w
        !           232: .if\\n(;q .fi
        !           233: .ls\\n(;L
        !           234: .in\\n(;iu
        !           235: .nr:d 0
        !           236: .ev
        !           237: .ne2
        !           238: .rm?\\n(;w
        !           239: .rr|\\n(;w !\\n(;w
        !           240: .rr;L ;i ;q ;w
        !           241: ..
        !           242: ])
        !           243: 
        !           244: |macro(.multiple.float.output;
        !           245: [
        !           246: .de)s
        !           247: .if!(\\n(:z=\\n(:w) \{\
        !           248: .nr;t \\n(:w%26+1
        !           249: .af;w a
        !           250: .nr;w \\n(;t
        !           251: .nr;h \\n(|\\n(;w
        !           252: .if(((\\n(!\\n(;w=1)&(\\n(:C<2))&\
        !           253: ((\\n(;h<\\n(.t):((\\n(;h>(\\n(.p-\\n(:r-\\n(:m))&\
        !           254: (\\n(nl<=(\\n(.p-\\n(:r-\\n(:o/2u+\\n(:r))))) \{\
        !           255: .)z
        !           256: .)s \}
        !           257: .rr;h ;t ;w \}
        !           258: ..
        !           259: ])
        !           260: 
        !           261: |macro(.flush.float.output;
        !           262: [
        !           263: .de)w
        !           264: .if!(\\n(:z=\\n(:w) \{\
        !           265: .nr;o \\n(:w
        !           266: .)s
        !           267: .if\\n(:w=\\n(;o \{\
        !           268: .nr:d 1
        !           269: .rs
        !           270: .bp
        !           271: .nr:d 0 \}
        !           272: .)w \}
        !           273: .rr;o
        !           274: ..
        !           275: ])
        !           276: 
        !           277: |macro(.footnote.output;
        !           278: [
        !           279: .de)o
        !           280: .if\\n(:v&\\n(:C=1 .nr :m \\n(:o
        !           281: .ev1
        !           282: .nf
        !           283: .ls1
        !           284: .in0
        !           285: .:F
        !           286: .ie"\\n(.z":3" \{\
        !           287: .br
        !           288: .di
        !           289: .ie\\n(dnu<=\\n(:Hu \{\
        !           290: .nr:q 0
        !           291: .nr:o \\n(:mu
        !           292: .rm:3 :F \}
        !           293: .el\{\
        !           294: .nrdn +\\n(:V-\\n(.v
        !           295: .nr:q \\n(dnu
        !           296: .nr:o \\n(:mu+\\n(:qu
        !           297: .nr:o +\\n(:Vu-1u
        !           298: .rn:3 :F \} \}
        !           299: .el\{\
        !           300: .nr:q 0
        !           301: .rm:F
        !           302: .nr:o \\n(:mu
        !           303: .ch)n 15i \}
        !           304: .ev
        !           305: ..
        !           306: ])
        !           307: 
        !           308: |macro(.footnote.diverter;
        !           309: [
        !           310: .de)n
        !           311: .di:3
        !           312: .nr;o \\n(.o
        !           313: .po\\nOu
        !           314: .ps10
        !           315: .vs12p
        !           316: .ft1
        !           317: .ie\n(.A=0 \l@\\n(.lu@
        !           318: .el_____________________________
        !           319: .nr:H \\n(.v
        !           320: .ft
        !           321: .vs
        !           322: .ps
        !           323: .po\\n(;ou
        !           324: ..
        !           325: ])
        !           326: 
        !           327: |macro(.catch.diverter;
        !           328: [
        !           329: .deC0
        !           330: .diCO
        !           331: ..
        !           332: ])
        !           333: 
        !           334: |macro(.end.of.file;
        !           335: [
        !           336: .de)q
        !           337: ..
        !           338: ])
        !           339: 
        !           340: |macro(.pop.counter;
        !           341: [
        !           342: .de)C
        !           343: .nr\\$1 \\$3
        !           344: .ds\\$2 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
        !           345: ..
        !           346: ])
        !           347: 
        !           348: |macro(.initalize;
        !           349: [
        !           350: .nr:A 0
        !           351: .nr:B 0
        !           352: .nr:C 0
        !           353: .nr:K 0
        !           354: .nr:M .8i
        !           355: .nr:N 0
        !           356: .nr:T 0
        !           357: .nr:V \n(.v
        !           358: .nr:c 0
        !           359: .nr:d 0
        !           360: .nr:f 0
        !           361: .nr:m .8i
        !           362: .nr:o \n(:mu
        !           363: .nr:q 0
        !           364: .nr:r .6i
        !           365: .nr:v 0
        !           366: .nr:w 0
        !           367: .nr:x 0
        !           368: .nr:y 0
        !           369: .nr:z 0
        !           370: .dsAT \f(HBA\h'-.2m'T\h'-.15m'\s0\s13&\s0\s16\h'-.15m'T\fP
        !           371: .if\n(mo-0 .ds DT January
        !           372: .if\n(mo-1 .ds DT February
        !           373: .if\n(mo-2 .ds DT March
        !           374: .if\n(mo-3 .ds DT April
        !           375: .if\n(mo-4 .ds DT May
        !           376: .if\n(mo-5 .ds DT June
        !           377: .if\n(mo-6 .ds DT July
        !           378: .if\n(mo-7 .ds DT August
        !           379: .if\n(mo-8 .ds DT September
        !           380: .if\n(mo-9 .ds DT October
        !           381: .if\n(mo-10 .ds DT November
        !           382: .if\n(mo-11 .ds DT December
        !           383: .asDT " \n(dy, 19\n(yr
        !           384: .ie"\*(.T"aps" .ds LO \s36\(Lb\s0
        !           385: .el.ie "\*(.T"eps" .ds LO \s36\(Lb\s0
        !           386: .el.ie "\*(.T"i300" .ds LO \s36\(Lb\s0
        !           387: .el.ie "\*(.T"im300" .ds LO \s36\(Lb\s0
        !           388: .el.ie "\*(.T"post" .ds LO \s36\(LH\s0
        !           389: .el.ds LO \s36\(L1\s0\s16\v'-.4'\*(AT\v'.4'\h'-\w'\*(AT'u'\s0
        !           390: .if\nP .nr P -1
        !           391: .nrP \nP 1
        !           392: .nrU0 .6i
        !           393: .rrU1 U2 U3 U4 U5 U6 U7 U8 U9
        !           394: .dsPH ''- \\nP -''
        !           395: .wh0 )h
        !           396: .wh-\n(:mu )f
        !           397: .ch)f 15i
        !           398: .wh-\n(:mu )n
        !           399: .ch)f -\n(:mu
        !           400: .wh-\n(:ru BP
        !           401: .em)q
        !           402: .ds` \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m@\(ga\h@|\\n:u@
        !           403: .ds' \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m+.07m@\(aa\h@|\\n:u@
        !           404: .ds+ \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m+.07m@\[email protected]@\(aa\[email protected]@\h@|\\n:u@
        !           405: .ds^ \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.15m-.07m@\
        !           406: \h@\\n(.fu-1u/2u*.02m@^\h@|\\n:u@
        !           407: .ds~ \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m-.07m@\
        !           408: \h@\\n(.fu-1u/2u*.05m@~\h@|\\n:u@
        !           409: .ds, \\k:\h@-\\n(.wu*85u/100u@\[email protected]@,\[email protected]@\h@|\\n:u@
        !           410: .ds: \\k:\h@-\\n(.wu*85u/100u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*3u*.06m@\
        !           411: \h@3u-\\n(.fu/2u*.05m-.1m@\
        !           412: \[email protected]@\z.\h@\\n(.fu-1u/2u*.05m+.2m@.\[email protected]@\h@|\\n:u@
        !           413: .ds; \\k:\h@-\\n(.wu*75u/100u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*3u*.09m@\
        !           414: \h@3u-\\n(.fu/2u*.06m-.15m@\h@\\n(.fu-1u/2u*.04m@\
        !           415: \[email protected]@\z.\[email protected]@.\[email protected]@\h@|\\n:u@
        !           416: .ds- \\k:\h@-\\n(.wu*75u/100u@\[email protected]@`\[email protected]@\h@|\\n:u@
        !           417: .ds/ \\k:\h@-\\n(.wu*85u/100u@\[email protected]@\(aa\[email protected]@\h@|\\n:u@
        !           418: ])

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