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