aboutsummaryrefslogtreecommitdiff
path: root/tk/tk_main.c
diff options
context:
space:
mode:
Diffstat (limited to 'tk/tk_main.c')
-rw-r--r--tk/tk_main.c423
1 files changed, 423 insertions, 0 deletions
diff --git a/tk/tk_main.c b/tk/tk_main.c
new file mode 100644
index 000000000000..c2f34e7b2d9f
--- /dev/null
+++ b/tk/tk_main.c
@@ -0,0 +1,423 @@
+/*-
+ * 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_main.c 8.18 (Berkeley) 9/24/96";
+#endif /* not lint */
+
+#include <sys/types.h>
+#include <sys/queue.h>
+
+#include <bitstring.h>
+#include <errno.h>
+#include <fcntl.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"
+#include "pathnames.h"
+
+GS *__global_list; /* GLOBAL: List of screens. */
+sigset_t __sigblockset; /* GLOBAL: Blocked signals. */
+
+static GS *gs_init __P((char *));
+static void killsig __P((SCR *));
+static void perr __P((char *, char *));
+static void sig_end __P((GS *));
+static int sig_init __P((GS *));
+static int tcl_init __P((GS *));
+static void tcl_err __P((TK_PRIVATE *));
+
+/*
+ * main --
+ * This is the main loop for the standalone Tcl/Tk editor.
+ */
+int
+main(argc, argv)
+ int argc;
+ char *argv[];
+{
+ static int reenter;
+ GS *gp;
+ TK_PRIVATE *tkp;
+ size_t rows, cols;
+ int rval;
+ char **p_av, **t_av, *script;
+
+ /* If loaded at 0 and jumping through a NULL pointer, stop. */
+ if (reenter++)
+ abort();
+
+ /* Create and initialize the global structure. */
+ __global_list = gp = gs_init(argv[0]);
+
+ /* Initialize Tk/Tcl. */
+ if (tcl_init(gp))
+ exit (1);
+
+ /*
+ * Strip out any arguments that the common editor doesn't understand
+ * (i.e. the Tk/Tcl arguments). Search for -i first, it's the Tk/Tcl
+ * startup script and needs to be run first.
+ *
+ * XXX
+ * There's no way to portably call getopt twice.
+ */
+ script = "init.tcl";
+ for (p_av = t_av = argv;;) {
+ if (*t_av == NULL) {
+ *p_av = NULL;
+ break;
+ }
+ if (!strcmp(*t_av, "--")) {
+ while ((*p_av++ = *t_av++) != NULL);
+ break;
+ }
+ if (!memcmp(*t_av, "-i", sizeof("-i") - 1)) {
+ if (t_av[0][2] != '\0') {
+ script = t_av[0] + 2;
+ ++t_av;
+ --argc;
+ continue;
+ }
+ if (t_av[1] != NULL) {
+ script = t_av[1];
+ t_av += 2;
+ argc -= 2;
+ continue;
+ }
+ }
+ *p_av++ = *t_av++;
+ }
+ for (p_av = t_av = argv;;) {
+ if (*t_av == NULL) {
+ *p_av = NULL;
+ break;
+ }
+ if (!strcmp(*t_av, "--")) {
+ while ((*p_av++ = *t_av++) != NULL);
+ break;
+ }
+ if (t_av[1] != NULL &&
+ (!memcmp(*t_av, "-background", sizeof("-background") - 1) ||
+ !memcmp(*t_av, "-bg", sizeof("-bg") - 1) ||
+ !memcmp(*t_av, "-borderwidth", sizeof("-borderwidth") - 1)||
+ !memcmp(*t_av, "-bd", sizeof("-bd") - 1) ||
+ !memcmp(*t_av, "-foreground", sizeof("-foreground") - 1) ||
+ !memcmp(*t_av, "-fg", sizeof("-fg") - 1) ||
+ !memcmp(*t_av, "-font", sizeof("-font") - 1))) {
+ if (Tcl_VarEval(tkp->interp, ".t configure ",
+ t_av[0], " ", t_av[1], NULL) == TCL_ERROR)
+ tcl_err(tkp);
+ t_av += 2;
+ argc -= 2;
+ continue;
+ }
+ if (!memcmp(*t_av, "-geometry", sizeof("-geometry") - 1)) {
+ if (Tcl_VarEval(tkp->interp, "wm geometry . ",
+ *t_av + sizeof("-geometry") - 1, NULL) == TCL_ERROR)
+ tcl_err(tkp);
+ ++t_av;
+ --argc;
+ continue;
+ }
+ *p_av++ = *t_av++;
+ }
+
+ /* Load the initial Tcl/Tk script. */
+ tkp = GTKP(gp);
+ if (Tcl_EvalFile(tkp->interp, script) == TCL_ERROR)
+ tcl_err(tkp);
+
+ /* Add the terminal type to the global structure. */
+ if ((OG_D_STR(gp, GO_TERM) =
+ OG_STR(gp, GO_TERM) = strdup("tkterm")) == NULL)
+ perr(gp->progname, NULL);
+
+ /* Figure out how big the screen is. */
+ if (tk_ssize(NULL, 0, &rows, &cols, NULL))
+ exit (1);
+
+ /* Add the rows and columns to the global structure. */
+ OG_VAL(gp, GO_LINES) = OG_D_VAL(gp, GO_LINES) = rows;
+ OG_VAL(gp, GO_COLUMNS) = OG_D_VAL(gp, GO_COLUMNS) = cols;
+
+ /* Start catching signals. */
+ if (sig_init(gp))
+ exit (1);
+
+ /* Run ex/vi. */
+ rval = editor(gp, argc, argv);
+
+ /* Clean up signals. */
+ sig_end(gp);
+
+ /* Clean up the terminal. */
+ (void)tk_quit(gp);
+
+ /* If a killer signal arrived, pretend we just got it. */
+ if (tkp->killersig) {
+ (void)signal(tkp->killersig, SIG_DFL);
+ (void)kill(getpid(), tkp->killersig);
+ /* NOTREACHED */
+ }
+
+ /* Free the global and TK private areas. */
+#if defined(DEBUG) || defined(PURIFY) || defined(LIBRARY)
+ free(tkp);
+ free(gp);
+#endif
+
+ exit (rval);
+}
+
+/*
+ * gs_init --
+ * Create and partially initialize the GS structure.
+ */
+static GS *
+gs_init(name)
+ char *name;
+{
+ TK_PRIVATE *tkp;
+ GS *gp;
+ int fd;
+ char *p;
+
+ /* Figure out what our name is. */
+ if ((p = strrchr(name, '/')) != NULL)
+ name = p + 1;
+
+ /* Allocate the global structure. */
+ CALLOC_NOMSG(NULL, gp, GS *, 1, sizeof(GS));
+
+ /* Allocate the CL private structure. */
+ if (gp != NULL)
+ CALLOC_NOMSG(NULL, tkp, TK_PRIVATE *, 1, sizeof(TK_PRIVATE));
+ if (gp == NULL || tkp == NULL)
+ perr(name, NULL);
+ gp->tk_private = tkp;
+ TAILQ_INIT(&tkp->evq);
+
+ /* Initialize the list of curses functions. */
+ gp->scr_addstr = tk_addstr;
+ gp->scr_attr = tk_attr;
+ gp->scr_baud = tk_baud;
+ gp->scr_bell = tk_bell;
+ gp->scr_busy = NULL;
+ gp->scr_clrtoeol = tk_clrtoeol;
+ gp->scr_cursor = tk_cursor;
+ gp->scr_deleteln = tk_deleteln;
+ gp->scr_event = tk_event;
+ gp->scr_ex_adjust = tk_ex_adjust;
+ gp->scr_fmap = tk_fmap;
+ gp->scr_insertln = tk_insertln;
+ gp->scr_keyval = tk_keyval;
+ gp->scr_move = tk_move;
+ gp->scr_msg = NULL;
+ gp->scr_optchange = tk_optchange;
+ gp->scr_refresh = tk_refresh;
+ gp->scr_rename = tk_rename;
+ gp->scr_screen = tk_screen;
+ gp->scr_suspend = tk_suspend;
+ gp->scr_usage = tk_usage;
+
+ /*
+ * We expect that if we've lost our controlling terminal that the
+ * open() (but not the tcgetattr()) will fail.
+ */
+ if (isatty(STDIN_FILENO)) {
+ if (tcgetattr(STDIN_FILENO, &tkp->orig) == -1)
+ goto tcfail;
+ } else if ((fd = open(_PATH_TTY, O_RDONLY, 0)) != -1) {
+ if (tcgetattr(fd, &tkp->orig) == -1)
+tcfail: perr(name, "tcgetattr");
+ (void)close(fd);
+ }
+
+ gp->progname = name;
+ return (gp);
+}
+
+/*
+ * tcl_init --
+ * Get Tcl/Tk up and running.
+ */
+static int
+tcl_init(gp)
+ GS *gp;
+{
+ TK_PRIVATE *tkp;
+
+ tkp = GTKP(gp);
+ if ((tkp->interp = Tcl_CreateInterp()) == NULL)
+ tcl_err(tkp);
+ /* XXX: Tk 4.1 has an incompatible change. */
+#if (TK_MAJOR_VERSION == 4) && (TK_MINOR_VERSION == 0)
+ if (Tk_CreateMainWindow(tkp->interp, NULL, "vi", "Vi") == NULL)
+ tcl_err(tkp);
+#endif
+ if (Tcl_Init(tkp->interp) == TCL_ERROR)
+ tcl_err(tkp);
+ if (Tk_Init(tkp->interp) == TCL_ERROR)
+ tcl_err(tkp);
+
+ /* Shared variables. */
+ (void)Tcl_LinkVar(tkp->interp,
+ "tk_cursor_row", (char *)&tkp->tk_cursor_row, TCL_LINK_INT);
+ (void)Tcl_LinkVar(tkp->interp,
+ "tk_cursor_col", (char *)&tkp->tk_cursor_col, TCL_LINK_INT);
+ (void)Tcl_LinkVar(tkp->interp,
+ "tk_ssize_row", (char *)&tkp->tk_ssize_row, TCL_LINK_INT);
+ (void)Tcl_LinkVar(tkp->interp,
+ "tk_ssize_col", (char *)&tkp->tk_ssize_col, TCL_LINK_INT);
+
+ /* Functions called by Tcl script. */
+ Tcl_CreateCommand(tkp->interp, "tk_key", tk_key, tkp, NULL);
+ Tcl_CreateCommand(tkp->interp, "tk_op", tk_op, tkp, NULL);
+ Tcl_CreateCommand(tkp->interp, "tk_opt_init", tk_opt_init, tkp, NULL);
+ Tcl_CreateCommand(tkp->interp, "tk_opt_set", tk_opt_set, tkp, NULL);
+ Tcl_CreateCommand(tkp->interp, "tk_version", tk_version, tkp, NULL);
+
+ /* Other initialization. */
+ if (Tcl_Eval(tkp->interp, "wm geometry . =80x28+0+0") == TCL_ERROR)
+ tcl_err(tkp);
+ return (0);
+}
+
+/*
+ * tcl_err --
+ * Tcl/Tk error message during initialization.
+ */
+static void
+tcl_err(tkp)
+ TK_PRIVATE *tkp;
+{
+ (void)fprintf(stderr, "%s\n", tkp->interp->result != NULL ?
+ tkp->interp->result : "Tcl/Tk: initialization error");
+ (void)tk_usage();
+ exit (1);
+}
+
+#define GLOBAL_TKP \
+ TK_PRIVATE *tkp = GTKP(__global_list);
+static void
+h_hup(signo)
+ int signo;
+{
+ GLOBAL_TKP;
+
+ F_SET(tkp, TK_SIGHUP);
+ tkp->killersig = SIGHUP;
+}
+
+static void
+h_int(signo)
+ int signo;
+{
+ GLOBAL_TKP;
+
+ F_SET(tkp, TK_SIGINT);
+}
+
+static void
+h_term(signo)
+ int signo;
+{
+ GLOBAL_TKP;
+
+ F_SET(tkp, TK_SIGTERM);
+ tkp->killersig = SIGTERM;
+}
+
+static void
+h_winch(signo)
+ int signo;
+{
+ GLOBAL_TKP;
+
+ F_SET(tkp, TK_SIGWINCH);
+}
+#undef GLOBAL_TKP
+
+/*
+ * sig_init --
+ * Initialize signals.
+ */
+static int
+sig_init(gp)
+ GS *gp;
+{
+ TK_PRIVATE *tkp;
+ struct sigaction act;
+
+ tkp = GTKP(gp);
+
+ (void)sigemptyset(&__sigblockset);
+
+ /*
+ * Use sigaction(2), not signal(3), since we don't always want to
+ * restart system calls. The example is when waiting for a command
+ * mode keystroke and SIGWINCH arrives. Besides, you can't portably
+ * restart system calls (thanks, POSIX!).
+ */
+#define SETSIG(signal, handler, off) { \
+ if (sigaddset(&__sigblockset, signal)) \
+ goto err; \
+ act.sa_handler = handler; \
+ sigemptyset(&act.sa_mask); \
+ act.sa_flags = 0; \
+ if (sigaction(signal, &act, &tkp->oact[off])) \
+ goto err; \
+}
+#undef SETSIG
+ return (0);
+
+err: perr(gp->progname, NULL);
+ return (1);
+}
+
+/*
+ * sig_end --
+ * End signal setup.
+ */
+static void
+sig_end(gp)
+ GS *gp;
+{
+ TK_PRIVATE *tkp;
+
+ tkp = GTKP(gp);
+ (void)sigaction(SIGHUP, NULL, &tkp->oact[INDX_HUP]);
+ (void)sigaction(SIGINT, NULL, &tkp->oact[INDX_INT]);
+ (void)sigaction(SIGTERM, NULL, &tkp->oact[INDX_TERM]);
+ (void)sigaction(SIGWINCH, NULL, &tkp->oact[INDX_WINCH]);
+}
+
+/*
+ * perr --
+ * Print system error.
+ */
+static void
+perr(name, msg)
+ char *name, *msg;
+{
+ (void)fprintf(stderr, "%s:", name);
+ if (msg != NULL)
+ (void)fprintf(stderr, "%s:", msg);
+ (void)fprintf(stderr, "%s\n", strerror(errno));
+ exit(1);
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-25 12:15:10 +0000