From ba5d1f5ffe158d1493f0f1671b397376d5c24404 Mon Sep 17 00:00:00 2001
From: Bill Joy <wnj@ucbvax.Berkeley.EDU>
Date: Sun, 28 Sep 1980 22:13:00 -0800
Subject: [PATCH] BSD 4 development Work on file usr/src/cmd/vpr/rotate.c

Synthesized-from: CSRG//cd1/4.0
---
 usr/src/cmd/vpr/rotate.c | 95 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)
 create mode 100644 usr/src/cmd/vpr/rotate.c

diff --git a/usr/src/cmd/vpr/rotate.c b/usr/src/cmd/vpr/rotate.c
new file mode 100644
index 0000000000..742ae6aa1b
--- /dev/null
+++ b/usr/src/cmd/vpr/rotate.c
@@ -0,0 +1,95 @@
+#include <stdio.h>
+#include <vfont.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+char	*chp;
+char	*sbrk();
+
+main(argc,argv)
+char **argv;
+{
+	struct header h;
+	struct dispatch d[256], nd;
+	struct stat stb;
+	off_t tell();
+	int i,size;
+	int beg;
+	char scr[2048];
+
+	argc--, argv++;
+	if (argc > 0) {
+		close(0);
+		if (open(argv[0], 0) < 0)
+			perror(argv[0]), exit(1);
+	}
+	if (read(0, &h, sizeof(h)) != sizeof(h))
+		fprintf(stderr, "header read error\n"), exit(1);
+	if (h.magic != 0436)
+		fprintf(stderr, "bad magic number\n"), exit(1);
+	if (read(0, d, sizeof(d)) != sizeof(d))
+		fprintf(stderr, "dispatch read error\n"), exit(1);
+	fstat(0, &stb);
+	size = stb.st_size - tell(0);
+	fprintf(stderr, "%d bytes of characters\n", size);
+	chp = sbrk(size + 1024);
+	read(0, chp, size);
+	write(1, &h, sizeof (h));
+	write(1, d, sizeof (d));
+	beg = tell(1);
+	for (i = 0; i < 256; i++)
+		if (d[i].nbytes) {
+			if (d[i].addr + d[i].nbytes > size) {
+				fprintf(stderr, "char %d out of range\n", i);
+				continue;
+			}
+			cvt(&d[i], chp+d[i].addr, &nd, scr);
+			d[i] = nd;
+			d[i].addr = tell(1) - beg;
+			write(1, scr, d[i].nbytes);
+		}
+	fprintf(stderr, "done, new size %d\n", tell(1) - beg);
+	h.size = tell(1) - beg;
+	lseek(1, 0, 0);
+	write(1, &h, sizeof (h));
+	write(1, d, sizeof (d));
+}
+
+cvt(odp, ocp, dp, cp)
+	struct dispatch *odp, *dp;
+	register char *ocp, *cp;
+{
+	int max;
+	int bpl;
+	int row,byte,bit;
+	register char *ep;
+	register int bitoff;
+	register int bits;
+	int extra;
+
+	max = (odp->up+odp->down+7)/8;
+	extra = max*8 - (odp->down+odp->up);
+	dp->down = odp->down;
+	dp->up = odp->up;
+	dp->left = odp->left;
+	dp->right = odp->right;
+	dp->nbytes = max*(dp->right+dp->left);
+	ep = cp;
+	for (byte = 0; byte < dp->nbytes; byte++)
+		*ep++ = 0;
+	bpl = (dp->right+dp->left+7)/8;
+	for (row = 0; row < odp->up+odp->down; row++) {
+		for (byte = 0; byte < bpl; byte++) {
+			bits = *ocp++;
+			for (bit = 0; bit < 8; bit++) {
+				if (bits & 0x80) {
+					ep = cp + max*(byte*8+bit);
+					bitoff = max*8 - row - 1 - extra;
+					ep += (bitoff/8);
+					*ep |= 0x80 >> (bitoff%8);
+				}
+				bits <<= 1;
+			}
+		}
+	}
+}
-- 
2.20.1