This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
7e31df764b483026b33da970cffc5dd0c4bf359f
[perl5.git] / cpan / Win32API-File / Makefile.PL
1 #!/usr/bin/perl -w
2 use 5.001; #not tested
3 use ExtUtils::MakeMaker;
4 use Config;
5 use strict;
6 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
7 # the contents of the Makefile that is written.
8 unless ($^O eq "MSWin32" || $^O eq "cygwin" || $^O eq "interix") { #not tested on Interix
9     die "OS unsupported\n";
10 }
11
12 WriteMakefile1(
13     'NAME'      => 'Win32API::File',
14     'VERSION_FROM' => 'File.pm', # finds $VERSION
15     (  $Config{archname} =~ /-object\b/i  ?  ( 'CAPI' => 'TRUE' )  :  ()  ),
16     'AUTHOR'            => 'Tye McQueen <tye@metronet.com>',
17     'ABSTRACT_FROM'     => 'File.pm',
18     'postamble' => { IMPORT_LIST => [qw(/._/ !/[a-z]/ :MEDIA_TYPE)],
19                      IFDEF => "!/[a-z\\d]/",
20                      CPLUSPLUS => 1,
21                      WRITE_PERL => 1,
22                      # Comment out next line to rebuild constants defs:
23                      NO_REBUILD => 1,
24                    },
25     (  ! $Config{libperl}  ?  ()  :  ( LIBPERL_A => $Config{libperl} )  ),
26     'INSTALLDIRS'   => ($] >= 5.008009 ? 'perl' : 'site'),
27     'LICENSE'   => 'perl',
28     'MIN_PERL_VERSION' => 5.001,
29     'PREREQ_PM' => {
30         'Math::BigInt' => 0,
31         'Win32' => 0,
32     },
33     BUILD_REQUIRES => {
34         'IO::File' => 0,
35         'File::Spec' => 0,
36     },
37
38     META_MERGE => {
39         resources => {
40             repository => 'http://github.com/chorny/Win32API-File',
41         },
42     },
43     $^O =~/win/i ? (
44         dist => {
45             TAR      => 'ptar',
46             TARFLAGS => '-c -C -f',
47         },
48     ) : (),
49 );
50
51 # Replacement for MakeMaker's "const2perl section" for versions
52 # of MakeMaker prior to the addition of this functionality:
53 sub MY::postamble
54 {
55     my( $self, %attribs )= @_;
56
57     # Don't do anything if MakeMaker has const2perl
58     # that already took care of all of this:
59     return   unless  %attribs;
60
61     # Don't require these here if we just C<return> above:
62     eval "use ExtUtils::Myconst2perl qw(ParseAttribs); 1"   or  die "$@";
63     eval "use ExtUtils::MakeMaker qw(neatvalue); 1"   or  die "$@";
64
65     # If only one module, can skip one level of indirection:
66     my $hvAttr= \%attribs;
67     if(  $attribs{IMPORT_LIST}  ) {
68         $hvAttr= { $self->{NAME} => \%attribs };
69     }
70
71     my( $module, @m, $_final, @clean, @realclean );
72     foreach $module (  keys %$hvAttr  ) {
73         my( $outfile, @perlfiles, @cfiles, $bin, $obj, $final, $noreb );
74
75         # Translate user-friendly options into coder-friendly specifics:
76         ParseAttribs( $module, $hvAttr->{$module}, { OUTFILE => \$outfile,
77           C_FILE_LIST => \@perlfiles, PERL_FILE_LIST => \@cfiles,
78           OBJECT => \$obj, BINARY => \$bin, FINAL_PERL => \$final,
79           NO_REBUILD => \$noreb } );
80         die "IFDEF option in Makefile.PL must be string, not code ref.\n"
81           if  ref $hvAttr->{$module}->{IFDEF};
82         die qq{IFDEF option in Makefile.PL must not contain quotes (").\n}
83           if  ref $hvAttr->{$module}->{IFDEF};
84
85         # How to create F<$outfile> via ExtUtils::Myconst2perl::Myconst2perl:
86         push @m, "
87 $outfile:       @perlfiles  @cfiles  Makefile" . '
88         $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Myconst2perl \\
89           -e "my %attribs;" \\
90           ';
91         $m[-1] =~ s/^/##/gm   if  $noreb;
92         my( $key, $value );
93         while(  ( $key, $value )= each %{$hvAttr->{$module}}  ) {
94             push @m, '-e "$$attribs{' . $key . '}= '
95               . neatvalue($value) . qq[;" \\\n\t  ];
96             $m[-1] =~ s/^/##/gm   if  $noreb;
97         }
98         push @m, '-e "Myconst2perl(' . neatvalue($module) . ",%attribs)\"\n";
99
100         # If requested extra work to generate Perl instead of XS code:
101         if(  $bin  ) {
102             my @path= split /::/, $module;
103             my $_final= $final;
104             $_final =~ s/\W/_/g;
105
106             # How to compile F<$outfile> and then run it to produce F<$final>:
107             push @m, "
108 $bin:   $outfile" . '
109         $(CC) $(INC) $(CCFLAGS) $(OPTIMIZE) $(PERLTYPE) $(LARGE) \\
110           $(SPLIT) $(DEFINE_VERSION) $(XS_DEFINE_VERSION) -I$(PERL_INC) \\
111           $(DEFINE)' . $outfile . " "
112           .  $self->catfile(qw[ $(PERL_INC) $(LIBPERL_A) ]) . " -o $bin
113
114 $final: $bin
115         " .  $self->catfile(".",$bin) . " >$final\n";
116             $m[-1] =~ s/^/##/gm   if  $noreb;
117
118             # Make sure the rarely-used $(INST_ARCHLIB) directory exists:
119             push @m, $self->dir_target('$(INST_ARCHLIB)');
120
121             ##warn qq{$path[-1].pm should C<require "},
122             ##  join("/",@path,$final), qq{">.\n};
123             # Install F<$final> whenever regular pm_to_blib target is built:
124             push @m, "
125 pm_to_blib: ${_final}_to_blib
126
127 ${_final}_to_blib: $final
128         " . '@$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \\
129         "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \\
130         -e "pm_to_blib({ ',neatvalue($final),',',
131         neatvalue($self->catfile('$(INST_ARCHLIB)',@path,$final)), ' },',
132         neatvalue($self->catfile(qw[$(INST_LIB) auto])), ')"
133         @$(TOUCH) ', $_final, "_to_blib
134
135 realclean ::
136         $self->{RM_RF} ", $self->catfile('$(INST_ARCHLIB)', $path[0]), "\n";
137
138             push( @clean, $outfile, $bin, $obj, $_final . "_to_blib" );
139             push( @realclean, $final )   unless  $noreb;
140         } else {
141
142             ##my $name= ( split /::/, $module )[-1];
143             ##warn qq{$name.xs should C<#include "$final"> },
144             ##  qq{in the C<BOOT:> section\n};
145             push( @realclean, $outfile )   unless  $noreb;
146         }
147     }
148
149     push @m, "
150 clean ::
151         $self->{RM_F} @clean\n"   if  @clean;
152     push @m, "
153 realclean ::
154         $self->{RM_F} @realclean\n"   if  @realclean;
155     return join('',@m);
156 }
157
158 sub WriteMakefile1 {  #Written by Alexandr Ciornii, version 0.21. Added by eumm-upgrade.
159         my %params=@_;
160         my $eumm_version=$ExtUtils::MakeMaker::VERSION;
161         $eumm_version=eval $eumm_version;
162         die "EXTRA_META is deprecated" if exists $params{EXTRA_META};
163         die "License not specified" if not exists $params{LICENSE};
164         if ($params{BUILD_REQUIRES} and $eumm_version < 6.5503) {
165                 #EUMM 6.5502 has problems with BUILD_REQUIRES
166                 $params{PREREQ_PM}={ %{$params{PREREQ_PM} || {}} , %{$params{BUILD_REQUIRES}} };
167                 delete $params{BUILD_REQUIRES};
168         }
169         delete $params{CONFIGURE_REQUIRES} if $eumm_version < 6.52;
170         delete $params{MIN_PERL_VERSION} if $eumm_version < 6.48;
171         delete $params{META_MERGE} if $eumm_version < 6.46;
172         delete $params{META_ADD} if $eumm_version < 6.46;
173         delete $params{LICENSE} if $eumm_version < 6.31;
174         delete $params{AUTHOR} if $] < 5.005;
175         delete $params{ABSTRACT_FROM} if $] < 5.005;
176         delete $params{BINARY_LOCATION} if $] < 5.005;
177
178         WriteMakefile(%params);
179 }
180