This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[inseparable changes from match from perl-5.003_97 to perl-5.003_97a]
[perl5.git] / cygwin32 / perlgcc
1 #
2
3 # Perl script be a wrapper around the gnu gcc. the exportable perl.exe
4 #   is built, special processing is done.
5 # This script is caled by the gcc2 shell script when the flag
6 #   -buildperl is passed to gcc2
7
8 print "perlgcc: building exportable perl...\n";
9
10 # get all libs:
11 my @libobs;
12 my @obs;
13 my @libFlags;
14 my $libstring;
15 foreach (@ARGV){
16         if( /\.[a]$/){
17                 push @libobs,$_;
18         }
19         elsif(/^\-l/){
20                 push @libFlags,$_;
21         }
22         if( /\.[o]$/){
23                 push @obs,$_;
24         }
25 }
26 $libstring = join(" ",@libobs); 
27 $obsString = join(" ",@obs);
28 $libflagString = join(" ",@libFlags);
29
30 # make exports file
31 my $command = "echo EXPORTS > perl.def";
32 print "$command\n";
33 system($command);
34
35 $command ="nm $libstring | grep '^........ [TCD] _'| grep -v _impure_ptr | sed 's/[^_]*_//' >> perl.def";
36 print "$command\n";
37 system($command);
38
39 # Build the perl.a lib to link to:
40 $command ="dlltool --as=as --dllname perl.exe --def perl.def --output-lib perl.a";
41 print "$command\n";
42 system($command); 
43
44 # change name of export lib to libperlexp so that is can be understood by ld2/perlld
45 $command ="mv perl.a libperlexp.a";  
46 print "$command\n";
47 system($command);
48
49 # get the full path name of a few libs:
50 my $crt0 = `gcc -print-file-name=crt0.o`;
51 chomp $crt0;
52 my $libdir = `gcc -print-file-name=libcygwin.a`;
53 chomp $libdir;
54 $libdir =~ s/libcygwin\.a//g;
55
56 # Link exe:
57 $command = "ld --base-file perl.base -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString";
58 print "$command\n";
59 system($command);
60
61 $command = "dlltool --as=as --dllname perl.exe --def perl.def --base-file perl.base --output-exp perl.exp";
62 print "$command\n";
63 system($command);
64
65 $command = "ld --base-file perl.base perl.exp -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString";
66 print "$command\n";
67 system($command);
68
69 $command = "dlltool --as=as --dllname perl.exe --def perl.def --base-file perl.base --output-exp perl.exp";
70 print "$command\n";
71 system($command);
72
73 $command = "ld perl.exp -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString";
74 print "$command\n";
75 system($command);
76
77 print "perlgcc: Completed\n";