Return to t6.c CVS log

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

Annotation of 3BSD/cmd/troff/t6.c, revision 1.1

1.1     ! root        1: #include "tdef.h"
        !             2: extern
        !             3: #include "d.h"
        !             4: extern
        !             5: #include "v.h"
        !             6: 
        !             7: /*
        !             8: troff6.c
        !             9: 
        !            10: width functions, sizes and fonts
        !            11: */
        !            12: 
        !            13: extern int eschar;
        !            14: extern int widthp;
        !            15: extern int ohc;
        !            16: extern int xpts;
        !            17: extern int xfont;
        !            18: extern int code;
        !            19: extern int smnt;
        !            20: extern int setwdf;
        !            21: extern int cs;
        !            22: extern int ccs;
        !            23: extern int spacesz;
        !            24: extern char trtab[];
        !            25: extern int xbitf;
        !            26: extern int mfont;
        !            27: extern int mpts;
        !            28: extern int pfont;
        !            29: extern int ppts;
        !            30: extern int oldbits;
        !            31: extern int chbits;
        !            32: extern int spbits;
        !            33: extern int nonumb;
        !            34: extern int noscale;
        !            35: extern int font;
        !            36: extern int font1;
        !            37: extern int pts;
        !            38: extern int pts1;
        !            39: extern int apts;
        !            40: extern int apts1;
        !            41: extern int sps;
        !            42: extern int nlflg;
        !            43: extern int nform;
        !            44: extern int dfact;
        !            45: extern int lss;
        !            46: extern int lss1;
        !            47: extern int vflag;
        !            48: extern int ch0;
        !            49: extern int lg;
        !            50: char fontfile[] = "/usr/lib/font/ftXX";
        !            51: int ffi = 16;
        !            52: extern int bd;
        !            53: extern int level;
        !            54: extern int ch;
        !            55: extern int res;
        !            56: extern int ptid;
        !            57: extern char W1[],W2[],W3[],W4[];
        !            58: extern int xxx;
        !            59: int trflg;
        !            60: char *fontab[] = {W1,W2,W3,W4};
        !            61: int fontlab[] = {'R','I','B','S',0};
        !            62: char pstab[] = {6,7,8,9,10,11,12,14,16,18,20,22,24,28,36,0};
        !            63: char psctab[] = {010,000,001,007,002,003,004,005,0211,006,
        !            64:                0212,0213,0214,0215,0216,0};
        !            65: int cstab[4], ccstab[4];
        !            66: int bdtab[4];
        !            67: int sbold = 0;
        !            68: int spsz = 0;
        !            69: struct fz {
        !            70:        char sign;
        !            71:        char size;
        !            72:        int inc;
        !            73:        } fz[4];
        !            74: 
        !            75: width(c)
        !            76: int c;
        !            77: {
        !            78:        register i,j,k;
        !            79: 
        !            80:        j = c;
        !            81:        k = 0;
        !            82:        if(j & MOT){
        !            83:                if(j & VMOT)goto rtn;
        !            84:                k = j & ~MOTV;
        !            85:                if(j & NMOT)k = -k;
        !            86:                goto rtn;
        !            87:        }
        !            88:        if((i = (j & CMASK)) == 010){
        !            89:                k = -widthp;
        !            90:                goto rtn;
        !            91:        }
        !            92:        if(i == PRESC)i = eschar;
        !            93:        if((i == ohc) ||
        !            94:           (i >= 0370))goto rtn;
        !            95:        if((j>>BYTE) == oldbits){
        !            96:                xfont = pfont;
        !            97:                xpts = ppts;
        !            98:        }else xbits(j);
        !            99:        if(j & ZBIT)goto rtn;
        !           100:        if(!trflg)i = trtab[i] & BMASK;
        !           101:        if((i -= 32) < 0)goto rtn;
        !           102:        k = getcw(i);
        !           103:        if(bd)k += bd - 1;
        !           104:        if(cs)k = cs;
        !           105:        widthp = k;
        !           106: rtn:
        !           107:        xbitf = trflg = 0;
        !           108:        return(k);
        !           109: }
        !           110: getcw(i)
        !           111: int i;
        !           112: {
        !           113:        register j,k;
        !           114:        register char *p;
        !           115:        int x;
        !           116:        extern char codetab[];
        !           117: 
        !           118:        bd = 0;
        !           119:        if((code = codetab[i])  & 0200){
        !           120:                if(smnt){
        !           121:                        p = fontab[smnt-1];
        !           122:                        if(xfont == (sbold-1))bd = bdtab[smnt-1];
        !           123:                        goto g0;
        !           124:                }
        !           125:                code = 0;
        !           126:                k = 36;
        !           127:                goto g1;
        !           128:        }
        !           129:        p = fontab[xfont];
        !           130: g0:
        !           131:        if(!i)k = spacesz;
        !           132:        else k = *(p + i) & BMASK;
        !           133:        if(setwdf)v.ct |= ((k>>6) & 3);
        !           134: g1:
        !           135:        k = (j = (k&077)*(xpts&077))/6;
        !           136:        if((j%6) >= 3)k++;
        !           137:        if(cs = cstab[xfont]){
        !           138:                if(ccs = ccstab[xfont])x = ccs; else x = xpts;
        !           139:                cs = (j = (cs&077)*(x&077))/6;
        !           140:                if((j%6) >= 3)cs++;
        !           141:        }
        !           142:        if(!bd)bd = bdtab[xfont];
        !           143:        return(k);
        !           144: }
        !           145: xbits(i)
        !           146: int i;
        !           147: {
        !           148:        register j, k;
        !           149: 
        !           150: /*
        !           151:        if((j = i >> BYTE) == oldbits){
        !           152:                xfont = pfont;
        !           153:                xpts = ppts;
        !           154:                goto rtn;
        !           155:        }
        !           156: */
        !           157:        j = i >> BYTE;
        !           158:        xfont = (j>>1) & 03;
        !           159:        if(k = (j>>3) & 017){
        !           160:                xpts = pstab[--k];
        !           161:                if(psctab[k] < 0)xpts |= DBL;
        !           162:                oldbits = j;
        !           163:                pfont = xfont;
        !           164:                ppts = xpts;
        !           165:                goto rtn;
        !           166:        }
        !           167:        switch(xbitf){
        !           168:                case 0:
        !           169:                        xfont = font;
        !           170:                        xpts = pts;
        !           171:                        break;
        !           172:                case 1:
        !           173:                        xfont = pfont;
        !           174:                        xpts = ppts;
        !           175:                        break;
        !           176:                case 2:
        !           177:                        xfont = mfont;
        !           178:                        xpts = mpts;
        !           179:        }
        !           180: rtn:
        !           181:        xbitf = 0;
        !           182: }
        !           183: setch(){
        !           184:        register i,*j,k;
        !           185:        extern int chtab[];
        !           186: 
        !           187:        if((i = getrq()) == 0)return(0);
        !           188:        for(j=chtab;*j != i;j++)if(*(j++) == 0)return(0);
        !           189:        k = *(++j) | chbits;
        !           190: /*
        !           191:        if((i & CMASK) == '*'){
        !           192:                if(((i = find('R',fontlab)) < 0) &&
        !           193:                   ((i = find('G',fontlab)) < 0))
        !           194:                        return(k);
        !           195:                else return((k & ~(03<<(BYTE+1))) | (i<<(BYTE+1)));
        !           196:        }
        !           197: */
        !           198:        return(k);
        !           199: }
        !           200: find(i,j)
        !           201: int i,j[];
        !           202: {
        !           203:        register k;
        !           204: 
        !           205:        if(((k = i-'0') >= 1) && (k <= 4) && (k != smnt))return(--k);
        !           206:        for(k=0; j[k] != i; k++)if(j[k] == 0)return(-1);
        !           207:        return(k);
        !           208: }
        !           209: casefz(){
        !           210:        register i, j, k;
        !           211:        int savinc;
        !           212: 
        !           213:        k = 0;
        !           214: fz0:
        !           215:        if(skip() || !(i = getrq()) ||
        !           216:          ((j = find(i,fontlab))  == -1)){
        !           217:                if(k)goto fz1;
        !           218:                else return;
        !           219:        }
        !           220:        if(j == (smnt-1)){
        !           221:                k = smnt;
        !           222:                goto fz0;
        !           223:        }
        !           224:        if(k){
        !           225:                spsz = j + 1;
        !           226:                j = k -1;
        !           227:        }
        !           228: fz1:
        !           229:        if((j==font) && fz[j].inc)savinc = fz[j].inc;
        !           230:        else savinc = 0;
        !           231:        fz[j].inc = fz[j].sign = fz[j].size = 0;
        !           232:        if(skip()){
        !           233:                if(k)spsz = 0;
        !           234:                goto fz2;
        !           235:        }
        !           236:        if(((i=((k=getch()) & CMASK)) == '+') || (i == '-'))fz[j].sign = i;
        !           237:        else{
        !           238:                fz[j].sign = 0;
        !           239:                ch = k;
        !           240:        }
        !           241:        noscale++;
        !           242:        fz[j].size = atoi();
        !           243:        noscale = 0;
        !           244: fz2:
        !           245:        if(j==font)casps1(apts + savinc);
        !           246:        else if(j == smnt-1)mchbits();
        !           247: }
        !           248: caseps(){
        !           249:        register i;
        !           250: 
        !           251:        if(skip())i = apts1;
        !           252:        else{
        !           253:                noscale++;
        !           254:                i = inumb(&apts);
        !           255:                noscale = 0;
        !           256:                if(nonumb)return;
        !           257:        }
        !           258:        casps1(i);
        !           259: }
        !           260: casps1(i)
        !           261: int i;
        !           262: {
        !           263:        if(i <= 0)return;
        !           264:        if(fz[font].size){
        !           265:                i = getfz(font, i);
        !           266:        }
        !           267:        apts1 = apts;
        !           268:        apts = i;
        !           269:        pts1 = pts;
        !           270:        pts = findps(i & 077);
        !           271:        mchbits();
        !           272: }
        !           273: findps(i)
        !           274: int i;
        !           275: {
        !           276:        register j, k;
        !           277: 
        !           278:        for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
        !           279:        if(psctab[j] < 0)k |= DBL;
        !           280:        return(k);
        !           281: }
        !           282: mchbits(){
        !           283:        register i, j, k;
        !           284: 
        !           285:        spbits = 0;
        !           286:        i = pts & 077;
        !           287:        for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
        !           288:        chbits = (((++j)<<2) | font) << (BYTE + 1);
        !           289:        sps = width(' ' | chbits);
        !           290:        if(font == (spsz-1)){
        !           291:                i = findps(getfz(smnt-1, apts + fz[font].inc));
        !           292:                for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
        !           293:                spbits = (((++j)<<2) | font) << (BYTE + 1);
        !           294:        }
        !           295: }
        !           296: getfz(x,y)
        !           297: int x, y;
        !           298: {
        !           299:        register i, j, k;
        !           300: 
        !           301:        i = fz[x].size;
        !           302:        j = fz[x].sign;
        !           303:        if(i || j){
        !           304:                if(j == '+')i += y;
        !           305:                else if(j == '-')i = y - i;
        !           306:        }
        !           307:        fz[x].inc = y - i;
        !           308:        return(i);
        !           309: }
        !           310: setps(){
        !           311:        register i,j;
        !           312: 
        !           313:        if((((i=getch() & CMASK) == '+')  || (i == '-')) &&
        !           314:          (((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9))){
        !           315:                if(i == '-')j = -j;
        !           316:                ch = 0;
        !           317:                casps1(apts+j);
        !           318:                return;
        !           319:        }
        !           320:        if((i -= '0') == 0){
        !           321:                casps1(apts1);
        !           322:                return;
        !           323:        }
        !           324:        if((i > 0) && (i <= 9)){
        !           325:                if((i <= 3) &&
        !           326:                  ((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9)){
        !           327:                        i = 10*i +j;
        !           328:                        ch = 0;
        !           329:                }
        !           330:                casps1(i);
        !           331:        }
        !           332: }
        !           333: caseft(){
        !           334:        skip();
        !           335:        setfont(1);
        !           336: }
        !           337: setfont(a)
        !           338: int a;
        !           339: {
        !           340:        register i,j;
        !           341: 
        !           342:        if(a)i = getrq();
        !           343:                else i = getsn();
        !           344:        if(!i || (i == 'P')){
        !           345:                j = font1;
        !           346:                goto s0;
        !           347:        }
        !           348:        if(i == 'S')return;
        !           349:        if((j = find(i,fontlab))  == -1)return;
        !           350: s0:
        !           351:        font1 = font;
        !           352:        font = j;
        !           353:        i = 0;
        !           354:        if(fz[font1].size){
        !           355:                i++;
        !           356:                casps1(apts + fz[font1].inc);
        !           357:        }else if(fz[font].size){
        !           358:                i++;
        !           359:                casps1(apts);
        !           360:        }
        !           361:        if(!i)mchbits();
        !           362: }
        !           363: setwd(){
        !           364:        register i, base, wid;
        !           365:        int delim, em, k;
        !           366:        int savlevel, savhp, savapts, savapts1, savfont, savfont1,
        !           367:                savpts, savpts1;
        !           368: 
        !           369:        base = v.st = v.sb = wid = v.ct = 0;
        !           370:        if((delim = getch() & CMASK) & MOT)return;
        !           371:        savhp = v.hp;
        !           372:        savlevel = level;
        !           373:        v.hp = level = 0;
        !           374:        savapts = apts;
        !           375:        savapts1 = apts1;
        !           376:        savfont = font;
        !           377:        savfont1 = font1;
        !           378:        savpts = pts;
        !           379:        savpts1 = pts1;
        !           380:        setwdf++;
        !           381:        while((((i = getch()) & CMASK) != delim) && !nlflg){
        !           382:                wid += width(i);
        !           383:                if(!(i & MOT)){
        !           384:                        em = (xpts & 077)*6;
        !           385:                }else if(i & VMOT){
        !           386:                        k = i & ~MOTV;
        !           387:                        if(i & NMOT)k = -k;
        !           388:                        base -= k;
        !           389:                        em = 0;
        !           390:                }else continue;
        !           391:                if(base < v.sb)v.sb = base;
        !           392:                if((k=base + em) > v.st)v.st = k;
        !           393:        }
        !           394:        nform = 0;
        !           395:        setn1(wid);
        !           396:        v.hp = savhp;
        !           397:        level = savlevel;
        !           398:        apts = savapts;
        !           399:        apts1 = savapts1;
        !           400:        font = savfont;
        !           401:        font1 = savfont1;
        !           402:        pts = savpts;
        !           403:        pts1 = savpts1;
        !           404:        mchbits();
        !           405:        setwdf = 0;
        !           406: }
        !           407: vmot(){
        !           408:        dfact = lss;
        !           409:        vflag++;
        !           410:        return(mot());
        !           411: }
        !           412: hmot(){
        !           413:        dfact = 6 * (pts & 077);
        !           414:        return(mot());
        !           415: }
        !           416: mot(){
        !           417:        register i, j;
        !           418: 
        !           419:        j = HOR;
        !           420:        getch(); /*eat delim*/
        !           421:        if(i = atoi()){
        !           422:                if(vflag)j = VERT;
        !           423:                i = makem(quant(i,j));
        !           424:        }
        !           425:        getch();
        !           426:        vflag = 0;
        !           427:        dfact = 1;
        !           428:        return(i);
        !           429: }
        !           430: sethl(k)
        !           431: int k;
        !           432: {
        !           433:        register i;
        !           434: 
        !           435:        i = 3 * (pts & 077);
        !           436:        if(k == 'u')i = -i;
        !           437:        else if(k == 'r')i = -2*i;
        !           438:        vflag++;
        !           439:        i = makem(i);
        !           440:        vflag = 0;
        !           441:        return(i);
        !           442: }
        !           443: makem(i)
        !           444: int i;
        !           445: {
        !           446:        register j;
        !           447: 
        !           448:        if((j = i) < 0)j = -j;
        !           449:        j = (j & ~MOTV) | MOT;
        !           450:        if(i < 0)j |= NMOT;
        !           451:        if(vflag)j |= VMOT;
        !           452:        return(j);
        !           453: }
        !           454: getlg(i)
        !           455: int i;
        !           456: {
        !           457:        register j, k;
        !           458: 
        !           459:        switch((j = getch0()) & CMASK){
        !           460:                case 'f':
        !           461:                        if(lg!=2){switch((k =getch0()) & CMASK){
        !           462:                                        case 'i':
        !           463:                                                j = 0214;
        !           464:                                                break;
        !           465:                                        case 'l':
        !           466:                                                j = 0215;
        !           467:                                                break;
        !           468:                                        default:
        !           469:                                                ch0 = k;
        !           470:                                                j = 0213;
        !           471:                                }
        !           472:                        }else j = 0213;
        !           473:                        break;
        !           474:                case 'l':
        !           475:                        j = 0212;
        !           476:                        break;
        !           477:                case 'i':
        !           478:                        j = 0211;
        !           479:                        break;
        !           480:                default:
        !           481:                        ch0 = j;
        !           482:                        j = i;
        !           483:        }
        !           484:        return((i & ~CMASK) | j);
        !           485: }
        !           486: caselg(){
        !           487: 
        !           488:        lg = 1;
        !           489:        if(skip())return;
        !           490:        lg = atoi();
        !           491: }
        !           492: casefp(){
        !           493:        register i, j, k;
        !           494:        int x;
        !           495: 
        !           496:        skip();
        !           497:        if(((i = (getch() & CMASK) - '0' -1) < 0) || (i >3)){prstr("fp: bad font position\n"); return;}
        !           498:        if(skip() || !(j = getrq())){prstr("fp: no font name\n"); return;}
        !           499:        fontfile[ffi] = j & BMASK;
        !           500:        fontfile[ffi+1] = j>>BYTE;
        !           501:        if((k = open(fontfile,0)) < 0){
        !           502:                prstr("Cannot open ");
        !           503:        c0:
        !           504:                prstr(fontfile);
        !           505:                prstr("\n");
        !           506:                done(-1);
        !           507:        }
        !           508:        if(lseek(k,8L * sizeof(int),0) < 0)goto c1; 
        !           509:        if(read(k,fontab[i],256-32) != 256-32){
        !           510:        c1:
        !           511:                prstr("Cannot read ");
        !           512:                goto c0;
        !           513:        }
        !           514:        close(k);
        !           515:        if(i == (smnt-1)){smnt = 0; sbold = 0; spsz = 0;}
        !           516:        if((fontlab[i] = j) == 'S')smnt = i + 1;
        !           517:        bdtab[i] = cstab[i] = ccstab[i] = 0;
        !           518:        fz[i].inc = fz[i].sign = fz[i].size = 0;
        !           519:        if(ptid != 1){
        !           520:                prstr("Mount font ");
        !           521:                prstr(&fontfile[ffi]);
        !           522:                prstr(" on ");
        !           523:                x = PAIR((i + '1'),0);
        !           524:                prstr((char *)&x);
        !           525:                prstr("\n");
        !           526:        }
        !           527: }
        !           528: casecs(){
        !           529:        register i, j;
        !           530: 
        !           531:        noscale++;
        !           532:        skip();
        !           533:        if(!(i=getrq()) ||
        !           534:          ((i = find(i,fontlab)) < 0))goto rtn;
        !           535:        skip();
        !           536:        cstab[i] = atoi();
        !           537:        skip();
        !           538:        j = atoi();
        !           539:        if(!nonumb)ccstab[i] = findps(j);
        !           540: rtn:
        !           541:        noscale = 0;
        !           542: }
        !           543: casebd(){
        !           544:        register i, j, k;
        !           545: 
        !           546:        k = 0;
        !           547: bd0:
        !           548:        if(skip() || !(i = getrq()) ||
        !           549:          ((j = find(i,fontlab))  == -1)){
        !           550:                if(k)goto bd1;
        !           551:                else return;
        !           552:        }
        !           553:        if(j == (smnt-1)){
        !           554:                k = smnt;
        !           555:                goto bd0;
        !           556:        }
        !           557:        if(k){
        !           558:                sbold = j + 1;
        !           559:                j = k -1;
        !           560:        }
        !           561: bd1:
        !           562:        skip();
        !           563:        noscale++;
        !           564:        bdtab[j] = atoi();
        !           565:        noscale = 0;
        !           566: }
        !           567: casevs(){
        !           568:        register i;
        !           569: 
        !           570:        skip();
        !           571:        vflag++;
        !           572:        dfact = 6; /*default scaling is points!*/
        !           573:        res = VERT;
        !           574:        i = inumb(&lss);
        !           575:        if(nonumb)i = lss1;
        !           576:        if(i < VERT)i = VERT;
        !           577:        lss1 = lss;
        !           578:        lss = i;
        !           579: }
        !           580: casess(){
        !           581:        register i;
        !           582: 
        !           583:        noscale++;
        !           584:        skip();
        !           585:        if(i = atoi()){
        !           586:                spacesz = i& 0177;
        !           587:                sps = width(' ' | chbits);
        !           588:        }
        !           589:        noscale = 0;
        !           590: }
        !           591: xlss(){
        !           592:        register i, j;
        !           593: 
        !           594:        getch();
        !           595:        dfact = lss;
        !           596:        i = quant(atoi(),VERT);
        !           597:        dfact = 1;
        !           598:        getch();
        !           599:        if((j = i) < 0)j = -j;
        !           600:        ch0 = ((j & 03700)<<3) | HX;
        !           601:        if(i < 0)ch0 |= 040000;
        !           602:        return(((j & 077)<<9) | LX);
        !           603: }

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