Initial Commit
This commit is contained in:
Riley Schneider
132
database/perl/lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm
Normal file
132
database/perl/lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm
Normal file
@@ -0,0 +1,132 @@
|
||||
package ExtUtils::CBuilder::Platform::Windows::BCC;
|
||||
|
||||
our $VERSION = '0.280235'; # VERSION
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub format_compiler_cmd {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
foreach my $path ( @{ $spec{includes} || [] },
|
||||
@{ $spec{perlinc} || [] } ) {
|
||||
$path = '-I' . $path;
|
||||
}
|
||||
|
||||
%spec = $self->write_compiler_script(%spec)
|
||||
if $spec{use_scripts};
|
||||
|
||||
return [ grep {defined && length} (
|
||||
$spec{cc}, '-c' ,
|
||||
@{$spec{includes}} ,
|
||||
@{$spec{cflags}} ,
|
||||
@{$spec{optimize}} ,
|
||||
@{$spec{defines}} ,
|
||||
@{$spec{perlinc}} ,
|
||||
"-o$spec{output}" ,
|
||||
$spec{source} ,
|
||||
) ];
|
||||
}
|
||||
|
||||
sub write_compiler_script {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
my $script = File::Spec->catfile( $spec{srcdir},
|
||||
$spec{basename} . '.ccs' );
|
||||
|
||||
$self->add_to_cleanup($script);
|
||||
|
||||
print "Generating script '$script'\n" if !$self->{quiet};
|
||||
|
||||
my $SCRIPT = IO::File->new( ">$script" )
|
||||
or die( "Could not create script '$script': $!" );
|
||||
|
||||
# XXX Borland "response files" seem to be unable to accept macro
|
||||
# definitions containing quoted strings. Escaping strings with
|
||||
# backslash doesn't work, and any level of quotes are stripped. The
|
||||
# result is a floating point number in the source file where a
|
||||
# string is expected. So we leave the macros on the command line.
|
||||
print $SCRIPT join( "\n",
|
||||
map { ref $_ ? @{$_} : $_ }
|
||||
grep defined,
|
||||
delete(
|
||||
@spec{ qw(includes cflags optimize perlinc) } )
|
||||
);
|
||||
|
||||
push @{$spec{includes}}, '@"' . $script . '"';
|
||||
|
||||
return %spec;
|
||||
}
|
||||
|
||||
sub format_linker_cmd {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
foreach my $path ( @{$spec{libpath}} ) {
|
||||
$path = "-L$path";
|
||||
}
|
||||
|
||||
push( @{$spec{startup}}, 'c0d32.obj' )
|
||||
unless ( $spec{startup} && @{$spec{startup}} );
|
||||
|
||||
%spec = $self->write_linker_script(%spec)
|
||||
if $spec{use_scripts};
|
||||
|
||||
return [ grep {defined && length} (
|
||||
$spec{ld} ,
|
||||
@{$spec{lddlflags}} ,
|
||||
@{$spec{libpath}} ,
|
||||
@{$spec{other_ldflags}} ,
|
||||
@{$spec{startup}} ,
|
||||
@{$spec{objects}} , ',',
|
||||
$spec{output} , ',',
|
||||
$spec{map_file} , ',',
|
||||
$spec{libperl} ,
|
||||
@{$spec{perllibs}} , ',',
|
||||
$spec{def_file}
|
||||
) ];
|
||||
}
|
||||
|
||||
sub write_linker_script {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
# To work around Borlands "unique" commandline syntax,
|
||||
# two scripts are used:
|
||||
|
||||
my $ld_script = File::Spec->catfile( $spec{srcdir},
|
||||
$spec{basename} . '.lds' );
|
||||
my $ld_libs = File::Spec->catfile( $spec{srcdir},
|
||||
$spec{basename} . '.lbs' );
|
||||
|
||||
$self->add_to_cleanup($ld_script, $ld_libs);
|
||||
|
||||
print "Generating scripts '$ld_script' and '$ld_libs'.\n" if !$self->{quiet};
|
||||
|
||||
# Script 1: contains options & names of object files.
|
||||
my $LD_SCRIPT = IO::File->new( ">$ld_script" )
|
||||
or die( "Could not create linker script '$ld_script': $!" );
|
||||
|
||||
print $LD_SCRIPT join( " +\n",
|
||||
map { @{$_} }
|
||||
grep defined,
|
||||
delete(
|
||||
@spec{ qw(lddlflags libpath other_ldflags startup objects) } )
|
||||
);
|
||||
|
||||
# Script 2: contains name of libs to link against.
|
||||
my $LD_LIBS = IO::File->new( ">$ld_libs" )
|
||||
or die( "Could not create linker script '$ld_libs': $!" );
|
||||
|
||||
print $LD_LIBS join( " +\n",
|
||||
(delete $spec{libperl} || ''),
|
||||
@{delete $spec{perllibs} || []},
|
||||
);
|
||||
|
||||
push @{$spec{lddlflags}}, '@"' . $ld_script . '"';
|
||||
push @{$spec{perllibs}}, '@"' . $ld_libs . '"';
|
||||
|
||||
return %spec;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
||||
153
database/perl/lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm
Normal file
153
database/perl/lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm
Normal file
@@ -0,0 +1,153 @@
|
||||
package ExtUtils::CBuilder::Platform::Windows::GCC;
|
||||
|
||||
our $VERSION = '0.280235'; # VERSION
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
|
||||
sub format_compiler_cmd {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
foreach my $path ( @{ $spec{includes} || [] },
|
||||
@{ $spec{perlinc} || [] } ) {
|
||||
$path = '-I' . $path;
|
||||
}
|
||||
|
||||
# split off any -arguments included in cc
|
||||
my @cc = split / (?=-)/, $spec{cc};
|
||||
|
||||
return [ grep {defined && length} (
|
||||
@cc, '-c' ,
|
||||
@{$spec{includes}} ,
|
||||
@{$spec{cflags}} ,
|
||||
@{$spec{optimize}} ,
|
||||
@{$spec{defines}} ,
|
||||
@{$spec{perlinc}} ,
|
||||
'-o', $spec{output} ,
|
||||
$spec{source} ,
|
||||
) ];
|
||||
}
|
||||
|
||||
sub format_linker_cmd {
|
||||
my ($self, %spec) = @_;
|
||||
my $cf = $self->{config};
|
||||
|
||||
# The Config.pm variable 'libperl' is hardcoded to the full name
|
||||
# of the perl import library (i.e. 'libperl56.a'). GCC will not
|
||||
# find it unless the 'lib' prefix & the extension are stripped.
|
||||
$spec{libperl} =~ s/^(?:lib)?([^.]+).*$/-l$1/;
|
||||
|
||||
unshift( @{$spec{other_ldflags}}, '-nostartfiles' )
|
||||
if ( $spec{startup} && @{$spec{startup}} );
|
||||
|
||||
# From ExtUtils::MM_Win32:
|
||||
#
|
||||
## one thing for GCC/Mingw32:
|
||||
## we try to overcome non-relocateable-DLL problems by generating
|
||||
## a (hopefully unique) image-base from the dll's name
|
||||
## -- BKS, 10-19-1999
|
||||
File::Basename::basename( $spec{output} ) =~ /(....)(.{0,4})/;
|
||||
$spec{image_base} = sprintf( "0x%x0000", unpack('n', $1 ^ $2) );
|
||||
|
||||
%spec = $self->write_linker_script(%spec)
|
||||
if $spec{use_scripts};
|
||||
|
||||
foreach my $path ( @{$spec{libpath}} ) {
|
||||
$path = "-L$path";
|
||||
}
|
||||
|
||||
my @cmds; # Stores the series of commands needed to build the module.
|
||||
|
||||
my $DLLTOOL = $cf->{dlltool} || 'dlltool';
|
||||
|
||||
push @cmds, [
|
||||
$DLLTOOL, '--def' , $spec{def_file},
|
||||
'--output-exp' , $spec{explib}
|
||||
];
|
||||
|
||||
# split off any -arguments included in ld
|
||||
my @ld = split / (?=-)/, $spec{ld};
|
||||
|
||||
push @cmds, [ grep {defined && length} (
|
||||
@ld ,
|
||||
'-o', $spec{output} ,
|
||||
"-Wl,--base-file,$spec{base_file}" ,
|
||||
"-Wl,--image-base,$spec{image_base}" ,
|
||||
@{$spec{lddlflags}} ,
|
||||
@{$spec{libpath}} ,
|
||||
@{$spec{startup}} ,
|
||||
@{$spec{objects}} ,
|
||||
@{$spec{other_ldflags}} ,
|
||||
$spec{libperl} ,
|
||||
@{$spec{perllibs}} ,
|
||||
$spec{explib} ,
|
||||
$spec{map_file} ? ('-Map', $spec{map_file}) : ''
|
||||
) ];
|
||||
|
||||
push @cmds, [
|
||||
$DLLTOOL, '--def' , $spec{def_file},
|
||||
'--output-exp' , $spec{explib},
|
||||
'--base-file' , $spec{base_file}
|
||||
];
|
||||
|
||||
push @cmds, [ grep {defined && length} (
|
||||
@ld ,
|
||||
'-o', $spec{output} ,
|
||||
"-Wl,--image-base,$spec{image_base}" ,
|
||||
@{$spec{lddlflags}} ,
|
||||
@{$spec{libpath}} ,
|
||||
@{$spec{startup}} ,
|
||||
@{$spec{objects}} ,
|
||||
@{$spec{other_ldflags}} ,
|
||||
$spec{libperl} ,
|
||||
@{$spec{perllibs}} ,
|
||||
$spec{explib} ,
|
||||
$spec{map_file} ? ('-Map', $spec{map_file}) : ''
|
||||
) ];
|
||||
|
||||
return @cmds;
|
||||
}
|
||||
|
||||
sub write_linker_script {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
my $script = File::Spec->catfile( $spec{srcdir},
|
||||
$spec{basename} . '.lds' );
|
||||
|
||||
$self->add_to_cleanup($script);
|
||||
|
||||
print "Generating script '$script'\n" if !$self->{quiet};
|
||||
|
||||
my $SCRIPT = IO::File->new( ">$script" )
|
||||
or die( "Could not create script '$script': $!" );
|
||||
|
||||
print $SCRIPT ( 'SEARCH_DIR(' . $_ . ")\n" )
|
||||
for @{delete $spec{libpath} || []};
|
||||
|
||||
# gcc takes only one startup file, so the first object in startup is
|
||||
# specified as the startup file and any others are shifted into the
|
||||
# beginning of the list of objects.
|
||||
if ( $spec{startup} && @{$spec{startup}} ) {
|
||||
print $SCRIPT 'STARTUP(' . shift( @{$spec{startup}} ) . ")\n";
|
||||
unshift @{$spec{objects}},
|
||||
@{delete $spec{startup} || []};
|
||||
}
|
||||
|
||||
print $SCRIPT 'INPUT(' . join( ',',
|
||||
@{delete $spec{objects} || []}
|
||||
) . ")\n";
|
||||
|
||||
print $SCRIPT 'INPUT(' . join( ' ',
|
||||
(delete $spec{libperl} || ''),
|
||||
@{delete $spec{perllibs} || []},
|
||||
) . ")\n";
|
||||
|
||||
#it is important to keep the order 1.linker_script - 2.other_ldflags
|
||||
unshift @{$spec{other_ldflags}}, '"' . $script . '"';
|
||||
|
||||
return %spec;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
||||
134
database/perl/lib/ExtUtils/CBuilder/Platform/Windows/MSVC.pm
Normal file
134
database/perl/lib/ExtUtils/CBuilder/Platform/Windows/MSVC.pm
Normal file
@@ -0,0 +1,134 @@
|
||||
package ExtUtils::CBuilder::Platform::Windows::MSVC;
|
||||
|
||||
our $VERSION = '0.280235'; # VERSION
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
|
||||
sub arg_exec_file {
|
||||
my ($self, $file) = @_;
|
||||
return "/OUT:$file";
|
||||
}
|
||||
|
||||
sub format_compiler_cmd {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
foreach my $path ( @{ $spec{includes} || [] },
|
||||
@{ $spec{perlinc} || [] } ) {
|
||||
$path = '-I' . $path;
|
||||
}
|
||||
|
||||
%spec = $self->write_compiler_script(%spec)
|
||||
if $spec{use_scripts};
|
||||
|
||||
return [ grep {defined && length} (
|
||||
$spec{cc},'-nologo','-c',
|
||||
@{$spec{includes}} ,
|
||||
@{$spec{cflags}} ,
|
||||
@{$spec{optimize}} ,
|
||||
@{$spec{defines}} ,
|
||||
@{$spec{perlinc}} ,
|
||||
"-Fo$spec{output}" ,
|
||||
$spec{source} ,
|
||||
) ];
|
||||
}
|
||||
|
||||
sub write_compiler_script {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
my $script = File::Spec->catfile( $spec{srcdir},
|
||||
$spec{basename} . '.ccs' );
|
||||
|
||||
$self->add_to_cleanup($script);
|
||||
print "Generating script '$script'\n" if !$self->{quiet};
|
||||
|
||||
my $SCRIPT = IO::File->new( ">$script" )
|
||||
or die( "Could not create script '$script': $!" );
|
||||
|
||||
print $SCRIPT join( "\n",
|
||||
map { ref $_ ? @{$_} : $_ }
|
||||
grep defined,
|
||||
delete(
|
||||
@spec{ qw(includes cflags optimize defines perlinc) } )
|
||||
);
|
||||
|
||||
push @{$spec{includes}}, '@"' . $script . '"';
|
||||
|
||||
return %spec;
|
||||
}
|
||||
|
||||
sub format_linker_cmd {
|
||||
my ($self, %spec) = @_;
|
||||
my $cf = $self->{config};
|
||||
|
||||
foreach my $path ( @{$spec{libpath}} ) {
|
||||
$path = "-libpath:$path";
|
||||
}
|
||||
|
||||
my $output = $spec{output};
|
||||
my $manifest = $spec{manifest};
|
||||
|
||||
$spec{def_file} &&= '-def:' . $spec{def_file};
|
||||
$spec{output} &&= '-out:' . $spec{output};
|
||||
$spec{manifest} &&= '-manifest ' . $spec{manifest};
|
||||
$spec{implib} &&= '-implib:' . $spec{implib};
|
||||
$spec{map_file} &&= '-map:' . $spec{map_file};
|
||||
|
||||
%spec = $self->write_linker_script(%spec)
|
||||
if $spec{use_scripts};
|
||||
|
||||
my @cmds; # Stores the series of commands needed to build the module.
|
||||
|
||||
push @cmds, [ grep {defined && length} (
|
||||
$spec{ld} ,
|
||||
@{$spec{lddlflags}} ,
|
||||
@{$spec{libpath}} ,
|
||||
@{$spec{other_ldflags}} ,
|
||||
@{$spec{startup}} ,
|
||||
@{$spec{objects}} ,
|
||||
$spec{map_file} ,
|
||||
$spec{libperl} ,
|
||||
@{$spec{perllibs}} ,
|
||||
$spec{def_file} ,
|
||||
$spec{implib} ,
|
||||
$spec{output} ,
|
||||
) ];
|
||||
|
||||
# Embed the manifest file if it exists
|
||||
push @cmds, [
|
||||
'if', 'exist', $manifest, 'mt', '-nologo', $spec{manifest}, '-outputresource:' . "$output;2"
|
||||
];
|
||||
|
||||
return @cmds;
|
||||
}
|
||||
|
||||
sub write_linker_script {
|
||||
my ($self, %spec) = @_;
|
||||
|
||||
my $script = File::Spec->catfile( $spec{srcdir},
|
||||
$spec{basename} . '.lds' );
|
||||
|
||||
$self->add_to_cleanup($script);
|
||||
|
||||
print "Generating script '$script'\n" if !$self->{quiet};
|
||||
|
||||
my $SCRIPT = IO::File->new( ">$script" )
|
||||
or die( "Could not create script '$script': $!" );
|
||||
|
||||
print $SCRIPT join( "\n",
|
||||
map { ref $_ ? @{$_} : $_ }
|
||||
grep defined,
|
||||
delete(
|
||||
@spec{ qw(lddlflags libpath other_ldflags
|
||||
startup objects libperl perllibs
|
||||
def_file implib map_file) } )
|
||||
);
|
||||
|
||||
push @{$spec{lddlflags}}, '@"' . $script . '"';
|
||||
|
||||
return %spec;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user