—
—
—
—
—
—
—

              
package Perl::Dist::WiX::Mixin::Libraries;
HideShow 24 lines of Pod
=pod
=head1 NAME
Perl::Dist::WiX::Mixin::Libraries - Library installation routines
=head1 VERSION
This document describes Perl::Dist::WiX::Mixin::Libraries version 1.500002.
=head1 DESCRIPTION
This module provides the routines that Perl::Dist::WiX uses in order to
install the C toolchain and library files.  
=head1 SYNOPSIS
        # This module is not to be used independently.
        # It provides methods to be called on a Perl::Dist::WiX object.
=head1 INTERFACE
=cut
use 5.010;
use Moose;
use File::Spec::Functions qw( catfile );
use Params::Util qw( _STRING );
use Perl::Dist::WiX::Exceptions;
use Readonly;
our $VERSION = '1.500002';
$VERSION =~ s/_//ms;
Readonly my %PACKAGES => (
        '32bit-gcc3' => {
                'dmake'         => 'dmake-4.8-20070327-SHAY.zip',
                'mingw-make'    => 'mingw32-make-3.81-2.tar.gz',
                'pexports'      => '32bit-gcc3/pexports-0.43-1-20100120.zip',
                'gcc-toolchain' => 'mingw32-gcc3-toolchain-20091026-subset.tar.gz',
                'gcc-license'   => undef,
# Former components of what's now included in gcc-toolchain.
#               'gcc-core'      => 'gcc-core-3.4.5-20060117-3.tar.gz',
#               'gcc-g++'       => 'gcc-g++-3.4.5-20060117-3.tar.gz',
#               'binutils'      => 'binutils-2.17.50-20060824-1.tar.gz',
#               'mingw-runtime' => 'mingw-runtime-3.13.tar.gz',
#               'w32api'        => 'w32api-3.10.tar.gz',
        },
        '32bit-gcc4' => {
                'dmake'      => '32bit-gcc4/dmake-SVN20091127-bin_20100524.zip',
                'mingw-make' => '32bit-gcc4/gmake-3.81-20090914-bin_20100524.zip',
                'pexports'   => '32bit-gcc4/pexports-0.44-bin_20100120.zip',
                'gcc-toolchain' => '32bit-gcc4/mingw64-w32-20100123-kmx-v2.zip',
                'gcc-license'   => '32bit-gcc4/mingw64-w32-20100123-kmx-v2-lic.zip',
        },
        '64bit-gcc4' => {
                'dmake'         => '64bit-gcc4/dmake-SVN20091127-bin_20100524.zip',
                'mingw-make'    => '64bit-gcc4/gmake-3.81.90_20100127_20100524.zip',
                'pexports'      => '64bit-gcc4/pexports-0.44-bin_20100110.zip',
                'gcc-toolchain' => '64bit-gcc4/mingw64-w64-20100123-kmx-v2.zip',
                'gcc-license'   => '64bit-gcc4/mingw64-w64-20100123-kmx-v2-lic.zip',
        },
);
HideShow 12 lines of Pod
=pod
=head2 library_directory
  $dist->library_directory()
The C<library_directory> method returns the correct directory on the
strawberryperl.com server for libraries, given the L<bits()|Perl::Dist::WiX/bits> 
and L<gcc_version()|Perl::Dist::WiX/gcc_version> values.
=cut
sub library_directory {
        my $self = shift;
        my $answer = $self->bits() . 'bit-gcc' . $self->gcc_version();
        return $answer;
}
# Private routine to get the filename for a package.
sub _binary_file {
        my $self    = shift;
        my $package = shift;
        my $toolchain = $self->library_directory();
        $self->trace_line( 3, "Searching for $package in $toolchain\n" );
        if ( not exists $PACKAGES{$toolchain} ) {
                PDWiX->throw('Can only build 32 or 64-bit versions of perl');
        }
        if ( not exists $PACKAGES{$toolchain}{$package} ) {
                PDWiX->throw(
                        'get_package_file was called on a package that was not defined.'
                );
        }
        my $package_file = $PACKAGES{$toolchain}{$package};
        $self->trace_line( 3, "Package $package is in $package_file\n" );
        return $package_file;
} ## end sub _binary_file
# Private routine to map a file or package name to a URL.
sub _binary_url {
        my $self = shift;
        my $file = shift;
        # Check parameters.
        if ( not _STRING($file) ) {
                PDWiX::Parameter->throw(
                        parameter => 'file',
                        where     => '->_binary_url'
                );
        }
        if ( $file !~ /[.] (?:zip | gz | tgz | par) \z/imsx ) {
                # Shorthand, map to full file name
                $file = $self->_binary_file( $file, @_ );
        }
        return $self->binary_root() . q{/} . $file;
} ## end sub _binary_url
#####################################################################
# Installing C Toolchain and Library Packages
HideShow 17 lines of Pod
=pod
=head2 install_gcc_toolchain
  $dist->install_gcc_toolchain()
