1 61f5c35c 2004-05-15 devnull /* Unicode | PostScript
2 61f5c35c 2004-05-15 devnull * start end | offset font name
3 61f5c35c 2004-05-15 devnull * 0x0000 0x00ff 0x00 LucidaSansUnicode00
5 61f5c35c 2004-05-15 devnull #include <u.h>
6 61f5c35c 2004-05-15 devnull #include <libc.h>
7 61f5c35c 2004-05-15 devnull #include <bio.h>
8 61f5c35c 2004-05-15 devnull #include "common.h"
9 61f5c35c 2004-05-15 devnull #include "tr2post.h"
10 61f5c35c 2004-05-15 devnull #include "comments.h"
11 61f5c35c 2004-05-15 devnull #include "path.h"
13 61f5c35c 2004-05-15 devnull /* Postscript font names, e.g., `LucidaSansUnicode00'
14 61f5c35c 2004-05-15 devnull * names may only be added because reference to the
15 61f5c35c 2004-05-15 devnull * names is made by indexing into this table.
17 61f5c35c 2004-05-15 devnull static struct pfnament *pfnafontmtab = 0;
18 61f5c35c 2004-05-15 devnull static int pfnamcnt = 0;
19 61f5c35c 2004-05-15 devnull int curpostfontid = -1;
20 61f5c35c 2004-05-15 devnull int curfontsize = -1;
21 61f5c35c 2004-05-15 devnull int curtrofffontid = -1;
22 61f5c35c 2004-05-15 devnull static int curfontpos = -1;
23 61f5c35c 2004-05-15 devnull static int fontheight = 0;
24 61f5c35c 2004-05-15 devnull static int fontslant = 0;
26 61f5c35c 2004-05-15 devnull /* This is troffs mounted font table. It is an anachronism resulting
27 61f5c35c 2004-05-15 devnull * from the design of the APS typesetter. fontmnt is the
28 61f5c35c 2004-05-15 devnull * number of positions available. fontmnt is really 11, but
29 61f5c35c 2004-05-15 devnull * should not be limited.
31 61f5c35c 2004-05-15 devnull int fontmnt = 0;
32 61f5c35c 2004-05-15 devnull char **fontmtab;
34 61f5c35c 2004-05-15 devnull struct troffont *troffontab = 0;
36 61f5c35c 2004-05-15 devnull int troffontcnt = 0;
39 61f5c35c 2004-05-15 devnull mountfont(int pos, char *fontname) {
42 61f5c35c 2004-05-15 devnull if (debug) Bprint(Bstderr, "mountfont(%d, %s)\n", pos, fontname);
43 61f5c35c 2004-05-15 devnull if (pos < 0 || pos >= fontmnt)
44 61f5c35c 2004-05-15 devnull error(FATAL, "cannot mount a font at position %d,\n can only mount into postions 0-%d\n",
45 61f5c35c 2004-05-15 devnull pos, fontmnt-1);
47 61f5c35c 2004-05-15 devnull i = strlen(fontname);
48 61f5c35c 2004-05-15 devnull fontmtab[pos] = galloc(fontmtab[pos], i+1, "mountfont():fontmtab");
49 61f5c35c 2004-05-15 devnull strcpy(fontmtab[pos], fontname);
50 61f5c35c 2004-05-15 devnull if (curfontpos == pos) curfontpos = -1;
54 61f5c35c 2004-05-15 devnull settrfont(void) {
55 61f5c35c 2004-05-15 devnull if (curfontpos == fontpos) return;
57 61f5c35c 2004-05-15 devnull if (fontmtab[fontpos] == 0)
58 61f5c35c 2004-05-15 devnull error(FATAL, "Font at position %d was not initialized, botch!\n", fontpos);
60 61f5c35c 2004-05-15 devnull curtrofffontid = findtfn(fontmtab[fontpos], 1);
61 61f5c35c 2004-05-15 devnull if (debug) Bprint(Bstderr, "settrfont()-> curtrofffontid=%d\n", curtrofffontid);
62 61f5c35c 2004-05-15 devnull curfontpos = fontpos;
63 61f5c35c 2004-05-15 devnull if (curtrofffontid < 0) {
66 61f5c35c 2004-05-15 devnull error(WARNING, "fontpos=%d\n", fontpos);
67 61f5c35c 2004-05-15 devnull for (i=0; i<fontmnt; i++)
68 61f5c35c 2004-05-15 devnull if (fontmtab[i] == 0)
69 61f5c35c 2004-05-15 devnull error(WARNING, "fontmtab[%d]=0x0\n", i);
71 61f5c35c 2004-05-15 devnull error(WARNING, "fontmtab[%d]=%s\n", i, fontmtab[i]);
72 61f5c35c 2004-05-15 devnull exits("settrfont()");
77 61f5c35c 2004-05-15 devnull setpsfont(int psftid, int fontsize) {
78 61f5c35c 2004-05-15 devnull if (psftid == curpostfontid && fontsize == curfontsize) return;
79 61f5c35c 2004-05-15 devnull if (psftid >= pfnamcnt)
80 61f5c35c 2004-05-15 devnull error(FATAL, "Postscript font index=%d used but not defined, there are only %d fonts\n",
81 61f5c35c 2004-05-15 devnull psftid, pfnamcnt);
83 61f5c35c 2004-05-15 devnull endstring();
84 61f5c35c 2004-05-15 devnull if (pageon()) {
85 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "%d /%s f\n", fontsize, pfnafontmtab[psftid].str);
86 61f5c35c 2004-05-15 devnull if ( fontheight != 0 || fontslant != 0 )
87 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "%d %d changefont\n", fontslant, (fontheight != 0) ? fontheight : fontsize);
88 61f5c35c 2004-05-15 devnull pfnafontmtab[psftid].used = 1;
89 61f5c35c 2004-05-15 devnull curpostfontid = psftid;
90 61f5c35c 2004-05-15 devnull curfontsize = fontsize;
94 61f5c35c 2004-05-15 devnull /* find index of PostScript font name in table
95 61f5c35c 2004-05-15 devnull * returns -1 if name is not in table
96 61f5c35c 2004-05-15 devnull * If insflg is not zero
97 61f5c35c 2004-05-15 devnull * and the name is not found in the table, insert it.
100 61f5c35c 2004-05-15 devnull findpfn(char *fontname, int insflg) {
101 61f5c35c 2004-05-15 devnull char *tp;
104 61f5c35c 2004-05-15 devnull for (i=0; i<pfnamcnt; i++) {
105 61f5c35c 2004-05-15 devnull if (strcmp(pfnafontmtab[i].str, fontname) == 0)
106 61f5c35c 2004-05-15 devnull return(i);
108 61f5c35c 2004-05-15 devnull if (insflg) {
109 61f5c35c 2004-05-15 devnull tp = galloc(pfnafontmtab, sizeof(struct pfnament)*(pfnamcnt+1), "findpfn():pfnafontmtab");
110 61f5c35c 2004-05-15 devnull if (tp == 0)
111 61f5c35c 2004-05-15 devnull return(-2);
112 61f5c35c 2004-05-15 devnull pfnafontmtab = (struct pfnament *)tp;
113 61f5c35c 2004-05-15 devnull i = strlen(fontname);
114 61f5c35c 2004-05-15 devnull pfnafontmtab[pfnamcnt].str = galloc(0, i+1, "findpfn():pfnafontmtab[].str");
115 61f5c35c 2004-05-15 devnull strncpy(pfnafontmtab[pfnamcnt].str, fontname, i);
116 61f5c35c 2004-05-15 devnull pfnafontmtab[pfnamcnt].str[i] = '\0';
117 61f5c35c 2004-05-15 devnull pfnafontmtab[pfnamcnt].used = 0;
118 61f5c35c 2004-05-15 devnull return(pfnamcnt++);
120 61f5c35c 2004-05-15 devnull return(-1);
123 e8fb1d3e 2004-05-17 devnull char postroffdirname[] = "#9/postscript/troff"; /* "/sys/lib/postscript/troff/"; */
124 e8fb1d3e 2004-05-17 devnull char troffmetricdirname[] = "#9/troff/font"; /* "/sys/lib/troff/font/devutf/"; */
127 61f5c35c 2004-05-15 devnull readpsfontdesc(char *fontname, int trindex) {
128 61f5c35c 2004-05-15 devnull static char *filename = 0;
129 61f5c35c 2004-05-15 devnull Biobuf *bfd;
130 e8fb1d3e 2004-05-17 devnull Biobuf *Bfd;
131 e8fb1d3e 2004-05-17 devnull int errorflg = 0, line =1, rv;
132 61f5c35c 2004-05-15 devnull int start, end, offset;
133 e8fb1d3e 2004-05-17 devnull int startfont, endfont, startchar, endchar, pfid;
134 61f5c35c 2004-05-15 devnull char psfontnam[128];
135 61f5c35c 2004-05-15 devnull struct troffont *tp;
136 b855148c 2004-05-16 devnull /* struct charent *cp[]; */
138 61f5c35c 2004-05-15 devnull if (debug) Bprint(Bstderr, "readpsfontdesc(%s,%d)\n", fontname, trindex);
139 61f5c35c 2004-05-15 devnull filename=galloc(filename, strlen(postroffdirname)+1+strlen(fontname)+1, "readpsfontdesc: cannot allocate memory\n");
140 61f5c35c 2004-05-15 devnull sprint(filename, "%s/%s", postroffdirname, fontname);
142 e8fb1d3e 2004-05-17 devnull bfd = Bopen(unsharp(filename), OREAD);
143 61f5c35c 2004-05-15 devnull if (bfd == 0) {
144 61f5c35c 2004-05-15 devnull error(WARNING, "cannot open file %s\n", filename);
145 61f5c35c 2004-05-15 devnull return(0);
147 b855148c 2004-05-16 devnull Bfd = bfd; /* &(bfd->Biobufhdr); */
150 61f5c35c 2004-05-15 devnull offset = 0;
151 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 'd', &start, 0)) == 0) {
152 61f5c35c 2004-05-15 devnull errorflg = 1;
153 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal start value\n", filename, line);
154 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
155 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 'd', &end, 0)) == 0) {
156 61f5c35c 2004-05-15 devnull errorflg = 1;
157 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal end value\n", filename, line);
158 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
159 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 'd', &offset, 0)) < 0) {
160 61f5c35c 2004-05-15 devnull errorflg = 1;
161 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal offset value\n", filename, line);
163 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 's', psfontnam, 128)) == 0) {
164 61f5c35c 2004-05-15 devnull errorflg = 1;
165 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal fontname value\n", filename, line);
166 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
167 61f5c35c 2004-05-15 devnull Brdline(Bfd, '\n');
168 61f5c35c 2004-05-15 devnull if (!errorflg) {
169 61f5c35c 2004-05-15 devnull struct psfent *psfentp;
170 61f5c35c 2004-05-15 devnull startfont = RUNEGETGROUP(start);
171 61f5c35c 2004-05-15 devnull startchar = RUNEGETCHAR(start);
172 61f5c35c 2004-05-15 devnull endfont = RUNEGETGROUP(end);
173 61f5c35c 2004-05-15 devnull endchar = RUNEGETCHAR(end);
174 61f5c35c 2004-05-15 devnull pfid = findpfn(psfontnam, 1);
175 61f5c35c 2004-05-15 devnull if (startfont != endfont) {
176 61f5c35c 2004-05-15 devnull error(WARNING, "font descriptions must not cross 256 glyph block boundary\n");
177 61f5c35c 2004-05-15 devnull errorflg = 1;
180 61f5c35c 2004-05-15 devnull tp = &(troffontab[trindex]);
181 61f5c35c 2004-05-15 devnull tp->psfmap = galloc(tp->psfmap, ++(tp->psfmapsize)*sizeof(struct psfent), "readpsfontdesc():psfmap");
182 61f5c35c 2004-05-15 devnull psfentp = &(tp->psfmap[tp->psfmapsize-1]);
183 61f5c35c 2004-05-15 devnull psfentp->start = start;
184 61f5c35c 2004-05-15 devnull psfentp->end = end;
185 61f5c35c 2004-05-15 devnull psfentp->offset = offset;
186 61f5c35c 2004-05-15 devnull psfentp->psftid = pfid;
187 61f5c35c 2004-05-15 devnull if (debug) {
188 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "\tpsfmap->start=0x%x\n", start);
189 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "\tpsfmap->end=0x%x\n", end);
190 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "\tpsfmap->offset=0x%x\n", offset);
191 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "\tpsfmap->pfid=0x%x\n", pfid);
194 61f5c35c 2004-05-15 devnull for (i=startchar; i<=endchar; i++) {
195 61f5c35c 2004-05-15 devnull tp->charent[startfont][i].postfontid = pfid;
196 61f5c35c 2004-05-15 devnull tp->charent[startfont][i].postcharid = i + offset - startchar;
199 61f5c35c 2004-05-15 devnull if (debug) {
200 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "%x %x ", start, end);
201 61f5c35c 2004-05-15 devnull if (offset) Bprint(Bstderr, "%x ", offset);
202 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "%s\n", psfontnam);
206 61f5c35c 2004-05-15 devnull } while(errorflg != 1);
207 61f5c35c 2004-05-15 devnull Bterm(Bfd);
208 61f5c35c 2004-05-15 devnull return(1);
212 61f5c35c 2004-05-15 devnull readtroffmetric(char *fontname, int trindex) {
213 61f5c35c 2004-05-15 devnull static char *filename = 0;
214 61f5c35c 2004-05-15 devnull Biobuf *bfd;
215 e8fb1d3e 2004-05-17 devnull Biobuf *Bfd;
216 e8fb1d3e 2004-05-17 devnull int errorflg = 0, line =1, rv;
217 61f5c35c 2004-05-15 devnull struct charent **cp;
218 61f5c35c 2004-05-15 devnull char stoken[128], *str;
219 61f5c35c 2004-05-15 devnull int ntoken;
220 61f5c35c 2004-05-15 devnull Rune troffchar, quote;
221 61f5c35c 2004-05-15 devnull int width, flag, charnum, thisfont, thischar;
222 61f5c35c 2004-05-15 devnull BOOLEAN specharflag;
224 61f5c35c 2004-05-15 devnull if (debug) Bprint(Bstderr, "readtroffmetric(%s,%d)\n", fontname, trindex);
225 61f5c35c 2004-05-15 devnull filename=galloc(filename, strlen(troffmetricdirname)+4+strlen(devname)+1+strlen(fontname)+1, "readtroffmetric():filename");
226 61f5c35c 2004-05-15 devnull sprint(filename, "%s/dev%s/%s", troffmetricdirname, devname, fontname);
228 e8fb1d3e 2004-05-17 devnull bfd = Bopen(unsharp(filename), OREAD);
229 61f5c35c 2004-05-15 devnull if (bfd == 0) {
230 61f5c35c 2004-05-15 devnull error(WARNING, "cannot open file %s\n", filename);
231 61f5c35c 2004-05-15 devnull return(0);
233 b855148c 2004-05-16 devnull Bfd = bfd; /* &(bfd->Biobufhdr); */
235 61f5c35c 2004-05-15 devnull /* deal with the few lines at the beginning of the
236 61f5c35c 2004-05-15 devnull * troff font metric files.
238 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 's', stoken, 128)) == 0) {
239 61f5c35c 2004-05-15 devnull errorflg = 1;
240 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal token\n", filename, line);
241 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
242 61f5c35c 2004-05-15 devnull if (debug) {
243 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "%s\n", stoken);
246 61f5c35c 2004-05-15 devnull if (strcmp(stoken, "name") == 0) {
247 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 's', stoken, 128)) == 0) {
248 61f5c35c 2004-05-15 devnull errorflg = 1;
249 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal token\n", filename, line);
250 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
251 61f5c35c 2004-05-15 devnull } else if (strcmp(stoken, "named") == 0) {
252 61f5c35c 2004-05-15 devnull Brdline(Bfd, '\n');
253 61f5c35c 2004-05-15 devnull } else if (strcmp(stoken, "fontname") == 0) {
254 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 's', stoken, 128)) == 0) {
255 61f5c35c 2004-05-15 devnull errorflg = 1;
256 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal token\n", filename, line);
257 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
258 61f5c35c 2004-05-15 devnull } else if (strcmp(stoken, "spacewidth") == 0) {
259 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 'd', &ntoken, 0)) == 0) {
260 61f5c35c 2004-05-15 devnull errorflg = 1;
261 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal token\n", filename, line);
262 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
263 61f5c35c 2004-05-15 devnull troffontab[trindex].spacewidth = ntoken;
264 61f5c35c 2004-05-15 devnull thisfont = RUNEGETGROUP(' ');
265 61f5c35c 2004-05-15 devnull thischar = RUNEGETCHAR(' ');
266 61f5c35c 2004-05-15 devnull for (cp = &(troffontab[trindex].charent[thisfont][thischar]); *cp != 0; cp = &((*cp)->next))
267 61f5c35c 2004-05-15 devnull if ((*cp)->name)
268 61f5c35c 2004-05-15 devnull if (strcmp((*cp)->name, " ") == 0)
271 61f5c35c 2004-05-15 devnull if (*cp == 0) *cp = galloc(0, sizeof(struct charent), "readtroffmetric:charent");
272 61f5c35c 2004-05-15 devnull (*cp)->postfontid = thisfont;
273 61f5c35c 2004-05-15 devnull (*cp)->postcharid = thischar;
274 61f5c35c 2004-05-15 devnull (*cp)->troffcharwidth = ntoken;
275 61f5c35c 2004-05-15 devnull (*cp)->name = galloc(0, 2, "readtroffmetric: char name");
276 61f5c35c 2004-05-15 devnull (*cp)->next = 0;
277 61f5c35c 2004-05-15 devnull strcpy((*cp)->name, " ");
278 61f5c35c 2004-05-15 devnull } else if (strcmp(stoken, "special") == 0) {
279 61f5c35c 2004-05-15 devnull troffontab[trindex].special = TRUE;
280 61f5c35c 2004-05-15 devnull } else if (strcmp(stoken, "charset") == 0) {
284 61f5c35c 2004-05-15 devnull if (!errorflg) {
287 61f5c35c 2004-05-15 devnull } while(!errorflg && rv>=0);
288 61f5c35c 2004-05-15 devnull while(!errorflg && rv>=0) {
289 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 's', stoken, 128)) == 0) {
290 61f5c35c 2004-05-15 devnull errorflg = 1;
291 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal rune token <0x%x> rv=%d\n", filename, line, troffchar, rv);
292 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
293 61f5c35c 2004-05-15 devnull if (utflen(stoken) > 1) specharflag = TRUE;
294 61f5c35c 2004-05-15 devnull else specharflag = FALSE;
295 61f5c35c 2004-05-15 devnull /* if this character is a quote we have to use the previous characters info */
296 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 'r', "e, 0)) == 0) {
297 61f5c35c 2004-05-15 devnull errorflg = 1;
298 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal width or quote token <0x%x> rv=%d\n", filename, line, quote, rv);
299 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
300 61f5c35c 2004-05-15 devnull if (quote == '"') {
301 61f5c35c 2004-05-15 devnull /* need some code here */
303 61f5c35c 2004-05-15 devnull goto flush;
304 61f5c35c 2004-05-15 devnull } else {
305 61f5c35c 2004-05-15 devnull Bungetrune(Bfd);
308 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 'd', &width, 0)) == 0) {
309 61f5c35c 2004-05-15 devnull errorflg = 1;
310 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal width token <0x%x> rv=%d\n", filename, line, troffchar, rv);
311 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
312 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 'd', &flag, 0)) == 0) {
313 61f5c35c 2004-05-15 devnull errorflg = 1;
314 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal flag token <0x%x> rv=%d\n", filename, line, troffchar, rv);
315 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
316 61f5c35c 2004-05-15 devnull if ((rv=Bgetfield(Bfd, 'd', &charnum, 0)) == 0) {
317 61f5c35c 2004-05-15 devnull errorflg = 1;
318 61f5c35c 2004-05-15 devnull error(WARNING, "file %s:%d illegal character number token <0x%x> rv=%d\n", filename, line, troffchar, rv);
319 61f5c35c 2004-05-15 devnull } else if (rv < 0) break;
321 61f5c35c 2004-05-15 devnull str = Brdline(Bfd, '\n');
322 61f5c35c 2004-05-15 devnull /* stash the crap from the end of the line for debugging */
323 61f5c35c 2004-05-15 devnull if (debug) {
324 61f5c35c 2004-05-15 devnull if (str == 0) {
325 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "premature EOF\n");
326 61f5c35c 2004-05-15 devnull return(0);
328 61f5c35c 2004-05-15 devnull str[Blinelen(Bfd)-1] = '\0';
331 61f5c35c 2004-05-15 devnull chartorune(&troffchar, stoken);
332 61f5c35c 2004-05-15 devnull if (specharflag) {
333 61f5c35c 2004-05-15 devnull if (debug)
334 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "%s %d %d 0x%x %s # special\n",stoken, width, flag, charnum, str);
336 61f5c35c 2004-05-15 devnull if (strcmp(stoken, "---") == 0) {
337 61f5c35c 2004-05-15 devnull thisfont = RUNEGETGROUP(charnum);
338 61f5c35c 2004-05-15 devnull thischar = RUNEGETCHAR(charnum);
339 61f5c35c 2004-05-15 devnull stoken[0] = '\0';
340 61f5c35c 2004-05-15 devnull } else {
341 61f5c35c 2004-05-15 devnull thisfont = RUNEGETGROUP(troffchar);
342 61f5c35c 2004-05-15 devnull thischar = RUNEGETCHAR(troffchar);
344 61f5c35c 2004-05-15 devnull for (cp = &(troffontab[trindex].charent[thisfont][thischar]); *cp != 0; cp = &((*cp)->next))
345 61f5c35c 2004-05-15 devnull if ((*cp)->name) {
346 61f5c35c 2004-05-15 devnull if (debug) Bprint(Bstderr, "installing <%s>, found <%s>\n", stoken, (*cp)->name);
347 61f5c35c 2004-05-15 devnull if (strcmp((*cp)->name, stoken) == 0)
350 61f5c35c 2004-05-15 devnull if (*cp == 0) *cp = galloc(0, sizeof(struct charent), "readtroffmetric:charent");
351 61f5c35c 2004-05-15 devnull (*cp)->postfontid = RUNEGETGROUP(charnum);
352 61f5c35c 2004-05-15 devnull (*cp)->postcharid = RUNEGETCHAR(charnum);
353 61f5c35c 2004-05-15 devnull (*cp)->troffcharwidth = width;
354 61f5c35c 2004-05-15 devnull (*cp)->name = galloc(0, strlen(stoken)+1, "readtroffmetric: char name");
355 61f5c35c 2004-05-15 devnull (*cp)->next = 0;
356 61f5c35c 2004-05-15 devnull strcpy((*cp)->name, stoken);
357 61f5c35c 2004-05-15 devnull if (debug) {
358 61f5c35c 2004-05-15 devnull if (specharflag)
359 61f5c35c 2004-05-15 devnull Bprint(Bstderr, "%s", stoken);
361 61f5c35c 2004-05-15 devnull Bputrune(Bstderr, troffchar);
362 61f5c35c 2004-05-15 devnull Bprint(Bstderr, " %d %d 0x%x %s # psfontid=0x%x pscharid=0x%x thisfont=0x%x thischar=0x%x\n",
363 61f5c35c 2004-05-15 devnull width, flag, charnum, str,
364 61f5c35c 2004-05-15 devnull (*cp)->postfontid,
365 61f5c35c 2004-05-15 devnull (*cp)->postcharid,
366 61f5c35c 2004-05-15 devnull thisfont, thischar);
369 61f5c35c 2004-05-15 devnull Bterm(Bfd);
370 61f5c35c 2004-05-15 devnull Bflush(Bstderr);
371 61f5c35c 2004-05-15 devnull return(1);
374 61f5c35c 2004-05-15 devnull /* find index of troff font name in table
375 61f5c35c 2004-05-15 devnull * returns -1 if name is not in table
376 61f5c35c 2004-05-15 devnull * returns -2 if it cannot allocate memory
377 61f5c35c 2004-05-15 devnull * returns -3 if there is a font mapping problem
378 61f5c35c 2004-05-15 devnull * If insflg is not zero
379 61f5c35c 2004-05-15 devnull * and the name is not found in the table, insert it.
382 61f5c35c 2004-05-15 devnull findtfn(char *fontname, BOOLEAN insflg) {
383 61f5c35c 2004-05-15 devnull struct troffont *tp;
384 61f5c35c 2004-05-15 devnull int i, j;
386 61f5c35c 2004-05-15 devnull if (debug) {
387 61f5c35c 2004-05-15 devnull if (fontname==0) fprint(2, "findtfn(0x%x,%d)\n", fontname, insflg);
388 61f5c35c 2004-05-15 devnull else fprint(2, "findtfn(%s,%d)\n", fontname, insflg);
390 61f5c35c 2004-05-15 devnull for (i=0; i<troffontcnt; i++) {
391 61f5c35c 2004-05-15 devnull if (troffontab[i].trfontid==0) {
392 61f5c35c 2004-05-15 devnull error(WARNING, "findtfn:troffontab[%d].trfontid=0x%x, botch!\n",
393 61f5c35c 2004-05-15 devnull i, troffontab[i].trfontid);
394 61f5c35c 2004-05-15 devnull continue;
396 61f5c35c 2004-05-15 devnull if (strcmp(troffontab[i].trfontid, fontname) == 0)
397 61f5c35c 2004-05-15 devnull return(i);
399 61f5c35c 2004-05-15 devnull if (insflg) {
400 61f5c35c 2004-05-15 devnull tp = (struct troffont *)galloc(troffontab, sizeof(struct troffont)*(troffontcnt+1), "findtfn: struct troffont:");
401 61f5c35c 2004-05-15 devnull if (tp == 0)
402 61f5c35c 2004-05-15 devnull return(-2);
403 61f5c35c 2004-05-15 devnull troffontab = tp;
404 61f5c35c 2004-05-15 devnull tp = &(troffontab[troffontcnt]);
405 61f5c35c 2004-05-15 devnull i = strlen(fontname);
406 61f5c35c 2004-05-15 devnull tp->trfontid = galloc(0, i+1, "findtfn: trfontid:");
408 61f5c35c 2004-05-15 devnull /* initialize new troff font entry with name and numeric fields to 0 */
409 61f5c35c 2004-05-15 devnull strncpy(tp->trfontid, fontname, i);
410 61f5c35c 2004-05-15 devnull tp->trfontid[i] = '\0';
411 61f5c35c 2004-05-15 devnull tp->special = FALSE;
412 61f5c35c 2004-05-15 devnull tp->spacewidth = 0;
413 61f5c35c 2004-05-15 devnull tp->psfmapsize = 0;
414 61f5c35c 2004-05-15 devnull tp->psfmap = 0;
415 61f5c35c 2004-05-15 devnull for (i=0; i<NUMOFONTS; i++)
416 61f5c35c 2004-05-15 devnull for (j=0; j<FONTSIZE; j++)
417 61f5c35c 2004-05-15 devnull tp->charent[i][j] = 0;
418 61f5c35c 2004-05-15 devnull troffontcnt++;
419 61f5c35c 2004-05-15 devnull if (!readtroffmetric(fontname, troffontcnt-1))
420 61f5c35c 2004-05-15 devnull return(-3);
421 61f5c35c 2004-05-15 devnull if (!readpsfontdesc(fontname, troffontcnt-1))
422 61f5c35c 2004-05-15 devnull return(-3);
423 61f5c35c 2004-05-15 devnull return(troffontcnt-1);
425 61f5c35c 2004-05-15 devnull return(-1);
429 61f5c35c 2004-05-15 devnull finish(void) {
432 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "%s", TRAILER);
433 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "done\n");
434 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "%s", DOCUMENTFONTS);
436 61f5c35c 2004-05-15 devnull for (i=0; i<pfnamcnt; i++)
437 61f5c35c 2004-05-15 devnull if (pfnafontmtab[i].used)
438 61f5c35c 2004-05-15 devnull Bprint(Bstdout, " %s", pfnafontmtab[i].str);
439 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "\n");
441 61f5c35c 2004-05-15 devnull Bprint(Bstdout, "%s %d\n", PAGES, pages_printed);
445 61f5c35c 2004-05-15 devnull /* Set slant to n degrees. Disable slanting if n is 0. */
447 61f5c35c 2004-05-15 devnull t_slant(int n) {
448 61f5c35c 2004-05-15 devnull fontslant = n;
449 61f5c35c 2004-05-15 devnull curpostfontid = -1;
452 61f5c35c 2004-05-15 devnull /* Set character height to n points. Disabled if n is 0 or the current size. */
455 61f5c35c 2004-05-15 devnull t_charht(int n) {
456 61f5c35c 2004-05-15 devnull fontheight = (n == fontsize) ? 0 : n;
457 61f5c35c 2004-05-15 devnull curpostfontid = -1;
