/* Unicode | PostScript * start end | offset font name * 0x0000 0x00ff 0x00 LucidaSansUnicode00 */ #include #include #include #include "common.h" #include "tr2post.h" #include "comments.h" #include "path.h" /* Postscript font names, e.g., `LucidaSansUnicode00' * names may only be added because reference to the * names is made by indexing into this table. */ static struct pfnament *pfnafontmtab = 0; static int pfnamcnt = 0; int curpostfontid = -1; int curfontsize = -1; int curtrofffontid = -1; static int curfontpos = -1; static int fontheight = 0; static int fontslant = 0; /* This is troffs mounted font table. It is an anachronism resulting * from the design of the APS typesetter. fontmnt is the * number of positions available. fontmnt is really 11, but * should not be limited. */ int fontmnt = 0; char **fontmtab; struct troffont *troffontab = 0; int troffontcnt = 0; void mountfont(int pos, char *fontname) { int i; if (debug) fprint(2, "mountfont(%d, %s)\n", pos, fontname); if (pos < 0 || pos >= fontmnt) error(FATAL, "cannot mount a font at position %d,\n can only mount into postions 0-%d\n", pos, fontmnt-1); i = strlen(fontname); fontmtab[pos] = galloc(fontmtab[pos], i+1, "mountfont():fontmtab"); strcpy(fontmtab[pos], fontname); if (curfontpos == pos) curfontpos = -1; } void settrfont(void) { if (curfontpos == fontpos) return; if (fontmtab[fontpos] == 0) error(FATAL, "Font at position %d was not initialized, botch!\n", fontpos); curtrofffontid = findtfn(fontmtab[fontpos], 1); if (debug) fprint(2, "settrfont()-> curtrofffontid=%d\n", curtrofffontid); curfontpos = fontpos; if (curtrofffontid < 0) { int i; error(WARNING, "fontpos=%d\n", fontpos); for (i=0; i= pfnamcnt) error(FATAL, "Postscript font index=%d used but not defined, there are only %d fonts\n", psftid, pfnamcnt); endstring(); if (pageon()) { Bprint(Bstdout, "%d /%s f\n", fontsize, pfnafontmtab[psftid].str); if ( fontheight != 0 || fontslant != 0 ) Bprint(Bstdout, "%d %d changefont\n", fontslant, (fontheight != 0) ? fontheight : fontsize); pfnafontmtab[psftid].used = 1; curpostfontid = psftid; curfontsize = fontsize; } } /* find index of PostScript font name in table * returns -1 if name is not in table * If insflg is not zero * and the name is not found in the table, insert it. */ int findpfn(char *fontname, int insflg) { char *tp; int i; for (i=0; iBiobufhdr; do { offset = 0; if ((rv=Bgetfield(Bfd, 'd', &start, 0)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal start value\n", filename, line); } else if (rv < 0) break; if ((rv=Bgetfield(Bfd, 'd', &end, 0)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal end value\n", filename, line); } else if (rv < 0) break; if (Bgetfield(Bfd, 'd', &offset, 0) < 0) { errorflg = 1; error(WARNING, "file %s:%d illegal offset value\n", filename, line); } if ((rv=Bgetfield(Bfd, 's', psfontnam, 128)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal fontname value\n", filename, line); } else if (rv < 0) break; Brdline(Bfd, '\n'); if (!errorflg) { struct psfent *psfentp; startfont = RUNEGETGROUP(start); startchar = RUNEGETCHAR(start); endfont = RUNEGETGROUP(end); endchar = RUNEGETCHAR(end); pfid = findpfn(psfontnam, 1); if (startfont != endfont) { error(WARNING, "font descriptions must not cross 256 glyph block boundary\n"); break; } tp = &troffontab[trindex]; tp->psfmap = galloc(tp->psfmap, ++tp->psfmapsize * sizeof(struct psfent), "readpsfontdesc():psfmap"); psfentp = &(tp->psfmap[tp->psfmapsize-1]); psfentp->start = start; psfentp->end = end; psfentp->offset = offset; psfentp->psftid = pfid; if (debug) { fprint(2, "\tpsfmap->start=0x%x\n", start); fprint(2, "\tpsfmap->end=0x%x\n", end); fprint(2, "\tpsfmap->offset=0x%x\n", offset); fprint(2, "\tpsfmap->pfid=0x%x\n", pfid); } SET(i); USED(i, startchar, endchar); /* for (i=startchar; i<=endchar; i++) { tp->charent[startfont][i].postfontid = pfid; tp->charent[startfont][i].postcharid = i + offset - startchar; } */ if (debug) { fprint(2, "%x %x ", start, end); if (offset) fprint(2, "%x ", offset); fprint(2, "%s\n", psfontnam); } line++; } } while(errorflg != 1); Bterm(Bfd); return(1); } int readtroffmetric(char *fontname, int trindex) { int ntoken, errorflg = 0, line = 1, rv; int width, flag, charnum, thisfont, thischar; char stoken[128], *str; struct charent **cp; BOOLEAN specharflag; Biobuf *bfd; Biobufhdr *Bfd; Rune troffchar, quote; static char *filename = 0; if (debug) fprint(2, "readtroffmetric(%s,%d)\n", fontname, trindex); filename = galloc(filename, strlen(troffmetricdirname) + 4 + strlen(devname) + 1 + strlen(fontname) + 1, "readtroffmetric():filename"); sprint(filename, "%s/dev%s/%s", troffmetricdirname, devname, fontname); bfd = Bopen(filename, OREAD); if (bfd == 0) { error(WARNING, "cannot open file %s\n", filename); return(0); } Bfd = &bfd->Biobufhdr; do { /* * deal with the few lines at the beginning of the * troff font metric files. */ if ((rv=Bgetfield(Bfd, 's', stoken, 128)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal token\n", filename, line); } else if (rv < 0) break; if (debug) fprint(2, "%s\n", stoken); if (strcmp(stoken, "name") == 0) { if ((rv=Bgetfield(Bfd, 's', stoken, 128)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal token\n", filename, line); } else if (rv < 0) break; } else if (strcmp(stoken, "named") == 0) { Brdline(Bfd, '\n'); } else if (strcmp(stoken, "fontname") == 0) { if ((rv=Bgetfield(Bfd, 's', stoken, 128)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal token\n", filename, line); } else if (rv < 0) break; } else if (strcmp(stoken, "spacewidth") == 0) { if ((rv=Bgetfield(Bfd, 'd', &ntoken, 0)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal token\n", filename, line); } else if (rv < 0) break; troffontab[trindex].spacewidth = ntoken; thisfont = RUNEGETGROUP(' '); thischar = RUNEGETCHAR(' '); for (cp = &(troffontab[trindex].charent[thisfont][thischar]); *cp != 0; cp = &((*cp)->next)) if ((*cp)->name) if (strcmp((*cp)->name, " ") == 0) break; if (*cp == 0) *cp = galloc(0, sizeof(struct charent), "readtroffmetric:charent"); (*cp)->postfontid = thisfont; (*cp)->postcharid = thischar; (*cp)->troffcharwidth = ntoken; (*cp)->name = galloc(0, 2, "readtroffmetric: char name"); (*cp)->next = 0; strcpy((*cp)->name, " "); } else if (strcmp(stoken, "special") == 0) { troffontab[trindex].special = TRUE; } else if (strcmp(stoken, "charset") == 0) { line++; break; } if (!errorflg) { line++; } } while(!errorflg && rv>=0); while(!errorflg && rv>=0) { if ((rv=Bgetfield(Bfd, 's', stoken, 128)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal rune token <0x%x> rv=%d\n", filename, line, troffchar, rv); } else if (rv < 0) break; if (utflen(stoken) > 1) specharflag = TRUE; else specharflag = FALSE; /* if this character is a quote we have to use the previous characters info */ if ((rv=Bgetfield(Bfd, 'r', "e, 0)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal width or quote token <0x%x> rv=%d\n", filename, line, quote, rv); } else if (rv < 0) break; if (quote == '"') { /* need some code here */ goto flush; } else Bungetrune(Bfd); if ((rv=Bgetfield(Bfd, 'd', &width, 0)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal width token <0x%x> rv=%d\n", filename, line, troffchar, rv); } else if (rv < 0) break; if ((rv=Bgetfield(Bfd, 'd', &flag, 0)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal flag token <0x%x> rv=%d\n", filename, line, troffchar, rv); } else if (rv < 0) break; if ((rv=Bgetfield(Bfd, 'd', &charnum, 0)) == 0) { errorflg = 1; error(WARNING, "file %s:%d illegal character number token <0x%x> rv=%d\n", filename, line, troffchar, rv); } else if (rv < 0) break; flush: str = Brdline(Bfd, '\n'); /* stash the crap from the end of the line for debugging */ if (debug) { if (str == 0) { fprint(2, "premature EOF\n"); return(0); } str[Blinelen(Bfd)-1] = '\0'; } line++; chartorune(&troffchar, stoken); if (specharflag) if (debug) fprint(2, "%s %d %d 0x%x %s # special\n", stoken, width, flag, charnum, str); if (strcmp(stoken, "---") == 0) { thisfont = RUNEGETGROUP(charnum); thischar = RUNEGETCHAR(charnum); stoken[0] = '\0'; } else { thisfont = RUNEGETGROUP(troffchar); thischar = RUNEGETCHAR(troffchar); } for (cp = &troffontab[trindex].charent[thisfont][thischar]; *cp != 0; cp = &(*cp)->next) if ((*cp)->name) { if (debug) fprint(2, "installing <%s>, found <%s>\n", stoken, (*cp)->name); if (strcmp((*cp)->name, stoken) == 0) break; } if (*cp == 0) *cp = galloc(0, sizeof(struct charent), "readtroffmetric:charent"); (*cp)->postfontid = RUNEGETGROUP(charnum); (*cp)->postcharid = RUNEGETCHAR(charnum); (*cp)->troffcharwidth = width; (*cp)->name = galloc(0, strlen(stoken)+1, "readtroffmetric: char name"); (*cp)->next = 0; strcpy((*cp)->name, stoken); if (debug) { if (specharflag) fprint(2, "%s", stoken); else fprint(2, "%C", troffchar); fprint(2, " %d %d 0x%x %s # psfontid=0x%x pscharid=0x%x thisfont=0x%x thischar=0x%x\n", width, flag, charnum, str, (*cp)->postfontid, (*cp)->postcharid, thisfont, thischar); } } Bterm(Bfd); Bflush(Bstderr); return(1); } /* find index of troff font name in table * returns -1 if name is not in table * returns -2 if it cannot allocate memory * returns -3 if there is a font mapping problem * If insflg is not zero * and the name is not found in the table, insert it. */ int findtfn(char *fontname, BOOLEAN insflg) { struct troffont *tp; int i, j; if (debug) fprint(2, "findtfn(%s,%d)\n", fontname, insflg); for (i=0; itrfontid = galloc(0, i+1, "findtfn: trfontid:"); /* initialize new troff font entry with name and numeric fields to 0 */ strncpy(tp->trfontid, fontname, i); tp->trfontid[i] = '\0'; tp->special = FALSE; tp->spacewidth = 0; tp->psfmapsize = 0; tp->psfmap = 0; for (i=0; icharent[i][j] = 0; troffontcnt++; if (!readtroffmetric(fontname, troffontcnt-1)) return(-3); if (!readpsfontdesc(fontname, troffontcnt-1)) return(-3); return(troffontcnt-1); } return(-1); } void finish(void) { int i; Bprint(Bstdout, "%s", TRAILER); Bprint(Bstdout, "done\n"); Bprint(Bstdout, "%s", DOCUMENTFONTS); for (i=0; i