/*
* Erase to end of page.
*/
tteeop() {
#ifdef TCCONIO
ttflush();
clreol();
{
register int line;
for (line = ttrow + 1; line <= nrow; ++line)
{
gotoxy(1,line+1);
clreol();
}
ttrow = ttcol = HUGE;
}
#else
if(CD) putpad(CD, nrow - ttrow);
else
{
tteeol();
if (insdel) ttdell(ttrow + 1, LI, LI - ttrow - 1);
else /* do it by hand */
{
register int line;
for (line = ttrow + 1; line <= LI; ++line)
{
ttmove(line, 0);
tteeol();
}
}
ttrow = ttcol = HUGE;
}
#endif
}
/*
* Delete nchunk line(s) from "row", replacing the
* bottom line on the screen with a blank line.
* Unless we're using the scrolling region, this is
* done with a crafty sequences of insert and delete
* lines. The presence of the echo area makes a
* boundry condition go away.
*/
ttdell(row, bot, nchunk)
{
register int i, nl;
if (row == bot) { /* One line special case */
ttmove(row, 0);
tteeol();
return;
}
if (CS) { /* scrolling region */
nl = bot - row;
ttwindow(row, bot);
ttmove(bot, 0);
while (nchunk--) putpad(SF, nl);
ttnowindow();
}
else if(insdel) {
ttmove(row, 0); /* Else use insert/delete line */
nl = nrow - ttrow;
if (pDL) putpad(tgoto(pDL, 0, nchunk), nl);
else for (i=0; i<nchunk; i++) /* For all lines in the chunk */
putpad(DL, nl);
ttmove(1+bot-nchunk,0);
nl = nrow - ttrow; /* ttmove() changes ttrow */
if (pAL) putpad(tgoto(pAL, 0, nchunk), nl);
else for (i=0; i<nchunk; i++) /* For all lines in the chunk */
putpad(AL, nl);
ttrow = HUGE;
ttcol = HUGE;
} else panic("ttdell: Can't insert/delete line");
}
/*
* Insert nchunk blank line(s) onto the
* screen, scrolling the last line on the
* screen off the bottom. Use the scrolling
* region if possible for a smoother display.
* If no scrolling region, use a set
* of insert and delete line sequences
*/
ttinsl(row, bot, nchunk) {
register int i, nl;
if (row == bot) { /* Case of one line insert is */
ttmove(row, 0); /* special */
tteeol();
return;
}
if (CS && SR) { /* Use scroll region and back index */
nl = bot - row;
ttwindow(row,bot);
ttmove(row, 0);
while (nchunk--) putpad(SR, nl);
ttnowindow();
return;
} else if (insdel) {
ttmove(1+bot-nchunk, 0);
nl = nrow - ttrow;
if (pDL) putpad(tgoto(pDL, 0, nchunk), nl);
else for (i=0; i<nchunk; i++) /* For all lines in the chunk */
putpad(DL, nl);
ttmove(row, 0);
nl = nrow - ttrow; /* ttmove() changes ttrow */
if (pAL) putpad(tgoto(pAL, 0, nchunk), nl);
else for (i=0; i<nchunk; i++) /* For all lines in the chunk */
putpad(AL, nl);
ttrow = HUGE;
ttcol = HUGE;
} else panic("ttinsl: Can't insert/delete line");
}
/*
* Erase the echo line.
*/
void
eerase(void)
{
ttcolor(CTEXT);
ttmove(nrow - 1, 0);
tteeol();
ttflush();
epresf = FALSE;
}
/*
* Tidy up the virtual display system
* in anticipation of a return back to the host
* operating system. Right now all we do is position
* the cursor to the last line, erase the line, and
* close the terminal channel.
*/
void
vttidy (void)
{
ttcolor (CTEXT);
ttnowindow (); /* No scroll window. */
ttmove (nrow - 1, 0); /* Echo line. */
tteeol ();
tttidy ();
ttflush ();
ttclose ();
}
/*
* Erase to end of page.
*/
tteeop() {
if(CD) putpad(CD, nrow - ttrow);
else {
putpad(CE, 1);
if (insdel) ttdell(ttrow + 1, LI, LI - ttrow - 1);
else { /* do it by hand */
register int line;
for (line = ttrow + 1; line <= LI; ++line) {
ttmove(line, 0);
tteeol();
}
}
ttrow = ttcol = HUGE;
}
}
/* VARARGS */
void
ewprintf(const char *fmt, ...)
{
va_list ap;
if (inmacro)
return;
va_start(ap, fmt);
ttcolor(CTEXT);
ttmove(nrow - 1, 0);
eformat(fmt, ap);
va_end(ap);
tteeol();
ttflush();
epresf = TRUE;
}
/*
* Insert nchunk blank line(s) onto the screen, scrolling the last line on
* the screen off the bottom. Use the scrolling region if possible for a
* smoother display. If there is no scrolling region, use a set of insert
* and delete line sequences.
*/
void
ttinsl(int row, int bot, int nchunk)
{
int i, nl;
/* Case of one line insert is special. */
if (row == bot) {
ttmove(row, 0);
tteeol();
return;
}
if (change_scroll_region && scroll_reverse) {
/* Use scroll region and back index */
nl = bot - row;
ttwindow(row, bot);
ttmove(row, 0);
while (nchunk--)
putpad(scroll_reverse, nl);
ttnowindow();
return;
} else if (insdel) {
ttmove(1 + bot - nchunk, 0);
nl = nrow - ttrow;
if (parm_delete_line)
putpad(tgoto(parm_delete_line, 0, nchunk), nl);
else
/* For all lines in the chunk... */
for (i = 0; i < nchunk; i++)
putpad(delete_line, nl);
ttmove(row, 0);
/* ttmove() changes ttrow */
nl = nrow - ttrow;
if (parm_insert_line)
putpad(tgoto(parm_insert_line, 0, nchunk), nl);
else
/* For all lines in the chunk */
for (i = 0; i < nchunk; i++)
putpad(insert_line, nl);
ttrow = HUGE;
ttcol = HUGE;
} else
panic("ttinsl: Can't insert/delete line");
}
/*
* Delete nchunk line(s) from "row", replacing the bottom line on the
* screen with a blank line. Unless we're using the scrolling region,
* this is done with crafty sequences of insert and delete lines. The
* presence of the echo area makes a boundary condition go away.
*/
void
ttdell(int row, int bot, int nchunk)
{
int i, nl;
/* One line special cases */
if (row == bot) {
ttmove(row, 0);
tteeol();
return;
}
/* scrolling region */
if (change_scroll_region) {
nl = bot - row;
ttwindow(row, bot);
ttmove(bot, 0);
while (nchunk--)
putpad(scroll_fwd, nl);
ttnowindow();
/* else use insert/delete line */
} else if (insdel) {
ttmove(row, 0);
nl = nrow - ttrow;
if (parm_delete_line)
putpad(tgoto(parm_delete_line, 0, nchunk), nl);
else
/* For all lines in the chunk */
for (i = 0; i < nchunk; i++)
putpad(delete_line, nl);
ttmove(1 + bot - nchunk, 0);
/* ttmove() changes ttrow */
nl = nrow - ttrow;
if (parm_insert_line)
putpad(tgoto(parm_insert_line, 0, nchunk), nl);
else
/* For all lines in the chunk */
for (i = 0; i < nchunk; i++)
putpad(insert_line, nl);
ttrow = HUGE;
ttcol = HUGE;
} else
panic("ttdell: Can't insert/delete line");
}
spawncli(f, n)
{
fortran void comlv$();
ttcolor(CTEXT);
ttnowindow();
ttmove(nrow-1, 0);
if (epresf != FALSE) {
tteeol();
epresf = FALSE;
}
ttclose();
comlv$();
sgarbf = TRUE; /* Force repaint. */
ttopen();
#ifndef NO_DIR
(void) dirinit(); /* current directory may have changed */
#endif
return (TRUE);
}
/*ARGSUSED*/
spawncli(f, n) {
register void (*oisig)();
int status;
#ifdef EXTD_DIR
ensurecwd();
#endif
if (shellp == NULL) {
shellp = getenv("SHELL");
if (shellp == NULL)
shellp = getenv("shell");
if (shellp == NULL)
shellp = "command.x"; /* Safer. */
}
ttcolor(CTEXT);
ttnowindow();
ttmove(nrow-1, 0);
if (epresf != FALSE) {
tteeol();
epresf = FALSE;
}
ttclose();
sgarbf = TRUE; /* Force repaint. */
oisig = signal(SIGINT, SIG_IGN);
#ifdef EXTD_DIR
dirend();
#endif
if (spawnlp(P_WAIT, shellp, shellp, NULL) == -1) {
status = FALSE;
} else {
status = TRUE;
}
(VOID) signal(SIGINT, oisig);
ttopen();
if(status == FALSE) {
ewprintf("Failed to run %s", shellp);
sleep(2); /* Show this message for 2 sec */
/* before refresh screen. */
}
dirinit();
return (status);
}
/*
* Erase to end of page.
*/
void
tteeop(void)
{
int line;
if (clr_eos)
putpad(clr_eos, nrow - ttrow);
else {
putpad(clr_eol, 1);
if (insdel)
ttdell(ttrow + 1, lines, lines - ttrow - 1);
else {
/* do it by hand */
for (line = ttrow + 1; line <= lines; ++line) {
ttmove(line, 0);
tteeol();
}
}
ttrow = ttcol = HUGE;
}
}
/*
* Delete nchunk line(s) from "row", replacing the
* bottom line on the screen with a blank line.
* Unless we're using the scrolling region, this is
* done with a crafty sequences of insert and delete
* lines. The presence of the echo area makes a
* boundry condition go away.
*/
void
ttdell (int row, int bot, int nchunk)
{
register int i;
if (row == bot)
{ /* One line special case */
ttmove (row, 0);
tteeol ();
return;
}
if (CS)
{ /* scrolling region */
ttwindow (row, bot);
ttmove (bot, 0);
while (nchunk--)
ttputc (LF);
ttnowindow ();
}
else if (insdel)
{
ttmove (row, 0); /* Else use insert/delete line */
if (pDL)
putpad (tgoto (pDL, 0, nchunk));
else
for (i = 0; i < nchunk; i++) /* For all lines in the chunk */
putpad (DL);
ttmove (1 + bot - nchunk, 0);
if (pAL)
putpad (tgoto (pAL, 0, nchunk));
else
for (i = 0; i < nchunk; i++) /* For all lines in the chunk */
putpad (AL);
ttrow = HUGE;
ttcol = HUGE;
}
else
panic ("ttdell: Can't insert/delete line");
}
static char *
veread(const char *fp, char *buf, size_t nbuf, int flag, va_list ap)
{
int dynbuf = (buf == NULL);
int cpos, epos; /* cursor, end position in buf */
int c, i, y;
int cplflag = FALSE; /* display completion list */
int cwin = FALSE; /* completion list created */
int mr = 0; /* match left arrow */
int ml = 0; /* match right arrow */
int esc = 0; /* position in esc pattern */
struct buffer *bp; /* completion list buffer */
struct mgwin *wp; /* window for compl list */
int match; /* esc match found */
int cc, rr; /* saved ttcol, ttrow */
char *ret; /* return value */
static char emptyval[] = ""; /* XXX hackish way to return err msg*/
if (inmacro) {
if (dynbuf) {
if ((buf = malloc(maclcur->l_used + 1)) == NULL)
return (NULL);
} else if (maclcur->l_used >= nbuf)
return (NULL);
bcopy(maclcur->l_text, buf, maclcur->l_used);
buf[maclcur->l_used] = '\0';
maclcur = maclcur->l_fp;
return (buf);
}
epos = cpos = 0;
ml = mr = esc = 0;
cplflag = FALSE;
if ((flag & EFNEW) != 0 || ttrow != nrow - 1) {
ttcolor(CTEXT);
ttmove(nrow - 1, 0);
epresf = TRUE;
} else
eputc(' ');
eformat(fp, ap);
if ((flag & EFDEF) != 0) {
if (buf == NULL)
return (NULL);
eputs(buf);
epos = cpos += strlen(buf);
}
tteeol();
ttflush();
for (;;) {
c = getkey(FALSE);
if ((flag & EFAUTO) != 0 && c == CCHR('I')) {
if (cplflag == TRUE) {
complt_list(flag, buf, cpos);
cwin = TRUE;
} else if (complt(flag, c, buf, nbuf, epos, &i) == TRUE) {
cplflag = TRUE;
epos += i;
cpos = epos;
}
continue;
}
cplflag = FALSE;
if (esc > 0) { /* ESC sequence started */
match = 0;
if (ml == esc && key_left[ml] && c == key_left[ml]) {
match++;
if (key_left[++ml] == '\0') {
c = CCHR('B');
esc = 0;
}
}
if (mr == esc && key_right[mr] && c == key_right[mr]) {
match++;
if (key_right[++mr] == '\0') {
c = CCHR('F');
esc = 0;
}
}
if (match == 0) {
esc = 0;
continue;
/* hack. how do we know esc pattern is done? */
}
if (esc > 0) {
esc++;
continue;
}
}
switch (c) {
case CCHR('A'): /* start of line */
while (cpos > 0) {
if (ISCTRL(buf[--cpos]) != FALSE) {
ttputc('\b');
--ttcol;
}
ttputc('\b');
--ttcol;
}
ttflush();
break;
case CCHR('D'):
if (cpos != epos) {
tteeol();
epos--;
rr = ttrow;
cc = ttcol;
for (i = cpos; i < epos; i++) {
buf[i] = buf[i + 1];
eputc(buf[i]);
}
ttmove(rr, cc);
ttflush();
}
break;
case CCHR('E'): /* end of line */
while (cpos < epos) {
eputc(buf[cpos++]);
}
ttflush();
break;
case CCHR('B'): /* back */
if (cpos > 0) {
if (ISCTRL(buf[--cpos]) != FALSE) {
ttputc('\b');
--ttcol;
}
ttputc('\b');
--ttcol;
ttflush();
}
break;
case CCHR('F'): /* forw */
if (cpos < epos) {
eputc(buf[cpos++]);
ttflush();
}
break;
case CCHR('Y'): /* yank from kill buffer */
i = 0;
while ((y = kremove(i++)) >= 0 && y != '\n') {
int t;
if (dynbuf && epos + 1 >= nbuf) {
void *newp;
size_t newsize = epos + epos + 16;
if ((newp = realloc(buf, newsize))
== NULL)
goto memfail;
buf = newp;
nbuf = newsize;
}
if (!dynbuf && epos + 1 >= nbuf) {
ewprintf("Line too long");
return (emptyval);
}
for (t = epos; t > cpos; t--)
buf[t] = buf[t - 1];
buf[cpos++] = (char)y;
epos++;
eputc((char)y);
cc = ttcol;
rr = ttrow;
for (t = cpos; t < epos; t++)
eputc(buf[t]);
ttmove(rr, cc);
}
ttflush();
break;
case CCHR('K'): /* copy here-EOL to kill buffer */
kdelete();
for (i = cpos; i < epos; i++)
kinsert(buf[i], KFORW);
tteeol();
epos = cpos;
ttflush();
break;
case CCHR('['):
ml = mr = esc = 1;
break;
case CCHR('J'):
c = CCHR('M');
/* FALLTHROUGH */
case CCHR('M'): /* return, done */
/* if there's nothing in the minibuffer, abort */
if (epos == 0 && !(flag & EFNUL)) {
(void)ctrlg(FFRAND, 0);
ttflush();
return (NULL);
}
if ((flag & EFFUNC) != 0) {
if (complt(flag, c, buf, nbuf, epos, &i)
== FALSE)
continue;
if (i > 0)
epos += i;
}
buf[epos] = '\0';
if ((flag & EFCR) != 0) {
ttputc(CCHR('M'));
ttflush();
}
if (macrodef) {
struct line *lp;
if ((lp = lalloc(cpos)) == NULL)
goto memfail;
lp->l_fp = maclcur->l_fp;
maclcur->l_fp = lp;
lp->l_bp = maclcur;
maclcur = lp;
bcopy(buf, lp->l_text, cpos);
}
ret = buf;
goto done;
case CCHR('G'): /* bell, abort */
eputc(CCHR('G'));
(void)ctrlg(FFRAND, 0);
ttflush();
ret = NULL;
goto done;
case CCHR('H'): /* rubout, erase */
case CCHR('?'):
if (cpos != 0) {
y = buf[--cpos];
epos--;
ttputc('\b');
ttcol--;
if (ISCTRL(y) != FALSE) {
ttputc('\b');
ttcol--;
}
rr = ttrow;
cc = ttcol;
for (i = cpos; i < epos; i++) {
buf[i] = buf[i + 1];
eputc(buf[i]);
}
ttputc(' ');
if (ISCTRL(y) != FALSE) {
ttputc(' ');
ttputc('\b');
}
ttputc('\b');
ttmove(rr, cc);
ttflush();
}
break;
case CCHR('X'): /* kill line */
case CCHR('U'):
while (cpos != 0) {
ttputc('\b');
ttputc(' ');
ttputc('\b');
--ttcol;
if (ISCTRL(buf[--cpos]) != FALSE) {
ttputc('\b');
ttputc(' ');
ttputc('\b');
--ttcol;
}
epos--;
}
ttflush();
break;
case CCHR('W'): /* kill to beginning of word */
while ((cpos > 0) && !ISWORD(buf[cpos - 1])) {
ttputc('\b');
ttputc(' ');
ttputc('\b');
--ttcol;
if (ISCTRL(buf[--cpos]) != FALSE) {
ttputc('\b');
ttputc(' ');
ttputc('\b');
--ttcol;
}
epos--;
}
while ((cpos > 0) && ISWORD(buf[cpos - 1])) {
ttputc('\b');
ttputc(' ');
ttputc('\b');
--ttcol;
if (ISCTRL(buf[--cpos]) != FALSE) {
ttputc('\b');
ttputc(' ');
ttputc('\b');
--ttcol;
}
epos--;
}
ttflush();
break;
case CCHR('\\'):
case CCHR('Q'): /* quote next */
c = getkey(FALSE);
/* FALLTHROUGH */
default:
if (dynbuf && epos + 1 >= nbuf) {
void *newp;
size_t newsize = epos + epos + 16;
if ((newp = realloc(buf, newsize)) == NULL)
goto memfail;
buf = newp;
nbuf = newsize;
}
if (!dynbuf && epos + 1 >= nbuf) {
ewprintf("Line too long");
return (emptyval);
}
for (i = epos; i > cpos; i--)
buf[i] = buf[i - 1];
buf[cpos++] = (char)c;
epos++;
eputc((char)c);
cc = ttcol;
rr = ttrow;
for (i = cpos; i < epos; i++)
eputc(buf[i]);
ttmove(rr, cc);
ttflush();
}
}
done:
if (cwin == TRUE) {
/* blow away cpltion window */
bp = bfind("*Completions*", TRUE);
if ((wp = popbuf(bp, WEPHEM)) != NULL) {
if (wp->w_flag & WEPHEM) {
curwp = wp;
delwind(FFRAND, 1);
} else {
killbuffer(bp);
}
}
}
return (ret);
memfail:
if (dynbuf && buf)
free(buf);
ewprintf("Out of memory");
return (emptyval);
}
/*ARGSUSED*/
spawncli(f, n)
{
extern char *strrchr();
register int pid;
register int wpid;
register VOID (*oqsig)();
register VOID (*oisig)();
#ifdef ADDFUNC /* 93.07.08 by S.Yoshida */
#ifdef SIGWINCH /* 93.07.08 by S.Yoshida */
register VOID (*owsig)();
#endif
#ifdef SIGTSTP /* 93.07.08 by S.Yoshida */
register int omask;
#endif
#endif /* ADDFUNC */
int status = FALSE;
int errp = FALSE;
#ifdef XKEYS /* 92.03.16 by Gen KUROKI */
ttykeymaptidy();
#endif /* XKEYS */
if (shellp == NULL) {
shellp = getenv("SHELL");
if (shellp == NULL)
shellp = getenv("shell");
if (shellp == NULL)
shellp = "/bin/sh"; /* Safer. */
shname = strrchr( shellp, '/' );
shname = shname ? shname+1 : shellp;
}
ttcolor(CTEXT);
ttnowindow();
#ifdef ADDFUNC /* 93.07.08 by S.Yoshida */
#ifdef SIGTSTP /* 93.07.08 by S.Yoshida */
if (strcmp(shellp, "/bin/csh") == 0) {
if (epresf != FALSE) {
ttmove(nrow-1, 0);
tteeol();
epresf = FALSE;
} /* Csh types a "\n" */
ttmove(nrow-2, 0); /* before "Stopped". */
} else {
#endif
#endif
ttmove(nrow-1, 0);
if (epresf != FALSE) {
tteeol();
epresf = FALSE;
}
#ifdef ADDFUNC /* 93.07.08 by S.Yoshida */
#ifdef SIGTSTP /* 93.07.08 by S.Yoshida */
}
#endif
#endif
ttclose();
sgarbf = TRUE; /* Force repaint. */
#ifdef ADDFUNC /* 93.07.08 by S.Yoshida */
#ifdef SIGTSTP /* 93.07.08 by S.Yoshida */
# ifdef HAVE_GETSID
if (job_control) {
# else
if (strcmp(shellp, "/bin/sh")!=0 ||
getenv("BASH_VERSION") || getenv("BASH")) {
/* C shell, ksh or bash */
# endif
/* omask = sigsetmask(0); */
oqsig = signal(SIGQUIT, SIG_IGN);
oisig = signal(SIGINT, SIG_IGN);
#ifdef SIGWINCH /* 93.07.08 by S.Yoshida */
owsig = signal(SIGWINCH, SIG_IGN);
#endif
(void) kill(0, SIGTSTP);
/* (void) sigsetmask(omask); */
signal(SIGINT, oisig);
signal(SIGQUIT, oqsig);
#ifdef SIGWINCH /* 93.07.08 by S.Yoshida */
signal(SIGWINCH, owsig);
#endif
} else { /* Bourne shell. */
#endif /* SIGTSTP */
#endif /* ADDFUNC */
oqsig = signal(SIGQUIT, SIG_IGN);
oisig = signal(SIGINT, SIG_IGN);
#ifdef ADDFUNC /* 93.07.08 by S.Yoshida */
#ifdef SIGWINCH /* 93.07.08 by S.Yoshida */
owsig = signal(SIGWINCH, SIG_IGN);
#endif
#endif
if ((pid=fork()) == 0) {
(void) signal(SIGINT, oisig);
(void) signal(SIGQUIT, oqsig);
#ifdef ADDFUNC /* 93.07.08 by S.Yoshida */
#ifdef SIGWINCH /* 93.07.08 by S.Yoshida */
(void) signal(SIGWINCH, owsig);
#endif
#endif
#ifdef EXTD_DIR
dirend();
#endif
execlp(shellp, shname, "-i", (char *)NULL);
_exit(1); /* Should do better! */
}
else if (pid > 0) {
while ((wpid=wait(&status))>=0 && wpid!=pid)
;
}
else errp = TRUE;
signal(SIGINT, oisig);
signal(SIGQUIT, oqsig);
#ifdef ADDFUNC /* 93.07.08 by S.Yoshida */
#ifdef SIGWINCH /* 93.07.08 by S.Yoshida */
signal(SIGWINCH, owsig);
#endif
#ifdef SIGTSTP /* 93.07.08 by S.Yoshida */
}
#endif
#endif
ttopen();
#ifdef SIGWINCH /* by A.ITO 21 Jan. 1991 / by S.Yoshida */
refresh(FFRAND, 0); /* May be resized. */
#endif
if(errp)
ewprintf("Failed to create process");
#ifdef XKEYS /* 92.03.16 by Gen KUROKI */
ttykeypadstart();
#endif /* XKEYS */
return !( errp | status );
}
#ifndef NO_SHELL /* 91.01.10 by K.Maeda */
#include <sys/types.h>
#include <sys/stat.h>
/*
* Call process in subshell.
* Execute COMMAND binding standard input to file INPUT.
* NULL as INPUT means standard input should be bound to
* /dev/null or whatever equivalent in your OS.
* All output during the execution (including standard error output)
* should go into a scratch file, whose name call_process() returns.
* Return value NULL means error in some stage of the execution.
* In that case, scratch file should be deleted.
*/
char *
call_process(command, input)
char *command;
char *input;
{
char buf[256];
char *tmp;
static char tmpbuf[20];
int ostdin, ostdout, ostderr, in, out, s;
extern char *mktemp();
strcpy(tmpbuf, "/tmp/ngXXXXXX");
if ((tmp = mktemp(tmpbuf)) == NULL)
return NULL;
if ((in = open(input ? input : "/dev/null", 0)) < 0)
return NULL;
if ((out = creat(tmp, S_IREAD | S_IWRITE)) < 0) {
close(in);
return NULL;
}
ostdin = dup(0); ostdout = dup(1); ostderr = dup(2);
if (ostdin < 0 || ostdout < 0 || ostderr < 0) {
s = -1;
goto skip;
}
#ifndef SVR2 /* 91.02.04 SVR3 or later. by Junn Ohta */
dup2(in, 0);
dup2(out, 1);
dup2(out, 2);
#else /* SVR2 */
close(0); dup(in);
close(1); dup(out);
close(2); dup(out);
#endif /* SVR2 */
strcpy(buf, command);
#ifdef EXTD_DIR
ensurecwd();
#endif
s = system(buf);
close(in);
close(out);
#ifndef SVR2 /* 91.02.04 SVR3 or later. by Junn Ohta */
dup2(ostdin, 0); dup2(ostdout, 1); dup2(ostderr, 2);
#else /* SVR2 */
close(0); dup(ostdin);
close(1); dup(ostdout);
close(2); dup(ostderr);
#endif /* SVR2 */
skip: close(ostdin); close(ostdout); close(ostderr);
if (s == -1) {
unlink(tmp);
return NULL;
}
return tmp;
}
