more files

1 files changed, 178 insertions, 0 deletions

diff --git a/src/cmd/postscript/tr2post/devcntl.c b/src/cmd/postscript/tr2post/devcntl.c
new file mode 100644
index 00000000..8b438f76
--- /dev/null
+++ b/src/cmd/postscript/tr2post/devcntl.c
@@ -0,0 +1,178 @@
+#include <u.h>
+#include <libc.h>
+#include <bio.h>
+#include <stdio.h>
+#include "../common/common.h"
+#include "tr2post.h"
+
+char devname[20] = { 'u', 't', 'f', '\0' };
+int resolution;
+int minx, miny;
+
+struct sjt {
+	char *str;
+	void (*func)(void *);
+};
+
+/* I won't need this if getfields can replace sscanf
+
+extern void picture(Biobuf *);
+extern void notavail(char *);
+
+void
+PSInclude(Biobuf *inp) {
+	char buf[256];
+
+	Bgetfield(inp, 's', buf, 256);
+	if(pageon()) {
+		endstring();
+		Bprint(Bstdout, "%s\n", buf);
+	}
+}
+
+struct sjt specialjumptable[] = {
+	{"PI", picture},
+	{"PictureInclusion", picture},
+	{"InlinePicture", NULL},
+	{"BeginPath", NULL},
+	{"DrawPath", NULL},
+	{"BeginObject", NULL},
+	{"EndObject", NULL},
+	{"NewBaseline", NULL},
+	{"DrawText", NULL},
+	{"SetText", NULL},
+	{"SetColor", NULL},
+	{"INFO", NULL},
+	{"PS", PSInclude},
+	{"Postscript", PSInclude},
+	{"ExportPS", notavail("ExportPS")},
+	{NULL, NULL}
+};
+*/
+
+void
+devcntl(Biobuf *inp) {
+
+	char cmd[50], buf[256], str[MAXTOKENSIZE], *line;
+	int c, n, linelen;
+
+/*
+ *
+ * Interpret device control commands, ignoring any we don't recognize. The
+ * "x X ..." commands are a device dependent collection generated by troff's
+ * \X'...' request.
+ *
+ */
+
+	Bgetfield(inp, 's', cmd, 50);
+	if (debug) Bprint(Bstderr, "devcntl(cmd=%s)\n", cmd);
+	switch (cmd[0]) {
+	case 'f':		/* mount font in a position */
+		Bgetfield(inp, 'd', &n, 0);
+		Bgetfield(inp, 's', str, 100);
+		mountfont(n, str);
+		break;
+
+	case 'i':			/* initialize */
+		initialize();
+		break;
+
+	case 'p':			/* pause */
+		break;
+
+	case 'r':			/* resolution assumed when prepared */
+		Bgetfield(inp, 'd', &resolution, 0);
+		Bgetfield(inp, 'd', &minx, 0);
+		Bgetfield(inp, 'd', &miny, 0);
+		break;
+
+	case 's':			/* stop */
+	case 't':			/* trailer */
+		/* flushtext(); */
+		break;
+
+	case 'H':			/* char height */
+		Bgetfield(inp, 'd', &n, 0);
+		t_charht(n);
+		break;
+
+	case 'S':			/* slant */
+		Bgetfield(inp, 'd', &n, 0);
+		t_slant(n);
+		break;
+
+	case 'T':			/* device name */
+		Bgetfield(inp, 's', &devname, 16);
+		if (debug) Bprint(Bstderr, "devname=%s\n", devname);
+		break;
+
+	case 'E':			/* input encoding - not in troff yet */
+		Bgetfield(inp, 's', &str, 100);
+/*		if ( strcmp(str, "UTF") == 0 )
+		    reading = UTFENCODING;
+		else reading = ONEBYTE;
+  */
+		break;
+
+	case 'X':			/* copy through - from troff */
+		if (Bgetfield(inp, 's', str, MAXTOKENSIZE-1) <= 0)
+			error(FATAL, "incomplete devcntl line\n");
+		if ((line = Brdline(inp, '\n')) == 0)
+			error(FATAL, "incomplete devcntl line\n");
+		strncpy(buf, line, Blinelen(inp)-1);
+		buf[Blinelen(inp)-1] = '\0';
+		Bungetc(inp);
+
+		if (strncmp(str, "PI", sizeof("PI")-1) == 0 || strncmp(str, "PictureInclusion", sizeof("PictureInclusion")-1) == 0) {
+			picture(inp, str);
+		} else if (strncmp(str, "InlinePicture", sizeof("InlinePicture")-1) == 0) {
+			error(FATAL, "InlinePicture not implemented yet.\n");
+/*			inlinepic(inp, buf);			*/
+		} else if (strncmp(str, "BeginPath", sizeof("BeginPath")-1) == 0) {
+			beginpath(buf, FALSE);
+		} else if (strncmp(str, "DrawPath", sizeof("DrawPath")-1) == 0) {
+			drawpath(buf, FALSE);
+		} else if (strncmp(str, "BeginObject", sizeof("BeginObject")-1) == 0) {
+			beginpath(buf, TRUE);
+		} else if (strncmp(str, "EndObject", sizeof("EndObject")-1) == 0) {
+			drawpath(buf, TRUE);
+		} else if (strncmp(str, "NewBaseline", sizeof("NewBaseline")-1) == 0) {
+			error(FATAL, "NewBaseline not implemented yet.\n");
+/*			newbaseline(buf);			*/
+		} else if (strncmp(str, "DrawText", sizeof("DrawText")-1) == 0) {
+			error(FATAL, "DrawText not implemented yet.\n");
+/*			drawtext(buf);				*/
+		} else if (strncmp(str, "SetText", sizeof("SetText")-1) == 0) {
+			error(FATAL, "SetText not implemented yet.\n");
+/*			settext(buf);				*/
+		} else if (strncmp(str, "SetColor", sizeof("SetColor")-1) == 0) {
+			error(FATAL, "SetColor not implemented yet.\n");
+/*			newcolor(buf);				*/
+/*			setcolor();					*/
+		} else if (strncmp(str, "INFO", sizeof("INFO")-1) == 0) {
+			error(FATAL, "INFO not implemented yet.\n");
+/*			flushtext();				*/
+/*			Bprint(outp, "%%INFO%s", buf);	*/
+		} else if (strncmp(str, "PS", sizeof("PS")-1) == 0 || strncmp(str, "PostScript", sizeof("PostScript")-1) == 0) {
+			if(pageon()) {
+				endstring();
+				Bprint(Bstdout, "%s\n", buf);
+			}
+		} else if (strncmp(str, "ExportPS", sizeof("ExportPS")-1) == 0) {	/* dangerous!! */
+			error(FATAL, "ExportPS not implemented yet.\n");
+/*			if (Bfildes(outp) == 1) {		*/
+/*				restore();				*/
+/*				Bprint(outp, "%s", buf);	*/
+/*				save();				*/
+/*			}						*/
+		}
+/*		 else
+			error(WARNING, "Unknown string <%s %s> after x X\n", str, buf);
+*/
+
+		break;
+	}
+	while ((c = Bgetc(inp)) != '\n' && c != Beof);
+	inputlineno++;
+}
+