Return to shift.c CVS log

Up to [Research Unix] / researchv9 / cmd / eqn

Annotation of researchv9/cmd/eqn/shift.c, revision 1.1

1.1     ! root        1: #include "e.h"
        !             2: #include "y.tab.h"
        !             3: 
        !             4: subsup(p1, p2, p3)
        !             5:        int p1, p2, p3;
        !             6: {
        !             7:        if (p2 != 0 && p3 != 0)
        !             8:                shift2(p1, p2, p3);
        !             9:        else if (p2 != 0)
        !            10:                bshiftb(p1, SUB, p2);
        !            11:        else if (p3 != 0)
        !            12:                bshiftb(p1, SUP, p3);
        !            13: }
        !            14: 
        !            15: extern float Subbase, Supshift;
        !            16: extern char *Sub1space, *Sup1space, *Sub2space;
        !            17: extern char *SS1space, *SS2space;
        !            18: 
        !            19: bshiftb(p1, dir, p2)
        !            20:        int p1, dir, p2;
        !            21: {
        !            22:        int subps;
        !            23:        float shval, d1, h1, b1, h2, b2;
        !            24:        char *sh1, *sh2;
        !            25: 
        !            26:        yyval = p1;
        !            27:        h1 = eht[p1];
        !            28:        b1 = ebase[p1];
        !            29:        h2 = eht[p2];
        !            30:        b2 = ebase[p2];
        !            31:        subps = ps;
        !            32:        ps += deltaps;
        !            33:        sh1 = sh2 = "";
        !            34:        if (dir == SUB) {
        !            35:                /* base .2m below bottom of main box */
        !            36:                shval = b1 + EM(Subbase, ps);
        !            37:                ebase[yyval] = shval + b2;
        !            38:                eht[yyval] = max(h1-b1+shval+b2, h2);
        !            39:                if (rfont[p1] == ITAL && lfont[p2] == ROM)
        !            40:                        sh1 = Sub1space;
        !            41:        } else {        /* superscript */
        !            42:                /* 4/10 up main box */
        !            43:                d1 = EM(Subbase, subps);
        !            44:                ebase[yyval] = b1;
        !            45:                shval = -(Supshift * (h1-b1)) - b2;
        !            46:                if (Supshift*(h1-b1) + h2 < h1-b1)      /* raise little super */
        !            47:                        shval = -(h1-b1) + h2-b2 - d1;
        !            48:                eht[yyval] = h1 + max(0, h2 - (1-Supshift)*(h1-b1));
        !            49:                if (rfont[p1] == ITAL)
        !            50:                        sh1 = Sup1space;
        !            51:        }
        !            52:        dprintf(".\tS%d <- %d shift %g %d; b=%g, h=%g, ps=%d, subps=%d\n", 
        !            53:                yyval, p1, shval, p2, ebase[yyval], eht[yyval], ps, subps);
        !            54:        sh2 = Sub2space;
        !            55:        printf(".as %d \\v'%gm'%s%s\\*(%d%s%s\\v'%gm'\n", 
        !            56:                yyval, REL(shval,ps), DPS(ps,subps), sh1, p2,
        !            57:                DPS(subps,ps), sh2, REL(-shval,ps));
        !            58:        rfont[p1] = 0;
        !            59:        sfree(p2);
        !            60: }
        !            61: 
        !            62: shift2(p1, p2, p3)
        !            63:        int p1, p2, p3;
        !            64: {
        !            65:        int subps;
        !            66:        float h1, h2, h3, b1, b2, b3, subsh, d1, d2, supsh;
        !            67:        int treg;
        !            68: 
        !            69:        treg = salloc();
        !            70:        yyval = p1;
        !            71:        subps = ps;     /* sub and sup at this size */
        !            72:        ps += deltaps;  /* outer size */
        !            73:        h1 = eht[p1]; b1 = ebase[p1];
        !            74:        h2 = eht[p2]; b2 = ebase[p2];
        !            75:        h3 = eht[p3]; b3 = ebase[p3];
        !            76:        subsh = EM(Subbase, ps);
        !            77:        if (b1 > b2 + subsh) /* move little sub down */
        !            78:                subsh += b1;
        !            79:        eht[yyval] = max(subsh+b2-b1+h1, h2);
        !            80:        supsh = -Supshift*(h1-b1) - b3;
        !            81:        d2 = EM(Subbase, subps);
        !            82:        if (h3 < (1-Supshift)*(h1-b1))
        !            83:                supsh = -(h1-b1) + (h3-b3) - d2;
        !            84:        ebase[yyval] = subsh + b2 - b1;
        !            85:        eht[yyval] = h1 + subsh+b2-b1 + max(0, h3-(1-Supshift)*(h1-b1));
        !            86:        dprintf(".\tS%d <- %d sub %d sup %d, ps=%d, subps=%d, h=%g, b=%g\n",
        !            87:                yyval, p1, p2, p3, ps, subps, eht[yyval], ebase[yyval]);
        !            88:        printf(".ds %d %s\\*(%d\n", p2, SS1space, p2);
        !            89:        nrwid(p2, subps, p2);
        !            90:        printf(".ds %d %s\\*(%d\n", p3, SS2space, p3);
        !            91:        nrwid(p3, subps, p3);
        !            92:        printf(".nr %d \\n(%d\n", treg, p3);
        !            93:        printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2);
        !            94:        printf(".as %d %s\\v'%gm'\\*(%d\\v'%gm'\\h'-\\n(%du'\\\n", 
        !            95:                p1, DPS(ps,subps), REL(subsh,subps), p2, REL(-subsh,subps), p2);
        !            96:        printf("\\v'%gm'\\*(%d\\v'%gm'\\h'-\\n(%du+\\n(%du'%s%s\n", 
        !            97:                REL(supsh,subps), p3, REL(-supsh,subps), p3, treg, DPS(subps,ps), Sub2space);
        !            98:        if (rfont[p2] == ITAL)
        !            99:                rfont[yyval] = 0;       /* lie */
        !           100:        sfree(p2); sfree(p3); sfree(treg);
        !           101: }

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