Return to mkfont.c CVS log

Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff / fonts.d

Annotation of researchv10no/cmd/troff/ancient.nroff/fonts.d/mkfont.c, revision 1.1.1.1

1.1       root        1: #include "mkfont1.c"
                      2: 
                      3: /*
                      4:   this program takes 102 width values
                      5:   (one per line) in the order provided bu Graphic
                      6:   Systems and prepares a C-compileable width table.
                      7: 
                      8:        SCCS: @(#) mkfont.src 1.2@(#)
                      9: */
                     10: char ibuf[512];
                     11: int id;
                     12: int width[102];
                     13: int ascii[102];
                     14: int zero;
                     15: int emw, hyw;
                     16: int xxx;
                     17: 
                     18: main(argc,argv)
                     19: int argc;
                     20: char **argv;
                     21: {
                     22:        register i, j;
                     23:        register char *p;
                     24: 
                     25:        while((--argc > 0) && ((++argv)[0][0]=='-')){
                     26:                switch(argv[0][1]){
                     27:                        default:
                     28:                                continue;
                     29:                }
                     30:        }
                     31:        if(argc){
                     32:                if((id=open(argv[0],0)) < 0){
                     33:                        printf("Cannot open: %s.\n",argv[0]);
                     34:                        exit(1);
                     35:                }
                     36:        }
                     37:        j = read(id,ibuf,512);
                     38:        p = ibuf;
                     39:        for(i=0; i<102; i++){
                     40:                width[i] = atoi(p);
                     41:                while(*p++ != '\n');
                     42:        }
                     43:        for(i=0; i<102; i++){
                     44:                if(font[i].name < 0177){
                     45:                        ascii[i] = font[i].name;
                     46:                }else{
                     47:                        for(j=0; chtab[j] != 0; j += 2){
                     48:                                if(font[i].name == chtab[j])break;
                     49:                        }
                     50:                        ascii[i] = chtab[j+1] & 0377;
                     51:                        if(chtab[j] == 'hy')hyw = width[i];
                     52:                        if(chtab[j] == 'em')emw = width[i];
                     53:                }
                     54:        }
                     55:        printf("char XXw[256-32]={\t/*XX*/\n");
                     56:        for(i=040; i<256; i++){
                     57:                if(i == 0377){
                     58:                        printf("0};\n");
                     59:                        break;
                     60:                }
                     61:                if(i == 0177){
                     62:                        printf("6,\t %s\n",nametab[i-040]);
                     63:                        continue;
                     64:                }
                     65:                if(i == 0226){
                     66:                        printf("3,\t %s\n",nametab[i-040]);
                     67:                        continue;
                     68:                }
                     69:                if(i == ' '){
                     70:                        printf("12,\t %s\n",nametab[i-040]);
                     71:                        continue;
                     72:                }
                     73:                if(i == '-'){
                     74:                        printf("%d,\t %s\n",hyw,nametab[i-040]);
                     75:                        continue;
                     76:                }
                     77:                for(j=0; j<102; j++){
                     78:                        if(ascii[j] == i)break;
                     79:                }
                     80:                if(j == 102){
                     81:                        printf("0,");
                     82:                        zero++;
                     83:                        if(nametab[i-040]){
                     84:                                printf("\t %s\n",nametab[i-040]);
                     85:                                zero = 0;
                     86:                        }else if(i < 0177){
                     87:                                printf("\t /*%c*/\n",i);
                     88:                                zero = 0;
                     89:                        }
                     90:                        if(zero && !((i+1)%8)){
                     91:                                printf("\n");
                     92:                                zero = 0;
                     93:                        }
                     94:                }else{
                     95:                        if(zero){
                     96:                                zero = 0;
                     97:                                printf("\n");
                     98:                        }
                     99:                        printf("%d",width[j]);
                    100:                        if(font[j].ctval)printf("+0%d00, ",font[j].ctval);
                    101:                        else printf(",\t ");
                    102:                        printf("%s\n",nametab[i-040]);
                    103:                }
                    104:        }
                    105: }

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