xref: /csrg-svn/old/tbl/t6.c (revision 48316)
1*48316Sbostic /*-
2*48316Sbostic  * %sccs.include.proprietary.c%
3*48316Sbostic  */
4*48316Sbostic 
514509Ssam #ifndef lint
6*48316Sbostic static char sccsid[] = "@(#)t6.c	4.5 (Berkeley) 04/18/91";
7*48316Sbostic #endif /* not lint */
811033Sshannon 
911033Sshannon  /* t6.c: compute tab stops */
1035262Sbostic 
1111033Sshannon # include "t..c"
1235262Sbostic 
maktab()1311033Sshannon maktab()
1411033Sshannon {
1511033Sshannon # define FN(i,c) font[stynum[i]][c]
1611033Sshannon # define SZ(i,c) csize[stynum[i]][c]
1711033Sshannon /* define the tab stops of the table */
1811033Sshannon int icol, ilin, tsep, k, ik, vforml, il, text;
1911033Sshannon int doubled[MAXCOL], acase[MAXCOL];
2011033Sshannon char *s;
2111033Sshannon for(icol=0; icol <ncol; icol++)
2211033Sshannon 	{
2311033Sshannon 	doubled[icol] = acase[icol] = 0;
2411033Sshannon 	fprintf(tabout, ".nr %d 0\n", icol+CRIGHT);
2511033Sshannon    for(text=0; text<2; text++)
2611033Sshannon 	{
2711033Sshannon 	if (text)
2811033Sshannon 		fprintf(tabout, ".%02d\n.rm %02d\n", icol+80, icol+80);
2911033Sshannon 	for(ilin=0; ilin<nlin; ilin++)
3011033Sshannon 		{
3111033Sshannon 		if (instead[ilin]|| fullbot[ilin]) continue;
3211033Sshannon 		vforml=ilin;
3311033Sshannon 		for(il=prev(ilin); il>=0 && vspen(table[il][icol].col); il=prev(il))
3411033Sshannon 			vforml=il;
3511033Sshannon 		if (fspan(vforml,icol)) continue;
3611033Sshannon 		if (filler(table[ilin][icol].col)) continue;
3711033Sshannon 		switch(ctype(vforml,icol))
3811033Sshannon 			{
3911033Sshannon 			case 'a':
4011033Sshannon 				acase[icol]=1;
4111033Sshannon 				s = table[ilin][icol].col;
4235262Sbostic 				if (tx(s) && text)
4311033Sshannon 					{
4411033Sshannon 					if (doubled[icol]==0)
4511033Sshannon 						fprintf(tabout, ".nr %d 0\n.nr %d 0\n",S1,S2);
4611033Sshannon 					doubled[icol]=1;
4711033Sshannon 					fprintf(tabout, ".if \\n(%c->\\n(%d .nr %d \\n(%c-\n",s,S2,S2,s);
4811033Sshannon 					}
4911033Sshannon 			case 'n':
5011033Sshannon 				if (table[ilin][icol].rcol!=0)
5111033Sshannon 					{
5211033Sshannon 					if (doubled[icol]==0 && text==0)
5311033Sshannon 						fprintf(tabout, ".nr %d 0\n.nr %d 0\n", S1, S2);
5411033Sshannon 					doubled[icol]=1;
5511033Sshannon 					if (real(s=table[ilin][icol].col) && !vspen(s))
5611033Sshannon 						{
5711033Sshannon 						if (tx(s) != text) continue;
5811033Sshannon 						fprintf(tabout, ".nr %d ", TMP);
5911033Sshannon 						wide(s, FN(vforml,icol), SZ(vforml,icol)); fprintf(tabout, "\n");
6011033Sshannon 						fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", S1, TMP, S1, TMP);
6111033Sshannon 						}
6211033Sshannon 					if (text==0 && real(s=table[ilin][icol].rcol) && !vspen(s) && !barent(s))
6311033Sshannon 						{
6411033Sshannon 						fprintf(tabout, ".nr %d \\w%c%s%c\n",TMP, F1, s, F1);
6511033Sshannon 						fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",S2,TMP,S2,TMP);
6611033Sshannon 						}
6711033Sshannon 					continue;
6811033Sshannon 					}
6911033Sshannon 			case 'r':
7011033Sshannon 			case 'c':
7111033Sshannon 			case 'l':
7211033Sshannon 				if (real(s=table[ilin][icol].col) && !vspen(s))
7311033Sshannon 					{
7411033Sshannon 					if (tx(s) != text) continue;
7511033Sshannon 					fprintf(tabout, ".nr %d ", TMP);
7611033Sshannon 					wide(s, FN(vforml,icol), SZ(vforml,icol)); fprintf(tabout, "\n");
7711033Sshannon 					fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", icol+CRIGHT, TMP, icol+CRIGHT, TMP);
7811033Sshannon 					}
7911033Sshannon 			}
8011033Sshannon 		}
8111033Sshannon 		}
8211033Sshannon 	if (acase[icol])
8311033Sshannon 		{
8411033Sshannon 		fprintf(tabout, ".if \\n(%d>=\\n(%d .nr %d \\n(%du+2n\n",S2,icol+CRIGHT,icol+CRIGHT,S2);
8511033Sshannon 		}
8611033Sshannon 	if (doubled[icol])
8711033Sshannon 		{
8811033Sshannon 		fprintf(tabout, ".nr %d \\n(%d\n", icol+CMID, S1);
8911033Sshannon 		fprintf(tabout, ".nr %d \\n(%d+\\n(%d\n",TMP,icol+CMID,S2);
9011033Sshannon 		fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n",TMP,icol+CRIGHT,icol+CRIGHT,TMP);
9111033Sshannon 		fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d +(\\n(%d-\\n(%d)/2\n",TMP,icol+CRIGHT,icol+CMID,icol+CRIGHT,TMP);
9211033Sshannon 		}
9311033Sshannon 	if (cll[icol][0])
9411033Sshannon 		{
9511033Sshannon 		fprintf(tabout, ".nr %d %sn\n", TMP, cll[icol]);
9611033Sshannon 		fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",icol+CRIGHT, TMP, icol+CRIGHT, TMP);
9711033Sshannon 		}
9811033Sshannon 	for(ilin=0; ilin<nlin; ilin++)
9911033Sshannon 	if (k=lspan(ilin, icol))
10011033Sshannon 		{
10111033Sshannon 		s=table[ilin][icol-k].col;
10211033Sshannon 		if (!real(s) || barent(s) || vspen(s) ) continue;
10311033Sshannon 		fprintf(tabout, ".nr %d ", TMP);
10411033Sshannon 		wide(table[ilin][icol-k].col, FN(ilin,icol-k), SZ(ilin,icol-k));
10511033Sshannon 		for(ik=k; ik>=0; ik--)
10611033Sshannon 			{
10711033Sshannon 			fprintf(tabout, "-\\n(%d",CRIGHT+icol-ik);
10811033Sshannon 			if (!expflg && ik>0) fprintf(tabout, "-%dn", sep[icol-ik]);
10911033Sshannon 			}
11011033Sshannon 		fprintf(tabout, "\n");
11111033Sshannon 		fprintf(tabout, ".if \\n(%d>0 .nr %d \\n(%d/%d\n", TMP, TMP, TMP, k);
11211033Sshannon 		fprintf(tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
11311033Sshannon 		for(ik=1; ik<=k; ik++)
11411033Sshannon 			{
11511033Sshannon 			if (doubled[icol-k+ik])
11611033Sshannon 				fprintf(tabout, ".nr %d +\\n(%d/2\n", icol-k+ik+CMID, TMP);
11711033Sshannon 			fprintf(tabout, ".nr %d +\\n(%d\n", icol-k+ik+CRIGHT, TMP);
11811033Sshannon 			}
11911033Sshannon 		}
12011033Sshannon 	}
12111033Sshannon if (textflg) untext();
12211033Sshannon /* if even requested, make all columns widest width */
12311033Sshannon # define TMP1 S1
12411033Sshannon # define TMP2 S2
12511033Sshannon if (evenflg)
12611033Sshannon 	{
12711033Sshannon 	fprintf(tabout, ".nr %d 0\n", TMP);
12811033Sshannon 	for(icol=0; icol<ncol; icol++)
12911033Sshannon 		{
13011033Sshannon 		if (evenup[icol]==0) continue;
13111033Sshannon 		fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n",
13211033Sshannon 		icol+CRIGHT, TMP, TMP, icol+CRIGHT);
13311033Sshannon 		}
13411033Sshannon 	for(icol=0; icol<ncol; icol++)
13511033Sshannon 		{
13611033Sshannon 		if (evenup[icol]==0)
13711033Sshannon 			/* if column not evened just retain old interval */
13811033Sshannon 			continue;
13911033Sshannon 		if (doubled[icol])
14011033Sshannon 			fprintf(tabout, ".nr %d (100*\\n(%d/\\n(%d)*\\n(%d/100\n",
14111033Sshannon 				icol+CMID, icol+CMID, icol+CRIGHT, TMP);
14211033Sshannon 				/* that nonsense with the 100's and parens tries
14311033Sshannon 				   to avoid overflow while proportionally shifting
14411033Sshannon 				   the middle of the number */
14511033Sshannon 		fprintf(tabout, ".nr %d \\n(%d\n", icol+CRIGHT, TMP);
14611033Sshannon 		}
14711033Sshannon 	}
14811033Sshannon /* now adjust for total table width */
14911033Sshannon for(tsep=icol=0; icol<ncol; icol++)
15011033Sshannon 	tsep+= sep[icol];
15111033Sshannon if (expflg)
15211033Sshannon 	{
15311033Sshannon 	fprintf(tabout, ".nr %d 0", TMP);
15411033Sshannon 	for(icol=0; icol<ncol; icol++)
15511033Sshannon 		fprintf(tabout, "+\\n(%d", icol+CRIGHT);
15611033Sshannon 	fprintf(tabout, "\n");
15711033Sshannon 	fprintf(tabout, ".nr %d \\n(.l-\\n(%d\n", TMP, TMP);
15811033Sshannon 	if (boxflg || dboxflg || allflg)
15911033Sshannon 		tsep += 1;
16011033Sshannon 	else
16111033Sshannon 		tsep -= sep[ncol-1];
16211033Sshannon 	fprintf(tabout, ".nr %d \\n(%d/%d\n", TMP, TMP,  tsep);
16311033Sshannon 	fprintf(tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
16411033Sshannon 	}
16511033Sshannon else
16611033Sshannon 	fprintf(tabout, ".nr %d 1n\n", TMP);
16711033Sshannon fprintf(tabout, ".nr %d 0\n",CRIGHT-1);
16811033Sshannon tsep= (boxflg || allflg || dboxflg || left1flg) ? 1 : 0;
16911033Sshannon for(icol=0; icol<ncol; icol++)
17011033Sshannon 	{
17111033Sshannon 	fprintf(tabout, ".nr %d \\n(%d+(%d*\\n(%d)\n",icol+CLEFT, icol+CRIGHT-1, tsep, TMP);
17211033Sshannon 	fprintf(tabout, ".nr %d +\\n(%d\n",icol+CRIGHT, icol+CLEFT);
17311033Sshannon 	if (doubled[icol])
17411033Sshannon 		{
17511033Sshannon 		/* the next line is last-ditch effort to avoid zero field width */
17611033Sshannon 		/*fprintf(tabout, ".if \\n(%d=0 .nr %d 1\n",icol+CMID, icol+CMID);*/
17711033Sshannon 		fprintf(tabout, ".nr %d +\\n(%d\n", icol+CMID, icol+CLEFT);
17811033Sshannon 	/*  fprintf(tabout, ".if n .if \\n(%d%%24>0 .nr %d +12u\n",icol+CMID, icol+CMID); */
17911033Sshannon 		}
18011033Sshannon 	tsep=sep[icol];
18111033Sshannon 	}
18211033Sshannon if (rightl)
18311033Sshannon 	fprintf(tabout, ".nr %d (\\n(%d+\\n(%d)/2\n",ncol+CRIGHT-1, ncol+CLEFT-1, ncol+CRIGHT-2);
18411033Sshannon fprintf(tabout, ".nr TW \\n(%d\n", ncol+CRIGHT-1);
18511033Sshannon if (boxflg || allflg || dboxflg)
18611033Sshannon 	fprintf(tabout, ".nr TW +%d*\\n(%d\n", sep[ncol-1], TMP);
18711033Sshannon fprintf(tabout,
18817855Sralph  ".if t .if \\n(TW>\\n(.li .tm Table at line %d file %s is too wide - \\n(TW units\n", iline-1, ifile);
18911033Sshannon return;
19011033Sshannon }
wide(s,fn,size)19111033Sshannon wide(s, fn, size)
19211033Sshannon 	char *s, *size, *fn;
19311033Sshannon {
19411033Sshannon if (point(s))
19511033Sshannon 	{
19611033Sshannon 	fprintf(tabout, "\\w%c", F1);
19711033Sshannon 	if (*fn>0) putfont(fn);
19811033Sshannon 	if (*size) putsize(size);
19911033Sshannon 	fprintf(tabout, "%s", s);
20011033Sshannon 	if (*fn>0) putfont("P");
20111033Sshannon 	if (*size) putsize("0");
20211033Sshannon 	fprintf(tabout, "%c",F1);
20311033Sshannon 	}
20411033Sshannon else
20511033Sshannon 	fprintf(tabout, "\\n(%c-", s);
20611033Sshannon }
filler(s)20711033Sshannon filler(s)
20811033Sshannon 	char *s;
20911033Sshannon {
21011033Sshannon return (point(s) && s[0]=='\\' && s[1] == 'R');
21111033Sshannon }
212