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 }