363 lines
4.7 KiB
C
363 lines
4.7 KiB
C
#include "tdef.h"
|
|
#include "ext.h"
|
|
#include "fns.h"
|
|
#include <ctype.h>
|
|
|
|
/*
|
|
* n6.c -- width functions, sizes and fonts
|
|
*/
|
|
|
|
n_width(Tchar j)
|
|
{
|
|
int i, k;
|
|
|
|
if (iszbit(j))
|
|
return 0;
|
|
if (ismot(j)) {
|
|
if (isvmot(j))
|
|
return(0);
|
|
k = absmot(j);
|
|
if (isnmot(j))
|
|
k = -k;
|
|
return(k);
|
|
}
|
|
i = cbits(j);
|
|
if (i < ' ') {
|
|
if (i == '\b')
|
|
return(-widthp);
|
|
if (i == PRESC)
|
|
i = eschar;
|
|
else if (i == HX)
|
|
return(0);
|
|
}
|
|
if (i == ohc)
|
|
return(0);
|
|
i = trtab[i];
|
|
if (i < ' ')
|
|
return(0);
|
|
if (i >= t.tfont.nchars) /* not on the font */
|
|
k = t.Char; /* really ought to check properly */
|
|
else
|
|
k = t.tfont.wp[i].wid * t.Char;
|
|
widthp = k;
|
|
return(k);
|
|
}
|
|
|
|
|
|
Tchar n_setch(int c)
|
|
{
|
|
return t_setch(c);
|
|
}
|
|
|
|
Tchar n_setabs(void) /* set absolute char from \N'...' */
|
|
{ /* for now, a no-op */
|
|
return t_setabs();
|
|
}
|
|
|
|
int n_findft(int i)
|
|
{
|
|
int k;
|
|
|
|
if ((k = i - '0') >= 0 && k <= nfonts && k < smnt)
|
|
return(k);
|
|
for (k = 0; fontlab[k] != i; k++)
|
|
if (k > nfonts)
|
|
return(-1);
|
|
return(k);
|
|
}
|
|
|
|
|
|
|
|
void n_mchbits(void)
|
|
{
|
|
chbits = 0;
|
|
setfbits(chbits, font);
|
|
sps = width(' ' | chbits);
|
|
}
|
|
|
|
|
|
void n_setps(void )
|
|
{
|
|
int i, j;
|
|
|
|
i = cbits(getch());
|
|
if (isdigit(i)) { /* \sd or \sdd */
|
|
i -= '0';
|
|
if (i == 0) /* \s0 */
|
|
;
|
|
else if (i <= 3 && (ch=getch()) && isdigit(cbits(ch))) { /* \sdd */
|
|
ch = 0;
|
|
}
|
|
} else if (i == '(') { /* \s(dd */
|
|
getch();
|
|
getch();
|
|
} else if (i == '+' || i == '-') { /* \s+, \s- */
|
|
j = cbits(getch());
|
|
if (isdigit(j)) { /* \s+d, \s-d */
|
|
;
|
|
} else if (j == '(') { /* \s+(dd, \s-(dd */
|
|
getch();
|
|
getch();
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
Tchar n_setht(void) /* set character height from \H'...' */
|
|
{
|
|
|
|
getch();
|
|
inumb(&apts);
|
|
getch();
|
|
return(0);
|
|
}
|
|
|
|
|
|
Tchar n_setslant(void) /* set slant from \S'...' */
|
|
{
|
|
int n;
|
|
|
|
getch();
|
|
n = 0;
|
|
n = inumb(&n);
|
|
getch();
|
|
return(0);
|
|
}
|
|
|
|
|
|
void n_caseft(void)
|
|
{
|
|
skip();
|
|
setfont(1);
|
|
}
|
|
|
|
|
|
void n_setfont(int a)
|
|
{
|
|
int i, j;
|
|
|
|
if (a)
|
|
i = getrq();
|
|
else
|
|
i = getsn();
|
|
if (!i || i == 'P') {
|
|
j = font1;
|
|
goto s0;
|
|
}
|
|
if (i == 'S' || i == '0')
|
|
return;
|
|
if ((j = findft(i)) == -1)
|
|
return;
|
|
s0:
|
|
font1 = font;
|
|
font = j;
|
|
mchbits();
|
|
}
|
|
|
|
|
|
void n_setwd(void)
|
|
{
|
|
int base, wid;
|
|
Tchar i;
|
|
int delim, emsz, k;
|
|
int savhp, savapts, savapts1, savfont, savfont1, savpts, savpts1;
|
|
|
|
base = numtabp[ST].val = numtabp[ST].val = wid = numtabp[CT].val = 0;
|
|
if (ismot(i = getch()))
|
|
return;
|
|
delim = cbits(i);
|
|
savhp = numtabp[HP].val;
|
|
numtabp[HP].val = 0;
|
|
savapts = apts;
|
|
savapts1 = apts1;
|
|
savfont = font;
|
|
savfont1 = font1;
|
|
savpts = pts;
|
|
savpts1 = pts1;
|
|
setwdf++;
|
|
while (cbits(i = getch()) != delim && !nlflg) {
|
|
k = width(i);
|
|
wid += k;
|
|
numtabp[HP].val += k;
|
|
if (!ismot(i)) {
|
|
emsz = (INCH * pts + 36) / 72;
|
|
} else if (isvmot(i)) {
|
|
k = absmot(i);
|
|
if (isnmot(i))
|
|
k = -k;
|
|
base -= k;
|
|
emsz = 0;
|
|
} else
|
|
continue;
|
|
if (base < numtabp[SB].val)
|
|
numtabp[SB].val = base;
|
|
if ((k = base + emsz) > numtabp[ST].val)
|
|
numtabp[ST].val = k;
|
|
}
|
|
setn1(wid, 0, (Tchar) 0);
|
|
numtabp[HP].val = savhp;
|
|
apts = savapts;
|
|
apts1 = savapts1;
|
|
font = savfont;
|
|
font1 = savfont1;
|
|
pts = savpts;
|
|
pts1 = savpts1;
|
|
mchbits();
|
|
setwdf = 0;
|
|
}
|
|
|
|
|
|
Tchar n_vmot(void)
|
|
{
|
|
dfact = lss;
|
|
vflag++;
|
|
return n_mot();
|
|
}
|
|
|
|
|
|
Tchar n_hmot(void)
|
|
{
|
|
dfact = EM;
|
|
return n_mot();
|
|
}
|
|
|
|
|
|
Tchar n_mot(void)
|
|
{
|
|
int j, n;
|
|
Tchar i;
|
|
|
|
j = HOR;
|
|
getch(); /*eat delim*/
|
|
if (n = atoi0()) {
|
|
if (vflag)
|
|
j = VERT;
|
|
i = makem(quant(n, j));
|
|
} else
|
|
i = 0;
|
|
getch();
|
|
vflag = 0;
|
|
dfact = 1;
|
|
return(i);
|
|
}
|
|
|
|
|
|
Tchar n_sethl(int k)
|
|
{
|
|
int j;
|
|
Tchar i;
|
|
|
|
j = t.Halfline;
|
|
if (k == 'u')
|
|
j = -j;
|
|
else if (k == 'r')
|
|
j = -2 * j;
|
|
vflag++;
|
|
i = makem(j);
|
|
vflag = 0;
|
|
return(i);
|
|
}
|
|
|
|
|
|
Tchar n_makem(int i)
|
|
{
|
|
Tchar j;
|
|
|
|
if (i >= 0)
|
|
j = i;
|
|
else
|
|
j = -i;
|
|
j |= MOT;
|
|
if (i < 0)
|
|
j |= NMOT;
|
|
if (vflag)
|
|
j |= VMOT;
|
|
return(j);
|
|
}
|
|
|
|
|
|
void n_casefp(void)
|
|
{
|
|
int i, j;
|
|
|
|
skip();
|
|
if ((i = cbits(getch()) - '0') < 0 || i > nfonts)
|
|
return;
|
|
if (skip() || !(j = getrq()))
|
|
return;
|
|
fontlab[i] = j;
|
|
}
|
|
|
|
|
|
|
|
void n_casebd(void)
|
|
{
|
|
int i, j, k;
|
|
|
|
k = 0;
|
|
bd0:
|
|
if (skip() || !(i = getrq()) || (j = findft(i)) == -1) {
|
|
if (k)
|
|
goto bd1;
|
|
else
|
|
return;
|
|
}
|
|
if (j == smnt) {
|
|
k = smnt;
|
|
goto bd0;
|
|
}
|
|
if (k) {
|
|
sbold = j;
|
|
j = k;
|
|
}
|
|
bd1:
|
|
skip();
|
|
noscale++;
|
|
bdtab[j] = atoi0();
|
|
noscale = 0;
|
|
}
|
|
|
|
|
|
void n_casevs(void)
|
|
{
|
|
int i;
|
|
|
|
skip();
|
|
vflag++;
|
|
dfact = INCH; /*default scaling is points!*/
|
|
dfactd = 72;
|
|
res = VERT;
|
|
i = inumb(&lss);
|
|
if (nonumb)
|
|
i = lss1;
|
|
if (i < VERT)
|
|
i = VERT; /* was VERT */
|
|
lss1 = lss;
|
|
lss = i;
|
|
}
|
|
|
|
|
|
|
|
|
|
Tchar n_xlss(void)
|
|
{
|
|
/* stores \x'...' into
|
|
/* two successive Tchars.
|
|
/* the first contains HX, the second the value,
|
|
/* encoded as a vertical motion.
|
|
/* decoding is done in n2.c by pchar().
|
|
*/
|
|
int i;
|
|
|
|
getch();
|
|
dfact = lss;
|
|
i = quant(atoi0(), VERT);
|
|
dfact = 1;
|
|
getch();
|
|
if (i >= 0)
|
|
*pbp++ = MOT | VMOT | i;
|
|
else
|
|
*pbp++ = MOT | VMOT | NMOT | -i;
|
|
return(HX);
|
|
}
|