![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to macro.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / monk / db|
Return to macro.m CVS log | Up to [Research Unix] / researchv8dc / cmd / monk / db |
1.1 ! root 1: |include(macro.h) ! 2: ! 3: |macro(.top.of.page; ! 4: [ ! 5: '\" #T used by tbl to draw boxes ????? ! 6: '\" :2 store for multi-page table heading ! 7: '\" :A multi-page table heading being used ! 8: '\" :T top of table printed ! 9: '\" :d prevent )h from outputting a floating group ! 10: '\" :o footer trap location ! 11: '\" :q amount of footnote text ! 12: '\" :r position at end of page header macro ! 13: '\" :u position to return to for second column output ! 14: '\" :v width of stored footnote 0=narrow, 1=wide ! 15: '\" :w output counter for floating keeps ! 16: '\" :z input counter for floating keeps ! 17: '\" P page number register ! 18: '\" ;i remembered indent TEMP ! 19: '\" ;o prevailing page offset ??????? bug with .po ! 20: '\" ;t copy of :w TEMP ! 21: '\" ;w convert to alpha format TEMP ! 22: . de )h ! 23: . ev 2 \" use header environment ! 24: . if "\*(.T"aps" \{\ ! 25: . nr ;o \\n(.o \" save prevailing page offset ! 26: . po 0 \" always from left margin ! 27: . lt 7.5i \" width of photo composer ! 28: . ps 10 \" 10 point roman font ! 29: . vs 10p ! 30: . ft 1 ! 31: . tl '--''--' \" output the cut marks ! 32: . ft \" restore values ! 33: . vs ! 34: . ps ! 35: . lt ! 36: . po \\n(;ou\} ! 37: . nr P +1 \" incr page number ! 38: . lt \\nWu \" use line length for title ! 39: . TP \" user-redefinable macro ! 40: . br \" force a break in the header environment ! 41: . ev \" back to main environment ! 42: . ie \\n(:q .ch )f -\\n(:ou \" reset footer trap ! 43: . el .nr :v 0 \" no saved footnotes, thus narrow ! 44: . mk :r \" position at end of page header macro ! 45: . mk :u \" save where second column starts ! 46: '\" output floating displays ! 47: . if \\n(:d=0&(\\n(:z-\\n(:w) \{\ ! 48: . nr ;t \\n(:w%26+1 \" get index of next output element ! 49: . af ;w a \" conversion register for display queue names ! 50: . nr ;w \\n(;t \" form the next queue element name ! 51: . )z \" output at least one floating display ! 52: . )s \" but as many as will fit ! 53: . rr ;t ;w \} \" free storage ! 54: '\" print top part of multi-page table ! 55: . nr :T 0 \" mark multi-page table header not printed ! 56: . if \\n(:A>0 \{\ ! 57: . nr ;i \\n(.i \" save prevailing indent ! 58: . in 0 \" indent back ! 59: . :2 \" heading ! 60: . nr :T 1 \" mark multi-page table header printed ! 61: . in \\n(;iu \} \" restore prevailing indent ! 62: . mk #T \" mark spot for table drawing ??????? ! 63: . rr ;i ;o ;t ;w \" free storage ! 64: . ns \" avoid .sp in user text here ! 65: .. ! 66: ]) ! 67: ! 68: |macro(top.of.page; ! 69: [ ! 70: '\" EH string containing even top title info ! 71: '\" OH string containing odd top title info ! 72: '\" P page number register ! 73: '\" PH string containing top title info ! 74: '\" ;P page number register TEMP ! 75: . de TP ! 76: ' sp ! 77: . af ;P \\gP \" save format of P ! 78: . af P 1 \" normal format for next line ! 79: . nr ;P \\nP \" must use different name for P ! 80: . af P \\g(;P \" restore format to P ! 81: . af ;P 1 \" normal format for control register ! 82: ' sp 2 ! 83: . if \\n(;P-1 .tl \\*(PH \" output headers ! 84: . if !\\n(;P%2 .tl \\*(EH ! 85: . if \\n(;P%2 .tl \\*(OH ! 86: ' sp 2 ! 87: . if \\n(;P=4 .if "\\*(f0"model" \{.nr L 13.25i \" model sheet kludge ! 88: . pl 13.25i \} \" model sheet kludge ! 89: . rr ;P \" free storage ! 90: .. ! 91: ]) ! 92: ! 93: |macro(.end.of.page; ! 94: [ ! 95: '\" #T used by tbl to draw boxes ????? ! 96: '\" :2 store for multi-page table heading ! 97: '\" :A multi-page table heading being used ! 98: '\" :C 0=one column, 1=first column, 2=second column ! 99: '\" :K position for )f trap ! 100: '\" :T top of table printed ! 101: '\" :d prevent )h from outputting a floating group ! 102: '\" :f bottom of table printed ! 103: '\" :m initial footer place and partial footnote diverter trap ! 104: '\" :o footer trap location ! 105: '\" :q amount of footnote text ! 106: '\" :v width of stored footnote 0=narrow, 1=wide ! 107: '\" :w output counter for floating keeps ! 108: '\" :z input counter for floating keeps ! 109: '\" T. ????? ! 110: '\" ;i remembered indent TEMP ! 111: '\" ;o page offset transfer TEMP ! 112: '\" ;t copy of :w TEMP ! 113: '\" ;u hidden def of )f TEMP ! 114: '\" ;w convert to alpha format TEMP ! 115: '\" ;y room left on the page TEMP ! 116: . de )f ! 117: '\" print bottom part of boxed multi-page table ! 118: . if \\n(:A \{\ ! 119: . rn )f ;u \"hide footer ! 120: . nr T. 1 ! 121: . if \\n(:f=0 .T# 1 \" print multi-page table footer ! 122: ' br \" output new page ! 123: . nr :f 1 \" remember footer has been printed ! 124: . rn ;u )f \} \" restore footer ! 125: . nr ;y \\n(.pu-\\n(nlu-\\n(:mu \" compute amount of room left on the page ! 126: . if \\n(:qu>4v .nr ;y -4v \" output a reasonable amount ! 127: '\" if footnotes and there is room left and full page or left column output, ! 128: '\" or narrow footnotes, call footnote expander ! 129: . ie \\n(:q&\\n(;y&((\\n(:C<2):(\\n(:v=0)) .)o ! 130: . el \{\ ! 131: . ch )f -\\n(:mu \" hide footnote divider trap ! 132: . nr :o \\n(:m+\\n(:q \} \" reset footer trap location ! 133: . ie \\n(:C=0 'bp \" new page if not multi-column ! 134: '\" end second column ! 135: . el .ie \\n(:C=2 \{\ ! 136: . nr ;o \\nOu \" save second column offset ! 137: . nr O \\n(:Ou \" restore first column offset ! 138: . nr :O \\n(;o \" save second column offset ! 139: . po \\nOu \" reset page offset ! 140: . nr :C 1 \" set col indicator ! 141: ' bp \" force next page ! 142: . rr ;o \} \" free storage ! 143: '\" end first column ! 144: . el \{\ ! 145: . rt \\n(:uu \" return to top ! 146: . nr ;o \\nOu \" save first column offset ! 147: . nr O \\n(:Ou \" restore second column offset ! 148: . nr :O \\n(;o \" save first column offset ! 149: . po \\nOu \" advance page offset ! 150: . nr :C 2 \" set col indicator ! 151: . if \\n(:q .ch )f -\\n(:ou \" reset footer trap ! 152: '\" output floating displays that are narrow ! 153: . if \\n(:d=0&(\\n(:z-\\n(:w) \{\ ! 154: . nr ;t \\n(:w%26+1 \" get index of next output element ! 155: . af ;w a \" conversion register for display queue names ! 156: . nr ;w \\n(;t \" form the next queue element name ! 157: '\" inhibit if wide display ! 158: . if \\n(!\\n(;w=1 \{\ ! 159: . )z \" output at least one floating display ! 160: . )s \} \" but as many as will fit ! 161: . rr ; o ;t ;w \} \" free storage ! 162: '\" print top part of multi-page table ! 163: . nr :T 0 \" mark multi-page table header not printed ! 164: . if \\n(:A>0 \{\ ! 165: . nr ;i \\n(.i \" save prevailing indent ! 166: . in 0 \" indent back ! 167: . :2 \" heading ! 168: . nr :T 1 \" mark multi-page table header printed ! 169: . in \\n(;iu \} \" restore prevailing indent ! 170: . mk #T \" mark spot for table drawing ??????? ! 171: . rr ;i ;t ;w \" free storage ! 172: . ns \} \" avoid .sp in user text here ! 173: . if \\n(:A \{\ ! 174: . nr :K \\n(:ou+2v \" position for )f trap ! 175: . ch >f -(\\n(:Ku+1v) \" when moved by >f macro ! 176: ' br \} ! 177: . rr ;y \" free storage ! 178: .. ! 179: ]) ! 180: ! 181: |macro(.float.output; ! 182: [ ! 183: '\" !{a-z} width of stored floating 0=narrow, 1=wide ! 184: '\" :C 0=one column, 1=first column, 2=second column ! 185: '\" :d prevent )h from outputting a floating group ! 186: '\" :w output counter for floating keeps ! 187: '\" :z input counter for floating keeps ! 188: '\" ?{a-z} text of stored floating ! 189: '\" |{a-z} size of stored floating ! 190: '\" ;i remembered indent TEMP ! 191: '\" ;l remembered line spacing TEMP ! 192: '\" ;q remembered fill/no-fill mode TEMP ! 193: '\" ;w convert to alpha format TEMP ! 194: . de )z ! 195: . if !\\n(:z-\\n(:w .tm no floats to output ! 196: . nr :w \\n(:w%26+1 \" get index of next output element ! 197: . af ;w a \" conversion register for display queue names ! 198: . nr ;w \\n(:w \" form the next queue element name ! 199: . nr ;q \\n(.u \" save prevailing fill/no-fill mode ! 200: . nr ;l \\n(.L \" save line spacing ! 201: . nr ;i \\n(.i \" save prevailing indent ! 202: . ev 1 \" use footnote environment ! 203: . nf \" bring it back in no-fill ! 204: . ls 1 \" output display in ls 1 ! 205: . in 0 \" indent back ! 206: . nr :d 1 \" inhibit header from calling )y ! 207: . rs \" restore spacing ! 208: . br \" output partial line before display ! 209: . ?\\n(;w \" lay out one keep ! 210: . if \\n(;q .fi \" restore fill if necessary ! 211: . ls \\n(;L \" restore line spacing ! 212: . in \\n(;iu \" restore prevailing indent ! 213: . nr :d 0 \" allow )h to process fl keeps again ! 214: . ev \" back to previous environment ! 215: . ne 2 \" require two lines under float ! 216: . rm ?\\n(;w \" free storage ! 217: . rr |\\n(;w !\\n(;w ! 218: . rr ;i ;l ;q ;w ! 219: .. ! 220: ]) ! 221: ! 222: |macro(.multiple.float.output; ! 223: [ ! 224: '\" !{a-z} width of stored floating 0=narrow, 1=wide ! 225: '\" :C 0=one column, 1=first column, 2=second column ! 226: '\" :m initial footer place and partial footnote diverter trap ! 227: '\" :o footer trap location ! 228: '\" :r position at end of page header macro ! 229: '\" :w output counter for floating keeps ! 230: '\" :z input counter for floating keeps ! 231: '\" |{a-z} size of stored floating ! 232: '\" ;h height of floating display on top of queue TEMP ! 233: '\" ;t copy of :w TEMP ! 234: '\" ;w convert to alpha format TEMP ! 235: . de )s ! 236: '\" inhibit if no floats in queue ! 237: . if \\n(:z-\\n(:w \{\ ! 238: . nr ;t \\n(:w%26+1 \" get index of next output element ! 239: . af ;w a \" conversion register for display queue names ! 240: . nr ;w \\n(;t \" form the next queue element name ! 241: . nr ;h \\n(|\\n(;w \" height of current display ! 242: '\" The following if condition tests: (1) if wide displays and (2) we are on the ! 243: '\" first column and (3) if the float fits on the current page ! 244: '\" or (4) the float is too large to fit on any one page, and (5) we have used ! 245: '\" less than half of the current page. (the five conditions are grouped ! 246: '\" in the form ((1 & 2) & (1 : (2 & 3))). If this total condition is true, ! 247: '\" then a float is output. ! 248: . if (((\\n(!\\n(;w=1)&(\\n(:C<2))&\ ! 249: ((\\n(;h<\\n(.t):((\\n(;h>(\\n(.p-\\n(:r-\\n(:m))&\ ! 250: (\\n(nl<=(\\n(.p-\\n(:r-\\n(:o/2u+\\n(:r))))) \{\ ! 251: . )z \" output it ! 252: . )s \} \" recurse ! 253: . rr ;h ;t ;w \} \" free storage ! 254: .. ! 255: ]) ! 256: ! 257: |macro(.flush.float.output; ! 258: [ ! 259: '\" :d prevent )h from outputting a floating group ! 260: '\" :w output counter for floating keeps ! 261: '\" :z input counter for floating keeps ! 262: '\" ;o copy of :w TEMP ! 263: . de )w ! 264: '\" inhibit if no floats in queue ! 265: . if \\n(:z-\\n(:w \{\ ! 266: . nr ;o \\n(:w \" save output count ! 267: . )s ! 268: . if \\n(:w=\\n(;o \{\ ! 269: . nr :d 1 \" inhibit header from calling )y ! 270: . rs \" turn on spacing ! 271: . bp \" top of next page ! 272: . nr :d 0 \} \" allow )h to process fl keeps again ! 273: . )w \} \" recurse ! 274: . rr ;o \" free storage ! 275: .. ! 276: ]) ! 277: ! 278: |macro(.footnote.output; ! 279: [ ! 280: '\" dump accumulated footnote text ! 281: '\" long text may spring )n trap so the remaining partial ! 282: '\" text may go into :3 ! 283: '\" :3 store for partial footnotes ! 284: '\" :m initial footer place and partial footnote diverter trap ! 285: '\" :o footer trap location ! 286: '\" :q amount of footnote text ! 287: '\" :v width of stored footnote 0=narrow, 1=wide ! 288: . de )o ! 289: . ev 1 \" use footnote environment ! 290: . nf \" bring it back in no-fill ! 291: . ls 1 \" output display in ls 1 ! 292: . in 0 \" indent back ! 293: . :F \" lay out footnotes ! 294: '\" did we spring the partial footnote trap ! 295: . ie "\\n(.z":3" \{\ ! 296: . br \" get last partial line ! 297: . di \" end diversion ! 298: . nr :q \\n(dnu \" fix amount of footnote text ! 299: . rn :3 :F \} \" put text back in :F ! 300: . el .nr :q 0 \" clear amount of footnote text ! 301: . ev \" back to main environment ! 302: . if \\n(:qu<=2v \{\ \" ignore just divider line ! 303: . nr :q 0 \" clear amount of footnote text ! 304: . rm :F \} \" clear text of footnote ! 305: . nr :o \\n(:mu+\\n(:qu \" reset footnote location register ! 306: . ch )f -\\n(:ou \" reset trap for footer ! 307: .. ! 308: ]) ! 309: ! 310: |macro(.footnote.diverter; ! 311: [ ! 312: '\" partial footnote text diverter ! 313: '\" called via trap planted at -\n(:m ! 314: '\" since the default footer trap is also at -n(:m, ! 315: '\" this macro actually invoked when the footer trap ! 316: '\" has been moved up due to footnote processing ! 317: '\" :3 store for partial footnotes ! 318: '\" :q amount of footnote text ! 319: '\" ;o prevailing page offset ??????? bug with .po ! 320: . de )n ! 321: . if \\n(:q \{\ ! 322: . di :3 ! 323: . nr ;o \\n(.o \" save prevailing page offset ! 324: . po \\nOu \" always from left margin ! 325: . ps 10 \" 10 point roman font ! 326: . vs 10p ! 327: . ft 1 ! 328: . ie \n(.A=0 \l@\\n(.lu@ ! 329: . el _____________________________ ! 330: . ft \" restore values ! 331: . vs ! 332: . ps ! 333: . po \\n(;ou\} ! 334: .. ! 335: ]) ! 336: ! 337: |macro(.end.of.file; ! 338: [ ! 339: . de )q ! 340: .. ! 341: ]) ! 342: ! 343: |macro(.initalize; ! 344: [ ! 345: '\" REQUIRED INITIALIZATIONS ! 346: '\" initialize various regs ! 347: '\" !{a-z} width of stored floating 0=narrow, 1=wide ! 348: '\" #T used by tbl to draw boxes ????? ! 349: '\" :0 store for initally diverted text ! 350: '\" :1 store for centered block text ! 351: '\" :2 store for multi-page table heading ! 352: '\" :3 store for partial footnotes ! 353: '\" :A multi-page table heading being used ! 354: . nr :A 0 ! 355: '\" :C 0=one column, 1=first column, 2=second column ! 356: . nr :C 0 ! 357: '\" :F Footnote text ! 358: '\" :K position for )f trap ! 359: . nr :K 0 ! 360: '\" :O page offset for other column ! 361: . nr :O 0 ! 362: '\" :T top of table printed ! 363: . nr :T 0 ! 364: '\" :W page width for full page output ! 365: . nr :W 0 ! 366: '\" :d prevent )h from outputting a floating group ! 367: . nr :d 0 ! 368: '\" :f bottom of table printed ! 369: . nr :f 0 ! 370: '\" :m initial footer place and partial footnote diverter trap ! 371: . nr :m .8i ! 372: '\" :o footer trap location ! 373: . nr :o \n(:mu ! 374: '\" :q amount of footnote text ! 375: . nr :q 0 ! 376: '\" :r position at end of page header macro ! 377: . nr :r .6i ! 378: '\" :u position to return to for second column output ! 379: . nr :u .6i ! 380: '\" :v width of stored footnote 0=narrow, 1=wide ! 381: . nr :v 0 ! 382: '\" :w output counter for floating keeps ! 383: . nr :w 0 ! 384: '\" :x flag indicating footnote in progress ! 385: . nr :x 0 ! 386: '\" :y flag indicating group/float in progress ! 387: . nr :y 0 ! 388: '\" :z input counter for floating keeps ! 389: . nr :z 0 ! 390: '\" ?{a-z} text of stored floating ! 391: '\" AT string containing AT&T in helvetica ! 392: . ds AT \fP\f(HBA\h'-.2m'T\h'-.15m'\s0\s13&\s0\s16\h'-.15m'T ! 393: '\" DT date string ! 394: . if \n(mo-0 .ds DT January ! 395: . if \n(mo-1 .ds DT February ! 396: . if \n(mo-2 .ds DT March ! 397: . if \n(mo-3 .ds DT April ! 398: . if \n(mo-4 .ds DT May ! 399: . if \n(mo-5 .ds DT June ! 400: . if \n(mo-6 .ds DT July ! 401: . if \n(mo-7 .ds DT August ! 402: . if \n(mo-8 .ds DT September ! 403: . if \n(mo-9 .ds DT October ! 404: . if \n(mo-10 .ds DT November ! 405: . if \n(mo-11 .ds DT December ! 406: . as DT " \n(dy, 19\n(yr ! 407: '\" EH string containing even top title info ! 408: '\" F default font ! 409: . nr F 1 ! 410: '\" L page length ! 411: . if !\nL .nr L 11i ! 412: '\" LO string containing logo ! 413: . ie "\*(.T"aps" .ds LO \s36\(Lb\s0 ! 414: . el .ds LO \s36\(L1\s0\s16\v'-.4'\*(AT\v'.4'\h'-\w'\*(AT'u'\fP\s0 ! 415: '\" OH string containing odd top title info ! 416: '\" P page number ! 417: . if \nP .nr P -1 ! 418: . nr P \nP 1 ! 419: '\" PH string containing top title info ! 420: . ds PH ''- \\nP -'' \" top of page string ! 421: '\" O page offset ! 422: . if !\w'\gO' .ie t .nr O .963i ! 423: . el .nr O 0i ! 424: . if "\*(.T"202" .nr O \nO-.34375i ! 425: . if "\*(.T"aps" .nr O \nO-.21875i ! 426: '\" S default point size ! 427: . if !\nS .nr S 10 ! 428: '\" T. ????? ! 429: '\" W page width ! 430: . if !\nW .nr W 6i ! 431: '\" |{a-z} size of stored floating ! 432: '\" INITIAL SET UP ! 433: . wh 0 )h \" trap for header ! 434: . wh -\n(:mu )f \" trap for footer ! 435: . ch )f 15i \" move it over partial footnote diverter ! 436: . wh -\n(:mu )n \" trap for partial footnote diverter ! 437: . ch )f -\n(:mu ! 438: . em )q \" end macro ! 439: '\" TROFF ACCENTS (` ' ^ ~ cedilla and 2 umlauts) ! 440: '\" The accent string must follow immediately the character to be accented. ! 441: '\" These strings are "tuned" to the Times Roman type faces ONLY. ! 442: '\" The R, I, and B fonts are assumed to be mounted in ! 443: '\" positions 1, 2, and 3, respectively. ! 444: '\" All of these strings alter the number register `:'. ! 445: '\" Grave accent -- {aeou}\*` ! 446: . ds ` \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m@\(ga\h@|\\n:u@ ! 447: '\" Lower-case acute accent -- {aeou}\*' ! 448: . ds ' \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m+.07m@\(aa\h@|\\n:u@ ! 449: '\" Upper-case acute accent -- {aeou}\*+ ! 450: . 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@ ! 451: '\" Circumflex -- {aeou}\*^ ! 452: . ds ^ \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.15m-.07m@\ ! 453: \h@\\n(.fu-1u/2u*.02m@^\h@|\\n:u@ ! 454: '\" Tilde -- n\*~ (But watch out for ".tr ~") ! 455: . ds ~ \\k:\h@-\\n(.wu*8u/10u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*.2m-.07m@\ ! 456: \h@\\n(.fu-1u/2u*.05m@~\h@|\\n:u@ ! 457: '\" Cedilla -- c\*, ! 458: . ds , \\k:\h@-\\n(.wu*85u/100u@\[email protected]@,\[email protected]@\h@|\\n:u@ ! 459: '\" Lower-case umlaut -- {aeou}\*: ! 460: . ds : \\k:\h@-\\n(.wu*85u/100u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*3u*.06m@\ ! 461: \h@3u-\\n(.fu/2u*.05m-.1m@\ ! 462: \[email protected]@\z.\h@\\n(.fu-1u/2u*.05m+.2m@.\[email protected]@\h@|\\n:u@ ! 463: '\" Upper-case umlaut -- {AEOU}\*; ! 464: . ds ; \\k:\h@-\\n(.wu*75u/100u@\h@\\n(.fu/2u*2u+1u-\\n(.fu*3u*.09m@\ ! 465: \h@3u-\\n(.fu/2u*.06m-.15m@\h@\\n(.fu-1u/2u*.04m@\ ! 466: \[email protected]@\z.\[email protected]@.\[email protected]@\h@|\\n:u@ ! 467: '\" Nasal -- c\*- ! 468: . ds - \\k:\h@-\\n(.wu*75u/100u@\[email protected]@`\[email protected]@\h@|\\n:u@ ! 469: '\" Slash -- c\*/ ! 470: . ds / \\k:\h@-\\n(.wu*85u/100u@\[email protected]@\(aa\[email protected]@\h@|\\n:u@ ! 471: ])
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.