1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
static void par_redo_stack (pTHX_ void *data) {
PUSHEVAL((&cxstack[0]) , "", Nullgv);
}
XS(XS_Internals_PAR_CLEARSTACK) {
dounwind(-1);
SAVEDESTRUCTOR_X(par_redo_stack, 0);
}
XS(XS_Internals_PAR_BOOT) {
GV* tmpgv;
AV* tmpav;
SV** svp;
int i;
int ok = 0;
char *buf;
TAINT;
if (!(buf = par_getenv("PAR_INITIALIZED")) || buf[0] != '1' || buf[1] != '\0') {
par_init_env();
}
if ((tmpgv = gv_fetchpv("ARGV", TRUE, SVt_PVAV))) {/* @ARGV */
tmpav = GvAV(tmpgv);
for (i = 1; i < options_count; i++) {
svp = av_fetch(tmpav, i-1, 0);
if (!svp) break;
if (strcmp(fakeargv[i], SvPV_nolen(*svp))) break;
ok++;
}
if (ok == options_count - 1) {
for (i = 1; i < options_count; i++) {
av_shift(tmpav);
}
}
}
if ((tmpgv = gv_fetchpv("\030",TRUE, SVt_PV))) {/* $^X */
#ifdef WIN32
sv_setpv(GvSV(tmpgv),"perl.exe");
#else
sv_setpv(GvSV(tmpgv),"perl");
#endif
SvSETMAGIC(GvSV(tmpgv));
}
if ((tmpgv = gv_fetchpv("0", TRUE, SVt_PV))) {/* $0 */
char *prog = NULL;
if ( ( prog = par_getenv("PAR_PROGNAME") ) ) {
sv_setpv(GvSV(tmpgv), prog);
}
else {
#ifdef HAS_PROCSELFEXE
S_procself_val(aTHX_ GvSV(tmpgv), fakeargv[0]);
#else
#ifdef OS2
sv_setpv(GvSV(tmpgv), os2_execname(aTHX));
#else
prog = par_current_exec();
if( prog != NULL ) {
sv_setpv( GvSV(tmpgv), prog );
free( prog );
}
else {
sv_setpv(GvSV(tmpgv), fakeargv[0]);
}
#endif
#endif
}
#if (PERL_REVISION == 5 && PERL_VERSION == 8 \
&& ( PERL_SUBVERSION >= 1 && PERL_SUBVERSION <= 5)) || \
(PERL_REVISION == 5 && PERL_VERSION >= 9 && PERL_SUBVERSION <= 1)
/* 5.8.1 and later perl versions no longer copies fakeargv, sigh */
{
char *p;
STRLEN len = strlen( fakeargv[0] );
New( 42, p, len+1, char );
Copy( fakeargv[0], p, len, char );
SvSETMAGIC(GvSV(tmpgv));
Copy( p, fakeargv[0], len, char );
fakeargv[0][len] = '\0';
Safefree( p );
}
/*
#else
SvSETMAGIC(GvSV(tmpgv));
*/
#endif
}
TAINT_NOT;
/* PL_main_cv = PL_compcv; */
PL_compcv = 0;
/* create temporary PAR directory */
stmpdir = par_getenv("PAR_TEMP");
if ( stmpdir == NULL ) {
stmpdir = par_mktmpdir( fakeargv );
#ifndef WIN32
i = execvp(SvPV_nolen(GvSV(tmpgv)), fakeargv);
croak("%s: execution of %s failed - aborting with %i.\n", fakeargv[0],
SvPV_nolen(GvSV(tmpgv)), i);
return;
#endif
}
i = PerlDir_mkdir(stmpdir, 0755);
if ( (i != 0) && (i != EEXIST) && (i != -1) ) {
croak("%s: creation of private temporary subdirectory %s failed - aborting with %i.\n", fakeargv[0], stmpdir, i);
return;
}
}
static void par_xs_init(pTHX)
{
xs_init(aTHX);
newXSproto("Internals::PAR::BOOT", XS_Internals_PAR_BOOT, "", "");
#ifdef PAR_CLEARSTACK
newXSproto("Internals::PAR::CLEARSTACK", XS_Internals_PAR_CLEARSTACK, "", "");
#endif
}
|
