standardize sccs keyword lines

[unix-history] / usr / src / old / eqn / common_source / font.c

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

# include "e.h"

setfont(ch1) char ch1; {
       /* use number '1', '2', '3' for roman, italic, bold */
       yyval = ft;
       if (ch1 == 'r' || ch1 == 'R')
               ft = ROM;
       else if (ch1 == 'i' || ch1 == 'I')
               ft = ITAL;
       else if (ch1 == 'b' || ch1 == 'B')
               ft = BLD;
       else
               ft = ch1;
       printf(".ft %c\n", ft);
#ifndef NEQN
       if(dbg)printf(".\tsetfont %c %c\n", ch1, ft);
#else NEQN
       if(dbg)printf(".\tsetfont %c\n", ft);
#endif NEQN
}

font(p1, p2) int p1, p2; {
               /* old font in p1, new in ft */
       yyval = p2;
       lfont[yyval] = rfont[yyval] = ft==ITAL ? ITAL : ROM;
       if(dbg)printf(".\tb:fb: S%d <- \\f%c S%d \\f%c b=%d,h=%d,lf=%c,rf=%c\n", 
               yyval, ft, p2, p1, ebase[yyval], eht[yyval], lfont[yyval], rfont[yyval]);
       printf(".ds %d \\f%c\\*(%d\\f%c\n", 
               yyval, ft, p2, p1);
       ft = p1;
       printf(".ft %c\n", ft);
}

fatbox(p) int p; {
       int sh;

       yyval = p;
       sh = ps / 4;
       nrwid(p, ps, p);
       printf(".ds %d \\*(%d\\h'-\\n(%du+%du'\\*(%d\n", p, p, p, sh, p);
       if(dbg)printf(".\tfat %d, sh=%d\n", p, sh);
}

globfont() {
       char temp[20];

       getstr(temp, 20);
       yyval = eqnreg = 0;
       gfont = temp[0];
       switch (gfont) {
       case 'r': case 'R':
               gfont = '1';
               break;
       case 'i': case 'I':
               gfont = '2';
               break;
       case 'b': case 'B':
               gfont = '3';
               break;
       }
       printf(".ft %c\n", gfont);
       ft = gfont;
}