Return to macro CVS log

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

Annotation of researchv10no/cmd/monk/db/macro, revision 1.1

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

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