This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Win32API::File cleanup
[perl5.git] / ext / Win32API / File / Makefile.PL
CommitLineData
00701878
SH
1#!/usr/bin/perl -w
2use ExtUtils::MakeMaker;
3use Config;
4use strict;
5# See lib/ExtUtils/MakeMaker.pm for details of how to influence
6# the contents of the Makefile that is written.
7WriteMakefile(
8 'NAME' => 'Win32API::File',
9 'VERSION_FROM' => 'File.pm', # finds $VERSION
10 ( $Config{archname} =~ /-object\b/i ? ( 'CAPI' => 'TRUE' ) : () ),
11 ( $] < 5.005 ? () :
12 ( 'AUTHOR' => 'Tye McQueen <tye@metronet.com>',
13 'ABSTRACT_FROM' => 'File.pm' )
14 ),
15 'postamble' => { IMPORT_LIST => [qw(/._/ !/[a-z]/ :MEDIA_TYPE)],
16 IFDEF => "!/[a-z\\d]/",
17 CPLUSPLUS => 1,
18 WRITE_PERL => 1,
19 # Comment out next line to rebuild constants defs:
20 NO_REBUILD => 1,
21 },
22 ( ! $Config{libperl} ? () : ( LIBPERL_A => $Config{libperl} ) ),
23);
24
25# Replacement for MakeMaker's "const2perl section" for versions
26# of MakeMaker prior to the addition of this functionality:
27sub MY::postamble
28{
29 my( $self, %attribs )= @_;
30
31 # Don't do anything if MakeMaker has const2perl
32 # that already took care of all of this:
33 return unless %attribs;
34
35 # Don't require these here if we just C<return> above:
36 eval "use ExtUtils::Myconst2perl qw(ParseAttribs); 1" or die "$@";
37 eval "use ExtUtils::MakeMaker qw(neatvalue); 1" or die "$@";
38
39 # If only one module, can skip one level of indirection:
40 my $hvAttr= \%attribs;
41 if( $attribs{IMPORT_LIST} ) {
42 $hvAttr= { $self->{NAME} => \%attribs };
43 }
44
45 my( $module, @m, $_final, @clean, @realclean );
46 foreach $module ( keys %$hvAttr ) {
47 my( $outfile, @perlfiles, @cfiles, $bin, $obj, $final, $noreb );
48
49 # Translate user-friendly options into coder-friendly specifics:
50 ParseAttribs( $module, $hvAttr->{$module}, { OUTFILE => \$outfile,
51 C_FILE_LIST => \@perlfiles, PERL_FILE_LIST => \@cfiles,
52 OBJECT => \$obj, BINARY => \$bin, FINAL_PERL => \$final,
53 NO_REBUILD => \$noreb } );
54 die "IFDEF option in Makefile.PL must be string, not code ref.\n"
55 if ref $hvAttr->{$module}->{IFDEF};
56 die qq{IFDEF option in Makefile.PL must not contain quotes (").\n}
57 if ref $hvAttr->{$module}->{IFDEF};
58
59 # How to create F<$outfile> via ExtUtils::Myconst2perl::Myconst2perl:
60 push @m, "
61$outfile: @perlfiles @cfiles Makefile" . '
62 $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Myconst2perl \\
63 -e "my %attribs;" \\
64 ';
65 $m[-1] =~ s/^/##/gm if $noreb;
66 my( $key, $value );
67 while( ( $key, $value )= each %{$hvAttr->{$module}} ) {
68 push @m, '-e "$$attribs{' . $key . '}= '
69 . neatvalue($value) . qq[;" \\\n\t ];
70 $m[-1] =~ s/^/##/gm if $noreb;
71 }
72 push @m, '-e "Myconst2perl(' . neatvalue($module) . ",%attribs)\"\n";
73
74 # If requested extra work to generate Perl instead of XS code:
75 if( $bin ) {
76 my @path= split /::/, $module;
77 my $_final= $final;
78 $_final =~ s/\W/_/g;
79
80 # How to compile F<$outfile> and then run it to produce F<$final>:
81 push @m, "
82$bin: $outfile" . '
83 $(CC) $(INC) $(CCFLAGS) $(OPTIMIZE) $(PERLTYPE) $(LARGE) \\
84 $(SPLIT) $(DEFINE_VERSION) $(XS_DEFINE_VERSION) -I$(PERL_INC) \\
85 $(DEFINE)' . $outfile . " "
86 . $self->catfile(qw[ $(PERL_INC) $(LIBPERL_A) ]) . " -o $bin
87
88$final: $bin
89 " . $self->catfile(".",$bin) . " >$final\n";
90 $m[-1] =~ s/^/##/gm if $noreb;
91
92 # Make sure the rarely-used $(INST_ARCHLIB) directory exists:
93 push @m, $self->dir_target('$(INST_ARCHLIB)');
94
95 ##warn qq{$path[-1].pm should C<require "},
96 ## join("/",@path,$final), qq{">.\n};
97 # Install F<$final> whenever regular pm_to_blib target is built:
98 push @m, "
99pm_to_blib: ${_final}_to_blib
100
101${_final}_to_blib: $final
102 " . '@$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \\
103 "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \\
104 -e "pm_to_blib({ ',neatvalue($final),',',
105 neatvalue($self->catfile('$(INST_ARCHLIB)',@path,$final)), ' },',
106 neatvalue($self->catfile(qw[$(INST_LIB) auto])), ')"
6d7cbd59
JH
107 @$(TOUCH) ', $_final, "_to_blib
108
109realclean ::
110 $self->{RM_RF} ", $self->catfile('$(INST_ARCHLIB)', $path[0]), "\n";
00701878
SH
111
112 push( @clean, $outfile, $bin, $obj, $_final . "_to_blib" );
113 push( @realclean, $final ) unless $noreb;
114 } else {
115
116 ##my $name= ( split /::/, $module )[-1];
117 ##warn qq{$name.xs should C<#include "$final"> },
118 ## qq{in the C<BOOT:> section\n};
119 push( @realclean, $outfile ) unless $noreb;
120 }
121 }
122
123 push @m, "
124clean ::
125 $self->{RM_F} @clean\n" if @clean;
126 push @m, "
127realclean ::
128 $self->{RM_F} @realclean\n" if @realclean;
129 return join('',@m);
130}