Return to font.c CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / neqn

Annotation of 3BSD/cmd/neqn/font.c, revision 1.1

1.1     ! root        1: # include "e.h"
        !             2: 
        !             3: setfont(ch1) char ch1; {
        !             4:        /* use number '1', '2', '3' for roman, italic, bold */
        !             5:        yyval = ft;
        !             6:        if (ch1 == 'r' || ch1 == 'R')
        !             7:                ft = ROM;
        !             8:        else if (ch1 == 'i' || ch1 == 'I')
        !             9:                ft = ITAL;
        !            10:        else if (ch1 == 'b' || ch1 == 'B')
        !            11:                ft = BLD;
        !            12:        else
        !            13:                ft = ch1;
        !            14:        printf(".ft %c\n", ft);
        !            15:        if(dbg)printf(".\tsetfont %c\n", ft);
        !            16: }
        !            17: 
        !            18: font(p1, p2) int p1, p2; {
        !            19:                /* old font in p1, new in ft */
        !            20:        yyval = p2;
        !            21:        lfont[yyval] = rfont[yyval] = ft==ITAL ? ITAL : ROM;
        !            22:        if(dbg)printf(".\tb:fb: S%d <- \\f%c S%d \\f%c b=%d,h=%d,lf=%c,rf=%c\n", 
        !            23:                yyval, ft, p2, p1, ebase[yyval], eht[yyval], lfont[yyval], rfont[yyval]);
        !            24:        printf(".ds %d \\f%c\\*(%d\\f%c\n", 
        !            25:                yyval, ft, p2, p1);
        !            26:        ft = p1;
        !            27:        printf(".ft %c\n", ft);
        !            28: }
        !            29: 
        !            30: fatbox(p) int p; {
        !            31:        int sh;
        !            32: 
        !            33:        yyval = p;
        !            34:        sh = ps / 4;
        !            35:        nrwid(p, ps, p);
        !            36:        printf(".ds %d \\*(%d\\h'-\\n(%du+%du'\\*(%d\n", p, p, p, sh, p);
        !            37:        if(dbg)printf(".\tfat %d, sh=%d\n", p, sh);
        !            38: }
        !            39: 
        !            40: globfont() {
        !            41:        char temp[20];
        !            42: 
        !            43:        getstr(temp, 20);
        !            44:        yyval = eqnreg = 0;
        !            45:        gfont = temp[0];
        !            46:        switch (gfont) {
        !            47:        case 'r': case 'R':
        !            48:                gfont = '1';
        !            49:                break;
        !            50:        case 'i': case 'I':
        !            51:                gfont = '2';
        !            52:                break;
        !            53:        case 'b': case 'B':
        !            54:                gfont = '3';
        !            55:                break;
        !            56:        }
        !            57:        printf(".ft %c\n", gfont);
        !            58:        ft = gfont;
        !            59: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.