![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to attrib.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / monk / o.db|
Return to attrib.m CVS log | Up to [Research Unix] / researchv10no / cmd / monk / o.db |
1.1 ! root 1: |include(list.h) ! 2: |include(macro.h) ! 3: |include(style.h) ! 4: ! 5: |attribute(page.offset; init 0; ! 6: $ [ ! 7: '\" O current page offset ! 8: '\" On page offset for column n ! 9: . po $ ! 10: . nr O \n(.o ! 11: . nr O0 \n(.o ! 12: ]) ! 13: ! 14: |attribute(line.length; init 6i; ! 15: $ [ ! 16: '\" W current page width ! 17: '\" Wn page width for column n ! 18: . ll $ ! 19: . lt $ ! 20: . nr W \n(.lu ! 21: ]) ! 22: ! 23: |attribute(page.length; init 11i; ! 24: $ [ ! 25: . pl $ ! 26: ]) ! 27: ! 28: |attribute(spacing; init off; ! 29: on [ ! 30: . rs ! 31: ] off [ ! 32: . ns ! 33: ]) ! 34: ! 35: |attribute(new.page; nostack; ! 36: [ ! 37: . bp ! 38: ] odd [ ! 39: '\" ;P page number register TEMP ! 40: . bp ! 41: . af ;P \g+Q+-Q-page_counter \" save format of page_counter ! 42: . af page_counter 1 \" normal format for next line ! 43: . nr ;P \n page_counter \" must use different name for P ! 44: . af page_counter \g(;P \" restore format to P ! 45: . af ;P 1 \" normal format for control register ! 46: . if !\n(;P%2 \{\ ! 47: . rs ! 48: . bp \} ! 49: . rr ;P \" free storage ! 50: ] even [ ! 51: '\" ;P page number register TEMP ! 52: . bp ! 53: . af ;P \g+Q+-Q-page_counter \" save format of page_counter ! 54: . af page_counter 1 \" normal format for next line ! 55: . nr ;P \n page_counter \" must use different name for P ! 56: . af page_counter \g(;P \" restore format to P ! 57: . af ;P 1 \" normal format for control register ! 58: . if \n(;P%2 \{\ ! 59: . rs ! 60: . bp \} ! 61: . rr ;P \" free storage ! 62: ]) ! 63: ! 64: |attribute(line.spacing; stack, init 1; ! 65: $ [ ! 66: . ls $ ! 67: ]) ! 68: ! 69: |attribute(blank.lines; nostack; ! 70: $ [ ! 71: . sp $ ! 72: . ti \n(.iu \" movement resets indentation ! 73: ] [ ! 74: . sp 1 ! 75: . ti \n(.iu \" movement resets indentation ! 76: ]) ! 77: ! 78: |attribute(minimum.lines; nostack; ! 79: $ [ ! 80: '\" minimum space mechanism ! 81: '\" :B amount of accumulated blank space ! 82: '\" :D amount of accumulated blank space in diversion ! 83: '\" :E position of last minimum space in diversion ! 84: '\" :N position of last minimum space ! 85: '\" }D name of last minimum space diversion ! 86: '\" ;4 amount to space TEMP ! 87: . br ! 88: '\" when in a diversion, use .d (rather than nl) for position ! 89: '\" careful--space might occur at the same ! 90: '\" position BUT in a different named diversion ! 91: '\" (hence, the use of the string }D) ! 92: '\" bug still might be possible, if the same named diversion ! 93: '\" is used, that a space might occur in the same vertical place. ! 94: '\" very unlikely for ! 95: '\" a) monk will remove :D and :E when not in a diversion ! 96: '\" b) tbl generates unique names ! 97: . ie !'\n(.z'' \{\ ! 98: . if !'\n(.z'\*(}D' .rr :D :E ! 99: . nr ;4 $v ! 100: . if !(\n(.d=\n(:D) .nr :E 0 \" different place for sure ! 101: . nr ;4 -\n(:Eu \" remove previous accumulation, if any ! 102: . if \n(;4 \{\ ! 103: . sp \n(;4u ! 104: . nr :E +\n(;4u \} ! 105: . rm ;4 ! 106: . ds }D \n(.z ! 107: . nr :D \n(.d \} ! 108: . el \{\ ! 109: . rr :D :E \" remove the in-diversion registers ! 110: . nr ;4 $v ! 111: . if !(\n(nl=\n(:N) .nr :B 0 \" different place for sure ! 112: . nr ;4 -\n(:Bu \" remove previous accumulation, if any ! 113: . if \n(;4 \{\ ! 114: . sp \n(;4u \" space and recompute accumulation ! 115: . nr :B +\n(;4u \} ! 116: . rm ;4 ! 117: . nr :N \n(nl \} ! 118: . ti \n(.iu \" movement resets indentation ! 119: ] [ ! 120: '\" minimum space mechanism ! 121: '\" :B amount of accumulated blank space ! 122: '\" :D amount of accumulated blank space in diversion ! 123: '\" :E position of last minimum space in diversion ! 124: '\" :N position of last minimum space ! 125: '\" }D name of last minimum space diversion ! 126: '\" ;4 amount to space TEMP ! 127: . br ! 128: '\" when in a diversion, use .d (rather than nl) for position ! 129: '\" careful--space might occur at the same ! 130: '\" position BUT in a different named diversion ! 131: '\" (hence, the use of the string }D) ! 132: '\" bug still might be possible, if the same named diversion ! 133: '\" is used, that a space might occur in the same vertical place. ! 134: '\" very unlikely for ! 135: '\" a) monk will remove :D and :E when not in a diversion ! 136: '\" b) tbl generates unique names ! 137: . ie !'\n(.z'' \{\ ! 138: . if !'\n(.z'\*(}D' .rr :D :E ! 139: . nr ;4 1v ! 140: . if !(\n(.d=\n(:D) .nr :E 0 \" different place for sure ! 141: . nr ;4 -\n(:Eu \" remove previous accumulation, if any ! 142: . if \n(;4 \{\ ! 143: . sp \n(;4u ! 144: . nr :E +\n(;4u \} ! 145: . rm ;4 ! 146: . ds }D \n(.z ! 147: . nr :D \n(.d \} ! 148: . el \{\ ! 149: . rr :D :E \" remove the in-diversion registers ! 150: . nr ;4 1v ! 151: . if !(\n(nl=\n(:N) .nr :B 0 \" different place for sure ! 152: . nr ;4 -\n(:Bu \" remove previous accumulation, if any ! 153: . if \n(;4 \{\ ! 154: . sp \n(;4u \" space and recompute accumulation ! 155: . nr :B +\n(;4u \} ! 156: . rm ;4 ! 157: . nr :N \n(nl \} ! 158: . ti \n(.iu \" movement resets indentation ! 159: ]) ! 160: ! 161: |attribute(horizontal.motion; nostack; ! 162: $ [\h'$'] ! 163: number $$. [\h'\n$$.'] ! 164: number $number.register [\h'\n($number.register']) ! 165: ! 166: |attribute(vertical.motion; nostack; ! 167: $ [\v'$'] ! 168: number $$. [\v'\n$$.'] ! 169: number $number.register [\v'\n($number.register']) ! 170: ! 171: |attribute(concatenate; nostack; ! 172: [\&\c ! 173: ]) ! 174: ! 175: |attribute(new.line; nostack; ! 176: [ ! 177: . br ! 178: ]) ! 179: ! 180: |attribute(indent; stack, default 0; ! 181: $ [ ! 182: . in $ ! 183: ]) ! 184: ! 185: |attribute(indent.line; nostack; ! 186: $ [ ! 187: . ti $ ! 188: ] ! 189: number $$. [ ! 190: . ti \n$$.u ! 191: ] ! 192: number $number.register [ ! 193: . ti \n($number.registeru ! 194: ]) ! 195: ! 196: |attribute(fill; stack, init on; ! 197: on [ ! 198: ' fi ! 199: ] off [ ! 200: ' nf ! 201: ]) ! 202: ! 203: |attribute(adjust; stack, init both; ! 204: right [ ! 205: . ad r ! 206: ] left [ ! 207: . ad l ! 208: ] both [ ! 209: . ad b ! 210: ] on [ ! 211: . ad ! 212: ] off [ ! 213: . na ! 214: ]) ! 215: ! 216: |attribute(title; nostack; ! 217: $left $center $right [ ! 218: . tl \(ts$left\(ts$center\(ts$right\(ts ! 219: ] $$. [ ! 220: . tl \*$$. ! 221: ] $$.. [ ! 222: . tl \*($$.. ! 223: ] $ [ ! 224: . tl $ ! 225: ]) ! 226: ! 227: |attribute(center; stack, default off; ! 228: on [ ! 229: . ce 9999 ! 230: ] off [ ! 231: . ce 0 ! 232: ]) ! 233: ! 234: |attribute(center.block; stack, default off; ! 235: on [ ! 236: '\" :1 store for centered block text ! 237: '\" :Y width of a center block diversion ! 238: . nr :Y 0 \" initialize width of block ! 239: . br \" output partial line before block ! 240: . di :1 \" begin diversion ! 241: ] off [ ! 242: '\" :1 store for centered block text ! 243: '\" :Y width of a center block diversion ! 244: '\" ;L remembered line spacing TEMP ! 245: '\" ;i remembered indent TEMP ! 246: '\" ;q remembered fill/no-fill mode TEMP ! 247: . br \" get last partial line ! 248: . di \" end diversion of centered block ! 249: . nr ;q \n(.u \" save prevailing fill/no-fill mode ! 250: . nf \" bring it back in no-fill ! 251: . nr ;L \n(.L \" save line spacing ! 252: . ls 1 \" output display in ls 1 ! 253: . nr ;i \n(.i \" save prevailing indent ! 254: . if \n(dl>\n(:Y .nr :Y \n(dl ! 255: . if \n(:Y<\n(.l .in (\n(.lu-\n(:Yu)/2u \"indent by half of white-space ! 256: . :1 \" text ! 257: . if \n(;q .fi \" restore fill if necessary ! 258: . ls \n(;L \" restore line spacing ! 259: . in \n(;iu \" restore prevailing indent ! 260: . rr ;L ;i ;q \" free storage ! 261: . rm :1 ! 262: ]) ! 263: ! 264: |attribute(text; nostack; ! 265: $ [$] ! 266: roman $ [\f1\&$\fP\&] ! 267: italics $ [\f2\&$\fP\&] ! 268: bold $ [\f3\&$\fP\&] ! 269: bolditalics $ [\f4\&$\fP\&] ! 270: cw $ [\f(CW\&$\fP\&]) ! 271: ! 272: |attribute(error; nostack; ! 273: number $* $$. [ ! 274: . tm "__FILE__":__LINE__: $* \n$$. ! 275: ] number $* $number.register [ ! 276: . tm "__FILE__":__LINE__: $* \n($number.register ! 277: ] string $* $$. [ ! 278: . tm "__FILE__":__LINE__: $* \n$$. ! 279: ] string $* $string.register [ ! 280: . tm "__FILE__":__LINE__: $* \n($string.register ! 281: ] $* [ ! 282: . tm "__FILE__":__LINE__: $* ! 283: ]) ! 284: ! 285: |attribute(here; stack, default off; ! 286: on [ ! 287: '\" group mechanism ! 288: '\" :0 store for initally diverted text ! 289: '\" :y flag indicating group/float in progress ! 290: . if \n(:y .tm "__FILE__":__LINE__: Here's and/or Around's can not be nested ! 291: . nr :y 1 \" set flag indicating group ! 292: . br \" output partial line before display ! 293: . di :0 \" collect in :0 ! 294: ] off [ ! 295: '\" Control page orientation of blocks. ! 296: '\" Blocks are output as soon after their definition as ! 297: '\" feasible. The following rules are used: ! 298: '\" 1. if the block will fit on the current page, output it there. ! 299: '\" 2. if the block won't fit on any page, and we have used less than ! 300: '\" half of the current page, then output the block on the ! 301: '\" current page. ! 302: '\" 3. skip to the next page. ! 303: . br \" get last partial line ! 304: . di \" end diversion ! 305: '\" The following if condition tests: (1) if the block is too large to ! 306: '\" fit on the current page and either (2) it will fit on an unused page ! 307: '\" or (3) we have already used more than half of the current page. (the ! 308: '\" three conditions are grouped in the form 1 & (2 : 3)). If this ! 309: '\" total condition is true, then a page is ejected and the block output ! 310: '\" on the next page. ! 311: '\" :0 store for initally diverted text ! 312: '\" :d prevent )h from outputting a floating group ! 313: '\" :m initial footer place and partial footnote diverter trap ! 314: '\" :o footer trap location ! 315: '\" :r position at end of page header macro ! 316: '\" :y flag indicating group/float in progress ! 317: '\" ;L remembered line spacing TEMP ! 318: '\" ;i remembered indent TEMP ! 319: '\" ;q remembered fill/no-fill mode TEMP ! 320: . nr :d 1 \" prevent )h from outputting a floating group ! 321: . if (\n(dn>=\n(.t)&((\n(dn<(\n(.p-\n(:r-\n(:m)):\ ! 322: (\n(nl>(\n(.p-\n(:r-\n(:o/2u+\n(:r)))\ ! 323: . ne \n(.tu+1v \" spring the trap ! 324: . nr ;q \n(.u \" save prevailing fill/no-fill mode ! 325: . nf \" bring it back in no-fill ! 326: . nr ;L \n(.L \" save line spacing ! 327: . ls 1 \" output display in ls 1 ! 328: . nr ;i \n(.i \" save prevailing indent ! 329: . in 0 \" indent back ! 330: . rs \" restore spacing ! 331: . :0 \" text ! 332: . nr :d 0 \" allow )h to output a floating group ! 333: . if \n(;q .fi \" restore fill if necessary ! 334: . ls \n(;L \" restore line spacing ! 335: . in \n(;iu \" restore prevailing indent ! 336: . nr :y 0 \" reset flag indicating group ! 337: . rr ;L ;i ;q \" free storage ! 338: . rm :0 ! 339: ]) ! 340: ! 341: |attribute(around; stack, default off; ! 342: on [ ! 343: '\" float mechanism ! 344: '\" :0 store for initally diverted text ! 345: '\" :y flag indicating group/float in progress ! 346: '\" Wn page width for column n ! 347: '\" ;L prevailing line spacing ! 348: '\" ;f prevailing font ! 349: '\" ;i prevailing indent ! 350: '\" ;j prevailing adjust ! 351: '\" ;l prevailing line length ! 352: '\" ;s prevailing point size ! 353: '\" ;u prevailing fill/no-fill mode ! 354: '\" ;v prevailing vertical spacing ! 355: . if \n(:y .tm "__FILE__":__LINE__: Here's and/or Around's can not be nested ! 356: . nr :y 1 \" set flag indicating group ! 357: . nr ;s \n(.s \" save prevailing point size ! 358: . nr ;f \n(.f \" save prevailing font ! 359: . nr ;u \n(.u \" save prevailing fill/no-fill mode ! 360: . nr ;j \n(.j \" save prevailing adjust ! 361: . nr ;v \n(.v \" save prevailing vertical spacing ! 362: . nr ;L \n(.L \" save prevailing line spacing ! 363: . nr ;l \n(.l \" save prevailing line length ! 364: . nr ;i \n(.i \" save prevailing indent ! 365: . ev 1 \" use footnote environment ! 366: . ps \n(;s \" restore point size ! 367: . vs \n(;sp+2p \" restore vertical spacing ! 368: . ft \n(;f \" restore font ! 369: . nf \" bring it back in no-fill ! 370: . if \n(;u .fi \" restore fill if necessary ! 371: . ad \n(;j \" restore page adjust ! 372: . vs \n(;vu \" restore vertical spacing ! 373: . ls \n(;L \" restore line spacing ! 374: . ll \n(;lu \" restore line length ! 375: . in \n(;iu \" restore indent ! 376: . ti \n(;iu \" restore indentation ! 377: . hy 14 \" turn on hyphenation ! 378: . lt \n(;lu \" restore title length ! 379: |ifvalue around_width full [ ! 380: . if \n(column_counter \{\ ! 381: . ll \n(W0u \" go wide ! 382: . lt \n(W0u \} ! 383: ] ! 384: . di :0 \" collect in :0 ! 385: ] off [ ! 386: '\" Control page orientation of floats. ! 387: '\" Floats are output as soon after their definition as ! 388: '\" feasible. The following rules are used: ! 389: '\" 1. if the queue contains only this float and it will fit on the ! 390: '\" current page, output it there. ! 391: '\" 2. if the queue contains only this float and it won't fit on any ! 392: '\" page, and we have used less than half of the current page, ! 393: '\" then output the float on the current page. ! 394: '\" 3. let the top of page macro handle it. ! 395: '\" !{a-z} width of stored floating 0=narrow, 1=wide ! 396: '\" :0 store for initally diverted text ! 397: '\" :m initial footer place and partial footnote diverter trap ! 398: '\" :o footer trap location ! 399: '\" :r position at end of page header macro ! 400: '\" :w output counter for floating keeps ! 401: '\" :y flag indicating group/float in progress ! 402: '\" :z input counter for floating keeps ! 403: '\" ?{a-z} text of stored floating ! 404: '\" W current page width ! 405: '\" |{a-z} size of stored floating ! 406: '\" ;L prevailing line spacing ! 407: '\" ;f prevailing font ! 408: '\" ;i prevailing indent ! 409: '\" ;j prevailing adjust ! 410: '\" ;l prevailing line length ! 411: '\" ;s prevailing point size ! 412: '\" ;u prevailing fill/no-fill mode ! 413: '\" ;v prevailing vertical spacing ! 414: '\" ;w convert to alpha format ! 415: . br \" get last partial line ! 416: . di \" end diversion of around block ! 417: |ifvalue around_width full [ ! 418: . if \n(column_counter \{\ ! 419: . ll \nWu \" go narrow ! 420: . lt \nWu \} ! 421: ] ! 422: . ev \" back to previous environment ! 423: . nr :z \n(:z%26+1 \" get index of next output element ! 424: . if \n(:z-\n(:w=0 .tm "__FILE__":__LINE__: too many floating displays ! 425: . af ;w a \" conversion register for display queue names ! 426: . nr ;w \n(:z \" form the next queue element name ! 427: . rn :0 ?\n(;w \" put the display into the queue ! 428: . nr !\n(;w 0 \" narrow ! 429: |ifvalue around_width full [ ! 430: . nr !\n(;w 1 \" wide around ! 431: ] ! 432: |ifnotvalue around_width full [ ! 433: . if !\n(column_counter .nr !\n(;w 1 \" wide around if only one column ! 434: ] ! 435: . nr |\n(;w \n(dn \" put the size of text ! 436: '\" The following if condition tests: (1) if there is only one float ! 437: '\" on the queue to output and (2) if wide displays and (3) we are on the ! 438: '\" first column and (4) if the float fits on the current page or ! 439: '\" (5) the float is too large to fit on any one page, and (6) we have used ! 440: '\" less than half of the current page. (the six conditions are grouped ! 441: '\" in the form (1 & (2 & 3) & (4 : (5 & 6))). If this total condition is true, ! 442: '\" then a float is output. ! 443: . if (((\n(:z-\n(:w=1):(\n(:z+26-\n(:w=1))&((\n(!\n(;w=1)&(\n(column_counter<2))&\ ! 444: ((\n(dn<\n(.t):((\n(dn>(\n(.p-\n(:r-\n(:m))&\ ! 445: (\n(nl<=(\n(.p-\n(:r-\n(:o/2u+\n(:r))))) .)z ! 446: . nr :y 0 \" reset flag indicating group ! 447: . rr ;L ;f ;i ;j ;l ;s ;u ;v ;w \" free storage ! 448: ]) ! 449: ! 450: |attribute(around_placement; nostack; ! 451: [ ! 452: . )w ! 453: ]) ! 454: ! 455: |attribute(footnote; stack, default off; ! 456: on [ ! 457: '\" :F Footnote text ! 458: '\" :q amount of footnote text ! 459: '\" :x flag indicating footnote in progress ! 460: '\" Wn page width for column n ! 461: '\" ;L prevailing line spacing ! 462: '\" ;f prevailing font ! 463: '\" ;j prevailing adjust ! 464: '\" ;l prevailing line length ! 465: '\" ;o prevailing page offset ??????? bug with .po ! 466: '\" ;s prevailing point size ! 467: '\" ;u prevailing fill/no-fill mode ! 468: '\" ;v prevailing vertical spacing ! 469: . if \n(:x .tm "__FILE__":__LINE__: Footnotes can not be nested ! 470: . nr :x 1 \" set flag indicating footnote ! 471: . nr ;s \n(.s \" save prevailing point size ! 472: . nr ;f \n(.f \" save prevailing font ! 473: . nr ;u \n(.u \" save prevailing fill/no-fill mode ! 474: . nr ;j \n(.j \" save prevailing adjust ! 475: . nr ;v \n(.v \" save prevailing vertical spacing ! 476: . nr ;L \n(.L \" save prevailing line spacing ! 477: . nr ;l \n(.l \" save prevailing line length ! 478: . ev 1 \" use footnote environment ! 479: . ps \n(;s \" restore point size ! 480: . vs \n(;sp+2p \" restore vertical spacing ! 481: . ft \n(;f \" restore font ! 482: . nf \" bring it back in no-fill ! 483: . if \n(;u .fi \" restore fill if necessary ! 484: . ad \n(;j \" restore page adjust ! 485: . vs \n(;vu \" restore vertical spacing ! 486: . ls \n(;L \" restore line spacing ! 487: . ll \n(;lu \" restore line length ! 488: . in 0 \" reset indent ! 489: . ti 0 \" reset indentation ! 490: . hy 14 \" turn on hyphenation ! 491: . lt \n(;lu \" restore title length ! 492: |ifvalue footnote_width full [ ! 493: . if \n(column_counter \{\ ! 494: . ll \n(W0u \" go wide ! 495: . lt \n(W0u \} ! 496: ] ! 497: . da :F \" collect in :F ! 498: . ie !\n(:q \{\ ! 499: . nr ;o \n(.o \" save prevailing page offset ! 500: . po 0 \" always from left margin ! 501: . ps 10 \" 10 point roman font ! 502: . vs 12p ! 503: . ft 1 ! 504: . ie \n(.A=0 \l'72p' \" layout partial rule if new footnote ! 505: . el __________ ! 506: . ft \" restore values ! 507: . vs ! 508: . ps ! 509: . po \n(;ou \} ! 510: . el .sp 1 \" leave a blank between them ! 511: ] off [ ! 512: '\" :V vertical spacing ! 513: '\" :m initial footer place and partial footnote diverter trap ! 514: '\" :o footer trap location ! 515: '\" :q amount of footnote text ! 516: '\" :v width of stored footnote 0=narrow, 1=wide ! 517: '\" :x flag indicating footnote in progress ! 518: '\" W current page width ! 519: '\" ;L prevailing line spacing ! 520: '\" ;f prevailing font ! 521: '\" ;j prevailing adjust ! 522: '\" ;l prevailing line length ! 523: '\" ;o prevailing page offset ??????? bug with .po ! 524: '\" ;s prevailing point size ! 525: '\" ;u prevailing fill/no-fill mode ! 526: '\" ;v prevailing vertical spacing ! 527: . br \" get last partial line ! 528: . da \" end diversion ! 529: |ifvalue footnote_width full [ ! 530: . if \n(column_counter \{\ ! 531: . ll \nWu \" go narrow ! 532: . lt \nWu \} ! 533: . nr :v 1 \" wide footnote ! 534: ] ! 535: |ifnotvalue footnote_width full [ ! 536: . if !\n(column_counter .nr :v 1 \" wide footnote if only one column ! 537: ] ! 538: . ev \" go back to previous environment ! 539: . nr :x 0 \" clear flag indicating footnote ! 540: . if !\n(:o-\n(:m \{\ ! 541: . nr :o +\n(:Vu-1u \" traps spring once we go past ! 542: . nr dn +\n(:V-\n(.v \} \" uncertainty correction ! 543: . nr :q +\n(dnu \" add in amount of new footnotes ! 544: '\" Move up footer trap, but not above current position on page ! 545: . nr :o +\n(dnu ! 546: . if !\n(.pu-\n(nlu-.5p-\n(:ou .nr :o \n(.pu-\n(nlu-.5p ! 547: '\" or below :m! ! 548: . if !\n(:ou-\n(:mu .nr :o \n(:mu ! 549: '\" or at all if in multi-column mode and the footnote is wide ! 550: . if \n(column_counter>1&\n(:v .nr :o \n(:mu ! 551: . ch )f -\n(:ou \" move footer trap ! 552: . rr ;L ;f ;j ;l ;o ;s ;u ;v \" free storage ! 553: ]) ! 554: ! 555: |attribute(size; stack, default 10; ! 556: $ [|ifvalue inline on [\s$\&]|ifvalue inline off [ ! 557: . ps $ ! 558: ]]) ! 559: ! 560: |attribute(space; stack, init 12; ! 561: $ [ ! 562: . vs $ ! 563: ]) ! 564: ! 565: |attribute(SPACE; nostack; ! 566: [ ! 567: . vs \n(.sp+2p \" restore vertical spacing ! 568: ]) ! 569: ! 570: |attribute(font; stack, default roman; ! 571: roman [|ifvalue inline on [\&\f1\&]|ifvalue inline off [ ! 572: . ft 1 ! 573: ]] italics [|ifvalue inline on [\&\f2\&]|ifvalue inline off [ ! 574: . ft 2 ! 575: ]] bold [|ifvalue inline on [\&\f3\&]|ifvalue inline off [ ! 576: . ft 3 ! 577: ]] bolditalics [|ifvalue inline on [\&\f4\&]|ifvalue inline off [ ! 578: . ft 4 ! 579: ]] cw [|ifvalue inline on [\&\f(CW\&]|ifvalue inline off [ ! 580: . ft CW ! 581: ]]) ! 582: ! 583: |attribute(font.family; stack, default times; ! 584: times [ ! 585: . fp 1 R ! 586: . fp 2 I ! 587: . fp 3 B ! 588: . fp 4 BI ! 589: ] palatino [ ! 590: . fp 1 PA ! 591: . fp 2 PI ! 592: . fp 3 PB ! 593: . fp 4 PX ! 594: ] bembo [ ! 595: . fp 1 B1 ! 596: . fp 2 B2 ! 597: . fp 3 B3 ! 598: . fp 4 B4 ! 599: ] optima [ ! 600: . fp 1 O1 ! 601: . fp 2 O2 ! 602: . fp 3 O3 ! 603: . fp 4 O4 ! 604: ] souvenir [ ! 605: . fp 1 SV ! 606: . fp 2 SI ! 607: . fp 3 SB ! 608: . fp 4 SX ! 609: ] helvetica [ ! 610: . fp 1 H ! 611: . fp 2 HI ! 612: . fp 3 HB ! 613: . fp 4 HX ! 614: ] cw [ ! 615: . fp 1 CW ! 616: . fp 2 I ! 617: . fp 3 B ! 618: . fp 4 BI ! 619: ] gothic [ ! 620: . fp 1 C ! 621: . fp 2 CX ! 622: . fp 3 TB ! 623: . fp 4 TX ! 624: ] condensed [ ! 625: . fp 1 Hcond ! 626: . fp 2 HcondI ! 627: . fp 3 HcondB ! 628: . fp 4 HlightI ! 629: ] narrow [ ! 630: . fp 1 Hr ! 631: . fp 2 Hi ! 632: . fp 3 Hb ! 633: . fp 4 Hx ! 634: ]) ! 635: ! 636: |attribute(if; nostack; ! 637: $test [ ! 638: . if $test \ ! 639: ] begin $test [ ! 640: . if $test \{\ ! 641: ] end [\}\c ! 642: ] else $test [ ! 643: . ie $test \ ! 644: ] else begin $test [ ! 645: . ie $test \{\ ! 646: ] else [ ! 647: . el \ ! 648: ] else begin [ ! 649: . el \{\ ! 650: ]) ! 651: ! 652: |attribute(tab; nostack; ! 653: [\& ]) ! 654: ! 655: |attribute(leader; nostack; ! 656: [\&&]) ! 657: ! 658: |attribute(thick.line; nostack; ! 659: $ [ ! 660: . ps 24 ! 661: \l'$' ! 662: . ps ! 663: ] [ ! 664: . ps 24 ! 665: \l'\n(.lu' ! 666: . ps ! 667: ]) ! 668: ! 669: |attribute(line; nostack; ! 670: $ [\l'$'] ! 671: [\l'\n(.lu']) ! 672: ! 673: |attribute(box; nostack; ! 674: x [\s12\o'\(mu\(sq'\s0] ! 675: empty [\s12\(sq\s0] ! 676: [\(sq]) ! 677: ! 678: |attribute(underline; stack, default off; ! 679: on [\kx] ! 680: off [\l'|\nxu\(ul']) ! 681: ! 682: |attribute(hyphenate; stack, init on; ! 683: on [ ! 684: . hy 14 ! 685: ] off [ ! 686: . nh ! 687: ]) ! 688: ! 689: |attribute(case; stack, init any; ! 690: upper [ ! 691: '\" need to write this yet ! 692: ] lower [ ! 693: '\" need to write this yet ! 694: ] capitalize [ ! 695: '\" need to write this yet ! 696: ] any [ ! 697: '\" need to write this yet ! 698: ]) ! 699: ! 700: |attribute(tab.stops; nostack; ! 701: $* [ ! 702: . ta $* ! 703: ] [ ! 704: . ta .5i 1.0i 1.5i 2.0i 2.5i 3.0i 3.5i 4.0i 4.5i 5.0i 5.5i 6.0i 6.5i 7.0i 7.5i ! 705: ]) ! 706: ! 707: |attribute(set; nostack; ! 708: $* $number [ ! 709: |for i in $* { ! 710: . nr $i $number ! 711: }] string $* $string [ ! 712: |for i in $* { ! 713: . ds $i $string ! 714: }]) ! 715: ! 716: |attribute(store; nostack; ! 717: $* $$. [ ! 718: |for i in $* { ! 719: . nr $i \n$$. ! 720: }] $* $number.register [ ! 721: |for i in $* { ! 722: . nr $i \n($number.register ! 723: }] string $* $$. [ ! 724: |for i in $* { ! 725: . ds $i \*$$. ! 726: }] string $* $string.register [ ! 727: |for i in $* { ! 728: . ds $i \*($string.register ! 729: }] number.from.string $* $$. [ ! 730: |for i in $* { ! 731: . nr $i \*$$. ! 732: }] number.from.string $* $string.register [ ! 733: |for i in $* { ! 734: . nr $i \*($string.register ! 735: }] string.from.number $* $$. [ ! 736: |for i in $* { ! 737: . ds $i \n$$. ! 738: }] string.from.number $* $number.register [ ! 739: |for i in $* { ! 740: . ds $i \n($number.register ! 741: }] width $* $$. [ ! 742: |for i in $* { ! 743: . nr $i \w'\*$$.' ! 744: }] width $* $number.register [ ! 745: |for i in $* { ! 746: . nr $i \w'\*($number.register' ! 747: }] indent $* [ ! 748: |for i in $* { ! 749: . nr $i \n(.i ! 750: }] linelength $* [ ! 751: |for i in $* { ! 752: . nr $i \n(.l ! 753: }] pagewidth $* [ ! 754: |for i in $* { ! 755: . nr $i \nWu ! 756: }] totrap $* [ ! 757: |for i in $* { ! 758: . nr $i \n(.t ! 759: }] pageoffset $* [ ! 760: |for i in $* { ! 761: . nr $i \n(.o ! 762: }] diversionheight $* [ ! 763: |for i in $* { ! 764: . nr $i \n(dn ! 765: }]) ! 766: ! 767: |attribute(clear; nostack; ! 768: $* [ ! 769: |for i in $* { ! 770: . nr $i 0 ! 771: }] string $* [ ! 772: . rm $* ! 773: ]) ! 774: ! 775: |attribute(rename; nostack; ! 776: $from $to [ ! 777: . rn $from $to ! 778: ]) ! 779: ! 780: |attribute(add; nostack; ! 781: $result $$. $* [ ! 782: . nr $result \n$$. ! 783: |for i in $* { ! 784: . nr $result +\n($i ! 785: }] $result $operand $* [ ! 786: . nr $result \n($operand ! 787: |for i in $* { ! 788: . nr $result +\n($i ! 789: }] $result $$. [ ! 790: . nr $result +\n$$. ! 791: ] $result $operand [ ! 792: . nr $result +\n($operand ! 793: ] constant $result $constant $* [ ! 794: . nr $result $constant ! 795: |for i in $* { ! 796: . nr $result +$i ! 797: }] constant $result $constant [ ! 798: . nr $result +$constant ! 799: ] string $string $text [ ! 800: . as $string $text ! 801: ] string.from.number $string $$. [ ! 802: . as $string \n$$. ! 803: ] string.from.number $string $number.register [ ! 804: . as $string \n($number.register ! 805: ] string.from.string $string $$. [ ! 806: . as $string \*$$. ! 807: ] string.from.string $string $string.register [ ! 808: . as $string \*($string.register ! 809: ]) ! 810: ! 811: |attribute(sub; nostack; ! 812: $result $$. $* [ ! 813: . nr $result \n$$. ! 814: |for i in $* { ! 815: . nr $result -\n($i ! 816: }] $result $operand $* [ ! 817: . nr $result \n($operand ! 818: |for i in $* { ! 819: . nr $result -\n($i ! 820: }] $result $$. [ ! 821: . nr $result -\n$$. ! 822: ] $result $operand [ ! 823: . nr $result -\n($operand ! 824: ] constant $result $constant $* [ ! 825: . nr $result $constant ! 826: |for i in $* { ! 827: . nr $result -$i ! 828: }] constant $result $constant [ ! 829: . nr $result -$constant ! 830: ]) ! 831: ! 832: |attribute(incr; nostack; ! 833: $* [ ! 834: |for i in $* { ! 835: . nr $i +1 ! 836: }]) ! 837: ! 838: |attribute(decr; nostack; ! 839: $* [ ! 840: |for i in $* { ! 841: . nr $i -1 ! 842: }]) ! 843: ! 844: |attribute(protect; nostack; ! 845: $ [ ! 846: . ne $ ! 847: ] [ ! 848: . ne 3 ! 849: ]) ! 850: ! 851: |attribute(warn.orphan; nostack; ! 852: $ [ ! 853: '\" need to write this yet ! 854: ] [ ! 855: '\" need to write this yet ! 856: ]) ! 857: ! 858: |attribute(column; nostack; ! 859: $column $width $offset [ ! 860: '\" :c number of columns ! 861: '\" On page offset for column n ! 862: '\" Wn page width for column n ! 863: . if \n(:c<$column .nr :c $column ! 864: . nr W$column $width ! 865: . nr O$column $offset ! 866: ] width $width [ ! 867: '\" :c number of columns ! 868: '\" Wn page width for column n ! 869: . nr W\n(:c $width ! 870: ] offset $offset [ ! 871: '\" :c number of columns ! 872: '\" On page offset for column n ! 873: . nr O\n(:c $offset ! 874: ] next [ ! 875: '\" :c number of columns ! 876: . nr :c +1 ! 877: ] clear [ ! 878: '\" :c number of columns ! 879: . rr :c ! 880: ] new [ ! 881: . ie !\n(column_counter .tm "__FILE__":__LINE__: not in multi-column mode ! 882: . el \{\ ! 883: . br \" force out last partial line ! 884: . ne \n(.tu+1v \} \" spring footer trap for this column ! 885: ] new $ [ ! 886: '\" O current page offset ! 887: '\" On page offset for column n ! 888: '\" W current page width ! 889: '\" Wn page width for column n ! 890: '\" ;d delta width TEMP ! 891: . ie !\n(column_counter .tm "__FILE__":__LINE__: not in multi-column mode ! 892: . el \{\ ! 893: . br \" force out last partial line ! 894: . ne \n(.tu+1v \" spring footer trap for this column ! 895: . nr ;d \n(.lu-\n(W\n(column_counter+Q+-Q-u \" quotations shrink line length ! 896: . nr column_counter $ \" set column to $ ! 897: . nr O \n(O$u \" restore new offset ! 898: . po \nOu \" set new offset ! 899: . nr W \n(W$u+\n(;du \" restore new width ! 900: . ll \nWu \" set new line length ! 901: . lt \nWu \" set new title length ! 902: . rr ;d \} \" free storage ! 903: ] old $ [ ! 904: '\" O current page offset ! 905: '\" On page offset for column n ! 906: '\" Un position to return to for column n ! 907: '\" W current page width ! 908: '\" Wn page width for column n ! 909: '\" ;d delta width TEMP ! 910: . ie !\n(column_counter .tm "__FILE__":__LINE__: not in multi-column mode ! 911: . el \{\ ! 912: . br \" force out last partial line ! 913: . if \n(nl>\n(U\n(column_counter \ ! 914: . mk U\n(column_counter \" new vertical position ! 915: . nr ;d \n(.lu-\n(W\n(column_counter+Q+-Q-u \" quotations shrink line length ! 916: . nr column_counter $ \" set column to $ ! 917: . nr O \n(O$u \" restore new offset ! 918: . po \nOu \" set new offset ! 919: . nr W \n(W$u+\n(;du \" restore new width ! 920: . ll \nWu \" set new line length ! 921: . lt \nWu \" set new title length ! 922: . rs \" restore spacing ! 923: . ie \n(U$ .sp |\n(U$u \" restore vertical position ! 924: . el .sp |\n(U0u \" default top if not set ! 925: . ns \" turn off spacing ! 926: . rr ;d \} \" free storage ! 927: ] on [ ! 928: '\" O current page offset ! 929: '\" On page offset for column n ! 930: '\" Un position to return to for column n ! 931: '\" W current page width ! 932: '\" Wn page width for column n ! 933: . ie \n(column_counter .tm "__FILE__":__LINE__: already in multi-column mode ! 934: . el \{\ ! 935: . br \" force out last partial line ! 936: . nr column_counter 1 \" flag for multi-column mode, first column ! 937: . nr W \n(W1u \" restore first column width ! 938: . ll \nWu \" set first column line length ! 939: . lt \nWu \" set first column title length ! 940: . nr O \n(O1u \" restore first column offset ! 941: . po \nOu \" set first column offset ! 942: . mk U0 \" set where all columns start ! 943: . ns \" avoid .sp in user text here ! 944: . rr U1 U2 U3 U4 U5 U6 U7 U8 U9 \" zero column starts ! 945: . rr ;d \} \" free storage ! 946: ] off [ ! 947: '\" :c number of columns ! 948: '\" Un position to return to for column n ! 949: '\" W current page width ! 950: '\" Wn page width for column n ! 951: '\" ;d delta width TEMP ! 952: . ie !\n(column_counter .tm "__FILE__":__LINE__: already in full page mode ! 953: . el \{\ ! 954: . br \" force out last partial line ! 955: . if \n(nl>\n(U\n(column_counter \ ! 956: . mk U\n(column_counter \" new vertical position ! 957: . nr ;d \n(.lu-\n(W\n(column_counter+Q+-Q-u \" quotations shrink line length ! 958: . nr column_counter 0 \" set flag for full page mode ! 959: . nr O \n(O0u \" restore new offset ! 960: . po \nOu \" set new offset ! 961: . nr W \n(W0u+\n(;du \" restore line length ! 962: . ll \nWu \" set new line length ! 963: . lt \nWu \" set new title length ! 964: . rs \" restore spacing ! 965: . sp |\n(U0u \" restore vertical position ! 966: . if \n(nl<\n(U1 \ ! 967: . sp |\n(U1u ! 968: . if \n(nl<\n(U2 \ ! 969: . sp |\n(U2u ! 970: . if \n(nl<\n(U3 \ ! 971: . sp |\n(U3u ! 972: . if \n(nl<\n(U4 \ ! 973: . sp |\n(U4u ! 974: . if \n(nl<\n(U5 \ ! 975: . sp |\n(U5u ! 976: . if \n(nl<\n(U6 \ ! 977: . sp |\n(U6u ! 978: . if \n(nl<\n(U7 \ ! 979: . sp |\n(U7u ! 980: . if \n(nl<\n(U8 \ ! 981: . sp |\n(U8u ! 982: . if \n(nl<\n(U9 \ ! 983: . sp |\n(U9u ! 984: . ti \n(.iu \" movement resets indentation ! 985: . rr U1 U2 U3 U4 U5 U6 U7 U8 U9 \" zero column starts ! 986: . ns \" turn off spacing ! 987: . rr ;d \} \" free storage ! 988: ] 2 [ ! 989: '\" :c number of columns ! 990: '\" O current page offset ! 991: '\" On page offset for column n ! 992: '\" Un position to return to for column n ! 993: '\" W current page width ! 994: '\" Wn page width for column n ! 995: . ie \n(column_counter .tm "__FILE__":__LINE__: already in multi-column mode ! 996: . el \{\ ! 997: . br \" force out last partial line ! 998: . nr column_counter 1 \" flag for multi-column mode, first column ! 999: . nr W0 \nW \" save width ! 1000: . nr W \n(.lu*8u/17u \" new width ! 1001: . nr W1 \nW \" new width ! 1002: . nr W2 \nW \" new width ! 1003: . nr O0 \n(.ou \" page offset for other column ! 1004: . nr O1 \n(.ou \" page offset for other column ! 1005: . nr O2 \n(.lu*9u/17u+\n(.ou \" page offset for other column ! 1006: . ll \nWu \" set new line length ! 1007: . lt \nWu \" set new title length ! 1008: . nr :c 2 \" two columns ! 1009: . mk U0 \" set where all columns start ! 1010: . ns \" turn off spacing ! 1011: . rr U1 U2 \} \" zero column starts ! 1012: ]) ! 1013: ! 1014: |attribute(divert.string; stack, default off; ! 1015: $string.name [ ! 1016: . ds $string.name ] ! 1017: off [ ! 1018: ]) ! 1019: ! 1020: |attribute(divert.number; stack, default off; ! 1021: $number.name [ ! 1022: . nr $number.name ] ! 1023: off [ ! 1024: ]) ! 1025: ! 1026: |attribute(divert.output; stack, default off; ! 1027: on $string.name [ ! 1028: '\" ;L prevailing line spacing ! 1029: '\" ;f prevailing font ! 1030: '\" ;j prevailing adjust ! 1031: '\" ;l prevailing line length ! 1032: '\" ;o prevailing page offset ??????? bug with .po ! 1033: '\" ;s prevailing point size ! 1034: '\" ;u prevailing fill/no-fill mode ! 1035: '\" ;v prevailing vertical spacing ! 1036: . nr ;s \n(.s \" save prevailing point size ! 1037: . nr ;f \n(.f \" save prevailing font ! 1038: . nr ;u \n(.u \" save prevailing fill/no-fill mode ! 1039: . nr ;j \n(.j \" save prevailing adjust ! 1040: . nr ;v \n(.v \" save prevailing vertical spacing ! 1041: . nr ;L \n(.L \" save prevailing line spacing ! 1042: . nr ;l \n(.l \" save prevailing line length ! 1043: . ev 1 \" use footnote environment ! 1044: . ps \n(;s \" restore point size ! 1045: . vs \n(;sp+2p \" restore vertical spacing ! 1046: . ft \n(;f \" restore font ! 1047: . nf \" bring it back in no-fill ! 1048: . if \n(;u .fi \" restore fill if necessary ! 1049: . ad \n(;j \" restore page adjust ! 1050: . vs \n(;vu \" restore vertical spacing ! 1051: . ls \n(;L \" restore line spacing ! 1052: . ll \n(;lu \" restore line length ! 1053: . in 0 \" reset indent ! 1054: . ti 0 \" reset indentation ! 1055: . hy 14 \" turn on hyphenation ! 1056: . lt \n(;lu \" restore title length ! 1057: . di $string.name \" collect in $string.name ! 1058: ] off [ ! 1059: '\" ;L prevailing line spacing ! 1060: '\" ;f prevailing font ! 1061: '\" ;j prevailing adjust ! 1062: '\" ;l prevailing line length ! 1063: '\" ;o prevailing page offset ??????? bug with .po ! 1064: '\" ;s prevailing point size ! 1065: '\" ;u prevailing fill/no-fill mode ! 1066: '\" ;v prevailing vertical spacing ! 1067: . br \" get last partial line ! 1068: . di \" end diversion ! 1069: . ev \" go back to previous environment ! 1070: . rr ;L ;f ;j ;l ;o ;s ;u ;v \" free storage ! 1071: ]) ! 1072: ! 1073: |attribute(divert.input; stack, default off; ! 1074: on $string.name [ ! 1075: . eo ! 1076: . de $string.name\(ts\(ts ! 1077: ] off [ ! 1078: .\(ts\(ts ! 1079: . ec ! 1080: ]) ! 1081: ! 1082: |attribute(append.output; stack, default off; ! 1083: on $string.name [ ! 1084: '\" ;L prevailing line spacing ! 1085: '\" ;f prevailing font ! 1086: '\" ;j prevailing adjust ! 1087: '\" ;l prevailing line length ! 1088: '\" ;o prevailing page offset ??????? bug with .po ! 1089: '\" ;s prevailing point size ! 1090: '\" ;u prevailing fill/no-fill mode ! 1091: '\" ;v prevailing vertical spacing ! 1092: . nr ;s \n(.s \" save prevailing point size ! 1093: . nr ;f \n(.f \" save prevailing font ! 1094: . nr ;u \n(.u \" save prevailing fill/no-fill mode ! 1095: . nr ;j \n(.j \" save prevailing adjust ! 1096: . nr ;v \n(.v \" save prevailing vertical spacing ! 1097: . nr ;L \n(.L \" save prevailing line spacing ! 1098: . nr ;l \n(.l \" save prevailing line length ! 1099: . ev 1 \" use footnote environment ! 1100: . ps \n(;s \" restore point size ! 1101: . vs \n(;sp+2p \" restore vertical spacing ! 1102: . ft \n(;f \" restore font ! 1103: . nf \" bring it back in no-fill ! 1104: . if \n(;u .fi \" restore fill if necessary ! 1105: . ad \n(;j \" restore page adjust ! 1106: . vs \n(;vu \" restore vertical spacing ! 1107: . ls \n(;L \" restore line spacing ! 1108: . ll \n(;lu \" restore line length ! 1109: . in 0 \" reset indent ! 1110: . ti 0 \" reset indentation ! 1111: . hy 14 \" turn on hyphenation ! 1112: . lt \n(;lu \" restore title length ! 1113: . da $string.name \" collect in $string.name ! 1114: ] off [ ! 1115: '\" ;L prevailing line spacing ! 1116: '\" ;f prevailing font ! 1117: '\" ;j prevailing adjust ! 1118: '\" ;l prevailing line length ! 1119: '\" ;o prevailing page offset ??????? bug with .po ! 1120: '\" ;s prevailing point size ! 1121: '\" ;u prevailing fill/no-fill mode ! 1122: '\" ;v prevailing vertical spacing ! 1123: . br \" get last partial line ! 1124: . da \" end diversion ! 1125: . ev \" go back to previous environment ! 1126: . rr ;L ;f ;j ;l ;o ;s ;u ;v \" free storage ! 1127: ]) ! 1128: ! 1129: |attribute(append.input; stack, default off; ! 1130: on $string.name [ ! 1131: . eo ! 1132: . am $string.name\(ts\(ts ! 1133: ] off [ ! 1134: .\(ts\(ts ! 1135: . ec ! 1136: ]) ! 1137: ! 1138: |attribute(invoke; nostack; ! 1139: on $offset $what [ ! 1140: . wh 15i $what \" activate the trap ! 1141: . ch $what \n(nlu+$offset \" move it in place ! 1142: ] on number $$. $what [ ! 1143: . wh 15i $what \" activate the trap ! 1144: . ch $what \n(nlu+\n$$.u \" move it in place ! 1145: ] on number $number.register $what [ ! 1146: . wh 15i $what \" activate the trap ! 1147: . ch $what \(nlu+\n($number.registeru \" move it in place ! 1148: ] at constant $constant $what [ ! 1149: . wh 15i $what \" activate the trap ! 1150: . ch $what $constant \" move it in place ! 1151: ] at number $$. $what [ ! 1152: . wh 15i $what \" activate the trap ! 1153: . ch $what \n$$.u \" move it in place ! 1154: ] at number $number.register $what [ ! 1155: . wh 15i $what \" activate the trap ! 1156: . ch $what \n($number.registeru \" move it in place ! 1157: ] end [ ! 1158: . br \" get last partial line ! 1159: . di \" turn off diversions ! 1160: ] off $what [ ! 1161: . ch $what \" remove the trap ! 1162: ]) ! 1163: ! 1164: |attribute(remember; nostack; ! 1165: $ [ ! 1166: . mk $ ! 1167: ]) ! 1168: ! 1169: |attribute(return; nostack; ! 1170: $$. [ ! 1171: . sp |\n$$.u ! 1172: . ti \n(.iu \" movement resets indentation ! 1173: ] $ [ ! 1174: . sp |\n($u ! 1175: . ti \n(.iu \" movement resets indentation ! 1176: ]) ! 1177: ! 1178: |attribute(goto; nostack; ! 1179: $ [ ! 1180: . sp |$ ! 1181: . ti \n(.iu \" movement resets indentation ! 1182: ]) ! 1183: ! 1184: |attribute(string; nostack; ! 1185: $$. [\*$$.] ! 1186: $string.register [\*($string.register] ! 1187: roman $$. [\f1\&\*$$.\fP\&] ! 1188: italics $$. [\f2\&\*$$.\fP\&] ! 1189: bold $$. [\f3\&\*$$.\fP\&] ! 1190: bolditalics $$. [\f4\&\*$$.\fP\&] ! 1191: cw $$. [\f(CW\&\*$$.\fP\&] ! 1192: roman $string.register [\f1\&\*($string.register\fP\&] ! 1193: italics $string.register [\f2\&\*($string.register\fP\&] ! 1194: bold $string.register [\f3\&\*($string.register\fP\&] ! 1195: bolditalics $string.register [\f4\&\*($string.register\fP\&] ! 1196: cw $string.register [\f(CW\&\*($string.register\fP\&]) ! 1197: ! 1198: |attribute(macro; nostack; ! 1199: $ [ ! 1200: . $ ! 1201: ]) ! 1202: ! 1203: |attribute(number; nostack; ! 1204: $$. [\n$$.] ! 1205: $number.register [\n($number.register] ! 1206: ++ $$. [\n+$$.] ! 1207: ++ $number.register [\n+($number.register] ! 1208: format $* $format [ ! 1209: |for i in $* { ! 1210: . af $i $format ! 1211: }] ! 1212: incr $* $incr [ ! 1213: |for i in $* { ! 1214: . nr $i +0 $incr ! 1215: }] ! 1216: format.from.string $* $$. [ ! 1217: |for i in $* { ! 1218: . af $i \*$$. ! 1219: }] ! 1220: incr $* $incr [ ! 1221: |for i in $* { ! 1222: . nr $i +0 $incr ! 1223: }] ! 1224: format.from.string $* $format [ ! 1225: |for i in $* { ! 1226: . af $i \*($format ! 1227: }] ! 1228: incr $* $incr [ ! 1229: |for i in $* { ! 1230: . nr $i +0 $incr ! 1231: }]) ! 1232: ! 1233: |attribute(list.pre; stack, default; ! 1234: [ ! 1235: . rm premark_string ! 1236: ] ! 1237: $pre [ ! 1238: . ds premark_string $pre ! 1239: ]) ! 1240: ! 1241: |attribute(list.format; stack, default; ! 1242: [ ! 1243: . rm format_string ! 1244: ] ! 1245: $format [ ! 1246: . ds format_string $format ! 1247: ]) ! 1248: ! 1249: |attribute(list.post; stack, default; ! 1250: [ ! 1251: . rm postmark_string ! 1252: ] ! 1253: $post [ ! 1254: . ds postmark_string $post ! 1255: ]) ! 1256: ! 1257: |attribute(list.indent; stack, default; ! 1258: [ ! 1259: . rm indent_string ! 1260: ] ! 1261: $indent [ ! 1262: . ds indent_string $indent ! 1263: ]) ! 1264: ! 1265: |attribute(list; nostack; ! 1266: off [ ! 1267: '\" ;i remembered indent TEMP ! 1268: . )C ;i indentsave_string \*(indentsave_string ! 1269: . in \n(;iu ! 1270: . )C list_counter listsave_string \*(listsave_string ! 1271: . rm ;i ! 1272: ] on [ ! 1273: . ds indentsave_string \n(.i \*(indentsave_string ! 1274: . in +\w'\*(indent_string'u ! 1275: . af list_counter 0 ! 1276: . ds listsave_string \n(list_counter \*(listsave_string ! 1277: . nr list_counter 0 1 ! 1278: ]) ! 1279: ! 1280: |attribute(file.information; nostack; ! 1281: [ ! 1282: . lf __LINE__ __FILE__ ! 1283: ]) ! 1284: ! 1285: |attribute(reference.style; nostack; ! 1286: acm [|reference_style(acm) ! 1287: ] apa [|reference_style(apa) ! 1288: ] att [|reference_style(att) ! 1289: ] ieee [|reference_style(ieee) ! 1290: ] lsa [|reference_style(lsa) ! 1291: ] pami [|reference_style(pami) ! 1292: ] spectrum [|reference_style(spectrum) ! 1293: ]) ! 1294: ! 1295: |attribute(reference.option; nostack; ! 1296: tm [|reference_style(same tm) ! 1297: ] rp [|reference_style(same rp) ! 1298: ] nroff [|reference_style(same nroff) ! 1299: ] troff [|reference_style(same troff) ! 1300: ] sort [|reference_style(same sort) ! 1301: ] sequence [|reference_style(same sequence) ! 1302: ] a [|reference_style(same a) ! 1303: ] d [|reference_style(same d) ! 1304: ] t [|reference_style(same t) ! 1305: ] ad [|reference_style(same ad) ! 1306: ] at [|reference_style(same at) ! 1307: ] da [|reference_style(same da) ! 1308: ] dt [|reference_style(same dt) ! 1309: ] ta [|reference_style(same ta) ! 1310: ] td [|reference_style(same td) ! 1311: ] adt [|reference_style(same adt) ! 1312: ] atd [|reference_style(same atd) ! 1313: ] dat [|reference_style(same dat) ! 1314: ] dta [|reference_style(same dta) ! 1315: ] tad [|reference_style(same tad) ! 1316: ] tda [|reference_style(same tda) ! 1317: ]) ! 1318: ! 1319: |attribute(reference; stack, default off; ! 1320: database [|reference_database<] ! 1321: include [|reference_include<] ! 1322: list [|reference_list<] ! 1323: on [|reference<] ! 1324: off [>]) ! 1325: ! 1326: |attribute(reference.placement; nostack; ! 1327: [|reference_placement ! 1328: ]) ! 1329: ! 1330: |attribute(table; stack, default off; ! 1331: on [ ! 1332: . TS ! 1333: ] off [ ! 1334: . TE ! 1335: ]) ! 1336: ! 1337: |attribute(ipa; stack, default off; ! 1338: on [@ipa(] ! 1339: off [)]) ! 1340: ! 1341: |attribute(picture; stack, default off; ! 1342: on [ ! 1343: . PS ! 1344: ] off [ ! 1345: . PE ! 1346: ]) ! 1347: ! 1348: |attribute(ped; stack, default off; ! 1349: on [ ! 1350: . GS ! 1351: ] off[ ! 1352: . GE ! 1353: ]) ! 1354: ! 1355: |attribute(ideal; stack, default off; ! 1356: on [ ! 1357: . IS ! 1358: ] off[ ! 1359: . IE ! 1360: ]) ! 1361: ! 1362: |attribute(equation; stack, default off; ! 1363: on [ ! 1364: '\" :4 store for equations ! 1365: . br \" output partial line before equation ! 1366: . di :4 \" begin diversion ! 1367: . EQ \" begin equation ! 1368: ] off [ ! 1369: '\" :4 store for equations ! 1370: '\" :D amount of accumulate blank lines in diversion ! 1371: '\" :E position of last minimum space in diversion ! 1372: '\" :Y width of a center block diversion ! 1373: '\" 10 the equation as a string ! 1374: . EN \" end equation ! 1375: . br \" get last partial line ! 1376: . di \" end diversion of equation ! 1377: . rm :4 \" throw the equation away ! 1378: |ifvalue center.block on [ ! 1379: . if \w@\*(10\*(equation_string@ \{\ ! 1380: . if \n(:Y<\w@\*(10@ .nr :Y \w@\*(10@ \" update width ! 1381: \!\*(10\h'\\n(.lu-\w@\*(10\*(equation_string@u-\\n(.iu'\*(equation_string \" output next expansion ! 1382: . rr :D :E \}] \" pretend we've moved ! 1383: |ifvalue center on [ ! 1384: . if \w@\*(10\*(equation_string@ .tl \(ts\(ts\*(10\(ts\*(equation_string\(ts] ! 1385: |ifnotvalue center.block on [ |ifnotvalue center on [ ! 1386: . if \w@\*(10\*(equation_string@ \{\ ! 1387: . pc \" protect against use of % in eqn ! 1388: . tl \(ts\h'\n(.iu'\*(10\(ts\(ts\*(equation_string\(ts ! 1389: . pc % \}]] \" give % back to tl ! 1390: . rm 10 \" free storage ! 1391: ]) ! 1392: ! 1393: |attribute(inline.equation; stack, default off; ! 1394: on [] ! 1395: off []) ! 1396: ! 1397: |attribute(graph; stack, default off; ! 1398: on [ ! 1399: . G1 ! 1400: ] off [ ! 1401: . G2 ! 1402: ]) ! 1403: ! 1404: |attribute(bargraph; stack, default off; ! 1405: on [ ! 1406: . B1 ! 1407: ] off [ ! 1408: . B0 ! 1409: ]) ! 1410: ! 1411: |attribute(computeroutput; stack, default off; ! 1412: on [ ! 1413: . CW ! 1414: ] off [ ! 1415: . CN ! 1416: ]) ! 1417: ! 1418: |attribute(citation; nostack; ! 1419: save on [ ! 1420: . CD "] ! 1421: save off string $$. [" "\*$$." ! 1422: ] save off string $string.register [" "\*($string.register" ! 1423: ] save off number $$. [" "\n$$." ! 1424: ] save off number $number.register [" "\n($number.register" ! 1425: ] save string $name $$. [\&\c ! 1426: . CD "$name" "\*$$." ! 1427: ] save string $name $string.register [\&\c ! 1428: . CD "$name" "\*($string.register" ! 1429: ] save number $name $$. [\&\c ! 1430: . CD "$name" "\n$$." ! 1431: ] save number $name $number.register [\&\c ! 1432: . CD "$name" "\n($number.register" ! 1433: ] remember on [\&\c ! 1434: . CU "] ! 1435: remember off ["] ! 1436: remember string $name [\&\c ! 1437: . CU "$name"]) ! 1438: ! 1439: |attribute(index; stack, default off; ! 1440: on [\&\c ! 1441: . tm ix: ] ! 1442: off [ \n page_counter ! 1443: \&]) ! 1444: ! 1445: |attribute(contents; nostack; ! 1446: $category $level $sequence $text [ ! 1447: . tm .TC $category $level \*($sequence \*($text \n page_counter ! 1448: ]) ! 1449: ! 1450: |attribute(white.text; nostack; ! 1451: $text [|ifvalue verbatim off []|ifvalue verbatim on [$text]]) ! 1452: ! 1453: |attribute(nl.paragraph; nostack; ! 1454: [|ifvalue verbatim on [ ! 1455: ]|ifvalue verbatim off []]) ! 1456: ! 1457: |attribute(format.type; stack, init none; ! 1458: model [ ! 1459: . ds format_type model ! 1460: ] acm [ ! 1461: . ds format_type acm ! 1462: ] none [ ! 1463: . ds format_type none ! 1464: ]) ! 1465: ! 1466: |attribute(list.type; stack, default none; ! 1467: fixed [] ! 1468: calculated [] ! 1469: none []) ! 1470: ! 1471: |attribute(list.spacing; stack, default off; ! 1472: off [] ! 1473: on []) ! 1474: ! 1475: |attribute(verbatim; stack, default off; ! 1476: off [] ! 1477: on []) ! 1478: ! 1479: |attribute(draft; stack, default off; ! 1480: off [] ! 1481: on []) ! 1482: ! 1483: |attribute(sectioning; stack, default bysection; ! 1484: bysection [] ! 1485: bychapter [] ! 1486: byappendix []) ! 1487: ! 1488: |attribute(globalparagraph.style; stack, default flushed; ! 1489: indented [] ! 1490: numbered [] ! 1491: flushed []) ! 1492: ! 1493: |attribute(localparagraph.style; stack, default flushed; ! 1494: indented [] ! 1495: numbered [] ! 1496: flushed []) ! 1497: ! 1498: |attribute(inline; stack, default on; ! 1499: off [] ! 1500: on []) ! 1501: ! 1502: |attribute(footnote_width; stack, default normal; ! 1503: narrow [] ! 1504: full [] ! 1505: normal[]) ! 1506: ! 1507: |attribute(around_width; stack, default normal; ! 1508: narrow [] ! 1509: full [] ! 1510: normal[]) ! 1511: ! 1512: |attribute(sawreference; stack, default off; ! 1513: off [] ! 1514: on []) ! 1515: ! 1516: |attribute(sawabstract; stack, default off; ! 1517: off [] ! 1518: on []) ! 1519: ! 1520: |attribute(sawkeywords; stack, default off; ! 1521: off [] ! 1522: on []) ! 1523: ! 1524: |attribute(sawoverflow; stack, default off; ! 1525: off [] ! 1526: on []) ! 1527: ! 1528: |attribute(sawtitlebox; stack, default off; ! 1529: off [] ! 1530: on []) ! 1531: ! 1532: |attribute(sawendnote; stack, default off; ! 1533: off [] ! 1534: on [])
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.