This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Makefile.PL: Fix so works on early perls
[perl5.git] / dist / Devel-PPPort / Makefile.PL
1 ################################################################################
2 #
3 #  Makefile.PL -- generate Makefile
4 #
5 ################################################################################
6 #
7 #  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
8 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
9 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
10 #
11 #  This program is free software; you can redistribute it and/or
12 #  modify it under the same terms as Perl itself.
13 #
14 ################################################################################
15
16 require 5.003;
17
18 use strict;
19 BEGIN { $^W = 1; }
20
21 use ExtUtils::MakeMaker;
22 use Config;
23
24 use vars '%opt';  # needs to be global, and we can't use 'our'
25
26 unless ($ENV{'PERL_CORE'}) {
27   $ENV{'PERL_CORE'} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
28 }
29
30 @ARGV = map { /^--with-(apicheck)$/ && ++$opt{$1} ? () : $_ } @ARGV;
31
32 my %mf = (
33   NAME          => 'Devel::PPPort',
34   VERSION_FROM  => 'PPPort_pm.PL',
35   PM            => { 'PPPort.pm' => '$(INST_LIBDIR)/PPPort.pm' },
36   H             => [ qw(ppport.h) ],
37   OBJECT        => 'RealPPPort$(OBJ_EXT) $(O_FILES)',
38   XSPROTOARG    => '-noprototypes',
39   CONFIGURE     => \&configure,
40 );
41 WriteMakefile(%mf);
42
43 sub configure
44 {
45   my @clean    = qw{ $(H_FILES) RealPPPort.xs RealPPPort.c PPPort.pm };
46   my %depend   = (
47     '$(OBJECT)' => '$(H_FILES)',
48     'Makefile' => '$(VERSION_FROM)',
49   );
50   my @C_FILES  = qw{ module2.c module3.c },
51   my %PL_FILES = (
52     'ppport_h.PL'  => 'ppport.h',
53     'PPPort_pm.PL' => 'PPPort.pm',
54     'RealPPPort_xs.PL' => 'RealPPPort.xs',
55     'mktests.PL' => 't/01_test.t',
56   );
57   my @moreopts;
58
59   if (eval { ExtUtils::MakeMaker->VERSION(6) }) {
60     push @moreopts, AUTHOR => 'Marcus Holland-Moritz <mhx@cpan.org>';
61     push @moreopts, ABSTRACT_FROM => 'PPPort_pm.PL';
62   }
63
64   if (eval { ExtUtils::MakeMaker->VERSION(6.30_01) }) {
65     print "Setting license tag...\n";
66     push @moreopts, LICENSE => 'perl';
67   }
68
69   if (eval { ExtUtils::MakeMaker->VERSION (6.46) }) {
70     open FH, '<PPPort_pm.PL' or die "cannot open PPPort_pm.PL for reading: $!";
71     my $version;
72     my $line;
73     while ($line = <FH>) {
74       ($version) = $line =~ /^\$VERSION = '([\d.]+)';$/ and last;
75     };
76     die 'failed to extract $VERSION from PPPort_pm.PL' if not $version;
77     close FH;
78     print "Adding META_MERGE...\n";
79     push @moreopts, META_MERGE => {
80       'meta-spec' => { version => 2 },
81       provides => {
82         'Devel::PPPort' => {
83           file    => 'PPPort_pm.PL',
84           version => $version,
85         },
86       },
87       resources => {
88         bugtracker => {
89           web => 'https://rt.perl.org/rt3/',
90         },
91         repository => {
92           type => 'git',
93           url  => 'git://perl5.git.perl.org/perl.git',
94           web  => 'https://perl5.git.perl.org/perl.git',
95         },
96       },
97     };
98   }
99
100   if (not $ENV{'PERL_CORE'}) {
101     # Devel::PPPort is in the core since 5.7.3
102     # 5.11.0+ has site before perl
103     push @moreopts, INSTALLDIRS => (
104       ("$]" >= 5.007003 and "$]" < 5.011)
105         ? 'perl'
106         : 'site'
107     );
108   }
109
110   if ($opt{'apicheck'}) {
111     $PL_FILES{'apicheck_c.PL'} = 'apicheck.c';
112     push @C_FILES, qw{ apicheck.c };
113     push @clean,   qw{ apicheck.c apicheck.i };
114     $depend{'apicheck.i'} = 'ppport.h';
115   }
116
117   if ($Config{gccversion}) {
118     my $define = '-W -Wall';
119     $define .= ' -Wdeclaration-after-statement' if $Config{gccversion} =~ /^(\d+\.\d+)\./ && $1 >= 3.4;
120     push @moreopts, DEFINE => $define;
121   }
122
123   return {
124     C        => \@C_FILES,
125     XS       => { 'RealPPPort.xs' => 'RealPPPort.c' },
126     PL_FILES => \%PL_FILES,
127     depend   => \%depend,
128     clean    => { FILES => "@clean" },
129     @moreopts,
130   };
131 }
132
133 sub MY::postamble
134 {
135   package MY;
136   my $post = shift->SUPER::postamble(@_);
137   $post .= <<'POSTAMBLE';
138
139 purge_all: realclean
140         @$(RM_F) PPPort.pm t/*.t
141
142 regen_pm:
143         $(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) PPPort_pm.PL
144
145 regen_xs:
146         $(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) RealPPPort_xs.PL
147
148 regen_tests:
149         $(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) mktests.PL
150
151 regen_h:
152         $(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) ppport_h.PL
153
154 regen: regen_pm regen_xs regen_tests regen_h
155
156 POSTAMBLE
157   return $post;
158 }
159
160 sub MY::processPL
161 {
162   package MY;
163   my $original = shift->SUPER::processPL(@_);
164
165   require "./parts/ppptools.pl";
166   my $includes = join ' ', all_files_in_dir('parts/inc');
167
168   my $updated = '';
169   my @rules = split( m{^\s*$}m, $original );
170   my $rule;
171   foreach $rule ( @rules ) {
172     if ( $rule =~ m{^\s*^PPPort\.pm\s+:}m ) {
173       $rule =~ s{^(\s*^PPPort\.pm\s+:.*)}{$1 $includes}m; # PPPort.pm depends on all files from parts/inc
174       $rule =~ s{pm_to_blib}{}m; # PPPort.pm must not depend on built PPPort.pm in blib/
175     } elsif ( $rule =~ m{^\s*^ppport\.h\s+:}m ) {
176       $rule =~ s{^(\s*^ppport\.h\s+:.*)}{$1 PPPort.pm}m; # ppport.h depends on PPPort.pm
177       $rule =~ s{pm_to_blib}{}m; # ppport.h is used to build RealPPPort.xs so cannot depend on built PPPort in blib/
178     } elsif ( $rule =~ m{^\s*^RealPPPort\.xs\s+:}m ) {
179       $rule =~ s{^(\s*^RealPPPort\.xs\s+:.*)}{$1 ppport.h}m; # RealPPPort.xs depends on ppport.h
180       $rule =~ s{pm_to_blib}{}m; # RealPPPort.xs is used to build PPPort binary, so it cannot depend on it
181     } elsif ( $rule =~ m{^\s*\S+\b01_test\.t\s+:}m ) {
182       $rule =~ s{^(\s*^\S+\b01_test\.t\s+:.*)}{$1 $includes}m; # all tests in t/ depends on all files from parts/inc
183       $rule =~ s{pm_to_blib}{}m; # Generating test files does not depend on built PPPort in blib/
184     }
185     $updated .= $rule;
186   }
187
188   return $updated;
189 }
190
191 sub MY::dist_core
192 {
193   package MY;
194   my $dist = shift->SUPER::dist_core(@_);
195
196   my $updated = '';
197   my @rules = split( m{^\s*$}m, $dist );
198   my $rule;
199   foreach $rule ( @rules ) {
200     if ( $rule =~ m{^\s*^dist\s+:}m ) {
201         $rule =~ s{:}{: manifest}; # make sure we regenerate the manifest
202         $rule .= qq[\t].q[$(NOECHO) $(ECHO) "Warning: Please check '__MAX_PERL__' value in PPPort_pm.PL"].qq[\n];
203     }
204     $updated .= $rule;
205   }
206
207   return $updated;
208 }
209
210
211 sub MY::c_o
212 {
213   package MY;
214   my $co = shift->SUPER::c_o(@_);
215
216   if ($::opt{'apicheck'} && $co !~ /^\.c\.i:/m) {
217     print "Adding custom rule for preprocessed apicheck file...\n";
218
219     $co .= <<'CO'
220
221 .SUFFIXES: .i
222
223 .c.i:
224         $(CCCMD) -E -I$(PERL_INC) $(DEFINE) $*.c > $*.i
225 CO
226   }
227
228   return $co;
229 }