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