multiple window

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

#ifndef lint
static  char *sccsid = "@(#)wwspawn.c   1.3 83/07/18";
#endif

#include "ww.h"

wwfork(wp)
register struct ww *wp;
{
       switch (wp->ww_pid = fork()) {
       case -1:
               return -1;
       case 0:
               wp->ww_state = WW_INCHILD;
               wwenviron(wp);
               return 0;
       default:
               wp->ww_state = WW_HASPROC;
               close(wp->ww_tty);
               wp->ww_tty = -1;
               return wp->ww_pid;
       }
}

#define TERM    "TERM=window"
#define TERMCAP "TERMCAP=WW|window|window package:\
       :cr=^M:nl=^J:bl=^G:\
       :al=\\EL:am:le=^H:bs:cd=\\EJ:ce=\\EK:cl=\\EE:cm=\\EY%%+ %%+ :\
       :co#%d:dc=\\EN:dl=\\EM:do=\\EB:ei=\\EO:ho=\\EH:li#%d:im=\\E@:mi:\
       :nd=\\EC:ta=^I:pt:up=\\EA:"
static char *env[100];
static char buf[sizeof TERMCAP + 10];
extern char **environ;

wwenviron(wp)
register struct ww *wp;
{
       register i;
       register char **p, **q;
       char **termcap = 0;

       dup2(wp->ww_tty, 0);
       dup2(wp->ww_tty, 1);
       dup2(wp->ww_tty, 2);
       for (i = getdtablesize() - 1; i > 2; i--)
               close(i);
       /*
       i = open("/dev/tty");
       ioctl(i, TIOCNOTTY, 0);
       close(i);
       */

       for (p = environ, q = env; *p; p++, q++) {
               if (strncmp(*p, "TERM=", 5) == 0)
                       *q = TERM;
               else if (strncmp(*p, "TERMCAP=", 8) == 0)
                       termcap = q;
               else
                       *q = *p;
       }
       if (termcap == 0)
               termcap = q++;
       *q = 0;
       *termcap = sprintf(buf, TERMCAP, wp->ww_incol, wp->ww_inrow);
       environ = env;
}