the box

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

#ifndef lint
static  char *sccsid = "@(#)main.c      3.3 83/08/18";
#endif

#include "defs.h"

char escapec = CTRL(p);

#define next(a) (*++*(a) ? *(a) : (*++(a) ? *(a) : (char *)usage()))

/*ARGSUSED*/
main(argc, argv)
char **argv;
{
       register n;
       register char *p;
       char fflag = 0;
       char dflag = 0;
       int imask;
       struct timezone timezone;

       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 'e':
                               setescape(next(argv));
                               break;
                       case 't':
                               terse++;
                               break;
                       case 'd':
                               dflag++;
                               break;
                       case 'D':
                               debug++;
                               break;
                       default:
                               (void) usage();
                       }
               } else
                       (void) usage();
       }
       if ((shell = getenv("SHELL")) == 0)
               shell = "/bin/csh";
       if (shellname = rindex(shell, '/'))
               shellname++;
       else
               shellname = shell;
       (void) gettimeofday(&starttime, &timezone);
       if (wwinit() < 0) {
               (void) fflush(stdout);
               (void) fprintf(stderr, "Can't do windows on this terminal.\n");
               exit(1);
       }
       if (debug) {
               wwnewtty.ww_tchars.t_quitc = wwoldtty.ww_tchars.t_quitc;
               (void) wwsettty(0, &wwnewtty);
       }

       if ((cmdwin = wwopen(WWO_REVERSE, 1, wwncol, 0, 0, 0)) == 0) {
               (void) wwflush();
               (void) fprintf(stderr, "Can't open command window.\r\n");
               goto bad;
       }
       if ((framewin = wwopen(WWO_GLASS, wwnrow, wwncol, 0, 0, 0)) == 0) {
               (void) wwflush();
               (void) fprintf(stderr, "Can't open frame window.\r\n");
               goto bad;
       }
       wwadd(framewin, &wwhead);
       if ((boxwin = wwopen(WWO_GLASS, wwnrow, wwncol, 0, 0, 0)) == 0) {
               (void) wwflush();
               (void) fprintf(stderr, "Can't open box window.\r\n");
               goto bad;
       }

       curwin = cmdwin;
       wwupdate();
       wwflush();
       (void) signal(SIGCHLD, wwchild);
       if (!fflag) {
               if (!terse)
                       wwadd(cmdwin, &wwhead);
               if (dflag || doconfig() < 0)
                       dodefault();
               if (selwin != 0) {
                       curwin = selwin;
                       /*
                       Woncursor(selwin->ww_win, 0);
                       */
               }
               if (!terse) {
                       wwdelete(cmdwin);
                       reframe();
               }
       }
       while (!quit) {
               if (curwin == cmdwin) {
                       docmd();
                       continue;
               }
               /*
                * Loop until we get some keyboard input.
                */
               while (ibufc == 0) {
                       wwcurtowin(curwin);
                       wwupdate();
                       wwflush();
                       imask = 1 << 0;
                       while (wwforce(&imask) < 0)
                               ;
                       if ((imask & 1 << 0) == 0)
                               continue;
                       /* NOTE: ibufc == 0 */
                       ibufp = ibuf;
                       if ((ibufc = read(0, ibuf, sizeof ibuf)) < 0) {
                               ibufc = 0;
                               nreade++;
                       } else if (ibufc == 0)
                               nreadz++;
                       else
                               nreadc += ibufc;
                       nread++;
               }
               /*
                * Weird loop.  Copy the buffer to the pty
                * and stopping on the escape character
                * in a hopefully efficient way.
                * Probably a good thing to make ibufc == 1 a special
                * case.
                */
               for (p = ibufp, n = ibufc;;) {
                       if (--n < 0) {
                               (void) write(curwin->ww_pty, ibufp, ibufc);
                               ibufp = ibuf;
                               ibufc = 0;
                               break;
                       } else if (*p++ == escapec) {
                               if ((n = p - ibufp) > 1)
                                       (void) write(curwin->ww_pty,
                                               ibufp, n - 1);
                               ibufp = p;
                               ibufc -= n;
                               curwin = cmdwin;
                               break;
                       }
               }
       }
       wwupdate();
       wwflush();
bad:
       wwend();
       return 0;
}

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