123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459 |
- /* Unicode | PostScript
- * start end | offset font name
- * 0x0000 0x00ff 0x00 LucidaSansUnicode00
- */
- #include <u.h>
- #include <libc.h>
- #include <bio.h>
- #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) Bprint(Bstderr, "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) Bprint(Bstderr, "settrfont()-> curtrofffontid=%d\n", curtrofffontid);
- curfontpos = fontpos;
- if (curtrofffontid < 0) {
- int i;
- error(WARNING, "fontpos=%d\n", fontpos);
- for (i=0; i<fontmnt; i++)
- if (fontmtab[i] == 0)
- error(WARNING, "fontmtab[%d]=0x0\n", i);
- else
- error(WARNING, "fontmtab[%d]=%s\n", i, fontmtab[i]);
- exits("settrfont()");
- }
- }
- void
- setpsfont(int psftid, int fontsize) {
- if (psftid == curpostfontid && fontsize == curfontsize) return;
- if (psftid >= 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; i<pfnamcnt; i++) {
- if (strcmp(pfnafontmtab[i].str, fontname) == 0)
- return(i);
- }
- if (insflg) {
- tp = galloc(pfnafontmtab, sizeof(struct pfnament)*(pfnamcnt+1), "findpfn():pfnafontmtab");
- if (tp == 0)
- return(-2);
- pfnafontmtab = (struct pfnament *)tp;
- i = strlen(fontname);
- pfnafontmtab[pfnamcnt].str = galloc(0, i+1, "findpfn():pfnafontmtab[].str");
- strncpy(pfnafontmtab[pfnamcnt].str, fontname, i);
- pfnafontmtab[pfnamcnt].str[i] = '\0';
- pfnafontmtab[pfnamcnt].used = 0;
- return(pfnamcnt++);
- }
- return(-1);
- }
- char postroffdirname[] = "/sys/lib/postscript/troff"; /* "/sys/lib/postscript/troff/"; */
- char troffmetricdirname[] = "/sys/lib/troff/font"; /* "/sys/lib/troff/font/devutf/"; */
- int
- readpsfontdesc(char *fontname, int trindex) {
- static char *filename = 0;
- Biobuf *bfd;
- Biobufhdr *Bfd;
- int warn = 0, errorflg = 0, line =1, rv;
- int start, end, offset;
- int startfont, endfont, startchar, endchar, i, pfid;
- char psfontnam[128];
- struct troffont *tp;
- struct charent *cp[];
- if (debug) Bprint(Bstderr, "readpsfontdesc(%s,%d)\n", fontname, trindex);
- filename=galloc(filename, strlen(postroffdirname)+1+strlen(fontname)+1, "readpsfontdesc: cannot allocate memory\n");
- sprint(filename, "%s/%s", postroffdirname, fontname);
- bfd = Bopen(filename, OREAD);
- if (bfd == 0) {
- error(WARNING, "cannot open file %s\n", filename);
- return(0);
- }
- Bfd = &(bfd->Biobufhdr);
- 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 ((rv=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");
- errorflg = 1;
- 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) {
- Bprint(Bstderr, "\tpsfmap->start=0x%x\n", start);
- Bprint(Bstderr, "\tpsfmap->end=0x%x\n", end);
- Bprint(Bstderr, "\tpsfmap->offset=0x%x\n", offset);
- Bprint(Bstderr, "\tpsfmap->pfid=0x%x\n", pfid);
- }
- /*
- for (i=startchar; i<=endchar; i++) {
- tp->charent[startfont][i].postfontid = pfid;
- tp->charent[startfont][i].postcharid = i + offset - startchar;
- }
- */
- if (debug) {
- Bprint(Bstderr, "%x %x ", start, end);
- if (offset) Bprint(Bstderr, "%x ", offset);
- Bprint(Bstderr, "%s\n", psfontnam);
- }
- line++;
- }
- } while(errorflg != 1);
- Bterm(Bfd);
- return(1);
- }
- int
- readtroffmetric(char *fontname, int trindex) {
- static char *filename = 0;
- Biobuf *bfd;
- Biobufhdr *Bfd;
- int warn = 0, errorflg = 0, line =1, rv;
- struct troffont *tp;
- struct charent **cp;
- char stoken[128], *str;
- int ntoken;
- Rune troffchar, quote;
- int width, flag, charnum, thisfont, thischar;
- BOOLEAN specharflag;
- if (debug) Bprint(Bstderr, "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) {
- Bprint(Bstderr, "%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) {
- Bprint(Bstderr, "premature EOF\n");
- return(0);
- }
- str[Blinelen(Bfd)-1] = '\0';
- }
- line++;
- chartorune(&troffchar, stoken);
- if (specharflag) {
- if (debug)
- Bprint(Bstderr, "%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) Bprint(Bstderr, "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)
- Bprint(Bstderr, "%s", stoken);
- else
- Bputrune(Bstderr, troffchar);
- Bprint(Bstderr, " %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) {
- if (fontname==0) fprint(2, "findtfn(0x%x,%d)\n", fontname, insflg);
- else fprint(2, "findtfn(%s,%d)\n", fontname, insflg);
- }
- for (i=0; i<troffontcnt; i++) {
- if (troffontab[i].trfontid==0) {
- error(WARNING, "findtfn:troffontab[%d].trfontid=0x%x, botch!\n",
- i, troffontab[i].trfontid);
- continue;
- }
- if (strcmp(troffontab[i].trfontid, fontname) == 0)
- return(i);
- }
- if (insflg) {
- tp = (struct troffont *)galloc(troffontab, sizeof(struct troffont)*(troffontcnt+1), "findtfn: struct troffont:");
- if (tp == 0)
- return(-2);
- troffontab = tp;
- tp = &(troffontab[troffontcnt]);
- i = strlen(fontname);
- tp->trfontid = 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; i<NUMOFONTS; i++)
- for (j=0; j<FONTSIZE; j++)
- tp->charent[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<pfnamcnt; i++)
- if (pfnafontmtab[i].used)
- Bprint(Bstdout, " %s", pfnafontmtab[i].str);
- Bprint(Bstdout, "\n");
- Bprint(Bstdout, "%s %d\n", PAGES, pages_printed);
- }
- /* Set slant to n degrees. Disable slanting if n is 0. */
- void
- t_slant(int n) {
- fontslant = n;
- curpostfontid = -1;
- }
- /* Set character height to n points. Disabled if n is 0 or the current size. */
- void
- t_charht(int n) {
- fontheight = (n == fontsize) ? 0 : n;
- curpostfontid = -1;
- }
|