[unix-history] / usr / src / old / tbl / t6.c

#ifndef lint
static char sccsid[] = "@(#)t6.c	4.3 %G%";
#endif

 /* t6.c: compute tab stops */
# define tx(a) (a>0 && a<128)
# include "t..c"
maktab()
{
# define FN(i,c) font[stynum[i]][c]
# define SZ(i,c) csize[stynum[i]][c]
/* define the tab stops of the table */
int icol, ilin, tsep, k, ik, vforml, il, text;
int doubled[MAXCOL], acase[MAXCOL];
char *s;
for(icol=0; icol <ncol; icol++)
	{
	doubled[icol] = acase[icol] = 0;
	fprintf(tabout, ".nr %d 0\n", icol+CRIGHT);
   for(text=0; text<2; text++)
	{
	if (text)
		fprintf(tabout, ".%02d\n.rm %02d\n", icol+80, icol+80);
	for(ilin=0; ilin<nlin; ilin++)
		{
		if (instead[ilin]|| fullbot[ilin]) continue;
		vforml=ilin;
		for(il=prev(ilin); il>=0 && vspen(table[il][icol].col); il=prev(il))
			vforml=il;
		if (fspan(vforml,icol)) continue;
		if (filler(table[ilin][icol].col)) continue;
		switch(ctype(vforml,icol))
			{
			case 'a':
				acase[icol]=1;
				s = table[ilin][icol].col;
				if (s>0 && s<128 && text)
					{
					if (doubled[icol]==0)
						fprintf(tabout, ".nr %d 0\n.nr %d 0\n",S1,S2);
					doubled[icol]=1;
					fprintf(tabout, ".if \\n(%c->\\n(%d .nr %d \\n(%c-\n",s,S2,S2,s);
					}
			case 'n':
				if (table[ilin][icol].rcol!=0)
					{
					if (doubled[icol]==0 && text==0)
						fprintf(tabout, ".nr %d 0\n.nr %d 0\n", S1, S2);
					doubled[icol]=1;
					if (real(s=table[ilin][icol].col) && !vspen(s))
						{
						if (tx(s) != text) continue;
						fprintf(tabout, ".nr %d ", TMP);
						wide(s, FN(vforml,icol), SZ(vforml,icol)); fprintf(tabout, "\n");
						fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", S1, TMP, S1, TMP);
						}
					if (text==0 && real(s=table[ilin][icol].rcol) && !vspen(s) && !barent(s))
						{
						fprintf(tabout, ".nr %d \\w%c%s%c\n",TMP, F1, s, F1);
						fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",S2,TMP,S2,TMP);
						}
					continue;
					}
			case 'r':
			case 'c':
			case 'l':
				if (real(s=table[ilin][icol].col) && !vspen(s))
					{
					if (tx(s) != text) continue;
					fprintf(tabout, ".nr %d ", TMP);
					wide(s, FN(vforml,icol), SZ(vforml,icol)); fprintf(tabout, "\n");
					fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", icol+CRIGHT, TMP, icol+CRIGHT, TMP);
					}
			}
		}
		}
	if (acase[icol])
		{
		fprintf(tabout, ".if \\n(%d>=\\n(%d .nr %d \\n(%du+2n\n",S2,icol+CRIGHT,icol+CRIGHT,S2);
		}
	if (doubled[icol])
		{
		fprintf(tabout, ".nr %d \\n(%d\n", icol+CMID, S1);
		fprintf(tabout, ".nr %d \\n(%d+\\n(%d\n",TMP,icol+CMID,S2);
		fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n",TMP,icol+CRIGHT,icol+CRIGHT,TMP);
		fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d +(\\n(%d-\\n(%d)/2\n",TMP,icol+CRIGHT,icol+CMID,icol+CRIGHT,TMP);
		}
	if (cll[icol][0])
		{
		fprintf(tabout, ".nr %d %sn\n", TMP, cll[icol]);
		fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",icol+CRIGHT, TMP, icol+CRIGHT, TMP);
		}
	for(ilin=0; ilin<nlin; ilin++)
	if (k=lspan(ilin, icol))
		{
		s=table[ilin][icol-k].col;
		if (!real(s) || barent(s) || vspen(s) ) continue;
		fprintf(tabout, ".nr %d ", TMP);
		wide(table[ilin][icol-k].col, FN(ilin,icol-k), SZ(ilin,icol-k));
		for(ik=k; ik>=0; ik--)
			{
			fprintf(tabout, "-\\n(%d",CRIGHT+icol-ik);
			if (!expflg && ik>0) fprintf(tabout, "-%dn", sep[icol-ik]);
			}
		fprintf(tabout, "\n");
		fprintf(tabout, ".if \\n(%d>0 .nr %d \\n(%d/%d\n", TMP, TMP, TMP, k);
		fprintf(tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
		for(ik=1; ik<=k; ik++)
			{
			if (doubled[icol-k+ik])
				fprintf(tabout, ".nr %d +\\n(%d/2\n", icol-k+ik+CMID, TMP);
			fprintf(tabout, ".nr %d +\\n(%d\n", icol-k+ik+CRIGHT, TMP);
			}
		}
	}
if (textflg) untext();
/* if even requested, make all columns widest width */
# define TMP1 S1
# define TMP2 S2
if (evenflg)
	{
	fprintf(tabout, ".nr %d 0\n", TMP);
	for(icol=0; icol<ncol; icol++)
		{
		if (evenup[icol]==0) continue;
		fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n",
		icol+CRIGHT, TMP, TMP, icol+CRIGHT);
		}
	for(icol=0; icol<ncol; icol++)
		{
		if (evenup[icol]==0)
			/* if column not evened just retain old interval */
			continue;
		if (doubled[icol])
			fprintf(tabout, ".nr %d (100*\\n(%d/\\n(%d)*\\n(%d/100\n",
				icol+CMID, icol+CMID, icol+CRIGHT, TMP);
				/* that nonsense with the 100's and parens tries
				   to avoid overflow while proportionally shifting
				   the middle of the number */
		fprintf(tabout, ".nr %d \\n(%d\n", icol+CRIGHT, TMP);
		}
	}
/* now adjust for total table width */
for(tsep=icol=0; icol<ncol; icol++)
	tsep+= sep[icol];
if (expflg)
	{
	fprintf(tabout, ".nr %d 0", TMP);
	for(icol=0; icol<ncol; icol++)
		fprintf(tabout, "+\\n(%d", icol+CRIGHT);
	fprintf(tabout, "\n");
	fprintf(tabout, ".nr %d \\n(.l-\\n(%d\n", TMP, TMP);
	if (boxflg || dboxflg || allflg)
		tsep += 1;
	else
		tsep -= sep[ncol-1];
	fprintf(tabout, ".nr %d \\n(%d/%d\n", TMP, TMP,  tsep);
	fprintf(tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
	}
else
	fprintf(tabout, ".nr %d 1n\n", TMP);
fprintf(tabout, ".nr %d 0\n",CRIGHT-1);
tsep= (boxflg || allflg || dboxflg || left1flg) ? 1 : 0;
for(icol=0; icol<ncol; icol++)
	{
	fprintf(tabout, ".nr %d \\n(%d+(%d*\\n(%d)\n",icol+CLEFT, icol+CRIGHT-1, tsep, TMP);
	fprintf(tabout, ".nr %d +\\n(%d\n",icol+CRIGHT, icol+CLEFT);
	if (doubled[icol])
		{
		/* the next line is last-ditch effort to avoid zero field width */
		/*fprintf(tabout, ".if \\n(%d=0 .nr %d 1\n",icol+CMID, icol+CMID);*/
		fprintf(tabout, ".nr %d +\\n(%d\n", icol+CMID, icol+CLEFT);
	/*  fprintf(tabout, ".if n .if \\n(%d%%24>0 .nr %d +12u\n",icol+CMID, icol+CMID); */
		}
	tsep=sep[icol];
	}
if (rightl)
	fprintf(tabout, ".nr %d (\\n(%d+\\n(%d)/2\n",ncol+CRIGHT-1, ncol+CLEFT-1, ncol+CRIGHT-2);
fprintf(tabout, ".nr TW \\n(%d\n", ncol+CRIGHT-1);
if (boxflg || allflg || dboxflg)
	fprintf(tabout, ".nr TW +%d*\\n(%d\n", sep[ncol-1], TMP);
fprintf(tabout,
 ".if t .if \\n(TW>\\n(.li .tm Table at line %d file %s is too wide - \\n(TW units\n", iline-1, ifile);
return;
}
wide(s, fn, size)
	char *s, *size, *fn;
{
if (point(s))
	{
	fprintf(tabout, "\\w%c", F1);
	if (*fn>0) putfont(fn);
	if (*size) putsize(size);
	fprintf(tabout, "%s", s);
	if (*fn>0) putfont("P");
	if (*size) putsize("0");
	fprintf(tabout, "%c",F1);
	}
else
	fprintf(tabout, "\\n(%c-", s);
}
filler(s)
	char *s;
{
return (point(s) && s[0]=='\\' && s[1] == 'R');
}
Commit	Line	Data
476fcd16	1	#ifndef lint
4ca9f9fe	2	static char sccsid[] = "@(#)t6.c 4.3 %G%";
476fcd16	3	#endif
e85960a4 BS	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,
4ca9f9fe	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);
e85960a4 BS	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	}