ref: 2f67e21393c25943f25e116fa6912b7d92dbca4e
dir: /sys/src/cmd/postscript/tr2post/ps_include.c/
#include <u.h> #include <libc.h> #include <bio.h> #include <stdio.h> #include "../common/common.h" #include "ps_include.h" extern int curpostfontid; extern int curfontsize; typedef struct {long start, end;} Section; static char *buf; static void copy(Biobufhdr *fin, Biobufhdr *fout, Section *s) { int cond; if (s->end <= s->start) return; Bseek(fin, s->start, 0); while (Bseek(fin, 0L, 1) < s->end && (buf=Brdline(fin, '\n')) != NULL){ /* * We have to be careful here, because % can legitimately appear * in Ascii85 encodings, and must not be elided. * The goal here is to make any DSC comments impotent without * actually changing the behavior of the Postscript. * Since stripping ``comments'' breaks Ascii85, we can instead just * indent comments a space, which turns DSC comments into non-DSC comments * and has no effect on binary encodings, which are whitespace-blind. */ if(buf[0] == '%') Bputc(fout, ' '); Bwrite(fout, buf, Blinelen(fin)); } } /* * * Reads a PostScript file (*fin), and uses structuring comments to locate the * prologue, trailer, global definitions, and the requested page. After the whole * file is scanned, the special ps_include PostScript definitions are copied to * *fout, followed by the prologue, global definitions, the requested page, and * the trailer. Before returning the initial environment (saved in PS_head) is * restored. * * By default we assume the picture is 8.5 by 11 inches, but the BoundingBox * comment, if found, takes precedence. * */ /* *fin, *fout; /* input and output files */ /* page_no; /* physical page number from *fin */ /* whiteout; /* erase picture area */ /* outline; /* draw a box around it and */ /* scaleboth; /* scale both dimensions - if not zero */ /* cx, cy; /* center of the picture and */ /* sx, sy; /* its size - in current coordinates */ /* ax, ay; /* left-right, up-down adjustment */ /* rot; /* rotation - in clockwise degrees */ void ps_include(Biobufhdr *fin, Biobufhdr *fout, int page_no, int whiteout, int outline, int scaleboth, double cx, double cy, double sx, double sy, double ax, double ay, double rot) { char **strp; int foundpage = 0; /* found the page when non zero */ int foundpbox = 0; /* found the page bounding box */ int nglobal = 0; /* number of global defs so far */ int maxglobal = 0; /* and the number we've got room for */ Section prolog, page, trailer; /* prologue, page, and trailer offsets */ Section *global; /* offsets for all global definitions */ double llx, lly; /* lower left and */ double urx, ury; /* upper right corners - default coords */ double w = whiteout != 0; /* mostly for the var() macro */ double o = outline != 0; double s = scaleboth != 0; int i; /* loop index */ #define has(word) (strncmp(buf, word, strlen(word)) == 0) #define grab(n) ((Section *)(nglobal \ ? realloc((char *)global, n*sizeof(Section)) \ : calloc(n, sizeof(Section)))) llx = lly = 0; /* default BoundingBox - 8.5x11 inches */ urx = 72 * 8.5; ury = 72 * 11.0; /* section boundaries and bounding box */ prolog.start = prolog.end = 0; page.start = page.end = 0; trailer.start = 0; Bseek(fin, 0L, 0); while ((buf=Brdline(fin, '\n')) != NULL) { buf[Blinelen(fin)-1] = '\0'; if (!has("%%")) continue; else if (has("%%Page: ")) { if (!foundpage) page.start = Bseek(fin, 0L, 1); sscanf(buf, "%*s %*s %d", &i); if (i == page_no) foundpage = 1; else if (foundpage && page.end <= page.start) page.end = Bseek(fin, 0L, 1); } else if (has("%%EndPage: ")) { sscanf(buf, "%*s %*s %d", &i); if (i == page_no) { foundpage = 1; page.end = Bseek(fin, 0L, 1); } if (!foundpage) page.start = Bseek(fin, 0L, 1); } else if (has("%%PageBoundingBox: ")) { if (i == page_no) { foundpbox = 1; sscanf(buf, "%*s %lf %lf %lf %lf", &llx, &lly, &urx, &ury); } } else if (has("%%BoundingBox: ")) { if (!foundpbox) sscanf(buf,"%*s %lf %lf %lf %lf", &llx, &lly, &urx, &ury); } else if (has("%%EndProlog") || has("%%EndSetup") || has("%%EndDocumentSetup")) prolog.end = page.start = Bseek(fin, 0L, 1); else if (has("%%Trailer")) trailer.start = Bseek(fin, 0L, 1); else if (has("%%BeginGlobal")) { if (page.end <= page.start) { if (nglobal >= maxglobal) { maxglobal += 20; global = grab(maxglobal); } global[nglobal].start = Bseek(fin, 0L, 1); } } else if (has("%%EndGlobal")) if (page.end <= page.start) global[nglobal++].end = Bseek(fin, 0L, 1); } Bseek(fin, 0L, 2); if (trailer.start == 0) trailer.start = Bseek(fin, 0L, 1); trailer.end = Bseek(fin, 0L, 1); if (page.end <= page.start) page.end = trailer.start; /* fprint(2, "prolog=(%d,%d)\n", prolog.start, prolog.end); fprint(2, "page=(%d,%d)\n", page.start, page.end); for(i = 0; i < nglobal; i++) fprint(2, "global[%d]=(%d,%d)\n", i, global[i].start, global[i].end); fprint(2, "trailer=(%d,%d)\n", trailer.start, trailer.end); */ /* all output here */ for (strp = PS_head; *strp != NULL; strp++) Bwrite(fout, *strp, strlen(*strp)); Bprint(fout, "/llx %g def\n", llx); Bprint(fout, "/lly %g def\n", lly); Bprint(fout, "/urx %g def\n", urx); Bprint(fout, "/ury %g def\n", ury); Bprint(fout, "/w %g def\n", w); Bprint(fout, "/o %g def\n", o); Bprint(fout, "/s %g def\n", s); Bprint(fout, "/cx %g def\n", cx); Bprint(fout, "/cy %g def\n", cy); Bprint(fout, "/sx %g def\n", sx); Bprint(fout, "/sy %g def\n", sy); Bprint(fout, "/ax %g def\n", ax); Bprint(fout, "/ay %g def\n", ay); Bprint(fout, "/rot %g def\n", rot); for (strp = PS_setup; *strp != NULL; strp++) Bwrite(fout, *strp, strlen(*strp)); copy(fin, fout, &prolog); for(i = 0; i < nglobal; i++) copy(fin, fout, &global[i]); copy(fin, fout, &page); copy(fin, fout, &trailer); for (strp = PS_tail; *strp != NULL; strp++) Bwrite(fout, *strp, strlen(*strp)); if(nglobal) free(global); /* force the program to reestablish its state */ curpostfontid = -1; curfontsize = -1; }