Import of nvi-1.79, minus a few bits that we dont need (eg: postscript

files, curses, db, regex etc that we already have).  The other glue will
follow shortly.

Obtained from: Keith Bostic <bostic@bostic.com>

1 files changed, 250 insertions, 0 deletions

diff --git a/contrib/nvi/tk/tk_util.c b/contrib/nvi/tk/tk_util.c
new file mode 100644
index 0000000..096fa7b
--- /dev/null
+++ b/contrib/nvi/tk/tk_util.c
@@ -0,0 +1,250 @@
+/*-
+ * Copyright (c) 1993, 1994
+ *	The Regents of the University of California.  All rights reserved.
+ * Copyright (c) 1993, 1994, 1995, 1996
+ *	Keith Bostic.  All rights reserved.
+ *
+ * See the LICENSE file for redistribution information.
+ */
+
+#include "config.h"
+
+#ifndef lint
+static const char sccsid[] = "@(#)tk_util.c	8.14 (Berkeley) 7/19/96";
+#endif /* not lint */
+
+#include <sys/types.h>
+#include <sys/queue.h>
+
+#include <bitstring.h>
+#include <errno.h>
+#include <limits.h>
+#include <signal.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <termios.h>
+#include <unistd.h>
+
+#include "../common/common.h"
+#include "tki.h"
+
+static int tk_op_push __P((SCR *, TK_PRIVATE *, e_event_t));
+
+/*
+ * tk_op --
+ *	Events provided directly from Tcl/Tk.
+ *
+ * PUBLIC: int tk_op __P((ClientData, Tcl_Interp *, int, char *[]));
+ */
+int
+tk_op(clientData, interp, argc, argv)
+	ClientData clientData;
+	Tcl_Interp *interp;
+	int argc;
+	char *argv[];
+{
+	SCR *sp;
+	TK_PRIVATE *tkp;
+
+	sp = __global_list->dq.cqh_first;		/* XXX */
+	tkp = (TK_PRIVATE *)clientData;
+
+	switch (argv[1][0]) {
+	case 'q':
+		if (!strcmp(argv[1], "quit"))
+			return (tk_op_push(sp, tkp, E_QUIT));
+		break;
+	case 'w':
+		if (!strcmp(argv[1], "write"))
+			return (tk_op_push(sp, tkp, E_WRITE));
+		if (!strcmp(argv[1], "writequit")) {
+			if (tk_op_push(sp, tkp, E_WRITE) != TCL_OK)
+				return (TCL_ERROR);
+			if (tk_op_push(sp, tkp, E_QUIT) != TCL_OK)
+				return (TCL_ERROR);
+			return (TCL_OK);
+		}
+		break;
+	}
+	(void)Tcl_VarEval(tkp->interp,
+	    "tk_err {", argv[1], ": unknown event", "}", NULL);
+	return (TCL_OK);
+}
+
+/*
+ * tk_op_push --
+ *	Push an event.
+ */
+static int
+tk_op_push(sp, tkp, et)
+	SCR *sp;
+	TK_PRIVATE *tkp;
+	e_event_t et;
+{
+	EVENT *evp;
+
+	CALLOC(sp, evp, EVENT *, 1, sizeof(EVENT));
+	if (evp == NULL)
+		return (TCL_ERROR);
+
+	evp->e_event = et;
+	TAILQ_INSERT_TAIL(&tkp->evq, evp, q);
+	return (TCL_OK);
+}
+
+/*
+ * tk_opt_init --
+ *	Initialize the values of the current options.
+ *
+ * PUBLIC: int tk_opt_init __P((ClientData, Tcl_Interp *, int, char *[]));
+ */
+int
+tk_opt_init(clientData, interp, argc, argv)
+	ClientData clientData;
+	Tcl_Interp *interp;
+	int argc;
+	char *argv[];
+{
+	OPTLIST const *op;
+	SCR *sp;
+	TK_PRIVATE *tkp;
+	int off;
+	char buf[20];
+
+	sp = __global_list->dq.cqh_first;		/* XXX */
+
+	tkp = (TK_PRIVATE *)clientData;
+	for (op = optlist, off = 0; op->name != NULL; ++op, ++off) {
+		if (F_ISSET(op, OPT_NDISP))
+			continue;
+		switch (op->type) {
+		case OPT_0BOOL:
+		case OPT_1BOOL:
+			(void)Tcl_VarEval(tkp->interp, "set tko_",
+			    op->name, O_ISSET(sp, off) ? " 1" : " 0", NULL);
+			break;
+		case OPT_NUM:
+			(void)snprintf(buf,
+			    sizeof(buf), " %lu", O_VAL(sp, off));
+			(void)Tcl_VarEval(tkp->interp,
+			    "set tko_", op->name, buf, NULL);
+			break;
+		case OPT_STR:
+			(void)Tcl_VarEval(tkp->interp,
+			    "set tko_", op->name, " {",
+			    O_STR(sp, off) == NULL ? "" : O_STR(sp, off),
+			    "}", NULL);
+			break;
+		}
+	}
+	return (TCL_OK);
+}
+
+/*
+ * tk_opt_set --
+ *	Set an options button.
+ *
+ * PUBLIC: int tk_opt_set __P((ClientData, Tcl_Interp *, int, char *[]));
+ */
+int
+tk_opt_set(clientData, interp, argc, argv)
+	ClientData clientData;
+	Tcl_Interp *interp;
+	int argc;
+	char *argv[];
+{
+	ARGS *ap[2], a, b;
+	GS *gp;
+	SCR *sp;
+	int rval;
+	void (*msg) __P((SCR *, mtype_t, char *, size_t));
+	char buf[64];
+
+	gp = __global_list;
+	sp = gp->dq.cqh_first;				/* XXX */
+
+	switch (argc) {
+	case 2:
+		a.bp = argv[1] + (sizeof("tko_") - 1);
+		a.len = strlen(a.bp);
+		break;
+	case 3:
+		a.bp = buf;
+		a.len = snprintf(buf, sizeof(buf),
+		    "%s%s", atoi(argv[2]) ? "no" : "", argv[1]);
+		break;
+	default:
+		abort();
+	}
+	b.bp = NULL;
+	b.len = 0;
+	ap[0] = &a;
+	ap[1] = &b;
+
+	/* Use Tcl/Tk for error messages. */
+	msg = gp->scr_msg;
+	gp->scr_msg = tk_msg;
+
+	rval = opts_set(sp, ap, NULL);
+
+	gp->scr_msg = msg;
+	return (rval ? TCL_ERROR : TCL_OK);
+}
+
+/*
+ * tk_version --
+ *	Display the version in Tcl/Tk.
+ *
+ * PUBLIC: int tk_version __P((ClientData, Tcl_Interp *, int, char *[]));
+ */
+int
+tk_version(clientData, interp, argc, argv)
+	ClientData clientData;
+	Tcl_Interp *interp;
+	int argc;
+	char *argv[];
+{
+	EXCMD cmd;
+	GS *gp;
+	SCR *sp;
+	int rval;
+	void (*msg) __P((SCR *, mtype_t, char *, size_t));
+
+	gp = __global_list;
+	sp = gp->dq.cqh_first;				/* XXX */
+
+	msg = gp->scr_msg;
+	gp->scr_msg = tk_msg;
+
+	ex_cinit(&cmd, C_VERSION, 0, OOBLNO, OOBLNO, 0, NULL);
+	rval = cmd.cmd->fn(sp, &cmd);
+	(void)ex_fflush(sp);
+
+	gp->scr_msg = msg;
+	return (rval ? TCL_ERROR : TCL_OK);
+}
+
+/*
+ * tk_msg --
+ *	Display an error message in Tcl/Tk.
+ *
+ * PUBLIC: void tk_msg __P((SCR *, mtype_t, char *, size_t));
+ */
+void
+tk_msg(sp, mtype, line, rlen)
+	SCR *sp;
+	mtype_t mtype;
+	char *line;
+	size_t rlen;
+{
+	TK_PRIVATE *tkp;
+	char buf[2048];
+
+	if (line == NULL)
+		return;
+
+	tkp = TKP(sp);
+	(void)snprintf(buf, sizeof(buf), "%.*s", (int)rlen, line);
+	(void)Tcl_VarEval(tkp->interp, "tk_err {", buf, "}", NULL);
+}