BSD 4_4_Lite1 release

[unix-history] / usr / src / usr.bin / window / main.c

diff --git a/usr/src/usr.bin/window/main.c b/usr/src/usr.bin/window/main.c
index 9e660e1..15de840 100644 (file)
--- a/usr/src/usr.bin/window/main.c
+++ b/usr/src/usr.bin/window/main.c
@@ -1,85 +1,202 @@
+/*
+ * Copyright (c) 1983, 1993
+ *     The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Edward Wang at The University of California, Berkeley.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+

 #ifndef lint
 #ifndef lint

-static char *sccsid = "@(#)main.c      1.1 83/07/12";
-#endif
+char copyright[] =
+"@(#) Copyright (c) 1983, 1993\n\
+       The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)main.c     8.2 (Berkeley) 4/2/94";
+#endif /* not lint */

 
 

-#include "ww.h"
-#include <signal.h>
+#include "defs.h"
+#include <paths.h>
+#include <stdio.h>
+#include "string.h"
+#include "char.h"
+#include "local.h"

 
 

-struct ww *w1, *w2;
+#define next(a) (*++*(a) ? *(a) : (*++(a) ? *(a) : (char *)usage()))

 
 

-main()
+/*ARGSUSED*/
+main(argc, argv)
+char **argv;

 {
 {

-       register n;

        register char *p;
        register char *p;

-       int wwchild();
-       int imask;
-       char buf[512];
-       char escape = 0;
+       char fflag = 0;
+       char dflag = 0;
+       char xflag = 0;
+       char *cmd = 0;
+       char tflag = 0;

 
 

-       w1 = wwopen(12, 80, 0, 0);
-       w2 = wwopen(12, 80, 12, 0);
-       wwsetcurrent(w1);
-       noecho();
-       crmode();
-       (void) signal(SIGCHLD, wwchild);
-       switch (wwfork(w1)) {
-       case -1:
-               perror("wwfork");
-               goto bad;
-       case 0:
-               wwexecl(w1, "/bin/csh", "csh", 0);
-               perror("wwexecl(w1)");
-               goto bad;
+       escapec = ESCAPEC;      
+       if (p = rindex(*argv, '/'))
+               p++;
+       else
+               p = *argv;
+       debug = strcmp(p, "a.out") == 0;
+       while (*++argv) {
+               if (**argv == '-') {
+                       switch (*++*argv) {
+                       case 'f':
+                               fflag++;
+                               break;
+                       case 'c':
+                               if (cmd != 0) {
+                                       (void) fprintf(stderr,
+                                               "Only one -c allowed.\n");
+                                       (void) usage();
+                               }
+                               cmd = next(argv);
+                               break;
+                       case 'e':
+                               setescape(next(argv));
+                               break;
+                       case 't':
+                               tflag++;
+                               break;
+                       case 'd':
+                               dflag++;
+                               break;
+                       case 'D':
+                               debug = !debug;
+                               break;
+                       case 'x':
+                               xflag++;
+                               break;
+                       default:
+                               (void) usage();
+                       }
+               } else
+                       (void) usage();
+       }
+       if ((p = getenv("SHELL")) == 0)
+               p = _PATH_BSHELL;
+       if ((default_shellfile = str_cpy(p)) == 0) {
+               (void) fprintf(stderr, "Out of memory.\n");
+               exit(1);
+       }
+       if (p = rindex(default_shellfile, '/'))
+               p++;
+       else
+               p = default_shellfile;
+       default_shell[0] = p;
+       default_shell[1] = 0;
+       default_nline = NLINE;
+       default_smooth = 1;
+       (void) gettimeofday(&starttime, (struct timezone *)0);
+       if (wwinit() < 0) {
+               (void) fprintf(stderr, "%s.\n", wwerror());
+               exit(1);
+       }
+
+#ifdef OLD_TTY
+       if (debug)
+               wwnewtty.ww_tchars.t_quitc = wwoldtty.ww_tchars.t_quitc;
+       if (xflag) {
+               wwnewtty.ww_tchars.t_stopc = wwoldtty.ww_tchars.t_stopc;
+               wwnewtty.ww_tchars.t_startc = wwoldtty.ww_tchars.t_startc;
+       }
+#else
+       if (debug) {
+               wwnewtty.ww_termios.c_cc[VQUIT] =
+                       wwoldtty.ww_termios.c_cc[VQUIT];
+               wwnewtty.ww_termios.c_lflag |= ISIG;
+       }
+       if (xflag) {
+               wwnewtty.ww_termios.c_cc[VSTOP] =
+                       wwoldtty.ww_termios.c_cc[VSTOP];
+               wwnewtty.ww_termios.c_cc[VSTART] =
+                       wwoldtty.ww_termios.c_cc[VSTART];
+               wwnewtty.ww_termios.c_iflag |= IXON;

        }
        }

-       switch (wwfork(w2)) {
-       case -1:
-               perror("wwfork");
+#endif
+       if (debug || xflag)
+               (void) wwsettty(0, &wwnewtty);
+
+       if ((cmdwin = wwopen(wwbaud > 2400 ? WWO_REVERSE : 0, 1, wwncol,
+                            0, 0, 0)) == 0) {
+               wwflush();
+               (void) fprintf(stderr, "%s.\r\n", wwerror());

                goto bad;
                goto bad;

-       case 0:
-               wwexecl(w2, "/bin/csh", "csh", 0);
-               perror("wwexecl(w2)");
+       }
+       cmdwin->ww_mapnl = 1;
+       cmdwin->ww_nointr = 1;
+       cmdwin->ww_noupdate = 1;
+       cmdwin->ww_unctrl = 1;
+       if ((framewin = wwopen(WWO_GLASS|WWO_FRAME, wwnrow, wwncol, 0, 0, 0))
+           == 0) {
+               wwflush();
+               (void) fprintf(stderr, "%s.\r\n", wwerror());

                goto bad;
        }
                goto bad;
        }

-       for (;;) {
-               wwflushall();
-               if (!wwhaschildren())
-                       break;
-               imask = 1<<0;
-               while (wwforce(&imask) < 0)
-                       ;
-               if (imask & 1<<0) {
-                       n = read(0, buf, sizeof buf);
-                       for (p = buf; n-- > 0; p++) {
-                               *p &= 0x7f;
-                               if (escape) {
-                                       escape = 0;
-                                       switch (*p) {
-                                       case '\\':
-                                               write(_wwcurrent->ww_pty, p, 1);
-                                               break;
-                                       case '1':
-                                               wwsetcurrent(w1);
-                                               break;
-                                       case '2':
-                                               wwsetcurrent(w2);
-                                               break;
-                                       default:
-                                               write(_wwcurrent->ww_pty,
-                                                       "\\", 1);
-                                               write(_wwcurrent->ww_pty, p, 1);
-                                       }
-                               } else {
-                                       if (*p == '\\')
-                                               escape++;
-                                       else
-                                               write(_wwcurrent->ww_pty, p, 1);
-                               }
-                       }
-               }
+       wwadd(framewin, &wwhead);
+       if ((boxwin = wwopen(WWO_GLASS, wwnrow, wwncol, 0, 0, 0)) == 0) {
+               wwflush();
+               (void) fprintf(stderr, "%s.\r\n", wwerror());
+               goto bad;

        }
        }

+       fgwin = framewin;
+
+       wwupdate();
+       wwflush();
+       setvars();
+
+       setterse(tflag);
+       setcmd(1);
+       if (cmd != 0)
+               (void) dolongcmd(cmd, (struct value *)0, 0);
+       if (!fflag)
+               if (dflag || doconfig() < 0)
+                       dodefault();
+       if (selwin != 0)
+               setcmd(0);
+
+       mloop();
+

 bad:
 bad:

-       echo();
-       nocrmode();
-       wwend();
+       wwend(1);

        return 0;
 }
        return 0;
 }

+
+usage()
+{
+       (void) fprintf(stderr, "Usage: window [-e escape-char] [-c command] [-t] [-f] [-d]\n");
+       exit(1);
+       return 0;                       /* for lint */
+}