int
do_aspawn(SV* really, SV **mark, SV **sp)
{
char **a,
*tmps;
struct inheritance inherit;
pid_t pid;
int status,
fd,
nFd,
fdMap[3];
SV *sv,
**p_sv;
STRLEN n_a;
status = FAIL;
if (sp > mark)
{
Newx(PL_Argv, sp - mark + 1, char*);
a = PL_Argv;
while (++mark <= sp)
{
if (*mark)
*a++ = SvPVx(*mark, n_a);
else
*a++ = "";
}
inherit.flags = SPAWN_SETGROUP;
inherit.pgroup = SPAWN_NEWPGROUP;
fdMap[STDIN_FILENO] = Perl_stdin_fd;
fdMap[STDOUT_FILENO] = Perl_stdout_fd;
fdMap[STDERR_FILENO] = STDERR_FILENO;
nFd = 3;
*a = NULL;
/*-----------------------------------------------------*/
/* Will execvp() use PATH? */
/*-----------------------------------------------------*/
if (*PL_Argv[0] != '/')
TAINT_ENV();
if (really && *(tmps = SvPV(really, n_a)))
pid = spawnp(tmps, nFd, fdMap, &inherit,
(const char **) PL_Argv,
(const char **) environ);
else
pid = spawnp(PL_Argv[0], nFd, fdMap, &inherit,
(const char **) PL_Argv,
(const char **) environ);
if (pid < 0)
{
status = FAIL;
if (ckWARN(WARN_EXEC))
warner(WARN_EXEC,"Can't exec \"%s\": %s",
PL_Argv[0],
Strerror(errno));
}
else
{
/*------------------------------------------------*/
/* If the file descriptors have been remapped then*/
/* we've been called following a my_popen request */
/* therefore we don't want to wait for spawnned */
/* program to complete. We need to set the fdpid */
/* value to the value of the spawnned process' pid*/
/*------------------------------------------------*/
fd = 0;
if (Perl_stdin_fd != STDIN_FILENO)
fd = Perl_stdin_fd;
else
if (Perl_stdout_fd != STDOUT_FILENO)
fd = Perl_stdout_fd;
if (fd != 0)
{
/*---------------------------------------------*/
/* Get the fd of the other end of the pipe, */
/* use this to reference the fdpid which will */
/* be used by my_pclose */
/*---------------------------------------------*/
close(fd);
MUTEX_LOCK(&PL_fdpid_mutex);
p_sv = av_fetch(PL_fdpid,fd,TRUE);
fd = (int) SvIVX(*p_sv);
SvREFCNT_dec(*p_sv);
*p_sv = &PL_sv_undef;
sv = *av_fetch(PL_fdpid,fd,TRUE);
MUTEX_UNLOCK(&PL_fdpid_mutex);
(void) SvUPGRADE(sv, SVt_IV);
SvIVX(sv) = pid;
status = 0;
}
else
wait4pid(pid, &status, 0);
}
do_execfree();
}
/*
* Parse attributes from an argument list.
*/
static struct attr *
gcc_attribs(NODE *p)
{
NODE *q, *r;
struct attr *ap;
char *name = NULL, *c;
int cw, attr, narg;
if (p->n_op == NAME) {
name = (char *)p->n_sp;
} else if (p->n_op == CALL || p->n_op == UCALL) {
name = (char *)p->n_left->n_sp;
} else if (p->n_op == ICON && p->n_type == STRTY) {
return NULL;
} else
cerror("bad variable attribute");
if ((attr = amatch(name, atax, GCC_ATYP_MAX)) == 0) {
warner(Wattributes, name);
ap = NULL;
goto out;
}
narg = 0;
if (p->n_op == CALL)
for (narg = 1, q = p->n_right; q->n_op == CM; q = q->n_left)
narg++;
cw = atax[attr].typ;
if (!(cw & A_MANY) && ((narg > 3) || ((cw & (1 << narg)) == 0))) {
uerror("wrong attribute arg count");
return NULL;
}
ap = attr_new(attr, 3); /* XXX should be narg */
q = p->n_right;
switch (narg) {
default:
/* XXX */
while (narg-- > 3) {
r = q;
q = q->n_left;
tfree(r->n_right);
nfree(r);
}
/* FALLTHROUGH */
case 3:
setaarg(cw & (A3_NAME|A3_STR), &ap->aa[2], q->n_right);
r = q;
q = q->n_left;
nfree(r);
/* FALLTHROUGH */
case 2:
setaarg(cw & (A2_NAME|A2_STR), &ap->aa[1], q->n_right);
r = q;
q = q->n_left;
nfree(r);
/* FALLTHROUGH */
case 1:
setaarg(cw & (A1_NAME|A1_STR), &ap->aa[0], q);
p->n_op = UCALL;
/* FALLTHROUGH */
case 0:
break;
}
/* some attributes must be massaged special */
switch (attr) {
case ATTR_ALIGNED:
if (narg == 0)
ap->aa[0].iarg = ALMAX;
else
ap->aa[0].iarg *= SZCHAR;
break;
case GCC_ATYP_PACKED:
if (narg == 0)
ap->aa[0].iarg = 1; /* bitwise align */
else
ap->aa[0].iarg *= SZCHAR;
break;
case GCC_ATYP_VISIBILITY:
c = ap->aa[0].sarg;
if (strcmp(c, "default") && strcmp(c, "hidden") &&
strcmp(c, "internal") && strcmp(c, "protected"))
werror("unknown visibility %s", c);
break;
case GCC_ATYP_TLSMODEL:
c = ap->aa[0].sarg;
if (strcmp(c, "global-dynamic") && strcmp(c, "local-dynamic") &&
strcmp(c, "initial-exec") && strcmp(c, "local-exec"))
werror("unknown tls model %s", c);
break;
default:
break;
}
out:
return ap;
}
