/*
* Like eval, only using the current file descriptors
*/
static void
doeval1(Char **v)
{
struct eval1_state state;
Char **gv;
int gflag;
gflag = tglob(v);
if (gflag) {
gv = v = globall(v, gflag);
if (v == 0)
stderror(ERR_NOMATCH);
v = copyblk(v);
}
else {
gv = NULL;
v = copyblk(v);
trim(v);
}
if (gv)
cleanup_push(gv, blk_cleanup);
state.evalvec = evalvec;
state.evalp = evalp;
evalvec = v;
evalp = 0;
cleanup_push(&state, eval1_cleanup);
process(0);
cleanup_until(&state);
if (gv)
cleanup_until(gv);
}
/*
* Subroutine to do actual fixing after state initialization.
*/
void
Dfix2(tchar **v)
{
tchar *agargv[GAVSIZ];
#ifdef TRACE
tprintf("TRACE- Dfix2()\n");
#endif
ginit(agargv); /* Initialize glob's area pointers */
Dvp = v; Dcp = S_ /* "" */; /* Setup input vector for Dreadc */
unDgetC(0); unDredc(0); /* Clear out any old peeks (at error) */
dolp = 0; dolcnt = 0; /* Clear out residual $ expands (...) */
while (Dword())
continue;
gargv = copyblk(gargv);
}
FILE *
ftpd_popen(char *program, char *type, int closestderr)
{
register char *cp;
FILE *iop;
int argc,
gargc,
pdes[2],
pid;
char **pop,
*argv[100],
*gargv[1000],
*vv[2];
extern char **ftpglob(register char *v),
**copyblk(register char **v),
*strspl(register char *cp, register char *dp);
if (*type != 'r' && *type != 'w' || type[1])
return (NULL);
if (!pids) {
#ifndef HAVE_GETDTABLESIZE
struct rlimit rlp;
rlp.rlim_cur = rlp.rlim_max = RLIM_INFINITY;
if (getrlimit( RLIMIT_NOFILE, &rlp ) )
return(NULL);
fds = rlp.rlim_cur;
#else
if ((fds = getdtablesize()) <= 0)
return (NULL);
#endif
if ((pids = (int *) malloc((u_int) (fds * sizeof(int)))) == NULL)
return (NULL);
#ifdef USG
(void) memset((char *)pids, fds * sizeof(int), 0);
#else
bzero((char *) pids, fds * sizeof(int));
#endif
}
if (pipe(pdes) < 0)
return (NULL);
/* break up string into pieces */
for (argc = 0, cp = program;; cp = NULL)
if (!(argv[argc++] = strtok(cp, " \t\n")))
break;
/* glob each piece */
gargv[0] = argv[0];
for (gargc = argc = 1; argv[argc]; argc++) {
if (!(pop = ftpglob(argv[argc]))) { /* globbing failed */
vv[0] = strspl(argv[argc], "");
vv[1] = NULL;
pop = copyblk(vv);
}
argv[argc] = (char *) pop; /* save to free later */
while (*pop && gargc < 1000)
gargv[gargc++] = *pop++;
}
gargv[gargc] = NULL;
iop = NULL;
switch (pid = vfork()) {
case -1: /* error */
(void) close(pdes[0]);
(void) close(pdes[1]);
goto pfree;
/* NOTREACHED */
case 0: /* child */
if (*type == 'r') {
if (pdes[1] != 1) {
dup2(pdes[1], 1);
if (closestderr)
(void) close(2);
else
dup2(pdes[1], 2); /* stderr, too! */
(void) close(pdes[1]);
}
(void) close(pdes[0]);
} else {
if (pdes[0] != 0) {
dup2(pdes[0], 0);
(void) close(pdes[0]);
}
(void) close(pdes[1]);
}
execv(gargv[0], gargv);
_exit(1);
}
/* parent; assume fdopen can't fail... */
if (*type == 'r') {
iop = fdopen(pdes[0], type);
(void) close(pdes[1]);
} else {
iop = fdopen(pdes[1], type);
(void) close(pdes[0]);
}
pids[fileno(iop)] = pid;
pfree:for (argc = 1; argv[argc] != NULL; argc++) {
blkfree((char **) argv[argc]);
free((char *) argv[argc]);
}
return (iop);
}
