![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t8.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 41BSD / cmd / tbl|
Return to t8.c CVS log | Up to [CSRG BSD Unix] / 41BSD / cmd / tbl |
1.1 ! root 1: /* t8.c: write out one line of output table */ ! 2: # include "t..c" ! 3: # define realsplit ((ct=='a'||ct=='n') && table[nl][c].rcol) ! 4: int watchout; ! 5: int once; ! 6: int topat[MAXCOL]; ! 7: putline(i, nl) ! 8: /* i is line number for deciding format */ ! 9: /* nl is line number for finding data usually identical */ ! 10: { ! 11: int c, lf, ct, form, lwid, vspf, ip, cmidx, exvspen, vforml; ! 12: int vct, chfont; ! 13: char *s, *size, *fn; ! 14: watchout=vspf=exvspen=0; ! 15: if (i==0) once=0; ! 16: if (i==0 && ( allflg || boxflg || dboxflg)) ! 17: fullwide(0, dboxflg? '=' : '-'); ! 18: if (instead[nl]==0 && fullbot[nl] ==0) ! 19: for(c=0; c<ncol; c++) ! 20: { ! 21: s = table[nl][c].col; ! 22: if (s==0) continue; ! 23: if (vspen(s)) ! 24: { ! 25: for(ip=nl; ip<nlin; ip=next(ip)) ! 26: if (!vspen(s=table[ip][c].col)) break; ! 27: if (s>0 && s<128) ! 28: fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s); ! 29: continue; ! 30: } ! 31: if (point(s)) continue; ! 32: fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s); ! 33: watchout=1; ! 34: } ! 35: if (linestop[nl]) ! 36: fprintf(tabout, ".mk #%c\n", linestop[nl]+'a'-1); ! 37: lf = prev(nl); ! 38: if (instead[nl]) ! 39: { ! 40: puts(instead[nl]); ! 41: return; ! 42: } ! 43: if (fullbot[nl]) ! 44: { ! 45: switch (ct=fullbot[nl]) ! 46: { ! 47: case '=': ! 48: case '-': ! 49: fullwide(nl,ct); ! 50: } ! 51: return; ! 52: } ! 53: for(c=0; c<ncol; c++) ! 54: { ! 55: if (instead[nl]==0 && fullbot[nl]==0) ! 56: if (vspen(table[nl][c].col)) vspf=1; ! 57: if (lf>=0) ! 58: if (vspen(table[lf][c].col)) vspf=1; ! 59: } ! 60: if (vspf) ! 61: { ! 62: fprintf(tabout, ".nr #^ \\n(\\*(#du\n"); ! 63: fprintf(tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */ ! 64: } ! 65: vspf=0; ! 66: chfont=0; ! 67: for(c=0; c<ncol; c++) ! 68: { ! 69: s = table[nl][c].col; ! 70: if (s==0) continue; ! 71: chfont |= (int)(font[stynum[nl]][c]); ! 72: if (point(s) ) continue; ! 73: lf=prev(nl); ! 74: if (lf>=0 && vspen(table[lf][c].col)) ! 75: fprintf(tabout, ".if (\\n(%c|+\\n(^%c-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(^%c-\\n(#--1v)\n",s,'a'+c,s,'a'+c); ! 76: else ! 77: fprintf(tabout, ".if (\\n(%c|+\\n(#^-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(#^-\\n(#--1v)\n",s,s); ! 78: } ! 79: if (allflg && once>0 ) ! 80: fullwide(i,'-'); ! 81: once=1; ! 82: runtabs(i, nl); ! 83: if (allh(i) && !pr1403) ! 84: { ! 85: fprintf(tabout, ".nr %d \\n(.v\n", SVS); ! 86: fprintf(tabout, ".vs \\n(.vu-\\n(.sp\n"); ! 87: } ! 88: if (chfont) ! 89: fprintf(tabout, ".nr %2d \\n(.f\n", S1); ! 90: fprintf(tabout, ".nr 35 1m\n"); ! 91: fprintf(tabout, "\\&"); ! 92: vct = 0; ! 93: for(c=0; c<ncol; c++) ! 94: { ! 95: if (watchout==0 && i+1<nlin && (lf=left(i,c, &lwid))>=0) ! 96: { ! 97: tohcol(c); ! 98: drawvert(lf, i, c, lwid); ! 99: vct += 2; ! 100: } ! 101: if (rightl && c+1==ncol) continue; ! 102: vforml=i; ! 103: for(lf=prev(nl); lf>=0 && vspen(table[lf][c].col); lf=prev(lf)) ! 104: vforml= lf; ! 105: form= ctype(vforml,c); ! 106: if (form != 's') ! 107: { ! 108: ct = c+CLEFT; ! 109: if (form=='a') ct = c+CMID; ! 110: if (form=='n' && table[nl][c].rcol && lused[c]==0) ct= c+CMID; ! 111: fprintf(tabout, "\\h'|\\n(%du'", ct); ! 112: } ! 113: s= table[nl][c].col; ! 114: fn = font[stynum[vforml]][c]; ! 115: size = csize[stynum[vforml]][c]; ! 116: if (*size==0)size=0; ! 117: switch(ct=ctype(vforml, c)) ! 118: { ! 119: case 'n': ! 120: case 'a': ! 121: if (table[nl][c].rcol) ! 122: { ! 123: if (lused[c]) /*Zero field width*/ ! 124: { ! 125: ip = prev(nl); ! 126: if (ip>=0) ! 127: if (vspen(table[ip][c].col)) ! 128: { ! 129: if (exvspen==0) ! 130: { ! 131: fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a'); ! 132: if (cmidx) ! 133: fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a'); ! 134: vct++; ! 135: fprintf(tabout, "'"); ! 136: exvspen=1; ! 137: } ! 138: } ! 139: fprintf(tabout, "%c%c",F1,F2); ! 140: puttext(s,fn,size); ! 141: fprintf(tabout, "%c",F1); ! 142: } ! 143: s= table[nl][c].rcol; ! 144: form=1; ! 145: break; ! 146: } ! 147: case 'c': ! 148: form=3; break; ! 149: case 'r': ! 150: form=2; break; ! 151: case 'l': ! 152: form=1; break; ! 153: case '-': ! 154: case '=': ! 155: if (real(table[nl][c].col)) ! 156: fprintf(stderr,"%s: line %d: Data ignored on table line %d\n", ifile, iline-1, i+1); ! 157: makeline(i,c,ct); ! 158: continue; ! 159: default: ! 160: continue; ! 161: } ! 162: if (realsplit ? rused[c]: used[c]) /*Zero field width*/ ! 163: { ! 164: /* form: 1 left, 2 right, 3 center adjust */ ! 165: if (ifline(s)) ! 166: { ! 167: makeline(i,c,ifline(s)); ! 168: continue; ! 169: } ! 170: if (filler(s)) ! 171: { ! 172: printf("\\l'|\\n(%du\\&%s'", c+CRIGHT, s+2); ! 173: continue; ! 174: } ! 175: ip = prev(nl); ! 176: cmidx = ctop[stynum[nl]][c]==0; ! 177: if (ip>=0) ! 178: if (vspen(table[ip][c].col)) ! 179: { ! 180: if (exvspen==0) ! 181: { ! 182: fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a'); ! 183: if (cmidx) ! 184: fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a'); ! 185: vct++; ! 186: fprintf(tabout, "'"); ! 187: } ! 188: } ! 189: fprintf(tabout, "%c", F1); ! 190: if (form!= 1) ! 191: fprintf(tabout, "%c", F2); ! 192: if (vspen(s)) ! 193: vspf=1; ! 194: else ! 195: puttext(s, fn, size); ! 196: if (form !=2) ! 197: fprintf(tabout, "%c", F2); ! 198: fprintf(tabout, "%c", F1); ! 199: } ! 200: if (ip>=0) ! 201: if (vspen(table[ip][c].col)) ! 202: { ! 203: exvspen = (c+1 < ncol) && vspen(table[ip][c+1].col) && ! 204: (topat[c] == topat[c+1]) && ! 205: (cmidx == (ctop [stynum[nl]][c+1]==0)) && (left(i,c+1,&lwid)<0); ! 206: if (exvspen==0) ! 207: { ! 208: fprintf(tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c+'a'); ! 209: if (cmidx) ! 210: fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a'); ! 211: vct++; ! 212: fprintf(tabout, "'"); ! 213: } ! 214: } ! 215: else ! 216: exvspen=0; ! 217: /* if lines need to be split for gcos here is the place for a backslash */ ! 218: if (vct > 7 && c < ncol) ! 219: { ! 220: fprintf(tabout, "\n.sp-1\n\\&"); ! 221: vct=0; ! 222: } ! 223: } ! 224: fprintf(tabout, "\n"); ! 225: if (allh(i) && !pr1403) fprintf(tabout, ".vs \\n(%du\n", SVS); ! 226: if (watchout) ! 227: funnies(i,nl); ! 228: if (vspf) ! 229: { ! 230: for(c=0; c<ncol; c++) ! 231: if (vspen(table[nl][c].col) && (nl==0 || (lf=prev(nl))<0 || !vspen(table[lf][c].col))) ! 232: { ! 233: fprintf(tabout, ".nr ^%c \\n(#^u\n", 'a'+c); ! 234: topat[c]=nl; ! 235: } ! 236: } ! 237: } ! 238: puttext(s,fn, size) ! 239: char *s, *size, *fn; ! 240: { ! 241: if (point(s)) ! 242: { ! 243: putfont(fn); ! 244: putsize(size); ! 245: fprintf(tabout, "%s",s); ! 246: if (*fn>0) fprintf(tabout, "\\f\\n(%2d", S1); ! 247: if (size!=0) putsize("0"); ! 248: } ! 249: } ! 250: funnies( stl, lin) ! 251: { ! 252: /* write out funny diverted things */ ! 253: int c, s, pl, lwid, dv, lf, ct; ! 254: char *fn; ! 255: fprintf(tabout, ".mk ##\n"); /* rmember current vertical position */ ! 256: fprintf(tabout, ".nr %d \\n(##\n", S1); /* bottom position */ ! 257: for(c=0; c<ncol; c++) ! 258: { ! 259: s = table[lin][c].col; ! 260: if (point(s)) continue; ! 261: if (s==0) continue; ! 262: fprintf(tabout, ".sp |\\n(##u-1v\n"); ! 263: fprintf(tabout, ".nr %d ", SIND); ! 264: for(pl=stl; pl>=0 && !isalpha(ct=ctype(pl,c)); pl=prev(pl)) ! 265: ; ! 266: switch (ct) ! 267: { ! 268: case 'n': ! 269: case 'c': ! 270: fprintf(tabout, "(\\n(%du+\\n(%du-\\n(%c-u)/2u\n",c+CLEFT,c-1+ctspan(lin,c)+CRIGHT, s); ! 271: break; ! 272: case 'l': ! 273: fprintf(tabout, "\\n(%du\n",c+CLEFT); ! 274: break; ! 275: case 'a': ! 276: fprintf(tabout, "\\n(%du\n",c+CMID); ! 277: break; ! 278: case 'r': ! 279: fprintf(tabout, "\\n(%du-\\n(%c-u\n", c+CRIGHT, s); ! 280: break; ! 281: } ! 282: fprintf(tabout, ".in +\\n(%du\n", SIND); ! 283: fn=font[stynum[stl]][c]; ! 284: putfont(fn); ! 285: pl = prev(stl); ! 286: if (stl>0 && pl>=0 && vspen(table[pl][c].col)) ! 287: { ! 288: fprintf(tabout, ".sp |\\n(^%cu\n", 'a'+c); ! 289: if (ctop[stynum[stl]][c]==0) ! 290: { ! 291: fprintf(tabout, ".nr %d \\n(#-u-\\n(^%c-\\n(%c|+1v\n",TMP, 'a'+c, s); ! 292: fprintf(tabout, ".if \\n(%d>0 .sp \\n(%du/2u\n", TMP, TMP); ! 293: } ! 294: } ! 295: fprintf(tabout, ".%c+\n",s); ! 296: fprintf(tabout, ".in -\\n(%du\n", SIND); ! 297: if (*fn>0) putfont("P"); ! 298: fprintf(tabout, ".mk %d\n", S2); ! 299: fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n", S2, S1, S1, S2); ! 300: } ! 301: fprintf(tabout, ".sp |\\n(%du\n", S1); ! 302: for(c=dv=0; c<ncol; c++) ! 303: { ! 304: if (stl+1< nlin && (lf=left(stl,c,&lwid))>=0) ! 305: { ! 306: if (dv++ == 0) ! 307: fprintf(tabout, ".sp -1\n"); ! 308: tohcol(c); ! 309: dv++; ! 310: drawvert(lf, stl, c, lwid); ! 311: } ! 312: } ! 313: if (dv) ! 314: fprintf(tabout,"\n"); ! 315: } ! 316: putfont(fn) ! 317: char *fn; ! 318: { ! 319: if (fn && *fn) ! 320: fprintf(tabout, fn[1] ? "\\f(%.2s" : "\\f%.2s", fn); ! 321: } ! 322: putsize(s) ! 323: char *s; ! 324: { ! 325: if (s && *s) ! 326: fprintf(tabout, "\\s%s",s); ! 327: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.