![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t11.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 t11.c CVS log | Up to [Research Unix] / researchv10no / cmd / troff |
1.1 root 1: #include "tdef.h"
2: #include "fns.h"
3: #include "ext.h"
4:
5: #define MAXCH NCHARS /* maximum number of global char names */
6: char *chnames[MAXCH]; /* chnames[n-ALPHABET] -> name of char n */
7: int nchnames; /* number of Cxy names currently seen */
8:
9: #define MAXPS 100 /* max number of point sizes */
10: int pstab[MAXPS]; /* point sizes */
11: int nsizes; /* number in DESC */
12:
13: Font fonts[MAXFONTS+1]; /* font info + ptr to width info */
14:
15:
16: #define skipline(f) while (getc(f) != '\n')
17:
18: getdesc(char *name)
19: {
20: FILE *fin;
21: char cmd[100], s[100];
22: int i, v;
23:
24: if ((fin = fopen(name, "r")) == NULL)
25: return -1;
26: while (fscanf(fin, "%s", cmd) != EOF) {
27: if (strcmp(cmd, "res") == 0) {
28: fscanf(fin, "%d", &Inch);
29: } else if (strcmp(cmd, "hor") == 0) {
30: fscanf(fin, "%d", &Hor);
31: } else if (strcmp(cmd, "vert") == 0) {
32: fscanf(fin, "%d", &Vert);
33: } else if (strcmp(cmd, "unitwidth") == 0) {
34: fscanf(fin, "%d", &Unitwidth);
35: } else if (strcmp(cmd, "sizes") == 0) {
36: nsizes = 0;
37: while (fscanf(fin, "%d", &v) != EOF && v != 0 && nsizes < MAXPS)
38: pstab[nsizes++] = v;
39: } else if (strcmp(cmd, "fonts") == 0) {
40: fscanf(fin, "%d", &nfonts);
41: for (i = 1; i <= nfonts; i++) {
42: fscanf(fin, "%s", s);
43: fontlab[i] = PAIR(s[0], s[1]);
44: }
45: } else if (strcmp(cmd, "charset") == 0) { /* add any names */
46: while (fscanf(fin, "%s", s) != EOF)
47: chadd(s);
48: break;
49: }
50: /* else
51: just skip anything else */
52: skipline(fin);
53: }
54: fclose(fin);
55: return 1;
56: }
57:
58: #define eq(s1, s2) (strcmp(s1, s2) == 0)
59:
60: static int checkfont(char *name)
61: { /* in case it's not really a font description file */
62: /* really paranoid, but consider \f. */
63: FILE *fp;
64: char buf[300], buf2[300];
65: int i, status = -1;
66:
67: if ((fp = fopen(name, "r")) == NULL)
68: return -1;
69: for (i = 1; i <= 10; i++) {
70: if (fgets(buf, sizeof buf, fp) == NULL)
71: break;
72: sscanf(buf, "%s", buf2);
73: if (eq(buf2, "name") || eq(buf2, "fontname") ||
74: eq(buf2, "special") || eq(buf2, "charset")) {
75: status = 1;
76: break;
77: }
78: }
79: fclose(fp);
80: return status;
81:
82: }
83:
84: getfont(char *name, int pos) /* create width tab for font */
85: {
86: FILE *fin;
87: Font *ftemp = &fonts[pos];
88: Chwid chtemp[MAXCH];
89: static Chwid chinit;
90: int i, nw, n, wid, kern, code;
91: char buf[100], ch[100], s1[100], s2[100], s3[100], cmd[300];
92:
93: /* fprintf(stderr, "read font %s onto %d\n", name, pos); */
94: if (checkfont(name) == -1)
95: return -1;
96: if ((fin = fopen(name, "r")) == NULL)
97: return -1;
98: for (i = 0; i < ALPHABET; i++)
99: chtemp[i] = chinit; /* zero out to begin with */
100: ftemp->specfont = ftemp->ligfont = 0;
101: ftemp->defaultwidth = ftemp->spacewidth = Inch * Unitwidth / 72 / 3; /* should be rounded */
102: while (fscanf(fin, "%s", cmd) != EOF) {
103: if (strcmp(cmd, "name") == 0)
104: fscanf(fin, "%s", ftemp->longname);
105: else if (strcmp(cmd, "special") == 0)
106: ftemp->specfont = 1;
107: else if (strcmp(cmd, "ligatures") == 0) {
108: ftemp->ligfont = getlig(fin);
109: } else if (strcmp(cmd, "spacewidth") == 0) {
110: fscanf(fin, "%d", &ftemp->spacewidth);
111: } else if (strcmp(cmd, "defaultwidth") == 0) {
112: fscanf(fin, "%d", &ftemp->defaultwidth);
113: } else if (strcmp(cmd, "charset") == 0) {
114: skipline(fin);
115: nw = ALPHABET;
116: while (fgets(buf, sizeof buf, fin) != NULL) {
117: sscanf(buf, "%s %s %s %s", ch, s1, s2, s3);
118: if (s1[0] != '"') { /* genuine new character */
119: sscanf(s1, "%d", &wid);
120: sscanf(s2, "%d", &kern);
121: code = strtol(s3, 0, 0); /* dec/oct/hex */
122: }
123: /* otherwise it's a synonym for prev character, */
124: /* so leave previous values intact */
125:
126:
127: /* decide what kind of alphabet it might come from here */
128:
129:
130: if (strlen(ch) == 1) { /* it's ascii */
131: n = ch[0]; /* origin includes non-graphics */
132: chtemp[n].num = ch[0];
133: chtemp[n].wid = wid;
134: chtemp[n].kern = kern;
135: chtemp[n].code = code;
136: } else if (ch[0] == '\\' && ch[1] == '0') {
137: /* \0octal or \0xhex */
138: n = strtol(ch+1, 0, 0);
139: chtemp[n].num = n;
140: chtemp[n].wid = wid;
141: chtemp[n].kern = kern;
142: chtemp[n].code = code;
143: } else {
144: if (strcmp(ch, "---") == 0) /* no name */
145: sprintf(ch, "#%d", code);
146: if ((n = chindex(ch)) == -1) /* global? */
147: n = chadd(ch);
148: chtemp[nw].num = n;
149: chtemp[nw].wid = wid;
150: chtemp[nw].kern = kern;
151: chtemp[nw].code = code;
152: nw++;
153: }
154: /* fprintf(stderr, "font %2.2s char %4.4s num %3d wid %2d code %3d\n",
155: ftemp->longname, ch, n, wid, code);
156: */
157: }
158: break;
159: }
160: skipline(fin);
161: }
162: fclose(fin);
163: chtemp[' '].wid = ftemp->spacewidth; /* width of space on this font */
164: ftemp->nchars = nw;
165: if (ftemp->wp)
166: free(ftemp->wp); /* god help us if this wasn't allocated */
167: ftemp->wp = (Chwid *) malloc(nw * sizeof(Chwid));
168: if (ftemp->wp == NULL)
169: return -1;
170: for (i = 0; i < nw; i++)
171: ftemp->wp[i] = chtemp[i];
172: /*
173: * printf("%d chars: ", nw);
174: * for (i = 0; i < nw; i++) {
175: * if (ftemp->wp[i].num > 0 && ftemp->wp[i].num < ALPHABET)
176: * printf("%c %d ", ftemp->wp[i].num, ftemp->wp[i].wid);
177: * else if (i >= ALPHABET)
178: * printf("%d (%s) %d ", ftemp->wp[i].num,
179: * chnames[ftemp->wp[i].num-ALPHABET], ftemp->wp[i].wid);
180: * }
181: * printf("\n");
182: */
183: return 1;
184: }
185:
186: chindex(char *s) /* look for s in global character name table */
187: {
188: int i;
189:
190: for (i = 0; i < nchnames; i++)
191: if (strcmp(s, chnames[i]) == 0)
192: return i + ALPHABET; /* offset by ALPHABET... */
193: return -1;
194: }
195:
196: chadd(char *s) /* add s to global character name table; assume not there */
197: { /* changes when table format changes */
198: char *p;
199:
200: chnames[nchnames] = p = (char *) malloc(strlen(s)+1);
201: if (p == NULL) {
202: ERROR "out of space adding character %s\n", s WARN;
203: return LEFTHAND;
204: }
205: if (nchnames >= NCHARS) {
206: ERROR "out ot table space adding character %s\n", s WARN;
207: return LEFTHAND;
208: }
209: strcpy(chnames[nchnames], s);
210: return nchnames++ + ALPHABET;
211: }
212:
213: char *chname(int n) /* return string for char with index n */
214: { /* changes when table format changes */
215: return chnames[n-ALPHABET];
216: }
217:
218: getlig(FILE *fin) /* pick up ligature list */
219: {
220: int lig;
221: char temp[200];
222:
223: lig = 0;
224: while (fscanf(fin, "%s", temp) != EOF && strcmp(temp, "0") != 0) {
225: if (strcmp(temp, "fi") == 0)
226: lig |= LFI;
227: else if (strcmp(temp, "fl") == 0)
228: lig |= LFL;
229: else if (strcmp(temp, "ff") == 0)
230: lig |= LFF;
231: else if (strcmp(temp, "ffi") == 0)
232: lig |= LFFI;
233: else if (strcmp(temp, "ffl") == 0)
234: lig |= LFFL;
235: else
236: fprintf(stderr, "illegal ligature %s ignored\n", temp);
237: }
238: return lig;
239: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.