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