![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fwb.tbl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / b / bin / troff / etc|
Return to fwb.tbl CVS log | Up to [MW Coherent from dump] / coherent / b / bin / troff / etc |
1.1 ! root 1: From lepanto!fred Thu Jul 23 08:30:58 1992 remote from mwc ! 2: Received: by igor.mwc.com (smail2.5.2-coh) id AA00722; 23 Jul 92 08:30:58 ! 3: Received: by mwc.com (smail2.5.3-coh) id AA00391; 23 Jul 92 02:16:25 ! 4: Received: by lepanto.mwc.com (smail2.5.3-coh) id AA17866; 22 Jul 92 20:42:12 ! 5: Message-Id: <[email protected]> ! 6: Date: 22 Jul 92 20:42:11 ! 7: From: [email protected] (Fred Butzen) ! 8: To: norman steve ! 9: ! 10: Norm, Steve: ! 11: ! 12: Just for grins, I ran the following test through the "eroff" implementation ! 13: of "tbl": ! 14: ! 15: .TS ! 16: allbox; ! 17: c s s ! 18: c c c ! 19: n n n. ! 20: AT&T Common Stock ! 21: Year Price Dividend ! 22: 1971 41-54 $2.60 ! 23: 2 45-54 2.70 ! 24: 3 46-55 2.87 ! 25: 4 40-53 3.24 ! 26: 5 45-52 3.40 ! 27: 6 51-59 .95* ! 28: .TE ! 29: *(first quarter only) ! 30: ! 31: It produced the following output: ! 32: ! 33: .ds f. test2.tbl ! 34: .TS ! 35: .if \n+(b.=1 .nr d. \n(.c-\n(c.-1 ! 36: .de 35 ! 37: .ps \n(.s ! 38: .vs \n(.vu ! 39: .in \n(.iu ! 40: .if \n(.u .fi ! 41: .if \n(.j .ad ! 42: .if \n(.j=0 .na ! 43: .. ! 44: .nf ! 45: .nr #~ 0 ! 46: .if \n(.T .if n .nr #~ 0.6n ! 47: .ds #d .d ! 48: .if \n(.z .ds #d nl ! 49: .fc ! 50: .nr 33 \n(.s ! 51: .nr 39 \n(.s ! 52: .rm 48 49 50 ! 53: .if \n(.z \{\ ! 54: . ch #f ! 55: . wh \n(nlu+\n(.tu-2v #f\} ! 56: .eo ! 57: .de #f ! 58: .ie \n(#& \{ \ ! 59: . nr #& 0 ! 60: . nr #| 1 ! 61: . di #o \} ! 62: .el \{ \ ! 63: . ch #f ! 64: . nr T. 1 ! 65: . if \n(#| .sp ! 66: . T# ! 67: . sp \n(.tu ! 68: . mk #T ! 69: . nr #a \n(#T ! 70: . nr #c \n(#T ! 71: . nr ^a \n(#T ! 72: . nr ^b \n(#T ! 73: . nr ^c \n(#T ! 74: . if \n(#| \{ \ ! 75: .nr 36 \n(.v ! 76: .vs \n(.vu-\n(.sp ! 77: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 78: .vs \n(36u ! 79: . in 0 ! 80: . #+ ! 81: . in ! 82: . rm #+ ! 83: . mk 32 ! 84: . nr #| 0\} ! 85: . wh \n(nlu+\n(.tu-2v #f \} ! 86: .. ! 87: .de #% ! 88: .if \n(.z#o \{ \ ! 89: . sp |0u ! 90: . in 0 ! 91: . #+ ! 92: . in ! 93: . sp |\n(.hu ! 94: . di ! 95: . rn #o #+ \} ! 96: .. ! 97: .ec ! 98: .nr 48 0 ! 99: .nr 38 \wYear ! 100: .if \n(48<\n(38 .nr 48 \n(38 ! 101: .nr 31 0 ! 102: .nr 32 0 ! 103: .nr 38 \w1971 ! 104: .if \n(31<\n(38 .nr 31 \n(38 ! 105: .nr 38 \w2 ! 106: .if \n(31<\n(38 .nr 31 \n(38 ! 107: .nr 38 \w3 ! 108: .if \n(31<\n(38 .nr 31 \n(38 ! 109: .nr 38 \w4 ! 110: .if \n(31<\n(38 .nr 31 \n(38 ! 111: .nr 38 \w5 ! 112: .if \n(31<\n(38 .nr 31 \n(38 ! 113: .nr 38 \w6 ! 114: .if \n(31<\n(38 .nr 31 \n(38 ! 115: .48 ! 116: .rm 48 ! 117: .nr 44 \n(31 ! 118: .nr 38 \n(44+\n(32 ! 119: .if \n(38>\n(48 .nr 48 \n(38 ! 120: .if \n(38<\n(48 .nr 44 +(\n(48-\n(38)/2 ! 121: .nr 49 0 ! 122: .nr 38 \wPrice ! 123: .if \n(49<\n(38 .nr 49 \n(38 ! 124: .nr 31 0 ! 125: .nr 32 0 ! 126: .nr 38 \w41-54 ! 127: .if \n(31<\n(38 .nr 31 \n(38 ! 128: .nr 38 \w45-54 ! 129: .if \n(31<\n(38 .nr 31 \n(38 ! 130: .nr 38 \w46-55 ! 131: .if \n(31<\n(38 .nr 31 \n(38 ! 132: .nr 38 \w40-53 ! 133: .if \n(31<\n(38 .nr 31 \n(38 ! 134: .nr 38 \w45-52 ! 135: .if \n(31<\n(38 .nr 31 \n(38 ! 136: .nr 38 \w51-59 ! 137: .if \n(31<\n(38 .nr 31 \n(38 ! 138: .49 ! 139: .rm 49 ! 140: .nr 45 \n(31 ! 141: .nr 38 \n(45+\n(32 ! 142: .if \n(38>\n(49 .nr 49 \n(38 ! 143: .if \n(38<\n(49 .nr 45 +(\n(49-\n(38)/2 ! 144: .nr 50 0 ! 145: .nr 38 \wDividend ! 146: .if \n(50<\n(38 .nr 50 \n(38 ! 147: .nr 31 0 ! 148: .nr 32 0 ! 149: .nr 38 \w$2 ! 150: .if \n(31<\n(38 .nr 31 \n(38 ! 151: .nr 38 \w.60 ! 152: .if \n(32<\n(38 .nr 32 \n(38 ! 153: .nr 38 \w2 ! 154: .if \n(31<\n(38 .nr 31 \n(38 ! 155: .nr 38 \w.70 ! 156: .if \n(32<\n(38 .nr 32 \n(38 ! 157: .nr 38 \w2 ! 158: .if \n(31<\n(38 .nr 31 \n(38 ! 159: .nr 38 \w.87 ! 160: .if \n(32<\n(38 .nr 32 \n(38 ! 161: .nr 38 \w3 ! 162: .if \n(31<\n(38 .nr 31 \n(38 ! 163: .nr 38 \w.24 ! 164: .if \n(32<\n(38 .nr 32 \n(38 ! 165: .nr 38 \w3 ! 166: .if \n(31<\n(38 .nr 31 \n(38 ! 167: .nr 38 \w.40 ! 168: .if \n(32<\n(38 .nr 32 \n(38 ! 169: .nr 38 \w.95* ! 170: .if \n(32<\n(38 .nr 32 \n(38 ! 171: .50 ! 172: .rm 50 ! 173: .nr 46 \n(31 ! 174: .nr 38 \n(46+\n(32 ! 175: .if \n(38>\n(50 .nr 50 \n(38 ! 176: .if \n(38<\n(50 .nr 46 +(\n(50-\n(38)/2 ! 177: .nr 38 \wAT&T Common Stock-\n(48-3n-\n(49-3n-\n(50 ! 178: .if \n(38>0 .nr 38 \n(38/2 ! 179: .if \n(38<0 .nr 38 0 ! 180: .nr 44 +\n(38/2 ! 181: .nr 48 +\n(38 ! 182: .nr 45 +\n(38/2 ! 183: .nr 49 +\n(38 ! 184: .nr 38 1n ! 185: .nr 47 0 ! 186: .nr 40 \n(47+((2*\n(38)/2) ! 187: .nr 48 +\n(40 ! 188: .nr 44 +\n(40 ! 189: .nr 41 \n(48+((6*\n(38)/2) ! 190: .nr 49 +\n(41 ! 191: .nr 45 +\n(41 ! 192: .nr 42 \n(49+((6*\n(38)/2) ! 193: .nr 50 +\n(42 ! 194: .nr 46 +\n(42 ! 195: .nr TW \n(50 ! 196: .nr TW +((2*\n(38)/2) ! 197: .ne 8v+(0u*(\n(.vu-\n(.sp))+(2u*(\n(.vu-\n(.sp)) ! 198: .fc ! 199: .nr #T 0-1 ! 200: .nr #a 0-1 ! 201: .nr #c 0-1 ! 202: .nr #a 0-1 ! 203: .eo ! 204: .de T# ! 205: .nr 38 \n(.s ! 206: .ps \n(39p ! 207: .nr 35 1m ! 208: .ds #d .d ! 209: .if \n(.z .ds #d nl ! 210: .mk ## ! 211: .nr ## -1v ! 212: .ls 1 ! 213: .if \n(T. .vs \n(.vu-\n(.sp ! 214: .if \n(T. \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 215: .if \n(T. .vs ! 216: .if \n(#T>=0 .nr #a \n(#T ! 217: .if \n(#c<0 .nr #c \n(#T ! 218: .if \n(#a>=0 \{\ ! 219: . sp -1 ! 220: . ie \n(#a=\n(#T \{\ ! 221: \h'|0'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\h'|\n(TWu'\} ! 222: . el \{\ ! 223: \h'|0'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\h'|\n(TWu'\}\} ! 224: .if \n(#c>=0 \{\ ! 225: . sp -1 ! 226: . ie \n(#c=\n(#T \{\ ! 227: . ie \n(3a \{\ ! 228: \h'(|\n(41u+|\n(48u)/2u'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\h'|\n(TWu'\} ! 229: . el \{\ ! 230: \h'(|\n(41u+|\n(48u)/2u'\s\n(33\h'-\n(#~u'\L'|\n(#cu-\n(35u'\s0\v'\n(\*(#du-\n(#cu+\n(35u'\h'|\n(TWu'\}\} ! 231: . el \{\ ! 232: . nr 3a 1 ! 233: \h'(|\n(41u+|\n(48u)/2u'\s\n(33\h'-\n(#~u'\L'|\n(#cu-\n(35u'\s0\v'\n(\*(#du-\n(#cu+\n(35u'\h'|\n(TWu'\}\} ! 234: .if \n(#c>=0 \{\ ! 235: . sp -1 ! 236: . ie \n(#c=\n(#T \{\ ! 237: . ie \n(3a \{\ ! 238: \h'(|\n(42u+|\n(49u)/2u'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\h'|\n(TWu'\} ! 239: . el \{\ ! 240: \h'(|\n(42u+|\n(49u)/2u'\s\n(33\h'-\n(#~u'\L'|\n(#cu-\n(35u'\s0\v'\n(\*(#du-\n(#cu+\n(35u'\h'|\n(TWu'\}\} ! 241: . el \{\ ! 242: . nr 3a 1 ! 243: \h'(|\n(42u+|\n(49u)/2u'\s\n(33\h'-\n(#~u'\L'|\n(#cu-\n(35u'\s0\v'\n(\*(#du-\n(#cu+\n(35u'\h'|\n(TWu'\}\} ! 244: .if \n(#a>=0 \{.sp -1 ! 245: . ie \n(#a=\n(#T \{\ ! 246: \h'|\n(TWu'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\} ! 247: . el \{\ ! 248: \h'|\n(TWu'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\}\} ! 249: .nr #c 0-1 ! 250: .ls ! 251: .ps \n(38p ! 252: .. ! 253: .ec ! 254: .if \n(.tu<=2v .#f ! 255: .nr tH 0 ! 256: .nr 36 \n(.v ! 257: .vs \n(.vu-\n(.sp ! 258: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 259: .vs \n(36u ! 260: .mk #a ! 261: .nr 32 0 ! 262: .nr 32 \n(32u+\n(.du+2p ! 263: .ta \n(50u ! 264: .nr 35 1m ! 265: .nr 31 \n(.f ! 266: \&\h'|\n(40u'AT&T Common Stock ! 267: .if \n(.tu<=2v .#f ! 268: .nr tH 0 ! 269: .mk #c ! 270: .nr 36 \n(.v ! 271: .vs \n(.vu-\n(.sp ! 272: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 273: .vs \n(36u ! 274: .nr 32 0 ! 275: .nr 32 \n(32u+\n(.du+2p ! 276: .ta \n(48u \n(49u \n(50u ! 277: .nr 35 1m ! 278: .nr 31 \n(.f ! 279: \&\h'|\n(40u'Year\h'|\n(41u'Price\h'|\n(42u'Dividend ! 280: .if \n(.tu<=2v .#f ! 281: .nr tH 0 ! 282: .nr 36 \n(.v ! 283: .vs \n(.vu-\n(.sp ! 284: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 285: .vs \n(36u ! 286: .nr 32 0 ! 287: .nr 32 \n(32u+\n(.du+2p ! 288: .ta \n(44u \n(45u \n(46u \n(50u ! 289: .nr 35 1m ! 290: .nr 31 \n(.f ! 291: \&\h'|\n(40u'1971\h'|\n(41u'41-54\h'|\n(42u'$2.60 ! 292: .if \n(.tu<=2v .#f ! 293: .nr tH 0 ! 294: .nr 36 \n(.v ! 295: .vs \n(.vu-\n(.sp ! 296: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 297: .vs \n(36u ! 298: .nr 32 0 ! 299: .nr 32 \n(32u+\n(.du+2p ! 300: .ta \n(44u \n(45u \n(46u \n(50u ! 301: .nr 35 1m ! 302: .nr 31 \n(.f ! 303: \&\h'|\n(40u'2\h'|\n(41u'45-54\h'|\n(42u'2.70 ! 304: .if \n(.tu<=2v .#f ! 305: .nr tH 0 ! 306: .nr 36 \n(.v ! 307: .vs \n(.vu-\n(.sp ! 308: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 309: .vs \n(36u ! 310: .nr 32 0 ! 311: .nr 32 \n(32u+\n(.du+2p ! 312: .ta \n(44u \n(45u \n(46u \n(50u ! 313: .nr 35 1m ! 314: .nr 31 \n(.f ! 315: \&\h'|\n(40u'3\h'|\n(41u'46-55\h'|\n(42u'2.87 ! 316: .if \n(.tu<=2v .#f ! 317: .nr tH 0 ! 318: .nr 36 \n(.v ! 319: .vs \n(.vu-\n(.sp ! 320: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 321: .vs \n(36u ! 322: .nr 32 0 ! 323: .nr 32 \n(32u+\n(.du+2p ! 324: .ta \n(44u \n(45u \n(46u \n(50u ! 325: .nr 35 1m ! 326: .nr 31 \n(.f ! 327: \&\h'|\n(40u'4\h'|\n(41u'40-53\h'|\n(42u'3.24 ! 328: .if \n(.tu<=2v .#f ! 329: .nr tH 0 ! 330: .nr 36 \n(.v ! 331: .vs \n(.vu-\n(.sp ! 332: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 333: .vs \n(36u ! 334: .nr 32 0 ! 335: .nr 32 \n(32u+\n(.du+2p ! 336: .ta \n(44u \n(45u \n(46u \n(50u ! 337: .nr 35 1m ! 338: .nr 31 \n(.f ! 339: \&\h'|\n(40u'5\h'|\n(41u'45-52\h'|\n(42u'3.40 ! 340: .if \n(.tu<=2v .#f ! 341: .nr tH 0 ! 342: .nr 36 \n(.v ! 343: .vs \n(.vu-\n(.sp ! 344: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 345: .vs \n(36u ! 346: .nr 32 0 ! 347: .nr 32 \n(32u+\n(.du+2p ! 348: .ta \n(44u \n(45u \n(46u \n(50u ! 349: .nr 35 1m ! 350: .nr 31 \n(.f ! 351: \&\h'|\n(40u'6\h'|\n(41u'51-59\h'|\n(42u'.95* ! 352: .fc ! 353: .ch #f ! 354: .rm #f ! 355: .nr T. 1 ! 356: .T# \n(T. ! 357: .rm T# ! 358: .rr 3a ! 359: .35 ! 360: .nr #a 0 ! 361: .nr #c 0 ! 362: .TE ! 363: .if \n-(b.=0 .nr c. \n(.c-\n(d.-13 ! 364: *(first quarter only) ! 365: ! 366: This dies with numerous errors, the most important being the inability ! 367: to remove number registers with numeric names and the lack of an ! 368: implementation of the .fc primitive. I don't know if it would be worth ! 369: it to make our troff be able to digest tbl output (although I'd love ! 370: to have a tbl of my own), but here's something you can work with. ! 371: ! 372: ! 373: ! 374: [email protected] -- Fred Butzen -- ! 375: President, William Billings Chapter, ! 376: Don Carlo Gesualdo Fan Club ! 377: ! 378: &&
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.