void
deftail(void)
{
int i, c, lf, lwid;
for (i = 0; i < MAXHEAD; i++)
if (linestop[i])
Bprint(&tabout, ".nr #%c 0-1\n", linestop[i] + 'a' - 1);
Bprint(&tabout, ".nr #a 0-1\n");
Bprint(&tabout, ".eo\n");
Bprint(&tabout, ".de T#\n");
Bprint(&tabout, ".nr 35 1m\n");
Bprint(&tabout, ".ds #d .d\n");
Bprint(&tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
Bprint(&tabout, ".mk ##\n");
Bprint(&tabout, ".nr ## -1v\n");
Bprint(&tabout, ".ls 1\n");
for (i = 0; i < MAXHEAD; i++)
if (linestop[i])
Bprint(&tabout, ".if \\n(#T>=0 .nr #%c \\n(#T\n",
linestop[i] + 'a' - 1);
if (boxflg || allflg || dboxflg) /* bottom of table line */
if (fullbot[nlin-1] == 0) {
if (!pr1403)
Bprint(&tabout, ".if \\n(T. .vs \\n(.vu-\\n(.sp\n");
Bprint(&tabout, ".if \\n(T. ");
drawline(nlin, 0, ncol, dboxflg ? '=' : '-', 1, 0);
Bprint(&tabout, "\n.if \\n(T. .vs\n");
/* T. is really an argument to a macro but because of
eqn we don't dare pass it as an argument and reference by $1 */
}
for (c = 0; c < ncol; c++) {
if ((lf = left(nlin - 1, c, &lwid)) >= 0) {
Bprint(&tabout, ".if \\n(#%c>=0 .sp -1\n", linestop[lf] + 'a' - 1);
Bprint(&tabout, ".if \\n(#%c>=0 ", linestop[lf] + 'a' - 1);
tohcol(c);
drawvert(lf, nlin - 1, c, lwid);
Bprint(&tabout, "\\h'|\\n(TWu'\n");
}
}
if (boxflg || allflg || dboxflg) /* right hand line */ {
Bprint(&tabout, ".if \\n(#a>=0 .sp -1\n");
Bprint(&tabout, ".if \\n(#a>=0 \\h'|\\n(TWu'");
drawvert (0, nlin - 1, ncol, dboxflg ? 2 : 1);
Bprint(&tabout, "\n");
}
Bprint(&tabout, ".ls\n");
Bprint(&tabout, "..\n");
Bprint(&tabout, ".ec\n");
}
/*
* parameters
*
* i: line number for deciding format
* nl: line number for finding data usually identical
*/
void
putline(int i, int nl)
{
int c, lf, ct, form, lwid, vspf, ip = -1, cmidx, exvspen, vforml;
int vct, chfont;
char *s, *size, *fn;
watchout=vspf=exvspen=0;
if (i==0) once=0;
if (i==0 && ( allflg || boxflg || dboxflg))
fullwide(0, dboxflg? '=' : '-');
if (instead[nl]==0 && fullbot[nl] ==0)
for(c=0; c<ncol; c++)
{
s = table[nl][c].col;
if (s==0) continue;
if (vspen(s))
{
for(ip=nl; ip<nlin; ip=next(ip))
if (!vspen(s=table[ip][c].col)) break;
if (s>(char *)0 && s<(char *)128)
fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s);
continue;
}
if (point(s)) continue;
fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s);
watchout=1;
}
if (linestop[nl])
fprintf(tabout, ".mk #%c\n", linestop[nl]+'a'-1);
lf = prev(nl);
if (instead[nl])
{
puts(instead[nl]);
return;
}
if (fullbot[nl])
{
switch (ct=fullbot[nl])
{
case '=':
case '-':
fullwide(nl,ct);
}
return;
}
for(c=0; c<ncol; c++)
{
if (instead[nl]==0 && fullbot[nl]==0)
if (vspen(table[nl][c].col)) vspf=1;
if (lf>=0)
if (vspen(table[lf][c].col)) vspf=1;
}
if (vspf)
{
fprintf(tabout, ".nr #^ \\n(\\*(#du\n");
fprintf(tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */
}
vspf=0;
chfont=0;
for(c=0; c<ncol; c++)
{
s = table[nl][c].col;
if (s==0) continue;
chfont |= (int)(font[stynum[nl]][c]);
if (point(s) ) continue;
lf=prev(nl);
if (lf>=0 && vspen(table[lf][c].col))
fprintf(tabout, ".if (\\n(%c|+\\n(^%c-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(^%c-\\n(#--1v)\n",s,'a'+c,s,'a'+c);
else
fprintf(tabout, ".if (\\n(%c|+\\n(#^-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(#^-\\n(#--1v)\n",s,s);
}
if (allflg && once>0 )
fullwide(i,'-');
once=1;
runtabs(i, nl);
if (allh(nl) && !pr1403)
{
fprintf(tabout, ".nr %d \\n(.v\n", SVS);
fprintf(tabout, ".vs \\n(.vu-\\n(.sp\n");
}
if (chfont)
fprintf(tabout, ".nr %2d \\n(.f\n", S1);
fprintf(tabout, ".nr 35 1m\n");
fprintf(tabout, "\\&");
vct = 0;
for(c=0; c<ncol; c++)
{
if (watchout==0 && i+1<nlin && (lf=left(i,c, &lwid))>=0)
{
tohcol(c);
drawvert(lf, i, c, lwid);
vct += 2;
}
if (rightl && c+1==ncol) continue;
vforml=i;
for(lf=prev(nl); lf>=0 && vspen(table[lf][c].col); lf=prev(lf))
vforml= lf;
form= ctype(vforml,c);
if (form != 's')
{
ct = c+CLEFT;
if (form=='a') ct = c+CMID;
if (form=='n' && table[nl][c].rcol && lused[c]==0) ct= c+CMID;
fprintf(tabout, "\\h'|\\n(%du'", ct);
}
s= table[nl][c].col;
fn = font[stynum[vforml]][c];
size = csize[stynum[vforml]][c];
if (*size==0)size=0;
switch(ct=ctype(vforml, c))
{
case 'n':
case 'a':
if (table[nl][c].rcol)
{
if (lused[c]) /*Zero field width*/
{
ip = prev(nl);
if (ip>=0)
if (vspen(table[ip][c].col))
{
if (exvspen==0)
{
fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a');
if (cmidx)
fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
vct++;
fprintf(tabout, "'");
exvspen=1;
}
}
fprintf(tabout, "%c%c",F1,F2);
puttext(s,fn,size);
fprintf(tabout, "%c",F1);
}
s= table[nl][c].rcol;
form=1;
break;
}
/* FALLTHROUGH */
case 'c':
form=3; break;
case 'r':
form=2; break;
case 'l':
form=1; break;
case '-':
case '=':
if (real(table[nl][c].col))
fprintf(stderr,gettext("%s: line %d: Data ignored on table line %d\n"), ifile, iline-1, i+1);
makeline(i,c,ct);
continue;
default:
continue;
}
if (realsplit ? rused[c]: used[c]) /*Zero field width*/
{
/* form: 1 left, 2 right, 3 center adjust */
if (ifline(s))
{
makeline(i,c,ifline(s));
continue;
}
if (filler(s))
{
printf("\\l'|\\n(%du\\&%s'", c+CRIGHT, s+2);
continue;
}
ip = prev(nl);
cmidx = ctop[stynum[nl]][c]==0;
if (ip>=0)
if (vspen(table[ip][c].col))
{
if (exvspen==0)
{
fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a');
if (cmidx)
fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
vct++;
fprintf(tabout, "'");
}
}
fprintf(tabout, "%c", F1);
if (form!= 1)
fprintf(tabout, "%c", F2);
if (vspen(s))
vspf=1;
else
puttext(s, fn, size);
if (form !=2)
fprintf(tabout, "%c", F2);
fprintf(tabout, "%c", F1);
}
if (ip>=0)
if (vspen(table[ip][c].col))
{
exvspen = (c+1 < ncol) && vspen(table[ip][c+1].col) &&
(topat[c] == topat[c+1]) &&
(cmidx == (ctop [stynum[nl]][c+1]==0)) && (left(i,c+1,&lwid)<0);
if (exvspen==0)
{
fprintf(tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c+'a');
if (cmidx)
fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
vct++;
fprintf(tabout, "'");
}
}
else
exvspen=0;
/* if lines need to be split for gcos here is the place for a backslash */
if (vct > 7 && c < ncol)
{
fprintf(tabout, "\n.sp-1\n\\&");
vct=0;
}
}
fprintf(tabout, "\n");
if (allh(nl) && !pr1403) fprintf(tabout, ".vs \\n(%du\n", SVS);
if (watchout)
funnies(i,nl);
if (vspf)
{
for(c=0; c<ncol; c++)
if (vspen(table[nl][c].col) && (nl==0 || (lf=prev(nl))<0 || !vspen(table[lf][c].col)))
{
fprintf(tabout, ".nr ^%c \\n(#^u\n", 'a'+c);
topat[c]=nl;
}
}
}
void
funnies(int stl, int lin)
{
/* write out funny diverted things */
int c, s, pl, lwid, dv, lf, ct;
char *fn;
fprintf(tabout, ".mk ##\n"); /* rmember current vertical position */
fprintf(tabout, ".nr %d \\n(##\n", S1); /* bottom position */
for(c=0; c<ncol; c++)
{
s = (int)table[lin][c].col;
if (point(s)) continue;
if (s==0) continue;
fprintf(tabout, ".sp |\\n(##u-1v\n");
fprintf(tabout, ".nr %d ", SIND);
for(pl=stl; pl>=0 && !isalpha(ct=ctype(pl,c)); pl=prev(pl))
;
switch (ct)
{
case 'n':
case 'c':
fprintf(tabout, "(\\n(%du+\\n(%du-\\n(%c-u)/2u\n",c+CLEFT,c-1+ctspan(lin,c)+CRIGHT, s);
break;
case 'l':
fprintf(tabout, "\\n(%du\n",c+CLEFT);
break;
case 'a':
fprintf(tabout, "\\n(%du\n",c+CMID);
break;
case 'r':
fprintf(tabout, "\\n(%du-\\n(%c-u\n", c+CRIGHT, s);
break;
}
fprintf(tabout, ".in +\\n(%du\n", SIND);
fn=font[stynum[stl]][c];
putfont(fn);
pl = prev(stl);
if (stl>0 && pl>=0 && vspen(table[pl][c].col))
{
fprintf(tabout, ".sp |\\n(^%cu\n", 'a'+c);
if (ctop[stynum[stl]][c]==0)
{
fprintf(tabout, ".nr %d \\n(#-u-\\n(^%c-\\n(%c|+1v\n",TMP, 'a'+c, s);
fprintf(tabout, ".if \\n(%d>0 .sp \\n(%du/2u\n", TMP, TMP);
}
}
fprintf(tabout, ".%c+\n",s);
fprintf(tabout, ".in -\\n(%du\n", SIND);
if (*fn>0) putfont("P");
fprintf(tabout, ".mk %d\n", S2);
fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n", S2, S1, S1, S2);
}
fprintf(tabout, ".sp |\\n(%du\n", S1);
for(c=dv=0; c<ncol; c++)
{
if (stl+1< nlin && (lf=left(stl,c,&lwid))>=0)
{
if (dv++ == 0)
fprintf(tabout, ".sp -1\n");
tohcol(c);
dv++;
drawvert(lf, stl, c, lwid);
}
}
if (dv)
fprintf(tabout,"\n");
}
