new perldelta

[perl5.git] / cpan / Win32API-File / Makefile.PL

#!/usr/bin/perl -w\r
use 5.001; #not tested\r
use ExtUtils::MakeMaker;\r
use Config;\r
use strict;\r
# See lib/ExtUtils/MakeMaker.pm for details of how to influence\r
# the contents of the Makefile that is written.\r
unless ($^O eq "MSWin32" || $^O eq "cygwin" || $^O eq "interix") { #not tested on Interix\r
    die "OS unsupported\n";\r
}\r
\r
WriteMakefile1(\r
    'NAME'	=> 'Win32API::File',\r
    'VERSION_FROM' => 'File.pm', # finds $VERSION\r
    (  $Config{archname} =~ /-object\b/i  ?  ( 'CAPI' => 'TRUE' )  :  ()  ),\r
    'AUTHOR'		=> 'Tye McQueen <tye@metronet.com>',\r
    'ABSTRACT_FROM'	=> 'File.pm',\r
    'postamble' => { IMPORT_LIST => [qw(/._/ !/[a-z]/ :MEDIA_TYPE)],\r
		     IFDEF => "!/[a-z\\d]/",\r
		     CPLUSPLUS => 1,\r
		     WRITE_PERL => 1,\r
		     #PERL_FILE_LIST => ['File.pm'], #added by Chorny\r
		     #C_FILE_LIST => ['File.xs'], #added by Chorny\r
		     # Comment out next line to rebuild constants defs:\r
		     NO_REBUILD => 1,\r
		   },\r
    (  ! $Config{libperl}  ?  ()  :  ( LIBPERL_A => $Config{libperl} )  ),\r
    'INSTALLDIRS' => (($] >= 5.008009 and $] < 5.012) ? 'perl' : 'site'),\r
    'LICENSE'	=> 'perl',\r
    'MIN_PERL_VERSION' => 5.001,\r
    'PREREQ_PM'	=> {\r
        'Math::BigInt' => 0,\r
        'Win32' => 0,\r
        'Carp' => 0,\r
        'IO::File' => 0,\r
    },\r
    TEST_REQUIRES => {\r
        'File::Spec' => 0,\r
        'Test::More' => 0,\r
    },\r
