Import sources from 2011-03-30 iso image

3 files changed, 891 insertions, 0 deletions

diff --git a/sys/src/cmd/postscript/postgif/mkfile b/sys/src/cmd/postscript/postgif/mkfile
new file mode 100755
index 000000000..667f07acb
--- /dev/null
+++ b/sys/src/cmd/postscript/postgif/mkfile
@@ -0,0 +1,32 @@
+</$objtype/mkfile
+
+<../config
+
+TARG=postgif
+OFILES=postgif.$O\
+
+COMMONDIR=../common
+
+HFILES=$COMMONDIR/comments.h\
+	$COMMONDIR/ext.h\
+	$COMMONDIR/gen.h\
+	$COMMONDIR/path.h\
+
+BIN=$POSTBIN
+LIB=$COMMONDIR/com.a$O
+
+</sys/src/cmd/mkone
+
+CC=pcc
+LD=pcc
+CFLAGS=-c -D$SYSTEM -D_POSIX_SOURCE -I$COMMONDIR -B
+
+install:V:	$POSTLIB/postgif.ps
+
+$POSTLIB/postgif.ps:	postgif.ps
+	cp $prereq $target
+
+$LIB:
+	cd $COMMONDIR
+	mk install
+	mk clean
diff --git a/sys/src/cmd/postscript/postgif/postgif.c b/sys/src/cmd/postscript/postgif/postgif.c
new file mode 100755
index 000000000..d66ec6543
--- /dev/null
+++ b/sys/src/cmd/postscript/postgif/postgif.c
@@ -0,0 +1,755 @@
+
+#include <stdio.h>
+#include <string.h>
+#include <signal.h>
+#include <ctype.h>
+#ifdef plan9
+#define	isascii(c)	((unsigned char)(c)<=0177)
+#endif
+#include <sys/types.h>
+#include <fcntl.h>
+
+#include "comments.h"
+#include "gen.h"
+#include "path.h"
+#include "ext.h"
+
+#define dbprt	if (debug) fprintf
+
+char	*optnames = "a:c:fglm:n:o:p:x:y:C:E:DG:IL:P:";
+char    *prologue = POSTGIF;		/* default PostScript prologue */
+char    *formfile = FORMFILE;           /* stuff for multiple pages per sheet */
+int     formsperpage = 1;               /* page images on each piece of paper */
+int	copies = 1;                     /* and this many copies of each sheet */
+int     page = 0;                       /* last page we worked on */
+int     printed = 0;                    /* and the number of pages printed */
+
+extern char *malloc();
+extern void free();
+extern double atof(), pow();
+
+unsigned char ibuf[BUFSIZ];
+unsigned char *cmap, *gcmap, *lcmap;
+unsigned char *gmap, *ggmap, *lgmap;
+unsigned char *pmap;
+double gamma;
+float cr = 0.3, cg = 0.59, cb = 0.11;
+int maplength, gmaplength, lmaplength;
+int scrwidth, scrheight;
+int gcolormap, lcolormap;
+int bitperpixel, background;
+int imageleft, imagetop;
+int imagewidth, imageheight;
+int interlaced, lbitperpixel;
+int gray = 0;
+int gammaflag = 0;
+int negative = 0;
+int terminate = 0;
+int codesize, clearcode, endcode, curstblsize, pmindex, byteinibuf, bitsleft;
+int prefix[4096], suffix[4096], cstbl[4096];
+int bburx = -32767, bbury = -32767;
+FILE *fp_in = NULL;
+FILE *fp_out = stdout;
+
+char *
+allocate(size)
+    int size;
+{
+    char *p;
+
+    if ((p = malloc(size)) == NULL) error(FATAL, "not enough memory");
+    return(p);
+}
+
+void
+puthex(c, fp)
+    unsigned char c;
+    FILE *fp;
+{
+    static char hextbl[16] = {
+	'0', '1', '2', '3', '4', '5', '6', '7',
+	'8', '9', 'a', 'b', 'c', 'd', 'e', 'f',
+    };
+
+    putc(hextbl[(c >> 4) & 017], fp);
+    putc(hextbl[c & 017], fp);
+}
+
+void
+setcolormap(bp)
+    int bp;
+{
+    int i, entries = 1, scale = 1;
+    unsigned char *p, *q;
+
+    for (i = 0; i < bp; i++) entries *= 2;
+    for (i = 0; i < 8 - bp; i++) scale *= 2;
+    gcmap = (unsigned char *) allocate(entries*3);
+    ggmap = (unsigned char *) allocate(entries);
+    gmaplength = entries;
+    for (i = 0, p = gcmap, q = ggmap; i < 256; i += scale, p += 3, q++) {
+	if (negative) {
+	    *p = 255 - i; p[1] = *p; p[2] = *p;
+	    *q = *p;
+	}
+	else {
+	    *p = i; p[1] = i; p[2] = i;
+	    *q = i;
+	}
+    }
+    if (gammaflag)
+    	for (i = 0, p = gcmap; i < 256; i += scale, p += 3) {
+	    *p = (unsigned char) (pow((double) *p/256.0, gamma)*256);
+	    p[1] = *p; p[2] = *p;
+	}
+dbprt(stderr,"default color map:\n");
+for (i = 0; i < entries*3; i += 3)
+dbprt(stderr, "%d, %d, %d\n", gcmap[i], gcmap[i+1], gcmap[i+2]);
+}
+
+void
+readgcolormap(bp)
+    int bp;
+{
+    int i, entries = 1;
+    unsigned char *p, *q;
+
+    for (i = 0; i < bp; i++) entries *= 2;
+    gcmap = (unsigned char *) allocate(entries*3);
+    ggmap = (unsigned char *) allocate(entries);
+    gmaplength = entries;
+    fread(gcmap, sizeof(*gcmap), entries*3, fp_in);
+    if (negative)
+	for (i = 0, p = gcmap; i < entries*3; i++, p++) *p = 255 - *p;
+    for (i = 0, p = gcmap, q = ggmap; i < entries; i++, p += 3, q++)
+	*q = cr*(int)p[0] + cg*(int)p[1] + cb*(int)p[2] + 0.5;
+    if (gammaflag)
+    	for (i = 0, p = gcmap; i < entries*3; i++, p++)
+	    *p = (unsigned char) (pow((double) *p/256.0, gamma)*256);
+dbprt(stderr,"global color map:\n");
+for (i = 0; i < entries*3; i += 3)
+dbprt(stderr, "%d, %d, %d\n", gcmap[i], gcmap[i+1], gcmap[i+2]);
+}
+
+void
+readlcolormap(bp)
+    int bp;
+{
+    int i, entries = 1;
+    unsigned char *p, *q;
+
+    for (i = 0; i < bp; i++) entries *= 2;
+    lcmap = (unsigned char *) allocate(entries*3);
+    lgmap = (unsigned char *) allocate(entries);
+    lmaplength = entries;
+    fread(lcmap, sizeof(*lcmap), entries*3, fp_in);
+    if (negative)
+	for (i = 0, p = lcmap; i < entries*3; i++, p++) *p = 255 - *p;
+    for (i = 0, p = lcmap, q = lgmap; i < entries; i++, p += 3, q++)
+	*q = cr*(int)p[0] + cg*(int)p[1] + cb*(int)p[2] + 0.5;
+    if (gammaflag)
+    	for (i = 0, p = lcmap; i < entries*3; i++, p++)
+	    *p = (unsigned char) (pow((double) *p/256.0, gamma)*256);
+dbprt(stderr,"local color map:\n");
+for (i = 0; i < entries*3; i += 3)
+dbprt(stderr, "%d, %d, %d\n", lcmap[i], lcmap[i+1], lcmap[i+2]);
+}
+
+void
+initstbl()
+{
+    int i, entries = 1, *p, *s;
+
+    for (i = 0; i < codesize; i++) entries *= 2;
+    clearcode = entries;
+    endcode = clearcode + 1;
+    for (i = 0, p = prefix, s = suffix; i <= endcode; i++, p++, s++) {
+	*p = endcode;
+	*s = i;
+    }
+    curstblsize = endcode + 1;
+    pmindex = 0;
+    byteinibuf = 0;
+    bitsleft = 0;
+}
+
+int
+nextbyte()
+{
+    static ibufindex;
+
+    if (byteinibuf) {
+	byteinibuf--;
+	ibufindex++;
+    }
+    else {
+    	fread(ibuf, sizeof(*ibuf), 1, fp_in);
+    	byteinibuf = ibuf[0];
+dbprt(stderr, "byte count: %d\n", byteinibuf);
+	if (byteinibuf) fread(ibuf, sizeof(*ibuf), byteinibuf, fp_in);
+	else error(FATAL, "encounter zero byte count block before end code");
+	ibufindex = 0;
+	byteinibuf--;
+	ibufindex++;
+    }
+    return(ibuf[ibufindex-1]);
+}
+
+int masktbl[25] = {
+    0, 01, 03, 07, 017, 037, 077, 0177, 0377, 0777, 01777, 03777, 07777,
+    017777, 037777, 077777, 0177777, 0377777, 0777777, 01777777, 03777777,
+    07777777, 017777777, 037777777, 077777777
+};
+
+int
+getcode()
+{
+    int cs, c;
+    static int oldc;
+
+    if (curstblsize < 4096) cs = cstbl[curstblsize];
+    else cs = 12;
+    while (bitsleft < cs) {
+	oldc = (oldc & masktbl[bitsleft]) | ((nextbyte() & 0377) << bitsleft);
+	bitsleft += 8;
+    }
+    c = oldc & masktbl[cs];
+    oldc = oldc >> cs;
+    bitsleft -= cs;
+/* dbprt(stderr, "code: %d %d %d\n", curstblsize, cs, c); */
+    return(c);
+}
+
+void
+putcode(c)
+    int c;
+{
+    if (prefix[c] != endcode) {
+	putcode(prefix[c]);
+	pmap[pmindex] = suffix[c];
+	pmindex++;
+    }
+    else {
+   	pmap[pmindex] = suffix[c];
+	pmindex++;
+    }
+}
+
+int
+firstof(c)
+    int c;
+{
+    while (prefix[c] != endcode) c = prefix[c];
+    return(suffix[c]);
+}
+
+void
+writeimage()
+{
+    int i, j, k;
+
+dbprt(stderr, "pmindex: %d\n", pmindex);
+    fputs("save\n", fp_out);
+    fprintf(fp_out, "/codestr %d string def\n", imagewidth);
+    if (!gray) {
+    	fprintf(fp_out, "/colortbl currentfile %d string readhexstring\n",
+	    maplength*3);
+        for (i = 0; i < maplength; i++) puthex(cmap[i], fp_out);
+        fputs("\n", fp_out);
+        for (i = maplength ; i < maplength*2; i++) puthex(cmap[i], fp_out);
+        fputs("\n", fp_out);
+        for (i = maplength*2 ; i < maplength*3; i++) puthex(cmap[i], fp_out);
+        fputs("\npop def\n", fp_out);
+    	fprintf(fp_out, "/graytbl currentfile %d string readhexstring\n",
+	    maplength);
+        for (i = 0; i < maplength; i++) puthex(gmap[i], fp_out);
+        fputs("\npop def\n", fp_out);
+    }
+    fprintf(fp_out, "%s %d %d %d %d gifimage\n",
+	gray ? "true" : "false", imagewidth, imageheight,
+	scrwidth - imageleft - imagewidth, scrheight - imagetop - imageheight);
+    if (gray) {
+	if (interlaced) {
+	    int *iltbl;
+
+	    iltbl = (int *) allocate(imageheight*sizeof(int));
+	    j = 0;
+	    for (i = 0; i < imageheight; i += 8) {
+		iltbl[i] = j;
+		j += imagewidth;
+	    }
+dbprt(stderr, "pass1: %d\n", j);
+	    for (i = 4; i < imageheight; i += 8) {
+		iltbl[i] = j;
+		j += imagewidth;
+	    }
+dbprt(stderr, "pass2: %d\n", j);
+	    for (i = 2; i < imageheight; i += 4) {
+		iltbl[i] = j;
+		j += imagewidth;
+	    }
+dbprt(stderr, "pass3: %d\n", j);
+	    for (i = 1; i < imageheight; i += 2) {
+		iltbl[i] = j;
+		j += imagewidth;
+	    }
+dbprt(stderr, "pass4: %d\n", j);
+
+    	    for (i = 0; i < imageheight; i++) {
+		k = iltbl[i];
+	        for (j = 0; j < imagewidth; j++, k++)
+		    puthex(gmap[pmap[k]], fp_out);
+	        fputs("\n", fp_out);
+	    }
+	}
+	else {
+    	    for (i = 0, k = 0; i < imageheight; i++) {
+	        for (j = 0; j < imagewidth; j++, k++)
+		    puthex(gmap[pmap[k]], fp_out);
+	        fputs("\n", fp_out);
+	    }
+    	}
+    }
+    else {
+	if (interlaced) {
+	    int *iltbl;
+
+	    iltbl = (int *) allocate(imageheight*sizeof(int));
+	    j = 0;
+	    for (i = 0; i < imageheight; i += 8) {
+		iltbl[i] = j;
+		j += imagewidth;
+	    }
+dbprt(stderr, "pass1: %d\n", j);
+	    for (i = 4; i < imageheight; i += 8) {
+		iltbl[i] = j;
+		j += imagewidth;
+	    }
+dbprt(stderr, "pass2: %d\n", j);
+	    for (i = 2; i < imageheight; i += 4) {
+		iltbl[i] = j;
+		j += imagewidth;
+	    }
+dbprt(stderr, "pass3: %d\n", j);
+	    for (i = 1; i < imageheight; i += 2) {
+		iltbl[i] = j;
+		j += imagewidth;
+	    }
+dbprt(stderr, "pass4: %d\n", j);
+
+    	    for (i = 0; i < imageheight; i++) {
+		k = iltbl[i];
+	        for (j = 0; j < imagewidth; j++, k++) puthex(pmap[k], fp_out);
+	        fputs("\n", fp_out);
+    	    }
+	}
+	else {
+    	    for (i = 0, k = 0; i < imageheight; i++) {
+	        for (j = 0; j < imagewidth; j++, k++) puthex(pmap[k], fp_out);
+	        fputs("\n", fp_out);
+    	    }
+	}
+    }
+    fputs("restore\n", fp_out);
+}
+
+void
+readimage()
+{
+    int bytecount, zerobytecount = 0;
+    int code, oldcode;
+
+    fread(ibuf, sizeof(*ibuf), 9, fp_in);
+    imageleft = ibuf[0] + 256*ibuf[1];
+    imagetop = ibuf[2] + 256*ibuf[3];
+    imagewidth = ibuf[4] + 256*ibuf[5];
+    imageheight = ibuf[6] + 256*ibuf[7];
+    lcolormap = ibuf[8] & 0200;
+    interlaced = ibuf[8] & 0100;
+    lbitperpixel = (ibuf[8] & 07) + 1;
+dbprt(stderr, "imageleft: %d\n", imageleft);
+dbprt(stderr, "imagetop: %d\n", imagetop);
+dbprt(stderr, "imagewidth: %d\n", imagewidth);
+dbprt(stderr, "imgaeheight: %d\n", imageheight);
+dbprt(stderr, "lcolormap: %d\n", lcolormap ? 1 : 0);
+dbprt(stderr, "interlaced: %d\n", interlaced ? 1 : 0);
+dbprt(stderr, "lbitperpixel: %d\n", lbitperpixel);
+    if (lcolormap) {
+	readlcolormap(lbitperpixel);
+	cmap = lcmap;
+	gmap = lgmap;
+	maplength = lmaplength;
+    }
+
+dbprt(stderr, "start reading raster data\n");
+    fread(ibuf, sizeof(*ibuf), 1, fp_in);
+    codesize = ibuf[0];
+dbprt(stderr, "codesize: %d\n", codesize);
+    pmap = (unsigned char *) allocate(imagewidth*imageheight);
+    initstbl();
+    while ((code = getcode()) != endcode) {
+	if (code == clearcode) {
+	    curstblsize = endcode + 1;
+    	    code = getcode();
+    	    putcode(code);
+    	    oldcode = code;
+	}
+	else if (code < curstblsize) {
+	    putcode(code);
+	    prefix[curstblsize] = oldcode;
+	    suffix[curstblsize] = firstof(code);
+	    curstblsize++;
+	    oldcode = code;
+	}
+	else {
+	   if (code != curstblsize) error(FATAL, "code out of order");
+	   prefix[curstblsize] = oldcode;
+	   suffix[curstblsize] = firstof(oldcode);
+	   curstblsize++;
+	   putcode(curstblsize-1);
+	   oldcode = code;
+	}
+    }
+dbprt(stderr, "finish reading raster data\n");
+
+    /* read the rest of the raster data */
+    do {
+    	fread(ibuf, sizeof(*ibuf), 1, fp_in);
+    	bytecount = ibuf[0];
+dbprt(stderr, "byte count: %d\n", bytecount);
+	if (bytecount) fread(ibuf, sizeof(*ibuf), bytecount, fp_in);
+	else zerobytecount = 1;
+    } while (!zerobytecount);
+
+    writeimage();
+
+    if (lcolormap) {
+	cmap = gcmap;
+	gmap = ggmap;
+	maplength = gmaplength;
+	free(lcmap);
+	free(lgmap);
+    }
+}
+
+void
+readextensionblock()
+{
+    int functioncode, bytecount, zerobytecount = 0;
+
+    fread(ibuf, sizeof(*ibuf), 1, fp_in);
+    functioncode = ibuf[0];
+dbprt(stderr, "function code: %d\n", functioncode);
+    do {
+    	fread(ibuf, sizeof(*ibuf), 1, fp_in);
+    	bytecount = ibuf[0];
+dbprt(stderr, "byte count: %d\n", bytecount);
+	if (bytecount) fread(ibuf, sizeof(*ibuf), bytecount, fp_in);
+	else zerobytecount = 1;
+    } while (!zerobytecount);
+}
+
+void
+writebgscr()
+{
+    fprintf(fp_out, "%s %d %d\n", PAGE, page, printed+1);
+    fputs("/saveobj save def\n", fp_out);
+    fprintf(fp_out, "%s: %d %d %d %d\n",
+	"%%PageBoundingBox", 0, 0, scrwidth, scrheight);
+    if (scrwidth > bburx) bburx = scrwidth;
+    if (scrheight > bbury) bbury = scrheight;
+    fprintf(fp_out, "%d %d gifscreen\n", scrwidth, scrheight);
+}
+
+void
+writeendscr()
+{
+    if ( fp_out == stdout ) printed++;
+    fputs("showpage\n", fp_out);
+    fputs("saveobj restore\n", fp_out);
+    fprintf(fp_out, "%s %d %d\n", ENDPAGE, page, printed);
+}
+
+void
+redirect(pg)
+    int		pg;			/* next page we're printing */
+{
+    static FILE	*fp_null = NULL;	/* if output is turned off */
+
+    if ( pg >= 0 && in_olist(pg) == ON )
+	fp_out = stdout;
+    else if ( (fp_out = fp_null) == NULL )
+	fp_out = fp_null = fopen("/dev/null", "w");
+
+}
+
+void
+readgif()
+{
+    int i, j, k;
+
+    for (i = 0, j = 1, k = 0; i < 13; i++) {
+	for (; k < j; k++) cstbl[k] = i;
+	j *= 2;
+    }
+
+    fread(ibuf, sizeof(*ibuf), 6, fp_in);
+dbprt(stderr, "%.6s\n", ibuf);
+    if (strncmp((char *)ibuf, "GIF87a", 6) != 0) {
+    	fread(ibuf, sizeof(*ibuf), 122, fp_in);
+    	fread(ibuf, sizeof(*ibuf), 6, fp_in);
+dbprt(stderr, "%.6s\n", ibuf);
+    	if (strncmp((char *)ibuf, "GIF87a", 6) != 0)
+		 error(FATAL, "wrong GIF signature");
+    }
+    fread(ibuf, sizeof(*ibuf), 7, fp_in);
+    scrwidth = ibuf[0] + 256*ibuf[1];
+    scrheight = ibuf[2] + 256*ibuf[3];
+    gcolormap = ibuf[4] & 0200;
+    bitperpixel = (ibuf[4] & 07) + 1;
+    background = ibuf[5];
+dbprt(stderr, "scrwidth: %d\n", scrwidth);
+dbprt(stderr, "scrheight: %d\n", scrheight);
+dbprt(stderr, "gcolormap: %d\n", gcolormap ? 1 : 0);
+dbprt(stderr, "bitperpixel: %d\n", bitperpixel);
+dbprt(stderr, "background: %d\n", background);
+    if (ibuf[6] != 0) error(FATAL, "wrong screen descriptor");
+    if (gcolormap) readgcolormap(bitperpixel);
+    else setcolormap(bitperpixel);
+
+    redirect(++page);
+    writebgscr();
+
+    cmap = gcmap;
+    gmap = ggmap;
+    maplength = gmaplength;
+
+    do {
+	fread(ibuf, sizeof(*ibuf), 1, fp_in);
+	if (ibuf[0] == ',') readimage();
+	else if (ibuf[0] == ';') terminate = 1;
+	else if (ibuf[0] == '!') readextensionblock();
+	else
+	error(FATAL, "wrong image separator character or wrong GIF terminator");
+    } while (!terminate);
+
+    writeendscr();
+
+    free(gcmap);
+    free(ggmap);
+}
+
+void
+init_signals()
+{
+
+    if ( signal(SIGINT, interrupt) == SIG_IGN )  {
+        signal(SIGINT, SIG_IGN);
+        signal(SIGQUIT, SIG_IGN);
+        signal(SIGHUP, SIG_IGN);
+    }
+    else {
+        signal(SIGHUP, interrupt);
+        signal(SIGQUIT, interrupt);
+    }
+
+    signal(SIGTERM, interrupt);
+}
+
+void
+header()
+{
+    int         ch;                     /* return value from getopt() */
+    int         old_optind = optind;    /* for restoring optind - should be 1 */
+
+    while ( (ch = getopt(argc, argv, optnames)) != EOF )
+        if ( ch == 'L' )
+            prologue = optarg;
+        else if ( ch == '?' )
+            error(FATAL, "");
+
+    optind = old_optind;                /* get ready for option scanning */
+
+    fprintf(stdout, "%s", CONFORMING);
+    fprintf(stdout, "%s %s\n", VERSION, PROGRAMVERSION);
+    fprintf(stdout, "%s %s\n", BOUNDINGBOX, ATEND);
+    fprintf(stdout, "%s %s\n", PAGES, ATEND);
+    fprintf(stdout, "%s", ENDCOMMENTS);
+
+    if ( cat(prologue) == FALSE )
+        error(FATAL, "can't read %s", prologue);
+
+    fprintf(stdout, "%s", ENDPROLOG);
+    fprintf(stdout, "%s", BEGINSETUP);
+    fprintf(stdout, "mark\n");
+
+}
+
+void
+options()
+{
+    int		ch;			/* return value from getopt() */
+
+    while ( (ch = getopt(argc, argv, optnames)) != EOF )  {
+	switch ( ch )  {
+
+	    case 'a':			/* aspect ratio */
+		    fprintf(stdout, "/aspectratio %s def\n", optarg);
+		    break;
+
+	    case 'c':			/* copies */
+		    copies = atoi(optarg);
+		    fprintf(stdout, "/#copies %s store\n", optarg);
+		    break;
+
+	    case 'f':
+		    negative = TRUE;
+		    break;
+
+	    case 'g':
+		    gray = TRUE;
+		    break;
+
+	    case 'l':
+		    fprintf(stdout, "/alignment true def\n");
+		    break;
+
+	    case 'm':			/* magnification */
+		    fprintf(stdout, "/magnification %s def\n", optarg);
+		    break;
+
+	    case 'n':			/* forms per page */
+		    formsperpage = atoi(optarg);
+		    fprintf(stdout, "%s %s\n", FORMSPERPAGE, optarg);
+		    fprintf(stdout, "/formsperpage %s def\n", optarg);
+		    break;
+
+	    case 'o':			/* output page list */
+		    out_list(optarg);
+		    break;
+
+	    case 'p':			/* landscape or portrait mode */
+		    if ( *optarg == 'l' )
+			fprintf(stdout, "/landscape true def\n");
+		    else fprintf(stdout, "/landscape false def\n");
+		    break;
+
+	    case 'x':			/* shift things horizontally */
+		    fprintf(stdout, "/xoffset %s def\n", optarg);
+		    break;
+
+	    case 'y':			/* and vertically on the page */
+		    fprintf(stdout, "/yoffset %s def\n", optarg);
+		    break;
+
+	    case 'C':			/* copy file straight to output */
+		    if ( cat(optarg) == FALSE )
+			error(FATAL, "can't read %s", optarg);
+		    break;
+
+	    case 'E':			/* text font encoding - unnecessary */
+		    fontencoding = optarg;
+		    break;
+
+	    case 'D':			/* debug flag */
+		    debug = ON;
+		    break;
+
+	    case 'G':
+		    gammaflag = ON;
+		    gamma = atof(optarg);
+		    break;
+
+	    case 'I':			/* ignore FATAL errors */
+		    ignore = ON;
+		    break;
+
+	    case 'L':			/* PostScript prologue file */
+		    prologue = optarg;
+		    break;
+
+	    case 'P':			/* PostScript pass through */
+		    fprintf(stdout, "%s\n", optarg);
+		    break;
+
+	    case '?':			/* don't understand the option */
+		    error(FATAL, "");
+		    break;
+
+	    default:			/* don't know what to do for ch */
+		    error(FATAL, "missing case for option %c\n", ch);
+		    break;
+
+	}
+    }
+
+    argc -= optind;			/* get ready for non-option args */
+    argv += optind;
+}
+
+void
+setup()
+{
+    /*setencoding(fontencoding);*/
+    fprintf(stdout, "setup\n");
+
+    if ( formsperpage > 1 )  {          /* followed by stuff for multiple pages
+*/
+        if ( cat(formfile) == FALSE )
+            error(FATAL, "can't read %s", formfile);
+        fprintf(stdout, "%d setupforms\n", formsperpage);
+    }   /* End if */
+
+    fprintf(stdout, "%s", ENDSETUP);
+
+}
+
+void
+arguments()
+{
+    if ( argc < 1 ) {
+	fp_in = stdin;
+	readgif();
+    }
+    else  {				/* at least one argument is left */
+	while ( argc > 0 )  {
+	    if ( strcmp(*argv, "-") == 0 )
+		fp_in = stdin;
+	    else if ( (fp_in = fopen(*argv, "r")) == NULL )
+		error(FATAL, "can't open %s", *argv);
+	    readgif();
+	    if ( fp_in != stdin )
+		fclose(fp_in);
+	    argc--;
+	    argv++;
+	}
+    }
+}
+
+void
+done()
+{
+    fprintf(stdout, "%s", TRAILER);
+    fprintf(stdout, "done\n");
+    fprintf(stdout, "%s 0 0 %d %d\n", BOUNDINGBOX, bburx, bbury);
+    fprintf(stdout, "%s %d\n", PAGES, printed); 
+}
+
+main(agc, agv)
+    int agc;
+    char *agv[];
+{
+    argc = agc;
+    argv = agv;
+    prog_name = argv[0];
+
+    init_signals();
+    header();
+    options();
+    setup();
+    arguments();
+    done();
+
+    exit(0);
+}
+
diff --git a/sys/src/cmd/postscript/postgif/postgif.ps b/sys/src/cmd/postscript/postgif/postgif.ps
new file mode 100755
index 000000000..9827857f7
--- /dev/null
+++ b/sys/src/cmd/postscript/postgif/postgif.ps
@@ -0,0 +1,104 @@
+%
+% Version 3.3.2 prologue for GIF pixmap files.
+%
+
+/#copies 1 store
+/aspectratio 1 def
+/formsperpage 1 def
+/landscape false def
+/magnification 1 def
+/margin 0 def
+/orientation 0 def
+/rotation 1 def
+/xoffset 0 def
+/yoffset 0 def
+
+/useclippath true def
+/pagebbox [0 0 612 792] def
+
+/inch {72 mul} bind def
+/min {2 copy gt {exch} if pop} bind def
+
+/setup {
+	counttomark 2 idiv {def} repeat pop
+
+	landscape {/orientation 90 orientation add def} if
+
+	pagedimensions
+	xcenter ycenter translate
+	orientation rotation mul rotate
+	xoffset inch yoffset inch translate
+	magnification dup aspectratio mul scale
+
+	/height height margin sub def
+	/width width margin sub def
+} def
+
+/pagedimensions {
+	useclippath {
+		/pagebbox [clippath pathbbox newpath] def
+	} if
+	pagebbox aload pop
+	4 -1 roll exch 4 1 roll 4 copy
+	landscape {4 2 roll} if
+	sub /width exch def
+	sub /height exch def
+	add 2 div /xcenter exch def
+	add 2 div /ycenter exch def
+	userdict /gotpagebbox true put
+} def
+
+/pagesetup {/page exch def} bind def
+
+/done {/lastpage where {pop lastpage} if} def
+
+/alignment false def
+
+/gifscreen { % scrwidth scrheight $
+    2 copy
+
+    alignment {
+    	100 dup dtransform exch 100 exch div abs exch 100 exch div abs
+	2 copy scale
+	/height exch height exch div def
+	/width exch width exch div def
+    } if
+
+    height exch div exch width exch div
+    2 copy lt { pop } { exch pop } ifelse
+
+    alignment { cvi } if
+
+    dup scale
+
+    neg 2 div exch neg 2 div exch translate
+} def
+
+/gifimage { % gray imagewidth imageheight xorigin yorigin $
+    translate
+    2 copy scale
+    /imageheight exch def
+    /imagewidth exch def
+    /gray exch def
+    imagewidth imageheight 8 [imagewidth 0 0 imageheight neg 0 imageheight]
+    gray {
+	{ currentfile codestr readhexstring pop } image
+    } {
+	/colorimage where {
+	    pop
+	    /picstr imagewidth 3 mul string def
+	    { currentfile codestr readhexstring pop pop
+	    	0 1 imagewidth 1 sub {
+		    picstr exch dup 3 mul exch colortbl exch codestr exch get
+		    3 mul 3 getinterval putinterval
+	    	} for picstr
+	    } false 3 colorimage
+	} {
+	    { currentfile codestr readhexstring pop pop
+	    	0 1 imagewidth 1 sub {
+		    codestr exch dup graytbl exch codestr exch get get put
+	    	} for codestr
+	    } image
+	} ifelse
+    } ifelse
+} def