![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t6.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / tbl|
Return to t6.c CVS log | Up to [Research Unix] / researchv9 / cmd / tbl |
1.1 ! root 1: /* t6.c: compute tab stops */ ! 2: # define tx(a) (a>0 && a<128) ! 3: # include "t..c" ! 4: maktab() ! 5: { ! 6: # define FN(i,c) font[c][stynum[i]] ! 7: # define SZ(i,c) csize[c][stynum[i]] ! 8: /* define the tab stops of the table */ ! 9: int icol, ilin, tsep, k, ik, vforml, il, text; ! 10: char *s; ! 11: for(icol=0; icol <ncol; icol++) ! 12: { ! 13: doubled[icol] = acase[icol] = 0; ! 14: fprintf(tabout, ".nr %2s 0\n", reg(icol,CRIGHT)); ! 15: for(text=0; text<2; text++) ! 16: { ! 17: if (text) ! 18: fprintf(tabout, ".%2s\n.rm %2s\n", reg(icol, CRIGHT), reg(icol, CRIGHT)); ! 19: for(ilin=0; ilin<nlin; ilin++) ! 20: { ! 21: if (instead[ilin]|| fullbot[ilin]) continue; ! 22: vforml=ilin; ! 23: for(il=prev(ilin); il>=0 && vspen(table[il][icol].col); il=prev(il)) ! 24: vforml=il; ! 25: if (fspan(vforml,icol)) continue; ! 26: if (filler(table[ilin][icol].col)) continue; ! 27: if ((flags[icol][stynum[ilin]] & ZEROW) != 0) continue; ! 28: switch(ctype(vforml,icol)) ! 29: { ! 30: case 'a': ! 31: acase[icol]=1; ! 32: s = table[ilin][icol].col; ! 33: if ((int)s>0 && (int)s<128 && text) ! 34: { ! 35: if (doubled[icol]==0) ! 36: fprintf(tabout, ".nr %d 0\n.nr %d 0\n",S1,S2); ! 37: doubled[icol]=1; ! 38: fprintf(tabout, ".if \\n(%c->\\n(%d .nr %d \\n(%c-\n",s,S2,S2,s); ! 39: } ! 40: case 'n': ! 41: if (table[ilin][icol].rcol!=0) ! 42: { ! 43: if (doubled[icol]==0 && text==0) ! 44: fprintf(tabout, ".nr %d 0\n.nr %d 0\n", S1, S2); ! 45: doubled[icol]=1; ! 46: if (real(s=table[ilin][icol].col) && !vspen(s)) ! 47: { ! 48: if (tx((int)s) != text) continue; ! 49: fprintf(tabout, ".nr %d ", TMP); ! 50: wide(s, FN(vforml,icol), SZ(vforml,icol)); fprintf(tabout, "\n"); ! 51: fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", S1, TMP, S1, TMP); ! 52: } ! 53: if (text==0 && real(s=table[ilin][icol].rcol) && !vspen(s) && !barent(s)) ! 54: { ! 55: fprintf(tabout, ".nr %d \\w%c%s%c\n",TMP, F1, s, F1); ! 56: fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",S2,TMP,S2,TMP); ! 57: } ! 58: continue; ! 59: } ! 60: case 'r': ! 61: case 'c': ! 62: case 'l': ! 63: if (real(s=table[ilin][icol].col) && !vspen(s)) ! 64: { ! 65: if (tx((int)s) != text) continue; ! 66: fprintf(tabout, ".nr %d ", TMP); ! 67: wide(s, FN(vforml,icol), SZ(vforml,icol)); fprintf(tabout, "\n"); ! 68: fprintf(tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n", reg(icol,CRIGHT), TMP, reg(icol,CRIGHT), TMP); ! 69: } ! 70: } ! 71: } ! 72: } ! 73: if (acase[icol]) ! 74: { ! 75: fprintf(tabout, ".if \\n(%d>=\\n(%2s .nr %2s \\n(%du+2n\n",S2,reg(icol,CRIGHT),reg(icol,CRIGHT),S2); ! 76: } ! 77: if (doubled[icol]) ! 78: { ! 79: fprintf(tabout, ".nr %2s \\n(%d\n", reg(icol,CMID), S1); ! 80: fprintf(tabout, ".nr %d \\n(%2s+\\n(%d\n",TMP,reg(icol,CMID),S2); ! 81: fprintf(tabout, ".if \\n(%d>\\n(%2s .nr %2s \\n(%d\n",TMP,reg(icol,CRIGHT),reg(icol,CRIGHT),TMP); ! 82: fprintf(tabout, ".if \\n(%d<\\n(%2s .nr %2s +(\\n(%2s-\\n(%d)/2\n",TMP,reg(icol,CRIGHT),reg(icol,CMID),reg(icol,CRIGHT),TMP); ! 83: } ! 84: if (cll[icol][0]) ! 85: { ! 86: fprintf(tabout, ".nr %d %sn\n", TMP, cll[icol]); ! 87: fprintf(tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",reg(icol,CRIGHT), TMP, reg(icol,CRIGHT), TMP); ! 88: } ! 89: for(ilin=0; ilin<nlin; ilin++) ! 90: if (k=lspan(ilin, icol)) ! 91: { ! 92: s=table[ilin][icol-k].col; ! 93: if (!real(s) || barent(s) || vspen(s) ) continue; ! 94: fprintf(tabout, ".nr %d ", TMP); ! 95: wide(table[ilin][icol-k].col, FN(ilin,icol-k), SZ(ilin,icol-k)); ! 96: for(ik=k; ik>=0; ik--) ! 97: { ! 98: fprintf(tabout, "-\\n(%2s",reg(icol-ik,CRIGHT)); ! 99: if (!expflg && ik>0) fprintf(tabout, "-%dn", sep[icol-ik]); ! 100: } ! 101: fprintf(tabout, "\n"); ! 102: fprintf(tabout, ".if \\n(%d>0 .nr %d \\n(%d/%d\n", TMP, TMP, TMP, k); ! 103: fprintf(tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP); ! 104: for(ik=1; ik<=k; ik++) ! 105: { ! 106: if (doubled[icol-k+ik]) ! 107: fprintf(tabout, ".nr %2s +\\n(%d/2\n", reg(icol-k+ik,CMID), TMP); ! 108: fprintf(tabout, ".nr %2s +\\n(%d\n", reg(icol-k+ik,CRIGHT), TMP); ! 109: } ! 110: } ! 111: } ! 112: if (textflg) untext(); ! 113: /* if even requested, make all columns widest width */ ! 114: # define TMP1 S1 ! 115: # define TMP2 S2 ! 116: if (evenflg) ! 117: { ! 118: fprintf(tabout, ".nr %d 0\n", TMP); ! 119: for(icol=0; icol<ncol; icol++) ! 120: { ! 121: if (evenup[icol]==0) continue; ! 122: fprintf(tabout, ".if \\n(%2s>\\n(%d .nr %d \\n(%2s\n", ! 123: reg(icol,CRIGHT), TMP, TMP, reg(icol,CRIGHT)); ! 124: } ! 125: for(icol=0; icol<ncol; icol++) ! 126: { ! 127: if (evenup[icol]==0) ! 128: /* if column not evened just retain old interval */ ! 129: continue; ! 130: if (doubled[icol]) ! 131: fprintf(tabout, ".nr %2s (100*\\n(%2s/\\n(%2s)*\\n(%d/100\n", ! 132: reg(icol,CMID), reg(icol,CMID), reg(icol,CRIGHT), TMP); ! 133: /* that nonsense with the 100's and parens tries ! 134: to avoid overflow while proportionally shifting ! 135: the middle of the number */ ! 136: fprintf(tabout, ".nr %2s \\n(%d\n", reg(icol,CRIGHT), TMP); ! 137: } ! 138: } ! 139: /* now adjust for total table width */ ! 140: for(tsep=icol=0; icol<ncol; icol++) ! 141: tsep+= sep[icol]; ! 142: if (expflg) ! 143: { ! 144: fprintf(tabout, ".nr %d 0", TMP); ! 145: for(icol=0; icol<ncol; icol++) ! 146: fprintf(tabout, "+\\n(%2s", reg(icol,CRIGHT)); ! 147: fprintf(tabout, "\n"); ! 148: fprintf(tabout, ".nr %d \\n(.l-\\n(%d\n", TMP, TMP); ! 149: if (boxflg || dboxflg || allflg) ! 150: /* tsep += 1; */ ; ! 151: else ! 152: tsep -= sep[ncol-1]; ! 153: fprintf(tabout, ".nr %d \\n(%d/%d\n", TMP, TMP, tsep); ! 154: fprintf(tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP); ! 155: } ! 156: else ! 157: fprintf(tabout, ".nr %d 1n\n", TMP); ! 158: fprintf(tabout, ".nr %2s 0\n",reg(-1, CRIGHT)); ! 159: tsep= (boxflg || allflg || dboxflg || left1flg) ? 2 : 0; ! 160: if (sep[-1] >= 0) tsep = sep[-1]; ! 161: for(icol=0; icol<ncol; icol++) ! 162: { ! 163: fprintf(tabout, ".nr %2s \\n(%2s+((%d*\\n(%d)/2)\n",reg(icol,CLEFT), reg(icol-1,CRIGHT), tsep, TMP); ! 164: fprintf(tabout, ".nr %2s +\\n(%2s\n",reg(icol,CRIGHT), reg(icol,CLEFT)); ! 165: if (doubled[icol]) ! 166: { ! 167: /* the next line is last-ditch effort to avoid zero field width */ ! 168: /*fprintf(tabout, ".if \\n(%2s=0 .nr %2s 1\n",reg(icol,CMID), reg(icol,CMID));*/ ! 169: fprintf(tabout, ".nr %2s +\\n(%2s\n", reg(icol,CMID), reg(icol,CLEFT)); ! 170: /* fprintf(tabout, ".if n .if \\n(%s%%24>0 .nr %s +12u\n",reg(icol,CMID), reg(icol,CMID)); */ ! 171: } ! 172: tsep=sep[icol]*2; ! 173: } ! 174: if (rightl) ! 175: fprintf(tabout, ".nr %s (\\n(%s+\\n(%s)/2\n",reg(ncol-1, CRIGHT), reg(ncol-1,CLEFT), reg(ncol-2,CRIGHT)); ! 176: fprintf(tabout, ".nr TW \\n(%2s\n", reg(ncol-1, CRIGHT)); ! 177: tsep = sep[ncol-1]; ! 178: if (boxflg || allflg || dboxflg) ! 179: fprintf(tabout, ".nr TW +((%d*\\n(%d)/2)\n", tsep, TMP); ! 180: fprintf(tabout, ! 181: ".if t .if (\\n(TW+\\n(.o)>7.65i .tm Table at line %d file %s is too wide - \\n(TW units\n", iline-1, ifile); ! 182: return; ! 183: } ! 184: wide(s, fn, size) ! 185: char *s, *size, *fn; ! 186: { ! 187: if (point(s)) ! 188: { ! 189: fprintf(tabout, "\\w%c", F1); ! 190: if (*fn>0) putfont(fn); ! 191: if (*size) putsize(size); ! 192: fprintf(tabout, "%s", s); ! 193: if (*fn>0) putfont("P"); ! 194: if (*size) putsize("0"); ! 195: fprintf(tabout, "%c",F1); ! 196: } ! 197: else ! 198: fprintf(tabout, "\\n(%c-", s); ! 199: } ! 200: filler(s) ! 201: char *s; ! 202: { ! 203: return (point(s) && s[0]=='\\' && s[1] == 'R'); ! 204: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.