\r
    META_MERGE => {\r
        resources => {\r
            repository => 'http://github.com/chorny/Win32API-File',\r
        },\r
    },\r
    $^O =~/win/i ? (\r
        dist => {\r
            TAR      => 'ptar',\r
            TARFLAGS => '-c -C -f',\r
        },\r
    ) : (),\r
);\r
\r
# Replacement for MakeMaker's "const2perl section" for versions\r
# of MakeMaker prior to the addition of this functionality:\r
sub MY::postamble\r
{\r
    my( $self, %attribs )= @_;\r
\r
    # Don't do anything if MakeMaker has const2perl\r
    # that already took care of all of this:\r
    return   unless  %attribs;\r
\r
    # Don't require these here if we just C<return> above:\r
    eval "use lib 'inc'; use ExtUtils::Myconst2perl qw(ParseAttribs); 1"   or  die "$@";\r
    eval "use ExtUtils::MakeMaker qw(neatvalue); 1"   or  die "$@";\r
\r
    # If only one module, can skip one level of indirection:\r
    my $hvAttr= \%attribs;\r
    if(  $attribs{IMPORT_LIST}  ) {\r
	$hvAttr= { $self->{NAME} => \%attribs };\r
    }\r
\r
    my( $module, @m, $_final, @clean, @realclean );\r
    foreach $module (  keys %$hvAttr  ) {\r
	my( $outfile, @perlfiles, @cfiles, $bin, $obj, $final, $noreb );\r
\r
	# Translate user-friendly options into coder-friendly specifics:\r
	ParseAttribs( $module, $hvAttr->{$module}, { OUTFILE => \$outfile,\r
	  C_FILE_LIST => \@perlfiles, PERL_FILE_LIST => \@cfiles,\r
	  OBJECT => \$obj, BINARY => \$bin, FINAL_PERL => \$final,\r
	  NO_REBUILD => \$noreb } );\r
	die "IFDEF option in Makefile.PL must be string, not code ref.\n"\r
	  if  ref $hvAttr->{$module}->{IFDEF};\r
	die qq{IFDEF option in Makefile.PL must not contain quotes (").\n}\r
	  if  ref $hvAttr->{$module}->{IFDEF};\r
\r
	# How to create F<$outfile> via ExtUtils::Myconst2perl::Myconst2perl:\r
	push @m, "\r
$outfile:	@perlfiles  @cfiles  Makefile" . '\r
	$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Myconst2perl \\\r
	  -e "my %attribs;" \\\r
	  ';\r
	$m[-1] =~ s/^/##/gm   if  $noreb;\r
	my( $key, $value );\r
	while(  ( $key, $value )= each %{$hvAttr->{$module}}  ) {\r
	    push @m, '-e "$$attribs{' . $key . '}= ' # try {{ }} for dmake\r
	      . neatvalue($value) . qq[;" \\\n\t  ];\r
	    $m[-1] =~ s/^/##/gm   if  $noreb;\r
	}\r
	push @m, '-e "Myconst2perl(' . neatvalue($module) . ",%attribs)\"\n";\r
\r
	# If requested extra work to generate Perl instead of XS code:\r
	if(  $bin  ) {\r
	    my @path= split /::/, $module;\r
	    my $_final= $final;\r
	    $_final =~ s/\W/_/g;\r
\r
	    # How to compile F<$outfile> and then run it to produce F<$final>:\r
	    push @m, "\r
$bin:	$outfile" . '\r
	$(CC) $(INC) $(CCFLAGS) $(OPTIMIZE) $(PERLTYPE) $(LARGE) \\\r
	  $(SPLIT) $(DEFINE_VERSION) $(XS_DEFINE_VERSION) -I$(PERL_INC) \\\r
	  $(DEFINE)' . $outfile . " "\r
	  .  $self->catfile(qw[ $(PERL_INC) $(LIBPERL_A) ]) . " -o $bin\r
\r
$final: $bin\r
	" .  $self->catfile(".",$bin) . " >$final\n";\r
	    $m[-1] =~ s/^/##/gm   if  $noreb;\r
\r
	    # Make sure the rarely-used $(INST_ARCHLIB) directory exists:\r
	    push @m, $self->dir_target('$(INST_ARCHLIB)');\r
\r
	    ##warn qq{$path[-1].pm should C<require "},\r
	    ##  join("/",@path,$final), qq{">.\n};\r
	    # Install F<$final> whenever regular pm_to_blib target is built:\r
	    push @m, "\r
pm_to_blib: ${_final}_to_blib\r
\r
${_final}_to_blib: $final\r
	" . '@$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \\\r
	"-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \\\r
        -e "pm_to_blib({ ',neatvalue($final),',',\r
	neatvalue($self->catfile('$(INST_ARCHLIB)',@path,$final)), ' },',\r
	neatvalue($self->catfile(qw[$(INST_LIB) auto])), ')"\r
	@$(TOUCH) ', $_final, "_to_blib\r
\r
realclean ::\r
	$self->{RM_RF} ", $self->catfile('$(INST_ARCHLIB)', $path[0]), "\n";\r
\r
	    push( @clean, $outfile, $bin, $obj, $_final . "_to_blib" );\r
	    push( @realclean, $final )   unless  $noreb;\r
	} else {\r
\r
	    ##my $name= ( split /::/, $module )[-1];\r
	    ##warn qq{$name.xs should C<#include "$final"> },\r
	    ##  qq{in the C<BOOT:> section\n};\r
	    push( @realclean, $outfile )   unless  $noreb;\r
	}\r
    }\r
\r
    push @m, "\r
clean ::\r
	$self->{RM_F} @clean\n"   if  @clean;\r
    push @m, "\r
realclean ::\r
	$self->{RM_F} @realclean\n"   if  @realclean;\r
    return join('',@m);\r
}\r
\r
\r
sub WriteMakefile1 {  #Compatibility code for old versions of EU::MM. Written by Alexandr Ciornii, version 0.23. Added by eumm-upgrade.\r
	my %params=@_;\r
	my $eumm_version=$ExtUtils::MakeMaker::VERSION;\r
	$eumm_version=eval $eumm_version;\r
	die "EXTRA_META is deprecated" if exists $params{EXTRA_META};\r
	die "License not specified" if not exists $params{LICENSE};\r
	if ($params{AUTHOR} and ref($params{AUTHOR}) eq 'ARRAY' and $eumm_version < 6.5705) {\r
		$params{META_ADD}->{author}=$params{AUTHOR};\r
		$params{AUTHOR}=join(', ',@{$params{AUTHOR}});\r
	}\r
	if ($params{TEST_REQUIRES} and $eumm_version < 6.64) {\r
		$params{BUILD_REQUIRES}={ %{$params{BUILD_REQUIRES} || {}} , %{$params{TEST_REQUIRES}} };\r
		delete $params{TEST_REQUIRES};\r
	}\r
	if ($params{BUILD_REQUIRES} and $eumm_version < 6.5503) {\r
		#EUMM 6.5502 has problems with BUILD_REQUIRES\r
		$params{PREREQ_PM}={ %{$params{PREREQ_PM} || {}} , %{$params{BUILD_REQUIRES}} };\r
		delete $params{BUILD_REQUIRES};\r
	}\r
	delete $params{CONFIGURE_REQUIRES} if $eumm_version < 6.52;\r
	delete $params{MIN_PERL_VERSION} if $eumm_version < 6.48;\r
	delete $params{META_MERGE} if $eumm_version < 6.46;\r
	delete $params{META_ADD} if $eumm_version < 6.46;\r
	delete $params{LICENSE} if $eumm_version < 6.31;\r
	delete $params{AUTHOR} if $] < 5.005;\r
	delete $params{ABSTRACT_FROM} if $] < 5.005;\r
	delete $params{BINARY_LOCATION} if $] < 5.005;\r
\r
	WriteMakefile(%params);\r
}\r
\r