1#!/usr/bin/perl 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 chdir 't' if -d 't'; 6 @INC = '../lib'; 7 } 8} 9chdir 't'; 10 11use Config; 12use ExtUtils::Embed; 13use File::Spec; 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"; 21my $cc = $Config{'cc'}; 22my $cl = ($^O eq 'MSWin32' && $cc eq 'cl'); 23my $borl = ($^O eq 'MSWin32' && $cc eq 'bcc32'); 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 27my $obj = 'embed_test' . $Config{'obj_ext'}; 28my $inc = File::Spec->updir; 29my $lib = File::Spec->updir; 30my $libperl_copied; 31my $testlib; 32my @cmd; 33my (@cmd2) if $^O eq 'VMS'; 34 35if ($^O eq 'VMS') { 36 push(@cmd,$cc,"/Obj=$obj"); 37 my (@incs) = ($inc); 38 my $crazy = ccopts(); 39 if ($crazy =~ s#/inc[^=/]*=([\w\$\_\-\.\[\]\:]+)##i) { 40 push(@incs,$1); 41 } 42 if ($crazy =~ s/-I([a-zA-Z0-9\$\_\-\.\[\]\:]*)//) { 43 push(@incs,$1); 44 } 45 $crazy =~ s#/Obj[^=/]*=[\w\$\_\-\.\[\]\:]+##i; 46 push(@cmd,"/Include=(".join(',',@incs).")"); 47 push(@cmd,$crazy); 48 push(@cmd,"embed_test.c"); 49 50 push(@cmd2,$Config{'ld'}, $Config{'ldflags'}, "/exe=$exe"); 51 push(@cmd2,"$obj,[-]perlshr.opt/opt,[-]perlshr_attr.opt/opt"); 52 53} else { 54 if ($cl) { 55 push(@cmd,$cc,"-Fe$exe"); 56 } 57 elsif ($borl) { 58 push(@cmd,$cc,"-o$exe"); 59 } 60 else { 61 push(@cmd,$cc,'-o' => $exe); 62 } 63 push(@cmd,"-I$inc",ccopts(),'embed_test.c'); 64 if ($^O eq 'MSWin32') { 65 $inc = File::Spec->catdir($inc,'win32'); 66 push(@cmd,"-I$inc"); 67 $inc = File::Spec->catdir($inc,'include'); 68 push(@cmd,"-I$inc"); 69 if ($cc eq 'cl') { 70 push(@cmd,'-link',"-libpath:$lib",$Config{'libperl'},$Config{'libs'}); 71 } 72 else { 73 push(@cmd,"-L$lib",File::Spec->catfile($lib,$Config{'libperl'}),$Config{'libc'}); 74 } 75 } 76 else { # Not MSWin32. 77 push(@cmd,"-L$lib",'-lperl'); 78 local $SIG{__WARN__} = sub { 79 warn $_[0] unless $_[0] =~ /No library found for .*perl/ 80 }; 81 push(@cmd, '-Zlinker', '/PM:VIO') # Otherwise puts a warning to STDOUT! 82 if $^O eq 'os2' and $Config{ldflags} =~ /(?<!\S)-Zomf\b/; 83 push(@cmd,ldopts()); 84 } 85 if ($borl) { 86 @cmd = ($cmd[0],(grep{/^-[LI]/}@cmd[1..$#cmd]),(grep{!/^-[LI]/}@cmd[1..$#cmd])); 87 } 88 89 if ($^O eq 'aix') { # AIX needs an explicit symbol export list. 90 my ($perl_exp) = grep { -f } qw(perl.exp ../perl.exp); 91 die "where is perl.exp?\n" unless defined $perl_exp; 92 for (@cmd) { 93 s!-bE:(\S+)!-bE:$perl_exp!; 94 } 95 } 96 elsif ($^O eq 'cygwin') { # Cygwin needs the shared libperl copied 97 my $v_e_r_s = $Config{version}; 98 $v_e_r_s =~ tr/./_/; 99 system("cp ../cygperl$v_e_r_s.dll ./"); # for test 1 100 } 101 elsif ($Config{'libperl'} !~ /\Alibperl\./) { 102 # Everyone needs libperl copied if it's not found by '-lperl'. 103 $testlib = $Config{'libperl'}; 104 my $srclib = $testlib; 105 $testlib =~ s/.+(?=\.[^.]*)/libperl/; 106 $testlib = File::Spec::->catfile($lib, $testlib); 107 $srclib = File::Spec::->catfile($lib, $srclib); 108 if (-f $srclib) { 109 unlink $testlib if -f $testlib; 110 my $ln_or_cp = $Config{'ln'} || $Config{'cp'}; 111 my $lncmd = "$ln_or_cp $srclib $testlib"; 112 #print "# $lncmd\n"; 113 $libperl_copied = 1 unless system($lncmd); 114 } 115 } 116} 117my $status; 118# On OS/2 the linker will always emit an empty line to STDOUT; filter these 119my $cmd = join ' ', @cmd; 120chomp($cmd); # where is the newline coming from? ldopts()? 121print "# $cmd\n"; 122my @out = `$cmd`; 123$status = $?; 124print "# $_\n" foreach @out; 125 126if ($^O eq 'VMS' && !$status) { 127 print "# @cmd2\n"; 128 $status = system(join(' ',@cmd2)); 129} 130print (($status? 'not ': '')."ok 1\n"); 131 132my $embed_test = File::Spec->catfile(File::Spec->curdir, $exe); 133$embed_test = "run/nodebug $exe" if $^O eq 'VMS'; 134print "# embed_test = $embed_test\n"; 135$status = system($embed_test); 136print (($status? 'not ':'')."ok 9 # system returned $status\n"); 137unlink($exe,"embed_test.c",$obj); 138unlink("$exe$Config{exe_ext}") if $skip_exe; 139unlink("embed_test.map","embed_test.lis") if $^O eq 'VMS'; 140unlink(glob("./*.dll")) if $^O eq 'cygwin'; 141unlink($testlib) if $libperl_copied; 142 143# gcc -g -I.. -L../ -o perl_test perl_test.c -lperl `../perl -I../lib -MExtUtils::Embed -I../ -e ccopts -e ldopts` 144 145__END__ 146 147/* perl_test.c */ 148 149#include <EXTERN.h> 150#include <perl.h> 151 152#define my_puts(a) if(puts(a) < 0) exit(666) 153 154static char *cmds[] = { "perl","-e", "$|=1; print qq[ok 5\\n]", NULL }; 155 156int main(int argc, char **argv, char **env) 157{ 158 PerlInterpreter *my_perl; 159 160 PERL_SYS_INIT3(&argc,&argv,&env); 161 162 my_perl = perl_alloc(); 163 164 my_puts("ok 2"); 165 166 perl_construct(my_perl); 167 168 my_puts("ok 3"); 169 170 perl_parse(my_perl, NULL, (sizeof(cmds)/sizeof(char *))-1, cmds, env); 171 172 my_puts("ok 4"); 173 174 fflush(stdout); 175 176 perl_run(my_perl); 177 178 my_puts("ok 6"); 179 180 perl_destruct(my_perl); 181 182 my_puts("ok 7"); 183 184 perl_free(my_perl); 185 186 my_puts("ok 8"); 187 188 PERL_SYS_TERM(); 189 190 return 0; 191} 192