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";