ps_include.c (6036B)
1 #include <u.h> 2 #include <libc.h> 3 #include <bio.h> 4 #include <stdio.h> 5 #include "../common/common.h" 6 #include "ps_include.h" 7 8 extern int curpostfontid; 9 extern int curfontsize; 10 11 typedef struct {long start, end;} Section; 12 static char *buf; 13 14 static void 15 copy(Biobuf *fin, Biobuf *fout, Section *s) { 16 if (s->end <= s->start) 17 return; 18 Bseek(fin, s->start, 0); 19 while (Bseek(fin, 0L, 1) < s->end && (buf=Brdline(fin, '\n')) != NULL){ 20 /* 21 * We have to be careful here, because % can legitimately appear 22 * in Ascii85 encodings, and must not be elided. 23 * The goal here is to make any DSC comments impotent without 24 * actually changing the behavior of the Postscript. 25 * Since stripping ``comments'' breaks Ascii85, we can instead just 26 * indent comments a space, which turns DSC comments into non-DSC comments 27 * and has no effect on binary encodings, which are whitespace-blind. 28 */ 29 if(buf[0] == '%') 30 Bputc(fout, ' '); 31 Bwrite(fout, buf, Blinelen(fin)); 32 } 33 } 34 35 /* 36 * 37 * Reads a PostScript file (*fin), and uses structuring comments to locate the 38 * prologue, trailer, global definitions, and the requested page. After the whole 39 * file is scanned, the special ps_include PostScript definitions are copied to 40 * *fout, followed by the prologue, global definitions, the requested page, and 41 * the trailer. Before returning the initial environment (saved in PS_head) is 42 * restored. 43 * 44 * By default we assume the picture is 8.5 by 11 inches, but the BoundingBox 45 * comment, if found, takes precedence. 46 * 47 */ 48 /* *fin, *fout; /* input and output files */ 49 /* page_no; /* physical page number from *fin */ 50 /* whiteout; /* erase picture area */ 51 /* outline; /* draw a box around it and */ 52 /* scaleboth; /* scale both dimensions - if not zero */ 53 /* cx, cy; /* center of the picture and */ 54 /* sx, sy; /* its size - in current coordinates */ 55 /* ax, ay; /* left-right, up-down adjustment */ 56 /* rot; /* rotation - in clockwise degrees */ 57 58 void 59 ps_include(Biobuf *fin, Biobuf *fout, int page_no, int whiteout, 60 int outline, int scaleboth, double cx, double cy, double sx, double sy, 61 double ax, double ay, double rot) { 62 char **strp; 63 int foundpage = 0; /* found the page when non zero */ 64 int foundpbox = 0; /* found the page bounding box */ 65 int nglobal = 0; /* number of global defs so far */ 66 int maxglobal = 0; /* and the number we've got room for */ 67 Section prolog, page, trailer; /* prologue, page, and trailer offsets */ 68 Section *global = 0; /* offsets for all global definitions */ 69 double llx, lly; /* lower left and */ 70 double urx, ury; /* upper right corners - default coords */ 71 double w = whiteout != 0; /* mostly for the var() macro */ 72 double o = outline != 0; 73 double s = scaleboth != 0; 74 int i; /* loop index */ 75 76 #define has(word) (strncmp(buf, word, strlen(word)) == 0) 77 #define grab(n) ((Section *)(nglobal \ 78 ? realloc((char *)global, n*sizeof(Section)) \ 79 : calloc(n, sizeof(Section)))) 80 81 llx = lly = 0; /* default BoundingBox - 8.5x11 inches */ 82 urx = 72 * 8.5; 83 ury = 72 * 11.0; 84 85 /* section boundaries and bounding box */ 86 87 prolog.start = prolog.end = 0; 88 page.start = page.end = 0; 89 trailer.start = 0; 90 Bseek(fin, 0L, 0); 91 92 while ((buf=Brdline(fin, '\n')) != NULL) { 93 buf[Blinelen(fin)-1] = '\0'; 94 if (!has("%%")) 95 continue; 96 else if (has("%%Page: ")) { 97 if (!foundpage) 98 page.start = Bseek(fin, 0L, 1); 99 sscanf(buf, "%*s %*s %d", &i); 100 if (i == page_no) 101 foundpage = 1; 102 else if (foundpage && page.end <= page.start) 103 page.end = Bseek(fin, 0L, 1); 104 } else if (has("%%EndPage: ")) { 105 sscanf(buf, "%*s %*s %d", &i); 106 if (i == page_no) { 107 foundpage = 1; 108 page.end = Bseek(fin, 0L, 1); 109 } 110 if (!foundpage) 111 page.start = Bseek(fin, 0L, 1); 112 } else if (has("%%PageBoundingBox: ")) { 113 if (i == page_no) { 114 foundpbox = 1; 115 sscanf(buf, "%*s %lf %lf %lf %lf", 116 &llx, &lly, &urx, &ury); 117 } 118 } else if (has("%%BoundingBox: ")) { 119 if (!foundpbox) 120 sscanf(buf,"%*s %lf %lf %lf %lf", 121 &llx, &lly, &urx, &ury); 122 } else if (has("%%EndProlog") || has("%%EndSetup") || has("%%EndDocumentSetup")) 123 prolog.end = page.start = Bseek(fin, 0L, 1); 124 else if (has("%%Trailer")) 125 trailer.start = Bseek(fin, 0L, 1); 126 else if (has("%%BeginGlobal")) { 127 if (page.end <= page.start) { 128 if (nglobal >= maxglobal) { 129 maxglobal += 20; 130 global = grab(maxglobal); 131 } 132 global[nglobal].start = Bseek(fin, 0L, 1); 133 } 134 } else if (has("%%EndGlobal")) 135 if (page.end <= page.start) 136 global[nglobal++].end = Bseek(fin, 0L, 1); 137 } 138 Bseek(fin, 0L, 2); 139 if (trailer.start == 0) 140 trailer.start = Bseek(fin, 0L, 1); 141 trailer.end = Bseek(fin, 0L, 1); 142 143 if (page.end <= page.start) 144 page.end = trailer.start; 145 146 /* 147 fprint(2, "prolog=(%d,%d)\n", prolog.start, prolog.end); 148 fprint(2, "page=(%d,%d)\n", page.start, page.end); 149 for(i = 0; i < nglobal; i++) 150 fprint(2, "global[%d]=(%d,%d)\n", i, global[i].start, global[i].end); 151 fprint(2, "trailer=(%d,%d)\n", trailer.start, trailer.end); 152 */ 153 154 /* all output here */ 155 for (strp = PS_head; *strp != NULL; strp++) 156 Bwrite(fout, *strp, strlen(*strp)); 157 158 Bprint(fout, "/llx %g def\n", llx); 159 Bprint(fout, "/lly %g def\n", lly); 160 Bprint(fout, "/urx %g def\n", urx); 161 Bprint(fout, "/ury %g def\n", ury); 162 Bprint(fout, "/w %g def\n", w); 163 Bprint(fout, "/o %g def\n", o); 164 Bprint(fout, "/s %g def\n", s); 165 Bprint(fout, "/cx %g def\n", cx); 166 Bprint(fout, "/cy %g def\n", cy); 167 Bprint(fout, "/sx %g def\n", sx); 168 Bprint(fout, "/sy %g def\n", sy); 169 Bprint(fout, "/ax %g def\n", ax); 170 Bprint(fout, "/ay %g def\n", ay); 171 Bprint(fout, "/rot %g def\n", rot); 172 173 for (strp = PS_setup; *strp != NULL; strp++) 174 Bwrite(fout, *strp, strlen(*strp)); 175 176 copy(fin, fout, &prolog); 177 for(i = 0; i < nglobal; i++) 178 copy(fin, fout, &global[i]); 179 copy(fin, fout, &page); 180 copy(fin, fout, &trailer); 181 for (strp = PS_tail; *strp != NULL; strp++) 182 Bwrite(fout, *strp, strlen(*strp)); 183 184 if(nglobal) 185 free(global); 186 187 /* force the program to reestablish its state */ 188 curpostfontid = -1; 189 curfontsize = -1; 190 }