1 24c02865 2005-01-04 devnull /*
  2 24c02865 2005-01-04 devnull  * ps.c
  3 fa325e9b 2020-01-10 cross  *
  4 24c02865 2005-01-04 devnull  * provide postscript file reading support for page
  5 24c02865 2005-01-04 devnull  */
  6 24c02865 2005-01-04 devnull 
  7 24c02865 2005-01-04 devnull #include <u.h>
  8 24c02865 2005-01-04 devnull #include <libc.h>
  9 24c02865 2005-01-04 devnull #include <draw.h>
 10 17157e4a 2006-03-20 devnull #include <cursor.h>
 11 05a4d855 2007-03-26 devnull #include <thread.h>
 12 24c02865 2005-01-04 devnull #include <bio.h>
 13 24c02865 2005-01-04 devnull #include <ctype.h>
 14 24c02865 2005-01-04 devnull #include "page.h"
 15 24c02865 2005-01-04 devnull 
 16 24c02865 2005-01-04 devnull static int	pswritepage(Document *d, int fd, int page);
 17 24c02865 2005-01-04 devnull static Image*	psdrawpage(Document *d, int page);
 18 24c02865 2005-01-04 devnull static char*	pspagename(Document*, int);
 19 24c02865 2005-01-04 devnull 
 20 24c02865 2005-01-04 devnull #define R(r) (r).min.x, (r).min.y, (r).max.x, (r).max.y
 21 24c02865 2005-01-04 devnull Rectangle
 22 24c02865 2005-01-04 devnull rdbbox(char *p)
 23 24c02865 2005-01-04 devnull {
 24 24c02865 2005-01-04 devnull 	Rectangle r;
 25 24c02865 2005-01-04 devnull 	int a;
 26 24c02865 2005-01-04 devnull 	char *f[4];
 27 24c02865 2005-01-04 devnull 	while(*p == ':' || *p == ' ' || *p == '\t')
 28 24c02865 2005-01-04 devnull 		p++;
 29 24c02865 2005-01-04 devnull 	if(tokenize(p, f, 4) != 4)
 30 24c02865 2005-01-04 devnull 		return Rect(0,0,0,0);
 31 24c02865 2005-01-04 devnull 	r = Rect(atoi(f[0]), atoi(f[1]), atoi(f[2]), atoi(f[3]));
 32 24c02865 2005-01-04 devnull 	r = canonrect(r);
 33 24c02865 2005-01-04 devnull 	if(Dx(r) <= 0 || Dy(r) <= 0)
 34 24c02865 2005-01-04 devnull 		return Rect(0,0,0,0);
 35 24c02865 2005-01-04 devnull 
 36 24c02865 2005-01-04 devnull 	if(truetoboundingbox)
 37 24c02865 2005-01-04 devnull 		return r;
 38 24c02865 2005-01-04 devnull 
 39 24c02865 2005-01-04 devnull 	/* initdraw not called yet, can't use %R */
 40 24c02865 2005-01-04 devnull 	if(chatty) fprint(2, "[%d %d %d %d] -> ", R(r));
 41 24c02865 2005-01-04 devnull 	/*
 42 24c02865 2005-01-04 devnull 	 * attempt to sniff out A4, 8½×11, others
 43 24c02865 2005-01-04 devnull 	 * A4 is 596×842
 44 24c02865 2005-01-04 devnull 	 * 8½×11 is 612×792
 45 24c02865 2005-01-04 devnull 	 */
 46 24c02865 2005-01-04 devnull 
 47 24c02865 2005-01-04 devnull 	a = Dx(r)*Dy(r);
 48 24c02865 2005-01-04 devnull 	if(a < 300*300){	/* really small, probably supposed to be */
 49 24c02865 2005-01-04 devnull 		/* empty */
 50 24c02865 2005-01-04 devnull 	} else if(Dx(r) <= 596 && r.max.x <= 596 && Dy(r) > 792 && Dy(r) <= 842 && r.max.y <= 842)	/* A4 */
 51 24c02865 2005-01-04 devnull 		r = Rect(0, 0, 596, 842);
 52 24c02865 2005-01-04 devnull 	else {	/* cast up to 8½×11 */
 53 24c02865 2005-01-04 devnull 		if(Dx(r) <= 612 && r.max.x <= 612){
 54 24c02865 2005-01-04 devnull 			r.min.x = 0;
 55 24c02865 2005-01-04 devnull 			r.max.x = 612;
 56 24c02865 2005-01-04 devnull 		}
 57 24c02865 2005-01-04 devnull 		if(Dy(r) <= 792 && r.max.y <= 792){
 58 24c02865 2005-01-04 devnull 			r.min.y = 0;
 59 24c02865 2005-01-04 devnull 			r.max.y = 792;
 60 24c02865 2005-01-04 devnull 		}
 61 24c02865 2005-01-04 devnull 	}
 62 24c02865 2005-01-04 devnull 	if(chatty) fprint(2, "[%d %d %d %d]\n", R(r));
 63 24c02865 2005-01-04 devnull 	return r;
 64 24c02865 2005-01-04 devnull }
 65 24c02865 2005-01-04 devnull 
 66 24c02865 2005-01-04 devnull #define RECT(X) X.min.x, X.min.y, X.max.x, X.max.y
 67 24c02865 2005-01-04 devnull 
 68 24c02865 2005-01-04 devnull int
 69 24c02865 2005-01-04 devnull prefix(char *x, char *y)
 70 24c02865 2005-01-04 devnull {
 71 24c02865 2005-01-04 devnull 	return strncmp(x, y, strlen(y)) == 0;
 72 24c02865 2005-01-04 devnull }
 73 24c02865 2005-01-04 devnull 
 74 24c02865 2005-01-04 devnull /*
 75 24c02865 2005-01-04 devnull  * document ps is really being printed as n-up pages.
 76 24c02865 2005-01-04 devnull  * we need to treat every n pages as 1.
 77 24c02865 2005-01-04 devnull  */
 78 24c02865 2005-01-04 devnull void
 79 24c02865 2005-01-04 devnull repaginate(PSInfo *ps, int n)
 80 24c02865 2005-01-04 devnull {
 81 24c02865 2005-01-04 devnull 	int i, np, onp;
 82 24c02865 2005-01-04 devnull 	Page *page;
 83 24c02865 2005-01-04 devnull 
 84 24c02865 2005-01-04 devnull 	page = ps->page;
 85 24c02865 2005-01-04 devnull 	onp = ps->npage;
 86 24c02865 2005-01-04 devnull 	np = (ps->npage+n-1)/n;
 87 24c02865 2005-01-04 devnull 
 88 24c02865 2005-01-04 devnull 	if(chatty) {
 89 24c02865 2005-01-04 devnull 		for(i=0; i<=onp+1; i++)
 90 24c02865 2005-01-04 devnull 			print("page %d: %d\n", i, page[i].offset);
 91 24c02865 2005-01-04 devnull 	}
 92 24c02865 2005-01-04 devnull 
 93 24c02865 2005-01-04 devnull 	for(i=0; i<np; i++)
 94 24c02865 2005-01-04 devnull 		page[i] = page[n*i];
 95 24c02865 2005-01-04 devnull 
 96 24c02865 2005-01-04 devnull 	/* trailer */
 97 24c02865 2005-01-04 devnull 	page[np] = page[onp];
 98 24c02865 2005-01-04 devnull 
 99 24c02865 2005-01-04 devnull 	/* EOF */
100 24c02865 2005-01-04 devnull 	page[np+1] = page[onp+1];
101 24c02865 2005-01-04 devnull 
102 24c02865 2005-01-04 devnull 	ps->npage = np;
103 24c02865 2005-01-04 devnull 
104 24c02865 2005-01-04 devnull 	if(chatty) {
105 24c02865 2005-01-04 devnull 		for(i=0; i<=np+1; i++)
106 24c02865 2005-01-04 devnull 			print("page %d: %d\n", i, page[i].offset);
107 24c02865 2005-01-04 devnull 	}
108 24c02865 2005-01-04 devnull 
109 24c02865 2005-01-04 devnull }
110 24c02865 2005-01-04 devnull 
111 24c02865 2005-01-04 devnull Document*
112 24c02865 2005-01-04 devnull initps(Biobuf *b, int argc, char **argv, uchar *buf, int nbuf)
113 24c02865 2005-01-04 devnull {
114 24c02865 2005-01-04 devnull 	Document *d;
115 24c02865 2005-01-04 devnull 	PSInfo *ps;
116 24c02865 2005-01-04 devnull 	char *p;
117 24c02865 2005-01-04 devnull 	char *q, *r;
118 24c02865 2005-01-04 devnull 	char eol;
119 24c02865 2005-01-04 devnull 	char *nargv[1];
120 24c02865 2005-01-04 devnull 	char fdbuf[20];
121 24c02865 2005-01-04 devnull 	char tmp[32];
122 24c02865 2005-01-04 devnull 	int fd;
123 24c02865 2005-01-04 devnull 	int i;
124 24c02865 2005-01-04 devnull 	int incomments;
125 24c02865 2005-01-04 devnull 	int cantranslate;
126 24c02865 2005-01-04 devnull 	int trailer=0;
127 24c02865 2005-01-04 devnull 	int nesting=0;
128 24c02865 2005-01-04 devnull 	int dumb=0;
129 24c02865 2005-01-04 devnull 	int landscape=0;
130 24c02865 2005-01-04 devnull 	long psoff;
131 24c02865 2005-01-04 devnull 	long npage, mpage;
132 24c02865 2005-01-04 devnull 	Page *page;
133 24c02865 2005-01-04 devnull 	Rectangle bbox = Rect(0,0,0,0);
134 24c02865 2005-01-04 devnull 
135 24c02865 2005-01-04 devnull 	if(argc > 1) {
136 24c02865 2005-01-04 devnull 		fprint(2, "can only view one ps file at a time\n");
137 24c02865 2005-01-04 devnull 		return nil;
138 24c02865 2005-01-04 devnull 	}
139 24c02865 2005-01-04 devnull 
140 24c02865 2005-01-04 devnull 	fprint(2, "reading through postscript...\n");
141 24c02865 2005-01-04 devnull 	if(b == nil){	/* standard input; spool to disk (ouch) */
142 24c02865 2005-01-04 devnull 		fd = spooltodisk(buf, nbuf, nil);
143 05a4d855 2007-03-26 devnull 		sprint(fdbuf, "/dev/fd/%d", fd);
144 24c02865 2005-01-04 devnull 		b = Bopen(fdbuf, OREAD);
145 24c02865 2005-01-04 devnull 		if(b == nil){
146 24c02865 2005-01-04 devnull 			fprint(2, "cannot open disk spool file\n");
147 24c02865 2005-01-04 devnull 			wexits("Bopen temp");
148 24c02865 2005-01-04 devnull 		}
149 24c02865 2005-01-04 devnull 		nargv[0] = fdbuf;
150 24c02865 2005-01-04 devnull 		argv = nargv;
151 24c02865 2005-01-04 devnull 	}
152 24c02865 2005-01-04 devnull 
153 24c02865 2005-01-04 devnull 	/* find %!, perhaps after PCL nonsense */
154 24c02865 2005-01-04 devnull 	Bseek(b, 0, 0);
155 24c02865 2005-01-04 devnull 	psoff = 0;
156 24c02865 2005-01-04 devnull 	eol = 0;
157 24c02865 2005-01-04 devnull 	for(i=0; i<16; i++){
158 24c02865 2005-01-04 devnull 		psoff = Boffset(b);
159 24c02865 2005-01-04 devnull 		if(!(p = Brdline(b, eol='\n')) && !(p = Brdline(b, eol='\r'))) {
160 24c02865 2005-01-04 devnull 			fprint(2, "cannot find end of first line\n");
161 24c02865 2005-01-04 devnull 			wexits("initps");
162 24c02865 2005-01-04 devnull 		}
163 24c02865 2005-01-04 devnull 		if(p[0]=='\x1B')
164 24c02865 2005-01-04 devnull 			p++, psoff++;
165 24c02865 2005-01-04 devnull 		if(p[0] == '%' && p[1] == '!')
166 24c02865 2005-01-04 devnull 			break;
167 24c02865 2005-01-04 devnull 	}
168 24c02865 2005-01-04 devnull 	if(i == 16){
169 24c02865 2005-01-04 devnull 		werrstr("not ps");
170 24c02865 2005-01-04 devnull 		return nil;
171 24c02865 2005-01-04 devnull 	}
172 24c02865 2005-01-04 devnull 
173 24c02865 2005-01-04 devnull 	/* page counting */
174 24c02865 2005-01-04 devnull 	npage = 0;
175 24c02865 2005-01-04 devnull 	mpage = 16;
176 24c02865 2005-01-04 devnull 	page = emalloc(mpage*sizeof(*page));
177 24c02865 2005-01-04 devnull 	memset(page, 0, mpage*sizeof(*page));
178 24c02865 2005-01-04 devnull 
179 24c02865 2005-01-04 devnull 	cantranslate = goodps;
180 24c02865 2005-01-04 devnull 	incomments = 1;
181 24c02865 2005-01-04 devnull Keepreading:
182 24c02865 2005-01-04 devnull 	while(p = Brdline(b, eol)) {
183 24c02865 2005-01-04 devnull 		if(p[0] == '%')
184 24c02865 2005-01-04 devnull 			if(chatty) fprint(2, "ps %.*s\n", utfnlen(p, Blinelen(b)-1), p);
185 24c02865 2005-01-04 devnull 		if(npage == mpage) {
186 24c02865 2005-01-04 devnull 			mpage *= 2;
187 24c02865 2005-01-04 devnull 			page = erealloc(page, mpage*sizeof(*page));
188 24c02865 2005-01-04 devnull 			memset(&page[npage], 0, npage*sizeof(*page));
189 24c02865 2005-01-04 devnull 		}
190 24c02865 2005-01-04 devnull 
191 24c02865 2005-01-04 devnull 		if(p[0] != '%' || p[1] != '%')
192 24c02865 2005-01-04 devnull 			continue;
193 24c02865 2005-01-04 devnull 
194 24c02865 2005-01-04 devnull 		if(prefix(p, "%%BeginDocument")) {
195 24c02865 2005-01-04 devnull 			nesting++;
196 24c02865 2005-01-04 devnull 			continue;
197 24c02865 2005-01-04 devnull 		}
198 24c02865 2005-01-04 devnull 		if(nesting > 0 && prefix(p, "%%EndDocument")) {
199 24c02865 2005-01-04 devnull 			nesting--;
200 24c02865 2005-01-04 devnull 			continue;
201 24c02865 2005-01-04 devnull 		}
202 24c02865 2005-01-04 devnull 		if(nesting)
203 24c02865 2005-01-04 devnull 			continue;
204 24c02865 2005-01-04 devnull 
205 24c02865 2005-01-04 devnull 		if(prefix(p, "%%EndComment")) {
206 24c02865 2005-01-04 devnull 			incomments = 0;
207 24c02865 2005-01-04 devnull 			continue;
208 24c02865 2005-01-04 devnull 		}
209 24c02865 2005-01-04 devnull 		if(reverse == -1 && prefix(p, "%%PageOrder")) {
210 24c02865 2005-01-04 devnull 			/* glean whether we should reverse the viewing order */
211 24c02865 2005-01-04 devnull 			p[Blinelen(b)-1] = 0;
212 24c02865 2005-01-04 devnull 			if(strstr(p, "Ascend"))
213 24c02865 2005-01-04 devnull 				reverse = 0;
214 24c02865 2005-01-04 devnull 			else if(strstr(p, "Descend"))
215 24c02865 2005-01-04 devnull 				reverse = 1;
216 24c02865 2005-01-04 devnull 			else if(strstr(p, "Special"))
217 24c02865 2005-01-04 devnull 				dumb = 1;
218 24c02865 2005-01-04 devnull 			p[Blinelen(b)-1] = '\n';
219 24c02865 2005-01-04 devnull 			continue;
220 24c02865 2005-01-04 devnull 		} else if(prefix(p, "%%Trailer")) {
221 24c02865 2005-01-04 devnull 			incomments = 1;
222 24c02865 2005-01-04 devnull 			page[npage].offset = Boffset(b)-Blinelen(b);
223 24c02865 2005-01-04 devnull 			trailer = 1;
224 24c02865 2005-01-04 devnull 			continue;
225 24c02865 2005-01-04 devnull 		} else if(incomments && prefix(p, "%%Orientation")) {
226 24c02865 2005-01-04 devnull 			if(strstr(p, "Landscape"))
227 24c02865 2005-01-04 devnull 				landscape = 1;
228 24c02865 2005-01-04 devnull 		} else if(incomments && Dx(bbox)==0 && prefix(p, q="%%BoundingBox")) {
229 24c02865 2005-01-04 devnull 			bbox = rdbbox(p+strlen(q)+1);
230 24c02865 2005-01-04 devnull 			if(chatty)
231 24c02865 2005-01-04 devnull 				/* can't use %R because haven't initdraw() */
232 24c02865 2005-01-04 devnull 				fprint(2, "document bbox [%d %d %d %d]\n",
233 24c02865 2005-01-04 devnull 					RECT(bbox));
234 24c02865 2005-01-04 devnull 			continue;
235 24c02865 2005-01-04 devnull 		}
236 24c02865 2005-01-04 devnull 
237 24c02865 2005-01-04 devnull 		/*
238 24c02865 2005-01-04 devnull 		 * If they use the initgraphics command, we can't play our translation tricks.
239 24c02865 2005-01-04 devnull 		 */
240 24c02865 2005-01-04 devnull 		p[Blinelen(b)-1] = 0;
241 24c02865 2005-01-04 devnull 		if((q=strstr(p, "initgraphics")) && ((r=strchr(p, '%'))==nil || r > q))
242 24c02865 2005-01-04 devnull 			cantranslate = 0;
243 24c02865 2005-01-04 devnull 		p[Blinelen(b)-1] = eol;
244 24c02865 2005-01-04 devnull 
245 24c02865 2005-01-04 devnull 		if(!prefix(p, "%%Page:"))
246 24c02865 2005-01-04 devnull 			continue;
247 24c02865 2005-01-04 devnull 
248 fa325e9b 2020-01-10 cross 		/*
249 24c02865 2005-01-04 devnull 		 * figure out of the %%Page: line contains a page number
250 24c02865 2005-01-04 devnull 		 * or some other page description to use in the menu bar.
251 fa325e9b 2020-01-10 cross 		 *
252 24c02865 2005-01-04 devnull 		 * lines look like %%Page: x y or %%Page: x
253 24c02865 2005-01-04 devnull 		 * we prefer just x, and will generate our
254 24c02865 2005-01-04 devnull 		 * own if necessary.
255 24c02865 2005-01-04 devnull 		 */
256 24c02865 2005-01-04 devnull 		p[Blinelen(b)-1] = 0;
257 24c02865 2005-01-04 devnull 		if(chatty) fprint(2, "page %s\n", p);
258 24c02865 2005-01-04 devnull 		r = p+7;
259 24c02865 2005-01-04 devnull 		while(*r == ' ' || *r == '\t')
260 24c02865 2005-01-04 devnull 			r++;
261 24c02865 2005-01-04 devnull 		q = r;
262 24c02865 2005-01-04 devnull 		while(*q && *q != ' ' && *q != '\t')
263 24c02865 2005-01-04 devnull 			q++;
264 24c02865 2005-01-04 devnull 		free(page[npage].name);
265 24c02865 2005-01-04 devnull 		if(*r) {
266 24c02865 2005-01-04 devnull 			if(*r == '"' && *q == '"')
267 24c02865 2005-01-04 devnull 				r++, q--;
268 24c02865 2005-01-04 devnull 			if(*q)
269 24c02865 2005-01-04 devnull 				*q = 0;
270 24c02865 2005-01-04 devnull 			page[npage].name = estrdup(r);
271 24c02865 2005-01-04 devnull 			*q = 'x';
272 24c02865 2005-01-04 devnull 		} else {
273 24c02865 2005-01-04 devnull 			snprint(tmp, sizeof tmp, "p %ld", npage+1);
274 24c02865 2005-01-04 devnull 			page[npage].name = estrdup(tmp);
275 24c02865 2005-01-04 devnull 		}
276 24c02865 2005-01-04 devnull 
277 24c02865 2005-01-04 devnull 		/*
278 24c02865 2005-01-04 devnull 		 * store the offset info for later viewing
279 24c02865 2005-01-04 devnull 		 */
280 24c02865 2005-01-04 devnull 		trailer = 0;
281 24c02865 2005-01-04 devnull 		p[Blinelen(b)-1] = eol;
282 24c02865 2005-01-04 devnull 		page[npage++].offset = Boffset(b)-Blinelen(b);
283 24c02865 2005-01-04 devnull 	}
284 24c02865 2005-01-04 devnull 	if(Blinelen(b) > 0){
285 24c02865 2005-01-04 devnull 		fprint(2, "page: linelen %d\n", Blinelen(b));
286 24c02865 2005-01-04 devnull 		Bseek(b, Blinelen(b), 1);
287 24c02865 2005-01-04 devnull 		goto Keepreading;
288 24c02865 2005-01-04 devnull 	}
289 24c02865 2005-01-04 devnull 
290 24c02865 2005-01-04 devnull 	if(Dx(bbox) == 0 || Dy(bbox) == 0)
291 24c02865 2005-01-04 devnull 		bbox = Rect(0,0,612,792);	/* 8½×11 */
292 24c02865 2005-01-04 devnull 	/*
293 24c02865 2005-01-04 devnull 	 * if we didn't find any pages, assume the document
294 24c02865 2005-01-04 devnull 	 * is one big page
295 24c02865 2005-01-04 devnull 	 */
296 24c02865 2005-01-04 devnull 	if(npage == 0) {
297 24c02865 2005-01-04 devnull 		dumb = 1;
298 24c02865 2005-01-04 devnull 		if(chatty) fprint(2, "don't know where pages are\n");
299 24c02865 2005-01-04 devnull 		reverse = 0;
300 24c02865 2005-01-04 devnull 		goodps = 0;
301 24c02865 2005-01-04 devnull 		trailer = 0;
302 24c02865 2005-01-04 devnull 		page[npage].name = "p 1";
303 24c02865 2005-01-04 devnull 		page[npage++].offset = 0;
304 24c02865 2005-01-04 devnull 	}
305 24c02865 2005-01-04 devnull 
306 24c02865 2005-01-04 devnull 	if(npage+2 > mpage) {
307 24c02865 2005-01-04 devnull 		mpage += 2;
308 24c02865 2005-01-04 devnull 		page = erealloc(page, mpage*sizeof(*page));
309 24c02865 2005-01-04 devnull 		memset(&page[mpage-2], 0, 2*sizeof(*page));
310 24c02865 2005-01-04 devnull 	}
311 24c02865 2005-01-04 devnull 
312 24c02865 2005-01-04 devnull 	if(!trailer)
313 24c02865 2005-01-04 devnull 		page[npage].offset = Boffset(b);
314 24c02865 2005-01-04 devnull 
315 24c02865 2005-01-04 devnull 	Bseek(b, 0, 2); /* EOF */
316 24c02865 2005-01-04 devnull 	page[npage+1].offset = Boffset(b);
317 24c02865 2005-01-04 devnull 
318 24c02865 2005-01-04 devnull 	d = emalloc(sizeof(*d));
319 24c02865 2005-01-04 devnull 	ps = emalloc(sizeof(*ps));
320 24c02865 2005-01-04 devnull 	ps->page = page;
321 24c02865 2005-01-04 devnull 	ps->npage = npage;
322 24c02865 2005-01-04 devnull 	ps->bbox = bbox;
323 24c02865 2005-01-04 devnull 	ps->psoff = psoff;
324 24c02865 2005-01-04 devnull 
325 24c02865 2005-01-04 devnull 	d->extra = ps;
326 24c02865 2005-01-04 devnull 	d->npage = ps->npage;
327 24c02865 2005-01-04 devnull 	d->b = b;
328 24c02865 2005-01-04 devnull 	d->drawpage = psdrawpage;
329 24c02865 2005-01-04 devnull 	d->pagename = pspagename;
330 24c02865 2005-01-04 devnull 
331 24c02865 2005-01-04 devnull 	d->fwdonly = ps->clueless = dumb;
332 24c02865 2005-01-04 devnull 	d->docname = argv[0];
333 d9e047e5 2010-02-04 rsc 	/*
334 d9e047e5 2010-02-04 rsc 	 * "tag" the doc as an image for now since there still is the "blank page"
335 d9e047e5 2010-02-04 rsc 	 * problem for ps files.
336 d9e047e5 2010-02-04 rsc 	 */
337 d9e047e5 2010-02-04 rsc 	d->type = Tgfx;
338 24c02865 2005-01-04 devnull 
339 17157e4a 2006-03-20 devnull 	if(spawngs(&ps->gs, "-dSAFER") < 0)
340 24c02865 2005-01-04 devnull 		return nil;
341 24c02865 2005-01-04 devnull 
342 24c02865 2005-01-04 devnull 	if(!cantranslate)
343 24c02865 2005-01-04 devnull 		bbox.min = ZP;
344 24c02865 2005-01-04 devnull 	setdim(&ps->gs, bbox, ppi, landscape);
345 24c02865 2005-01-04 devnull 
346 24c02865 2005-01-04 devnull 	if(goodps){
347 24c02865 2005-01-04 devnull 		/*
348 24c02865 2005-01-04 devnull 		 * We want to only send the page (i.e. not header and trailer) information
349 24c02865 2005-01-04 devnull 	 	 * for each page, so initialize the device by sending the header now.
350 24c02865 2005-01-04 devnull 		 */
351 24c02865 2005-01-04 devnull 		pswritepage(d, ps->gs.gsfd, -1);
352 24c02865 2005-01-04 devnull 		waitgs(&ps->gs);
353 24c02865 2005-01-04 devnull 	}
354 24c02865 2005-01-04 devnull 
355 24c02865 2005-01-04 devnull 	if(dumb) {
356 047fd921 2019-02-25 rsc 		fprint(ps->gs.gsfd, "(%s) run PAGEFLUSH\n", argv[0]);
357 05a4d855 2007-03-26 devnull 		fprint(ps->gs.gsfd, "(/dev/fd/3) (w) file dup (THIS IS NOT A PLAN9 BITMAP 01234567890123456789012345678901234567890123456789\\n) writestring flushfile\n");
358 46606276 2019-11-14 crossd 		close(ps->gs.gsfd);
359 24c02865 2005-01-04 devnull 	}
360 24c02865 2005-01-04 devnull 
361 24c02865 2005-01-04 devnull 	ps->bbox = bbox;
362 24c02865 2005-01-04 devnull 
363 24c02865 2005-01-04 devnull 	return d;
364 24c02865 2005-01-04 devnull }
365 24c02865 2005-01-04 devnull 
366 24c02865 2005-01-04 devnull static int
367 24c02865 2005-01-04 devnull pswritepage(Document *d, int fd, int page)
368 24c02865 2005-01-04 devnull {
369 24c02865 2005-01-04 devnull 	Biobuf *b = d->b;
370 24c02865 2005-01-04 devnull 	PSInfo *ps = d->extra;
371 24c02865 2005-01-04 devnull 	int t, n, i;
372 24c02865 2005-01-04 devnull 	long begin, end;
373 24c02865 2005-01-04 devnull 	char buf[8192];
374 24c02865 2005-01-04 devnull 
375 24c02865 2005-01-04 devnull 	if(page == -1)
376 24c02865 2005-01-04 devnull 		begin = ps->psoff;
377 24c02865 2005-01-04 devnull 	else
378 24c02865 2005-01-04 devnull 		begin = ps->page[page].offset;
379 24c02865 2005-01-04 devnull 
380 24c02865 2005-01-04 devnull 	end = ps->page[page+1].offset;
381 24c02865 2005-01-04 devnull 
382 24c02865 2005-01-04 devnull 	if(chatty) {
383 24c02865 2005-01-04 devnull 		fprint(2, "writepage(%d)... from #%ld to #%ld...\n",
384 24c02865 2005-01-04 devnull 			page, begin, end);
385 24c02865 2005-01-04 devnull 	}
386 24c02865 2005-01-04 devnull 	Bseek(b, begin, 0);
387 24c02865 2005-01-04 devnull 
388 24c02865 2005-01-04 devnull 	t = end-begin;
389 24c02865 2005-01-04 devnull 	n = sizeof(buf);
390 24c02865 2005-01-04 devnull 	if(n > t) n = t;
391 24c02865 2005-01-04 devnull 	while(t > 0 && (i=Bread(b, buf, n)) > 0) {
392 24c02865 2005-01-04 devnull 		if(write(fd, buf, i) != i)
393 24c02865 2005-01-04 devnull 			return -1;
394 24c02865 2005-01-04 devnull 		t -= i;
395 24c02865 2005-01-04 devnull 		if(n > t)
396 24c02865 2005-01-04 devnull 			n = t;
397 24c02865 2005-01-04 devnull 	}
398 24c02865 2005-01-04 devnull 	return end-begin;
399 24c02865 2005-01-04 devnull }
400 24c02865 2005-01-04 devnull 
401 24c02865 2005-01-04 devnull static Image*
402 24c02865 2005-01-04 devnull psdrawpage(Document *d, int page)
403 24c02865 2005-01-04 devnull {
404 24c02865 2005-01-04 devnull 	PSInfo *ps = d->extra;
405 24c02865 2005-01-04 devnull 	Image *im;
406 24c02865 2005-01-04 devnull 
407 24c02865 2005-01-04 devnull 	if(ps->clueless)
408 05a4d855 2007-03-26 devnull 		return convert(&ps->gs.g);
409 24c02865 2005-01-04 devnull 
410 24c02865 2005-01-04 devnull 	waitgs(&ps->gs);
411 24c02865 2005-01-04 devnull 
412 24c02865 2005-01-04 devnull 	if(goodps)
413 24c02865 2005-01-04 devnull 		pswritepage(d, ps->gs.gsfd, page);
414 24c02865 2005-01-04 devnull 	else {
415 24c02865 2005-01-04 devnull 		pswritepage(d, ps->gs.gsfd, -1);
416 24c02865 2005-01-04 devnull 		pswritepage(d, ps->gs.gsfd, page);
417 24c02865 2005-01-04 devnull 		pswritepage(d, ps->gs.gsfd, d->npage);
418 24c02865 2005-01-04 devnull 	}
419 24c02865 2005-01-04 devnull 	/*
420 24c02865 2005-01-04 devnull 	 * If last line terminator is \r, gs will read ahead to check for \n
421 24c02865 2005-01-04 devnull 	 * so send one to avoid deadlock.
422 24c02865 2005-01-04 devnull 	 */
423 24c02865 2005-01-04 devnull 	write(ps->gs.gsfd, "\n", 1);
424 047fd921 2019-02-25 rsc 	fprint(ps->gs.gsfd, "\nPAGEFLUSH\n");
425 05a4d855 2007-03-26 devnull 	im = convert(&ps->gs.g);
426 24c02865 2005-01-04 devnull 	if(im == nil) {
427 24c02865 2005-01-04 devnull 		fprint(2, "fatal: readimage error %r\n");
428 24c02865 2005-01-04 devnull 		wexits("readimage");
429 24c02865 2005-01-04 devnull 	}
430 24c02865 2005-01-04 devnull 	waitgs(&ps->gs);
431 24c02865 2005-01-04 devnull 
432 24c02865 2005-01-04 devnull 	return im;
433 24c02865 2005-01-04 devnull }
434 24c02865 2005-01-04 devnull 
435 24c02865 2005-01-04 devnull static char*
436 24c02865 2005-01-04 devnull pspagename(Document *d, int page)
437 24c02865 2005-01-04 devnull {
438 24c02865 2005-01-04 devnull 	PSInfo *ps = (PSInfo *) d->extra;
439 24c02865 2005-01-04 devnull 	return ps->page[page].name;
440 24c02865 2005-01-04 devnull }