t4.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
* Copyright 1983-2003 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
/* t4.c: read table specification */
# include "t..c"
int oncol;
getspec()
{
int icol, i;
for(icol=0; icol<MAXCOL; icol++)
{
sep[icol]= -1;
evenup[icol]=0;
cll[icol][0]=0;
for(i=0; i<MAXHEAD; i++)
{
csize[i][icol][0]=0;
vsize[i][icol][0]=0;
font[i][icol][0] = lefline[i][icol] = 0;
ctop[i][icol]=0;
style[i][icol]= 'l';
}
}
nclin=ncol=0;
oncol =0;
left1flg=rightl=0;
readspec();
fprintf(tabout, ".rm");
for(i=0; i<ncol; i++)
fprintf(tabout, " %02d", 80+i);
fprintf(tabout, "\n");
}
readspec()
{
int icol, c, sawchar, stopc, i;
char sn[10], *snp, *temp;
sawchar=icol=0;
while (c=get1char())
{
switch(c)
{
default:
if (c != tab)
error(gettext("bad table specification character"));
case ' ': /* note this is also case tab */
continue;
case '\n':
if(sawchar==0) continue;
case ',':
case '.': /* end of table specification */
ncol = max(ncol, icol);
if (lefline[nclin][ncol]>0) {ncol++; rightl++;};
if(sawchar)
nclin++;
if (nclin>=MAXHEAD)
error(gettext("too many lines in specification"));
icol=0;
if (ncol==0 || nclin==0)
error(gettext("no specification"));
if (c== '.')
{
while ((c=get1char()) && c != '\n')
if (c != ' ' && c != '\t')
error(gettext("dot not last character on format line"));
/* fix up sep - default is 3 except at edge */
for(icol=0; icol<ncol; icol++)
if (sep[icol]<0)
sep[icol] = icol+1<ncol ? 3 : 1;
if (oncol == 0)
oncol = ncol;
else if (oncol +2 <ncol)
error(gettext("tried to widen table in T&, not allowed"));
return;
}
sawchar=0;
continue;
case 'C': case 'S': case 'R': case 'N': case 'L': case 'A':
c += ('a'-'A');
case '_': if (c=='_') c= '-';
case '=': case '-':
case '^':
case 'c': case 's': case 'n': case 'r': case 'l': case 'a':
style[nclin][icol]=c;
if (c== 's' && icol<=0)
error(gettext("first column can not be S-type"));
if (c=='s' && style[nclin][icol-1] == 'a')
{
fprintf(tabout, ".tm warning: can't span a-type cols, changed to l\n");
style[nclin][icol-1] = 'l';
}
if (c=='s' && style[nclin][icol-1] == 'n')
{
fprintf(tabout, ".tm warning: can't span n-type cols, changed to c\n");
style[nclin][icol-1] = 'c';
}
icol++;
if (c=='^' && nclin<=0)
error(gettext("first row can not contain vertical span"));
if (icol>=MAXCOL)
error(gettext("too many columns in table"));
sawchar=1;
continue;
case 'b': case 'i':
c += 'A'-'a';
/* FALLTHRU */
case 'B': case 'I':
if (sawchar == 0)
continue;
if (icol==0) continue;
snp=font[nclin][icol-1];
snp[0]= (c=='I' ? '2' : '3');
snp[1]=0;
continue;
case 't': case 'T':
if (sawchar == 0) {
continue;
}
if (icol>0)
ctop[nclin][icol-1] = 1;
continue;
case 'd': case 'D':
if (sawchar == 0)
continue;
if (icol>0)
ctop[nclin][icol-1] = -1;
continue;
case 'f': case 'F':
if (sawchar == 0)
continue;
if (icol==0) continue;
snp=font[nclin][icol-1];
snp[0]=snp[1]=stopc=0;
for(i=0; i<2; i++)
{
c = get1char();
if (i==0 && c=='(')
{
stopc=')';
c = get1char();
}
if (c==0) break;
if (c==stopc) {stopc=0; break;}
if (stopc==0) if (c==' ' || c== tab ) break;
if (c=='\n'){un1getc(c); break;}
snp[i] = c;
if (c>= '0' && c<= '9') break;
}
if (stopc) if (get1char()!=stopc)
error(gettext("Nonterminated font name"));
continue;
case 'P': case 'p':
if (sawchar == 0)
continue;
if (icol<=0) continue;
temp = snp = csize[nclin][icol-1];
while (c = get1char())
{
if (c== ' ' || c== tab || c=='\n') break;
if (c=='-' || c == '+')
if (snp>temp)
break;
else
*snp++=c;
else
if (digit(c))
*snp++ = c;
else break;
if (snp-temp>4)
error(gettext("point size too large"));
}
*snp = 0;
if (atoi(temp)>36)
error(gettext("point size unreasonable"));
un1getc (c);
continue;
case 'V': case 'v':
if (sawchar == 0)
continue;
if (icol<=0) continue;
temp = snp = vsize[nclin][icol-1];
while (c = get1char())
{
if (c== ' ' || c== tab || c=='\n') break;
if (c=='-' || c == '+')
if (snp>temp)
break;
else
*snp++=c;
else
if (digit(c))
*snp++ = c;
else break;
if (snp-temp>4)
error(
gettext("vertical spacing value too large")
);
}
*snp=0;
un1getc(c);
continue;
case 'w': case 'W':
if (sawchar == 0) {
/*
* This should be an error case.
* However, for the backward-compatibility,
* treat as if 'c' was specified.
*/
style[nclin][icol] = 'c';
icol++;
if (icol >= MAXCOL) {
error(gettext(
"too many columns in table"));
}
sawchar = 1;
}
snp = cll [icol-1];
/* Dale Smith didn't like this check
* possible to have two text blocks
* of different widths now ....
if (*snp)
{
fprintf(tabout,
gettext("Ignored second width specification"));
continue;
}
* end commented out code ... */
stopc=0;
while (c = get1char())
{
if (snp==cll[icol-1] && c=='(')
{
stopc = ')';
continue;
}
if ( !stopc && (c>'9' || c< '0'))
break;
if (stopc && c== stopc)
break;
*snp++ =c;
}
*snp=0;
if (snp-cll[icol-1]>CLLEN)
error (gettext("column width too long"));
if (!stopc)
un1getc(c);
continue;
case 'e': case 'E':
if (sawchar == 0)
continue;
if (icol<1) continue;
evenup[icol-1]=1;
evenflg=1;
continue;
case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
sn[0] = c;
snp=sn+1;
while (digit(*snp++ = c = get1char()))
;
un1getc(c);
sep[icol-1] = max(sep[icol-1], numb(sn));
continue;
case '|':
lefline[nclin][icol]++;
if (icol==0) left1flg=1;
continue;
}
}
error(gettext("EOF reading table specification"));
}