123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255 |
- #include "tdef.h"
- #include "fns.h"
- #include "ext.h"
- #define MAXCH NCHARS /* maximum number of global char names */
- char *chnames[MAXCH]; /* chnames[n-ALPHABET] -> name of char n */
- int nchnames; /* number of Cxy names currently seen */
- #define MAXPS 100 /* max number of point sizes */
- int pstab[MAXPS]; /* point sizes */
- int nsizes; /* number in DESC */
- Font fonts[MAXFONTS+1]; /* font info + ptr to width info */
- #define skipline(f) while (getc(f) != '\n')
- #define eq(s1, s2) (strcmp(s1, s2) == 0)
- getdesc(char *name)
- {
- FILE *fin;
- char cmd[100], s[100];
- int i, v;
- if ((fin = fopen(name, "r")) == NULL)
- return -1;
- while (fscanf(fin, "%s", cmd) != EOF) {
- if (strcmp(cmd, "res") == 0) {
- fscanf(fin, "%d", &Inch);
- } else if (strcmp(cmd, "hor") == 0) {
- fscanf(fin, "%d", &Hor);
- } else if (strcmp(cmd, "vert") == 0) {
- fscanf(fin, "%d", &Vert);
- } else if (strcmp(cmd, "unitwidth") == 0) {
- fscanf(fin, "%d", &Unitwidth);
- } else if (strcmp(cmd, "sizes") == 0) {
- nsizes = 0;
- while (fscanf(fin, "%d", &v) != EOF && v != 0 && nsizes < MAXPS)
- pstab[nsizes++] = v;
- } else if (strcmp(cmd, "fonts") == 0) {
- fscanf(fin, "%d", &nfonts);
- for (i = 1; i <= nfonts; i++) {
- fscanf(fin, "%s", s);
- fontlab[i] = PAIR(s[0], s[1]);
- }
- } else if (strcmp(cmd, "charset") == 0) { /* add any names */
- while (fscanf(fin, "%s", s) != EOF)
- chadd(s, Troffchar, Install);
- break;
- }
- /* else
- just skip anything else */
- skipline(fin);
- }
- fclose(fin);
- return 1;
- }
- static int checkfont(char *name)
- { /* in case it's not really a font description file */
- /* really paranoid, but consider \f. */
- FILE *fp;
- char buf[300], buf2[300];
- int i, status = -1;
- if ((fp = fopen(name, "r")) == NULL)
- return -1;
- for (i = 1; i <= 10; i++) {
- if (fgets(buf, sizeof buf, fp) == NULL)
- break;
- sscanf(buf, "%s", buf2);
- if (buf2[0] == '#') {
- i--;
- continue;
- }
- if (eq(buf2, "name") || eq(buf2, "fontname") ||
- eq(buf2, "special") || eq(buf2, "charset")) {
- status = 1;
- break;
- }
- }
- fclose(fp);
- return status;
-
- }
- getfont(char *name, int pos) /* create width tab for font */
- {
- FILE *fin;
- Font *ftemp = &fonts[pos];
- Chwid chtemp[MAXCH];
- static Chwid chinit;
- int i, nw, n, wid, kern, code, type;
- char buf[100], ch[100], s1[100], s2[100], s3[100], cmd[300];
- /* fprintf(stderr, "read font %s onto %d\n", name, pos); */
- if (checkfont(name) == -1)
- return -1;
- if ((fin = fopen(name, "r")) == NULL)
- return -1;
- for (i = 0; i < ALPHABET; i++)
- chtemp[i] = chinit; /* zero out to begin with */
- ftemp->specfont = ftemp->ligfont = 0;
- ftemp->defaultwidth = ftemp->spacewidth = Inch * Unitwidth / 72 / 3; /* should be rounded */
- while (fscanf(fin, "%s", cmd) != EOF) {
- if (strcmp(cmd, "name") == 0)
- fscanf(fin, "%s", ftemp->longname);
- else if (strcmp(cmd, "special") == 0)
- ftemp->specfont = 1;
- else if (strcmp(cmd, "ligatures") == 0) {
- ftemp->ligfont = getlig(fin);
- } else if (strcmp(cmd, "spacewidth") == 0) {
- fscanf(fin, "%d", &ftemp->spacewidth);
- } else if (strcmp(cmd, "defaultwidth") == 0) {
- fscanf(fin, "%d", &ftemp->defaultwidth);
- } else if (strcmp(cmd, "charset") == 0) {
- wchar_t wc;
- skipline(fin);
- nw = ALPHABET;
- while (fgets(buf, sizeof buf, fin) != NULL) {
- sscanf(buf, "%s %s %s %s", ch, s1, s2, s3);
- if (s1[0] != '"') { /* genuine new character */
- sscanf(s1, "%d", &wid);
- sscanf(s2, "%d", &kern);
- code = strtol(s3, 0, 0); /* dec/oct/hex */
- }
- /* otherwise it's a synonym for prev character, */
- /* so leave previous values intact */
- /* decide what kind of alphabet it might come from here */
- if (strlen(ch) == 1) { /* it's ascii */
- n = ch[0]; /* origin includes non-graphics */
- chtemp[n].num = ch[0];
- } else if (ch[0] == '\\' && ch[1] == '0') {
- n = strtol(ch+1, 0, 0); /* \0octal or \0xhex */
- chtemp[n].num = n;
- #ifdef UNICODE
- } else if (mbtowc(&wc, ch, strlen(ch)) > 1) {
- chtemp[nw].num = chadd(ch, MBchar, Install);
- n = nw;
- nw++;
- #endif /*UNICODE*/
- } else {
- if (strcmp(ch, "---") == 0) { /* no name */
- sprintf(ch, "%d", code);
- type = Number;
- } else
- type = Troffchar;
- chtemp[nw].num = chadd(ch, type, Install);
- n = nw;
- nw++;
- }
- chtemp[n].wid = wid;
- chtemp[n].kern = kern;
- chtemp[n].code = code;
- /*fprintf(stderr, "font %2.2s char %4.4s num %3d wid %2d code %3d\n",
- ftemp->longname, ch, n, wid, code);
- */
- }
- break;
- }
- skipline(fin);
- }
- fclose(fin);
- chtemp[' '].wid = ftemp->spacewidth; /* width of space on this font */
- ftemp->nchars = nw;
- if (ftemp->wp)
- free(ftemp->wp); /* god help us if this wasn't allocated */
- ftemp->wp = (Chwid *) malloc(nw * sizeof(Chwid));
- if (ftemp->wp == NULL)
- return -1;
- for (i = 0; i < nw; i++)
- ftemp->wp[i] = chtemp[i];
- /*
- * printf("%d chars: ", nw);
- * for (i = 0; i < nw; i++)
- * if (ftemp->wp[i].num > 0 && ftemp->wp[i].num < ALPHABET) {
- * printf("%c %d ", ftemp->wp[i].num, ftemp->wp[i].wid);
- * else if (i >= ALPHABET)
- * printf("%d (%s) %d ", ftemp->wp[i].num,
- * chnames[ftemp->wp[i].num-ALPHABET], ftemp->wp[i].wid);
- * }
- * printf("\n");
- */
- return 1;
- }
- chadd(char *s, int type, int install) /* add s to global character name table; */
- { /* or just look it up */
- /* a temporary kludge: store the "type" as the first character */
- /* of the string, so we can remember from whence it came */
- char *p;
- int i;
- /* fprintf(stderr, "into chadd %s %c %c\n", s, type, install); /* */
- for (i = 0; i < nchnames; i++)
- if (type == chnames[i][0] && eq(s, chnames[i]+1)) /* +1 since type at front */
- break;
- /* fprintf(stderr, "i %d, nchnames %d\n", i, nchnames); /* */
- if (i < nchnames) /* found same type and bytes at position i */
- return ALPHABET + i;
- else if (install == Lookup) /* not found, and we were just looking */
- return -1;
- chnames[nchnames] = p = (char *) malloc(strlen(s)+1+1); /* type + \0 */
- if (p == NULL) {
- ERROR "out of space adding character %s", s WARN;
- return LEFTHAND;
- }
- if (nchnames >= NCHARS - ALPHABET) {
- ERROR "out of table space adding character %s", s WARN;
- return LEFTHAND;
- }
- strcpy(chnames[nchnames]+1, s);
- chnames[nchnames][0] = type;
- /* fprintf(stderr, "installed %c%s at %d\n", type, s, nchnames); /* */
- return nchnames++ + ALPHABET;
- }
- char *chname(int n) /* return string for char with index n */
- { /* includes type char at front, to be peeled off elsewhere */
- if (n >= ALPHABET && n < nchnames + ALPHABET)
- return chnames[n-ALPHABET];
- else
- return "";
- }
- getlig(FILE *fin) /* pick up ligature list */
- {
- int lig;
- char temp[200];
- lig = 0;
- while (fscanf(fin, "%s", temp) != EOF && strcmp(temp, "0") != 0) {
- if (strcmp(temp, "fi") == 0)
- lig |= LFI;
- else if (strcmp(temp, "fl") == 0)
- lig |= LFL;
- else if (strcmp(temp, "ff") == 0)
- lig |= LFF;
- else if (strcmp(temp, "ffi") == 0)
- lig |= LFFI;
- else if (strcmp(temp, "ffl") == 0)
- lig |= LFFL;
- else
- fprintf(stderr, "illegal ligature %s ignored\n", temp);
- }
- return lig;
- }
|