The C<install_gcc_toolchain> method installs the corrent gcc toolchain into the
distribution, and is typically installed during "C toolchain" build
phase.
It provides the approproate arguments to C<install_binary> and then
validates that the binary was installed correctly.
Returns true or throws an exception on error.
=cut
sub install_gcc_toolchain {
        my $self = shift;
        # Install the gcc toolchain
        my $filelist = $self->install_binary(
                name => 'gcc-toolchain',
                url  => $self->_binary_url('gcc-toolchain'),
                ( 32 == $self->bits() )
                ? (
                        license => {
                                'COPYING'     => 'gcc/COPYING',
                                'COPYING.lib' => 'gcc/COPYING.lib',
                        },
                  )
                : (),
        );
        my $overwritable = ( 3 == $self->gcc_version() ) ? 1 : 0;
        $self->insert_fragment( 'gcc_toolchain', $filelist, $overwritable );
        # Initialize the dlltool location.
        $self->_set_bin_dlltool( $self->file( 'c', 'bin', 'dlltool.exe' ) );
        if ( not -x $self->bin_dlltool() ) {
                PDWiX->throw(q{Can't execute dlltool});
        }
        # Install the licenses (they're in a different file for gcc4)
        if ( 4 == $self->gcc_version() ) {
                my $filelist2 = $self->install_binary(
                        name       => 'gcc-license',
                        url        => $self->_binary_url('gcc-license'),
                        install_to => q{.},
                );
                $self->insert_fragment( 'gcc_license', $filelist2 );
        }
        return 1;
} ## end sub install_gcc_toolchain
HideShow 17 lines of Pod
=pod
=head2 install_dmake
  $dist->install_dmake()
The C<install_dmake> method installs the B<dmake> make tool into the
distribution, and is typically installed during "C toolchain" build
phase.
It provides the approproate arguments to C<install_binary> and then
validates that the binary was installed correctly.
Returns true or throws an exception on error.
=cut
sub install_dmake {
        my $self = shift;
        # Install dmake
        my $filelist = $self->install_binary(
                name    => 'dmake',
                url     => $self->_binary_url('dmake'),
                license => {
                        'dmake/COPYING'            => 'dmake/COPYING',
                        'dmake/readme/license.txt' => 'dmake/license.txt',
                        ( 4 == $self->gcc_version )
                        ? ( 'dmake/readme/_INFO_' => 'dmake/_INFO_' )
                        : ()
                },
                install_to => {
                        'dmake/dmake.exe' => 'c/bin/dmake.exe',
                        'dmake/startup'   => 'c/bin/startup',
                },
        );
        # Initialize the make location
        $self->_set_bin_make( $self->file( 'c', 'bin', 'dmake.exe' ) );
        if ( not -x $self->bin_make() ) {
                PDWiX->throw(q{Can't execute make});
        }
        $self->insert_fragment( 'dmake', $filelist );
        return 1;
} ## end sub install_dmake
HideShow 16 lines of Pod
=pod
=head2 install_pexports
  $dist->install_pexports()
The C<install_pexports> method installs the C<MinGW pexports> package
into the distribution.
This is needed by some libraries to let the Perl interfaces build against
them correctly.
Returns true or throws an exception on error.
=cut
sub install_pexports {
        my $self = shift;
        my $filelist = $self->install_binary(
                name       => 'pexports',
                url        => $self->_binary_url('pexports'),
                install_to => q{.},
        );
        # Initialize the pexports location.
        $self->_set_bin_pexports( $self->file( 'c', 'bin', 'pexports.exe' ) );
        if ( not -x $self->bin_pexports() ) {
                PDWiX->throw(q{Can't execute pexports});
        }
        $self->insert_fragment( 'pexports', $filelist );
        return 1;
} ## end sub install_pexports
HideShow 17 lines of Pod
=pod
=head2 install_mingw_make
  $dist->install_mingw_make()
The C<install_mingw_make> method installs the MinGW build of the B<GNU make>
build tool.
While GNU make is not used by Perl itself, some C libraries can't be built
using the normal C<dmake> tool and explicitly need GNU make. So we install
it as mingw-make and certain Alien:: modules will use it by that name.
Returns true or throws an exception on error.
=cut
sub install_mingw_make {
        my $self = shift;
        my $filelist;
        if ( 4 == $self->gcc_version() ) {
                $filelist = $self->install_binary(
                        name    => 'mingw-make',
                        url     => $self->_binary_url('mingw-make'),
                        license => {
                                'doc/COPYING' => 'gmake/COPYING',
                                'doc/AUTHORS' => 'gmake/AUTHORS',
                                ( 4 == $self->gcc_version )
                                ? ( 'doc/_INFO_' => 'gmake/_INFO_' )
                                : ()
                        },
                        install_to => { 'bin/gmake.exe' => 'c/bin/gmake.exe', },
                );
        } else {
                $filelist = $self->install_binary(
                        name    => 'mingw-make',
                        url     => $self->_binary_url('mingw-make'),
                        license => {
                                'doc/mingw32-make/COPYING'      => 'gmake/COPYING',
                                'doc/mingw32-make/README.mingw' => 'gmake/README.mingw.txt',
                        },
                        install_to =>
                          { 'bin/mingw32-make.exe' => 'c/bin/mingw32-make.exe', },
                );
        } ## end else [ if ( 4 == $self->gcc_version...)]
        $self->insert_fragment( 'mingw_make', $filelist );
        return 1;
} ## end sub install_mingw_make
no Moose;
__PACKAGE__->meta()->make_immutable();
1;
__END__
HideShow 39 lines of Pod
=pod
=head1 DIAGNOSTICS
See L<Perl::Dist::WiX::Diagnostics|Perl::Dist::WiX::Diagnostics> for a list of
exceptions that this module can throw.
=head1 BUGS AND LIMITATIONS (SUPPORT)
Bugs should be reported via: 
1) The CPAN bug tracker at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Perl-Dist-WiX>
if you have an account there.
2) Email to E<lt>bug-Perl-Dist-WiX@rt.cpan.orgE<gt> if you do not.
For other issues, contact the topmost author.
=head1 AUTHORS
Curtis Jewell E<lt>csjewell@cpan.orgE<gt>
=head1 SEE ALSO
L<Perl::Dist::WiX|Perl::Dist::WiX>, 
L<http://ali.as/>, L<http://csjewell.comyr.com/perl/>
=head1 COPYRIGHT AND LICENSE
Copyright 2009 - 2011 Curtis Jewell.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the
LICENSE file included with this distribution.
=cut