This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cygwin build harmonization, remove cygwin/Makefile.SHs
[perl5.git] / lib / ExtUtils / t / Embed.t
CommitLineData
39234879 1#!/usr/bin/perl
f1feeb72
NIS
2
3BEGIN {
39234879
MS
4 if( $ENV{PERL_CORE} ) {
5 chdir 't' if -d 't';
6 @INC = '../lib';
7 }
f1feeb72 8}
39234879
MS
9chdir 't';
10
f1feeb72
NIS
11use Config;
12use ExtUtils::Embed;
1091dea4 13use File::Spec;
f1feeb72
NIS
14
15open(my $fh,">embed_test.c") || die "Cannot open embed_test.c:$!";
16print $fh <DATA>;
17close($fh);
18
19$| = 1;
20print "1..9\n";
1091dea4
NIS
21my $cc = $Config{'cc'};
22my $cl = ($^O eq 'MSWin32' && $cc eq 'cl');
2a8c1a1c 23my $borl = ($^O eq 'MSWin32' && $cc eq 'bcc32');
dfcfdb64
IZ
24my $skip_exe = $^O eq 'os2' && $Config{ldflags} =~ /(?<!\S)-Zexe\b/;
25my $exe = 'embed_test';
26$exe .= $Config{'exe_ext'} unless $skip_exe; # Linker will auto-append it
9fb80172 27my $obj = 'embed_test' . $Config{'obj_ext'};
21f7eeb2
JH
28my $inc = File::Spec->updir;
29my $lib = File::Spec->updir;
88eeb692
SB
30my $libperl_copied;
31my $testlib;
1091dea4 32my @cmd;
20ebe338 33my (@cmd2) if $^O eq 'VMS';
92a665d6
YO
34# Don't use ccopts() here as we may want to overwrite an existing
35# perl with a new one with inconsistent header files, meaning
36# the usual value for perl_inc(), which is used by ccopts(),
37# will be wrong.
20ebe338
CL
38if ($^O eq 'VMS') {
39 push(@cmd,$cc,"/Obj=$obj");
40 my (@incs) = ($inc);
92a665d6 41 my $crazy = ccflags();
20ebe338
CL
42 if ($crazy =~ s#/inc[^=/]*=([\w\$\_\-\.\[\]\:]+)##i) {
43 push(@incs,$1);
44 }
45 if ($crazy =~ s/-I([a-zA-Z0-9\$\_\-\.\[\]\:]*)//) {
46 push(@incs,$1);
47 }
48 $crazy =~ s#/Obj[^=/]*=[\w\$\_\-\.\[\]\:]+##i;
49 push(@cmd,"/Include=(".join(',',@incs).")");
50 push(@cmd,$crazy);
51 push(@cmd,"embed_test.c");
52
53 push(@cmd2,$Config{'ld'}, $Config{'ldflags'}, "/exe=$exe");
54 push(@cmd2,"$obj,[-]perlshr.opt/opt,[-]perlshr_attr.opt/opt");
55
56} else {
57 if ($cl) {
1091dea4 58 push(@cmd,$cc,"-Fe$exe");
20ebe338 59 }
2a8c1a1c
VK
60 elsif ($borl) {
61 push(@cmd,$cc,"-o$exe");
62 }
20ebe338 63 else {
1091dea4 64 push(@cmd,$cc,'-o' => $exe);
20ebe338 65 }
14270b7a
JH
66 if ($^O eq 'dec_osf' && !defined $Config{usedl}) {
67 # The -non_shared is needed in case of -Uusedl or otherwise
68 # the test application will try to use libperl.so
69 # instead of libperl.a.
70 push @cmd, "-non_shared";
71 }
92a665d6
YO
72
73 push(@cmd,"-I$inc",ccflags(),'embed_test.c');
20ebe338 74 if ($^O eq 'MSWin32') {
b1b2427f 75 $inc = File::Spec->catdir($inc,'win32');
1091dea4 76 push(@cmd,"-I$inc");
b1b2427f 77 $inc = File::Spec->catdir($inc,'include');
1091dea4
NIS
78 push(@cmd,"-I$inc");
79 if ($cc eq 'cl') {
c623ac67 80 push(@cmd,'-link',"-libpath:$lib",$Config{'libperl'},$Config{'libs'});
1091dea4
NIS
81 }
82 else {
67bfc918 83 push(@cmd,"-L$lib",File::Spec->catfile($lib,$Config{'libperl'}),$Config{'libc'});
1091dea4 84 }
20ebe338 85 }
2f3efc97
JH
86 elsif ($^O eq 'os390' && $Config{usedl}) {
87 # Nothing for OS/390 (z/OS) dynamic.
88 } else { # Not MSWin32 or OS/390 (z/OS) dynamic.
1091dea4 89 push(@cmd,"-L$lib",'-lperl');
fee3faea 90 local $SIG{__WARN__} = sub {
c623ac67 91 warn $_[0] unless $_[0] =~ /No library found for .*perl/
fee3faea 92 };
dfcfdb64
IZ
93 push(@cmd, '-Zlinker', '/PM:VIO') # Otherwise puts a warning to STDOUT!
94 if $^O eq 'os2' and $Config{ldflags} =~ /(?<!\S)-Zomf\b/;
fee3faea 95 push(@cmd,ldopts());
20ebe338 96 }
2a8c1a1c
VK
97 if ($borl) {
98 @cmd = ($cmd[0],(grep{/^-[LI]/}@cmd[1..$#cmd]),(grep{!/^-[LI]/}@cmd[1..$#cmd]));
99 }
1091dea4 100
20ebe338 101 if ($^O eq 'aix') { # AIX needs an explicit symbol export list.
f490490f
JH
102 my ($perl_exp) = grep { -f } qw(perl.exp ../perl.exp);
103 die "where is perl.exp?\n" unless defined $perl_exp;
104 for (@cmd) {
105 s!-bE:(\S+)!-bE:$perl_exp!;
106 }
88eeb692 107 }
88eeb692
SB
108 elsif ($Config{'libperl'} !~ /\Alibperl\./) {
109 # Everyone needs libperl copied if it's not found by '-lperl'.
110 $testlib = $Config{'libperl'};
111 my $srclib = $testlib;
c72f2af0 112 $testlib =~ s/.+(?=\.[^.]*)/libperl/;
88eeb692
SB
113 $testlib = File::Spec::->catfile($lib, $testlib);
114 $srclib = File::Spec::->catfile($lib, $srclib);
115 if (-f $srclib) {
116 unlink $testlib if -f $testlib;
c7e0473b
MB
117 my $ln_or_cp = $Config{'ln'} || $Config{'cp'};
118 my $lncmd = "$ln_or_cp $srclib $testlib";
88eeb692
SB
119 #print "# $lncmd\n";
120 $libperl_copied = 1 unless system($lncmd);
121 }
122 }
f490490f 123}
20ebe338 124my $status;
b2213df5 125# On OS/2 the linker will always emit an empty line to STDOUT; filter these
2bf35fab
JH
126my $cmd = join ' ', @cmd;
127chomp($cmd); # where is the newline coming from? ldopts()?
128print "# $cmd\n";
129my @out = `$cmd`;
130$status = $?;
131print "# $_\n" foreach @out;
b2213df5 132
20ebe338
CL
133if ($^O eq 'VMS' && !$status) {
134 print "# @cmd2\n";
5f9145a3 135 $status = system(join(' ',@cmd2));
20ebe338
CL
136}
137print (($status? 'not ': '')."ok 1\n");
3be77bcf 138
144d6c83 139my $embed_test = File::Spec->catfile(File::Spec->curdir, $exe);
20ebe338 140$embed_test = "run/nodebug $exe" if $^O eq 'VMS';
144d6c83 141print "# embed_test = $embed_test\n";
20ebe338 142$status = system($embed_test);
7d63dedd 143print (($status? 'not ':'')."ok 9 # system returned $status\n");
9fb80172 144unlink($exe,"embed_test.c",$obj);
d59896ca 145unlink("$exe.manifest") if $cl and $Config{'ccversion'} =~ /^(\d+)/ and $1 >= 14;
dfcfdb64 146unlink("$exe$Config{exe_ext}") if $skip_exe;
9fb80172 147unlink("embed_test.map","embed_test.lis") if $^O eq 'VMS';
b53432e4 148unlink(glob("./*.dll")) if $^O eq 'cygwin';
88eeb692 149unlink($testlib) if $libperl_copied;
f1feeb72 150
92a665d6 151# gcc -g -I.. -L../ -o perl_test perl_test.c -lperl `../perl -I../lib -MExtUtils::Embed -I../ -e ccflags -e ldopts`
f1feeb72
NIS
152__END__
153
154/* perl_test.c */
155
156#include <EXTERN.h>
157#include <perl.h>
158
159#define my_puts(a) if(puts(a) < 0) exit(666)
160
473d7a83 161static const char * cmds [] = { "perl", "-e", "$|=1; print qq[ok 5\\n]", NULL };
f1feeb72 162
27da23d5
JH
163#ifdef PERL_GLOBAL_STRUCT_PRIVATE
164static struct perl_vars *my_plvarsp;
165struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; }
166#endif
167
2f3efc97 168#ifdef NO_ENV_ARRAY_IN_MAIN
473d7a83
RB
169int main(int argc, char **argv) {
170 char **env;
2f3efc97 171#else
473d7a83 172int main(int argc, char **argv, char **env) {
2f3efc97 173#endif
1ccffcf5 174 PerlInterpreter *my_perl;
27da23d5
JH
175#ifdef PERL_GLOBAL_STRUCT
176 dVAR;
177 struct perl_vars *plvarsp = init_global_struct();
178# ifdef PERL_GLOBAL_STRUCT_PRIVATE
179 my_vars = my_plvarsp = plvarsp;
180# endif
181#endif /* PERL_GLOBAL_STRUCT */
b7787f18
AL
182
183 (void)argc; /* PERL_SYS_INIT3 may #define away their use */
184 (void)argv;
473d7a83 185 PERL_SYS_INIT3(&argc, &argv, &env);
1ccffcf5
IZ
186
187 my_perl = perl_alloc();
f1feeb72
NIS
188
189 my_puts("ok 2");
190
191 perl_construct(my_perl);
192
193 my_puts("ok 3");
194
473d7a83 195 perl_parse(my_perl, NULL, (sizeof(cmds)/sizeof(char *))-1, (char **)cmds, env);
f1feeb72
NIS
196
197 my_puts("ok 4");
198
199 fflush(stdout);
200
201 perl_run(my_perl);
202
203 my_puts("ok 6");
204
205 perl_destruct(my_perl);
206
207 my_puts("ok 7");
208
209 perl_free(my_perl);
210
27da23d5
JH
211#ifdef PERL_GLOBAL_STRUCT
212 free_global_struct(plvarsp);
213#endif /* PERL_GLOBAL_STRUCT */
214
f1feeb72
NIS
215 my_puts("ok 8");
216
1ccffcf5
IZ
217 PERL_SYS_TERM();
218
f1feeb72
NIS
219 return 0;
220}