![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to makedev.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / troff / Old|
Return to makedev.c CVS log | Up to [Research Unix] / researchv10no / cmd / troff / Old |
1.1 ! root 1: /* ! 2: makedev: ! 3: read text info about a particular device ! 4: (e.g., cat, 202, aps5) from file, convert ! 5: it into internal (binary) form suitable for ! 6: fast reading by troff initialization (ptinit()). ! 7: ! 8: Usage: ! 9: ! 10: makedev DESC [ F ... ] ! 11: uses DESC to create a description file ! 12: using the information therein. ! 13: It creates the file DESC.out. ! 14: ! 15: makedev F ... ! 16: makes the font tables for fonts F only, ! 17: creates files F.out. ! 18: ! 19: DESC.out contains: ! 20: dev structure with fundamental sizes ! 21: list of sizes (nsizes+1) terminated by 0, as short's ! 22: indices of char names (nchtab * sizeof(short)) ! 23: char names as hy\0em\0... (lchname) ! 24: nfonts occurrences of ! 25: widths (nwidth) ! 26: kerning (nwidth) [ascender+descender only so far] ! 27: codes (nwidth) to drive actual typesetter ! 28: fitab (nchtab+128-32) ! 29: each of these is an array of char. ! 30: ! 31: dev.filesize contains the number of bytes ! 32: in the file, excluding the dev part itself. ! 33: ! 34: F.out contains the font header, width, kern, codes, and fitab. ! 35: Width, kern and codes are parallel arrays. ! 36: (Which suggests that they ought to be together?) ! 37: Later, we might allow for codes which are actually ! 38: sequences of formatting info so characters can be drawn. ! 39: */ ! 40: ! 41: #include "stdio.h" ! 42: #include "dev.h" ! 43: ! 44: #define BMASK 0377 ! 45: #define skipline(f) while(getc(f) != '\n') ! 46: ! 47: struct dev dev; ! 48: struct font font; ! 49: ! 50: #define NSIZE 100 /* maximum number of sizes */ ! 51: short size[NSIZE]; ! 52: #define NCH 256 /* max number of characters with funny names */ ! 53: char chname[5*NCH]; /* character names, including \0 for each */ ! 54: short chtab[NCH]; /* index of character in chname */ ! 55: ! 56: #define NFITAB (NCH + 128-32) /* includes ascii chars, but not non-graphics */ ! 57: char fitab[NFITAB]; /* font index table: position of char i on this font. */ ! 58: /* zero if not there */ ! 59: ! 60: #define FSIZE 200 /* size of a physical font (e.g., 102 for cat) */ ! 61: char width[FSIZE]; /* width table for a physical font */ ! 62: char kern[FSIZE]; /* ascender+descender info */ ! 63: char code[FSIZE]; /* actual device codes for a physical font */ ! 64: ! 65: #define NFONT 10 /* max number of default fonts */ ! 66: char fname[NFONT][10]; /* temp space to hold default font names */ ! 67: ! 68: int fflag = 0; /* on if font table to be written */ ! 69: int fdout; /* output file descriptor */ ! 70: char *fout = "DESC.out"; ! 71: ! 72: main(argc, argv) ! 73: char *argv[]; ! 74: { ! 75: FILE *fin; ! 76: char cmd[100], *p; ! 77: int i, totfont, v; ! 78: ! 79: if ((fin = fopen("DESC", "r")) == NULL) { ! 80: fprintf(stderr, "makedev: can't open %s\n", argv[1]); ! 81: exit(1); ! 82: } ! 83: while (fscanf(fin, "%s", cmd) != EOF) { ! 84: if (cmd[0] == '#') /* comment */ ! 85: skipline(fin); ! 86: else if (strcmp(cmd, "res") == 0) { ! 87: fscanf(fin, "%hd", &dev.res); ! 88: } else if (strcmp(cmd, "hor") == 0) { ! 89: fscanf(fin, "%hd", &dev.hor); ! 90: } else if (strcmp(cmd, "vert") == 0) { ! 91: fscanf(fin, "%hd", &dev.vert); ! 92: } else if (strcmp(cmd, "unitwidth") == 0) { ! 93: fscanf(fin, "%hd", &dev.unitwidth); ! 94: } else if (strcmp(cmd, "sizescale") == 0) { ! 95: fscanf(fin, "%hd", &dev.sizescale); ! 96: } else if (strcmp(cmd, "paperwidth") == 0) { ! 97: fscanf(fin, "%hd", &dev.paperwidth); ! 98: } else if (strcmp(cmd, "paperlength") == 0) { ! 99: fscanf(fin, "%hd", &dev.paperlength); ! 100: } else if (strcmp(cmd, "spare1") == 0) { ! 101: fscanf(fin, "%hd", &dev.spare1); ! 102: } else if (strcmp(cmd, "spare2") == 0) { ! 103: fscanf(fin, "%hd", &dev.spare2); ! 104: } else if (strcmp(cmd, "sizes") == 0) { ! 105: dev.nsizes = 0; ! 106: while (fscanf(fin, "%d", &v) != EOF && v != 0) ! 107: size[dev.nsizes++] = v; ! 108: size[dev.nsizes] = 0; /* need an extra 0 at the end */ ! 109: } else if (strcmp(cmd, "fonts") == 0) { ! 110: fscanf(fin, "%hd", &dev.nfonts); ! 111: for (i = 0; i < dev.nfonts; i++) ! 112: fscanf(fin, "%s", fname[i]); ! 113: } else if (strcmp(cmd, "charset") == 0) { ! 114: p = chname; ! 115: dev.nchtab = 0; ! 116: while (fscanf(fin, "%s", p) != EOF) { ! 117: chtab[dev.nchtab++] = p - chname; ! 118: while (*p++) /* skip to end of name */ ! 119: ; ! 120: } ! 121: dev.lchname = p - chname; ! 122: chtab[dev.nchtab++] = 0; /* terminate properly */ ! 123: } else ! 124: fprintf(stderr, "makedev: unknown command %s\n", cmd); ! 125: } ! 126: if (argc > 0 && strcmp(argv[1], "DESC") == 0) { ! 127: fdout = creat(fout, 0666); ! 128: if (fdout < 0) { ! 129: fprintf(stderr, "makedev: can't open %s\n", fout); ! 130: exit(1); ! 131: } ! 132: write(fdout, &dev, sizeof(struct dev)); ! 133: write(fdout, size, (dev.nsizes+1) * sizeof(size[0])); /* we need a 0 on the end */ ! 134: write(fdout, chtab, dev.nchtab * sizeof(chtab[0])); ! 135: write(fdout, chname, dev.lchname); ! 136: totfont = 0; ! 137: for (i = 0; i < dev.nfonts; i++) { ! 138: totfont += dofont(fname[i]); ! 139: write(fdout, &font, sizeof(struct font)); ! 140: write(fdout, width, font.nwfont & BMASK); ! 141: write(fdout, kern, font.nwfont & BMASK); ! 142: write(fdout, code, font.nwfont & BMASK); ! 143: write(fdout, fitab, dev.nchtab+128-32); ! 144: } ! 145: lseek(fdout, 0L, 0); /* back to beginning to install proper size */ ! 146: dev.filesize = /* excluding dev struct itself */ ! 147: (dev.nsizes+1) * sizeof(size[0]) ! 148: + dev.nchtab * sizeof(chtab[0]) ! 149: + dev.lchname * sizeof(char) ! 150: + totfont * sizeof(char); ! 151: write(fdout, &dev, sizeof(struct dev)); ! 152: close(fdout); ! 153: argc--; ! 154: argv++; ! 155: } ! 156: for (i = 1; i < argc; i++) ! 157: dofont(argv[i]); ! 158: exit(0); ! 159: } ! 160: ! 161: dofont(name) /* create fitab and width tab for font */ ! 162: char *name; ! 163: { ! 164: FILE *fin; ! 165: int fdout; ! 166: int i, nw, spacewidth, n, v; ! 167: char buf[100], ch[10], s1[10], s2[10], s3[10], cmd[30]; ! 168: ! 169: if ((fin = fopen(name, "r")) == NULL) { ! 170: fprintf(stderr, "makedev: can't open font %s\n", name); ! 171: exit(2); ! 172: } ! 173: sprintf(cmd, "%s.out", name); ! 174: fdout = creat(cmd, 0666); ! 175: for (i = 0; i < NFITAB; i++) ! 176: fitab[i] = 0; ! 177: for (i = 0; i < FSIZE; i++) ! 178: width[i] = kern[i] = code[i] = 0; ! 179: font.specfont = font.ligfont = spacewidth = 0; ! 180: while (fscanf(fin, "%s", cmd) != EOF) { ! 181: if (cmd[0] == '#') ! 182: skipline(fin); ! 183: else if (strcmp(cmd, "name") == 0) ! 184: fscanf(fin, "%s", font.namefont); ! 185: else if (strcmp(cmd, "internalname") == 0) ! 186: fscanf(fin, "%s", font.intname); ! 187: else if (strcmp(cmd, "special") == 0) ! 188: font.specfont = 1; ! 189: else if (strcmp(cmd, "spare1") == 0) ! 190: fscanf(fin, "%1s", &font.spare1); ! 191: else if (strcmp(cmd, "ligatures") == 0) { ! 192: font.ligfont = getlig(fin); ! 193: } else if (strcmp(cmd, "spacewidth") == 0) { ! 194: fscanf(fin, "%d", &spacewidth); ! 195: width[0] = spacewidth; /* width of space on this font */ ! 196: } else if (strcmp(cmd, "charset") == 0) { ! 197: skipline(fin); ! 198: nw = 0; ! 199: /* widths are origin 1 so fitab==0 can mean "not there" */ ! 200: while (fgets(buf, 100, fin) != NULL) { ! 201: sscanf(buf, "%s %s %s %s", ch, s1, s2, s3); ! 202: if (s1[0] != '"') { /* it's a genuine new character */ ! 203: nw++; ! 204: width[nw] = atoi(s1); ! 205: kern[nw] = atoi(s2); ! 206: /* temporarily, pick up one byte as code */ ! 207: if (s3[0] == '0') ! 208: sscanf(s3, "%o", &i); ! 209: else ! 210: sscanf(s3, "%d", &i); ! 211: code[nw] = i; ! 212: } ! 213: /* otherwise it's a synonym for previous character, ! 214: /* so leave previous values intact ! 215: */ ! 216: if (strlen(ch) == 1) /* it's ascii */ ! 217: fitab[ch[0] - 32] = nw; /* fitab origin omits non-graphics */ ! 218: else { /* it has a funny name */ ! 219: for (i = 0; i < dev.nchtab; i++) ! 220: if (strcmp(&chname[chtab[i]], ch) == 0) { ! 221: fitab[i + 128-32] = nw; /* starts after the ascii */ ! 222: break; ! 223: } ! 224: if (i >= dev.nchtab) ! 225: fprintf(stderr, "makedev: font %s: %s not in charset\n", name, ch); ! 226: } ! 227: } ! 228: nw++; ! 229: font.nwfont = n = nw; ! 230: } ! 231: } ! 232: if (spacewidth == 0) ! 233: width[0] = dev.res * dev.unitwidth / 72 / 3; ! 234: fclose(fin); ! 235: ! 236: write(fdout, &font, sizeof(struct font)); ! 237: write(fdout, width, font.nwfont & BMASK); ! 238: write(fdout, kern, font.nwfont & BMASK); ! 239: write(fdout, code, font.nwfont & BMASK); ! 240: write(fdout, fitab, dev.nchtab+128-32); ! 241: close(fdout); ! 242: v = sizeof(struct font) + 3 * n + dev.nchtab + 128-32; ! 243: fprintf(stderr, "%3s: %3d chars, width %3d, size %3d\n", ! 244: font.namefont, nw, width[0], v); ! 245: return v; ! 246: } ! 247: ! 248: getlig(fin) /* pick up ligature list */ ! 249: FILE *fin; ! 250: { ! 251: int lig; ! 252: char temp[100]; ! 253: ! 254: lig = 0; ! 255: while (fscanf(fin, "%s", temp) != EOF && strcmp(temp, "0") != 0) { ! 256: if (strcmp(temp, "fi") == 0) ! 257: lig |= LFI; ! 258: else if (strcmp(temp, "fl") == 0) ! 259: lig |= LFL; ! 260: else if (strcmp(temp, "ff") == 0) ! 261: lig |= LFF; ! 262: else if (strcmp(temp, "ffi") == 0) ! 263: lig |= LFFI; ! 264: else if (strcmp(temp, "ffl") == 0) ! 265: lig |= LFFL; ! 266: else ! 267: fprintf(stderr, "illegal ligature %s\n", temp); ! 268: } ! 269: skipline(fin); ! 270: return lig; ! 271: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.