#include "a.h"

/*
* Section 2 - Font and character size control.
*/

/* 2.1 - Character set */
/* XXX
*
* \C'name' - character named name
* \N'n' - character number
* \(xx - two-letter character
* \-
* \`
* \'
* `
* '
* -
*/

Rune*
getqarg(void)
{
       static Rune buf[MaxLine];
       int c;
       Rune *p, *e;

       p = buf;
       e = p+sizeof buf-1;

       if(getrune() != '\'')
               return nil;
       while(p < e){
               c = getrune();
               if(c < 0)
                       return nil;
               if(c == '\'')
                       break;
               *p++ = c;
       }
       *p = 0;
       return buf;
}

int
e_N(void)
{
       Rune *a;
       if((a = getqarg()) == nil)
               goto error;
       return eval(a);

error:
       warn("malformed %CN'...'", backslash);
       return 0;
}

int
e_paren(void)
{
       int c, cc;
       Rune buf[2], r;

       if((c = getrune()) < 0 || c == '\n')
               goto error;
       if((cc = getrune()) < 0 || cc == '\n')
               goto error;
       buf[0] = c;
       buf[1] = cc;
       r = troff2rune(buf);
       if(r == Runeerror)
               warn("unknown char %C(%C%C", backslash, c, cc);
       return r;

error:
       warn("malformed %C(xx", backslash);
       return 0;
}

/* 2.2 - Fonts */
Rune fonttab[10][100];

/*
* \fx \f(xx \fN - font change
* number register .f - current font
* \f0 previous font (undocumented?)
*/
/* change to font f.  also \fx, \f(xx, \fN */
/* .ft LongName is okay - temporarily at fp 0 */
void
ft(Rune *f)
{
       int i;
       int fn;

       if(f && runestrcmp(f, L("P")) == 0)
               f = nil;
       if(f == nil)
               fn = 0;
       else if(isdigit(f[0]))
               fn = eval(f);
       else{
               for(i=0; i<nelem(fonttab); i++){
                       if(runestrcmp(fonttab[i], f) == 0){
                               fn = i;
                               goto have;
                       }
               }
               warn("unknown font %S", f);
               fn = 1;
       }
have:
       if(fn < 0 || fn >= nelem(fonttab)){
               warn("unknown font %d", fn);
               fn = 1;
       }
       if(fn == 0)
               fn = getnr(L(".f0"));
       nr(L(".f0"), getnr(L(".f")));
       nr(L(".f"), fn);
       runmacro1(L("font"));
}

/* mount font named f on physical position N */
void
fp(int i, Rune *f)
{
       if(i <= 0 || i >= nelem(fonttab)){
               warn("bad font position %d", i);
               return;
       }
       runestrecpy(fonttab[i], fonttab[i]+sizeof fonttab[i], f);
}

int
e_f(void)
{
       ft(getname());
       return 0;
}

void
r_ft(int argc, Rune **argv)
{
       if(argc == 1)
               ft(nil);
       else
               ft(argv[1]);
}

void
r_fp(int argc, Rune **argv)
{
       if(argc < 3){
               warn("missing arguments to %Cfp", dot);
               return;
       }
       fp(eval(argv[1]), argv[2]);
}

/* 2.3 - Character size */

/* \H'±N' sets height */

void
ps(int s)
{
       if(s == 0)
               s = getnr(L(".s0"));
       nr(L(".s0"), getnr(L(".s")));
       nr(L(".s"), s);
       runmacro1(L("font"));
}

/* set point size */
void
r_ps(int argc, Rune **argv)
{
       Rune *p;

       if(argc == 1 || argv[1][0] == 0)
               ps(0);
       else{
               p = argv[1];
               if(p[0] == '-')
                       ps(getnr(L(".s"))-eval(p+1));
               else if(p[0] == '+')
                       ps(getnr(L(".s"))+eval(p+1));
               else
                       ps(eval(p));
       }
}

int
e_s(void)
{
       int c, cc, ccc, n, twodigit;

       c = getnext();
       if(c < 0)
               return 0;
       if(c == '+' || c == '-'){
               cc = getnext();
               if(cc == '('){
                       cc = getnext();
                       ccc = getnext();
                       if(cc < '0' || cc > '9' || ccc < '0' || ccc > '9'){
                               warn("bad size %Cs%C(%C%C", backslash, c, cc, ccc);
                               return 0;
                       }
                       n = (cc-'0')*10+ccc-'0';
               }else{
                       if(cc < '0' || cc > '9'){
                               warn("bad size %Cs%C%C", backslash, c, cc);
                               return 0;
                       }
                       n = cc-'0';
               }
               if(c == '+')
                       ps(getnr(L(".s"))+n);
               else
                       ps(getnr(L(".s"))-n);
               return 0;
       }
       twodigit = 0;
       if(c == '('){
               twodigit = 1;
               c = getnext();
               if(c < 0)
                       return 0;
       }
       if(c < '0' || c > '9'){
               warn("bad size %Cs%C", backslash, c);
               ungetnext(c);
               return 0;
       }
       if(twodigit || (c < '4' && c != '0')){
               cc = getnext();
               if(c < 0)
                       return 0;
               n = (c-'0')*10+cc-'0';
       }else
               n = c-'0';
       ps(n);
       return 0;
}

void
t2init(void)
{
       fp(1, L("R"));
       fp(2, L("I"));
       fp(3, L("B"));
       fp(4, L("BI"));
       fp(5, L("CW"));

       nr(L(".s"), 10);
       nr(L(".s0"), 10);

       addreq(L("ft"), r_ft, -1);
       addreq(L("fp"), r_fp, -1);
       addreq(L("ps"), r_ps, -1);
       addreq(L("ss"), r_warn, -1);
       addreq(L("cs"), r_warn, -1);
       addreq(L("bd"), r_warn, -1);

       addesc('f', e_f, 0);
       addesc('s', e_s, 0);
       addesc('(', e_paren, 0);        /* ) */
       addesc('C', e_warn, 0);
       addesc('N', e_N, 0);
       /* \- \' \` are handled in html.c */
}

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.