OpenSolaris Launch

1 files changed, 472 insertions, 0 deletions

diff --git a/usr/src/cmd/tplot/vplot.c b/usr/src/cmd/tplot/vplot.c
new file mode 100644
index 0000000000..a5ad860375
--- /dev/null
+++ b/usr/src/cmd/tplot/vplot.c
@@ -0,0 +1,472 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*
+ * Copyright 2002 Sun Microsystems, Inc.  All rights reserved.
+ * Use is subject to license terms.
+ */
+
+/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
+/*	  All Rights Reserved  	*/
+
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+#include <stdio.h>
+#include <signal.h>
+#include <values.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <sgtty.h>
+
+#define	NB	88
+#define	BSIZ	512
+#define	mapx(x)	((1536*((x)-botx)/del)+centx)
+#define	mapy(y)	((1536*(del-(y)+boty)/del)-centy)
+#define	SOLID -1
+#define	DOTTED 014
+#define	SHORTDASHED 034
+#define	DOTDASHED 054
+#define	LONGDASHED 074
+#define	SETSTATE	(('v'<<8)+1)
+#define	NEG_MASK  (MAXINT<<(2*BITS(char)))
+#define	MAXCHAR   ((char)~((char)(1<<BITS(char)-1)))
+#define	BUILDINT(ubyte, lbyte)  \
+	ubyte > MAXCHAR \
+	? (ubyte << BITS(char))|lbyte|NEG_MASK \
+	: (ubyte << BITS(char))|lbyte
+
+int	linmod	= SOLID;
+int	again;
+int	done1;
+extern char	chrtab[][16];
+short	plotcom[] = { 0200, 0, 0, 0 };
+short	eotcom[] = { 0210, 0, 0, 0 };
+char	blocks	[NB][BSIZ];
+short	obuf[264];
+int	lastx;
+int	lasty;
+double	topx	= 1536;
+double	topy	= 1536;
+double	botx	= 0;
+double	boty	= 0;
+int	centx;
+int	centy;
+double	delx	= 1536;
+double	dely	= 1536;
+double	del	= 1536;
+int	bflag;
+int	fflag;
+char	*banname;
+FILE	*vpstr;
+
+struct	buf {
+	int	bno;
+	char	*block;
+};
+struct	buf	bufs[NB];
+
+int	in, out;
+char picname[] = "/var/tmp/rasterXXXXXX";
+char *picture;
+
+main(argc, argv)
+char **argv;
+{
+	extern void onintr();
+	register i;
+	extern char *optarg;
+	extern int optind;
+	register int c;
+	char *fname;
+	char *mktemp();
+
+	while ((c = getopt(argc, argv, "e:b:")) != EOF)
+	switch (c) {
+		case 'b':
+			bflag++;
+			banname = optarg;
+			break;
+
+		case 'e':
+			fname = optarg;
+			fflag++;
+			break;
+
+		case '?':
+			fprintf(stderr,
+			    "usage: vplot [ -f raster ] [ file ]\n");
+			exit(1);
+	}
+	if (fflag) {
+		if ((in = open(fname, O_RDONLY)) < 0) {
+			fprintf(stderr, "vplot: cannot open %s\n", fname);
+			exit(1);
+		}
+		putpict();
+		exit(0);
+	}
+	if (optind < argc)
+		if (freopen(argv[optind], "r", stdin) == NULL) {
+			fprintf(stderr,
+			    "vplot: cannot open %s\n", argv[optind]);
+			exit(1);
+		}
+	signal(SIGTERM, onintr);
+	if (signal(SIGINT, SIG_IGN) != SIG_IGN)
+		signal(SIGINT, onintr);
+	if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
+		signal(SIGHUP, onintr);
+another:
+	for (i = 0; i < NB; i++) {
+		bufs[i].bno = -1;
+		bufs[i].block = blocks[i];
+	}
+
+	if ((picture = mktemp(picname)) == NULL) {
+		fprintf(stderr, "vplot: cannot create unique tmp. file name\n");
+		exit(1);
+	}
+
+	if ((out = open(picture, (O_WRONLY|O_CREAT|O_TRUNC|O_EXCL),
+	    (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH))) == -1) {
+		fprintf(stderr, "vplot: cannot open %s\n", picture);
+		exit(1);
+	}
+
+	zseek(out, 32*32);
+	write(out, blocks[0], BSIZ);
+/*
+ * delete following code when filsys deals properly with
+ * holes in files
+ */
+	for (i = 0; i < 512; i++)
+		blocks[0][i] = 0;
+	zseek(out, 0);
+	for (i = 0; i < 32*32; i++)
+		write(out, blocks[0], 512);
+	getpict();
+	for (i = 0; i < NB; i++)
+		if (bufs[i].bno != -1) {
+			zseek(out, bufs[i].bno);
+			write(out, bufs[i].block, BSIZ);
+		}
+	putpict();
+	if (again) {
+		close(out);
+		goto another;
+	}
+	unlink(picture);
+	exit(0);
+}
+
+getpict()
+{
+	register x1, y1;
+
+	again = 0;
+	for (;;)
+	switch (x1 = getc(stdin)) {
+	case 's':
+		botx = getw(stdin);
+		boty = getw(stdin);
+		topx = getw(stdin);
+		topy = getw(stdin);
+		delx = topx-botx;
+		dely = topy-boty;
+		if (dely/delx > 1536./2048.)
+			del = dely;
+		else
+			del = delx * (1566./2048.);
+		centx = 0;
+		centx = (2048 - mapx(topx)) / 2;
+		centy = 0;
+		centy = mapy(topy) / 2;
+		continue;
+
+	case 'l':
+		done1 |= 01;
+		x1 = mapx(getw(stdin));
+		y1 = mapy(getw(stdin));
+		lastx = mapx(getw(stdin));
+		lasty = mapy(getw(stdin));
+		line(x1, y1, lastx, lasty);
+		continue;
+
+	case 'm':
+		lastx = mapx(getw(stdin));
+		lasty = mapy(getw(stdin));
+		continue;
+
+	case 't':
+		done1 |= 01;
+		while ((x1 = getc(stdin)) != '\n')
+			plotch(x1);
+		continue;
+
+	case 'e':
+		if (done1) {
+			again++;
+			return;
+		}
+		continue;
+
+	case 'p':
+		done1 |= 01;
+		lastx = mapx(getw(stdin));
+		lasty = mapy(getw(stdin));
+		point(lastx, lasty);
+		point(lastx+1, lasty);
+		point(lastx, lasty+1);
+		point(lastx+1, lasty+1);
+		continue;
+
+	case 'n':
+		done1 |= 01;
+		x1 = mapx(getw(stdin));
+		y1 = mapy(getw(stdin));
+		line(lastx, lasty, x1, y1);
+		lastx = x1;
+		lasty = y1;
+		continue;
+
+	case 'f':
+		getw(stdin);
+		getc(stdin);
+		switch (getc(stdin)) {
+		case 't':
+			linmod = DOTTED;
+			break;
+		default:
+		case 'i':
+			linmod = SOLID;
+			break;
+		case 'g':
+			linmod = LONGDASHED;
+			break;
+		case 'r':
+			linmod = SHORTDASHED;
+			break;
+		case 'd':
+			linmod = DOTDASHED;
+			break;
+		}
+		while ((x1 = getc(stdin)) != '\n')
+			if (x1 == -1)
+				return;
+		continue;
+
+	case 'd':
+		getw(stdin);
+		getw(stdin);
+		getw(stdin);
+		x1 = getw(stdin);
+		while (--x1 >= 0)
+			getw(stdin);
+		continue;
+
+	case -1:
+		return;
+
+	default:
+		printf("Botch\n");
+		return;
+	}
+}
+
+plotch(c)
+register c;
+{
+	register j;
+	register char *cp;
+	int i;
+
+	if (c < ' ' || c > 0177)
+		return;
+	cp = chrtab[c-' '];
+	for (i = -16; i < 16; i += 2) {
+		c = *cp++;
+		for (j = 7; j >= 0; --j)
+			if ((c>>j)&1) {
+				point(lastx+6-j*2, lasty+i);
+				point(lastx+7-j*2, lasty+i);
+				point(lastx+6-j*2, lasty+i+1);
+				point(lastx+7-j*2, lasty+i+1);
+			}
+	}
+	lastx += 16;
+}
+
+int	f; /* versatec file number */
+putpict()
+{
+	register x;
+	register short *ip, *op;
+	int y;
+
+	if (f == 0) {
+		f = open("/dev/vp", O_WRONLY);
+		if (f < 0) {
+			fprintf(stderr, "Cannot open vp\n");
+			unlink(picture);
+			exit(1);
+		}
+		vpstr = fdopen(f, "w");
+		if (bflag)  {
+			banner(vpstr, banname);
+			fflush(vpstr);
+		}
+		ioctl(f, TIOCSETP, plotcom);
+	}
+	op = obuf;
+	lseek(in, 0L, 0);
+	for (y = 0; y < 2048; y++) {
+		if ((y&077) == 0)
+			read(in, blocks[0], 32*BSIZ);
+		for (x = 0; x < 32; x++)  {
+			ip = (short *)&blocks[x][(y&077)<<3];
+			*op++ = *ip++;
+			*op++ = *ip++;
+			*op++ = *ip++;
+			*op++ = *ip++;
+		}
+		*op++ = 0;
+		*op++ = 0;
+		*op++ = 0;
+		*op++ = 0;
+		if (y&1) {
+			write(f, (char *)obuf, sizeof (obuf));
+			op = obuf;
+		}
+	}
+}
+
+line(x0, y0, x1, y1)
+register x0, y0;
+{
+	int dx, dy;
+	int xinc, yinc;
+	register res1;
+	int res2;
+	int slope;
+
+	xinc = 1;
+	yinc = 1;
+	if ((dx = x1-x0) < 0) {
+		xinc = -1;
+		dx = -dx;
+	}
+	if ((dy = y1-y0) < 0) {
+		yinc = -1;
+		dy = -dy;
+	}
+	slope = xinc*yinc;
+	res1 = 0;
+	res2 = 0;
+	if (dx >= dy)
+	while (x0 != x1) {
+	if ((x0 + slope*y0) & linmod)
+	if (((x0>>6) + ((y0&~077)>>1)) == bufs[0].bno)
+		bufs[0].block[((y0&077)<<3)+((x0>>3)&07)] |= 1 << (7-(x0&07));
+	else
+		point(x0, y0);
+		if (res1 > res2) {
+			res2 += dx - res1;
+			res1 = 0;
+			y0 += yinc;
+		}
+		res1 += dy;
+		x0 += xinc;
+	} else while (y0 != y1) {
+	if ((x0 + slope * y0) & linmod)
+		if (((x0 >> 6) + ((y0 & ~077) >> 1)) == bufs[0].bno)
+			bufs[0].block[((y0 & 077) << 3)+((x0 >> 3) & 07)]
+			    |= 1 << (7 - (x0& 07));
+	else
+		point(x0, y0);
+		if (res1 > res2) {
+			res2 += dy - res1;
+			res1 = 0;
+			x0 += xinc;
+		}
+		res1 += dx;
+		y0 += yinc;
+	}
+	if ((x1+slope*y1)&linmod)
+	if (((x1>>6) + ((y1&~077)>>1)) == bufs[0].bno)
+		bufs[0].block[((y1&077)<<3)+((x1>>3)&07)] |= 1 << (7-(x1&07));
+	else
+		point(x1, y1);
+}
+
+point(x, y)
+register x, y;
+{
+	register bno;
+
+	bno = ((x&03700)>>6) + ((y&03700)>>1);
+	if (bno != bufs[0].bno) {
+		if (bno < 0 || bno >= 1024)
+			return;
+		getblk(bno);
+	}
+	bufs[0].block[((y&077)<<3)+((x>>3)&07)] |= 1 << (7-(x&07));
+}
+
+getblk(b)
+register b;
+{
+	register struct buf *bp1, *bp2;
+	register char *tp;
+
+loop:
+	for (bp1 = bufs; bp1 < &bufs[NB]; bp1++) {
+		if (bp1->bno == b || bp1->bno == -1) {
+			tp = bp1->block;
+			for (bp2 = bp1; bp2 > bufs; --bp2) {
+				bp2->bno = (bp2-1)->bno;
+				bp2->block = (bp2-1)->block;
+			}
+			bufs[0].bno = b;
+			bufs[0].block = tp;
+			return;
+		}
+	}
+	zseek(out, bufs[NB-1].bno);
+	write(out, bufs[NB-1].block, BSIZ);
+	zseek(in, b);
+	read(in, bufs[NB-1].block, BSIZ);
+	bufs[NB-1].bno = b;
+	goto loop;
+}
+
+void
+onintr()
+{
+	unlink(picture);
+	exit(1);
+}
+
+zseek(a, b)
+{
+	return (lseek(a, (long)b*512, 0));
+}