This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test C< ()=() >
[perl5.git] / lib / ExtUtils / MM_Unix.pm
CommitLineData
1e44e2bf
PP
1package ExtUtils::MM_Unix;
2
dbc738d9 3use Exporter ();
f1387719
PP
4use Config;
5use File::Basename qw(basename dirname fileparse);
6use DirHandle;
dbc738d9 7use strict;
a1f8e286
IZ
8use vars qw($VERSION $Is_Mac $Is_OS2 $Is_VMS
9 $Verbose %pm %static $Xsubpp_Version);
dbc738d9
PP
10
11$VERSION = substr q$Revision: 1.107 $, 10;
12# $Id: MM_Unix.pm,v 1.107 1996/09/03 20:53:39 k Exp $
1e44e2bf
PP
13
14Exporter::import('ExtUtils::MakeMaker',
15 qw( $Verbose &neatvalue));
16
f1387719
PP
17$Is_OS2 = $^O =~ m|^os/?2$|i;
18$Is_Mac = $^O eq "MacOS";
19
20if ($Is_VMS = $^O eq 'VMS') {
21 require VMS::Filespec;
22 import VMS::Filespec qw( &vmsify );
23}
1e44e2bf
PP
24
25=head1 NAME
26
27ExtUtils::MM_Unix - methods used by ExtUtils::MakeMaker
28
29=head1 SYNOPSIS
30
31C<require ExtUtils::MM_Unix;>
32
33=head1 DESCRIPTION
34
35The methods provided by this package are designed to be used in
36conjunction with ExtUtils::MakeMaker. When MakeMaker writes a
37Makefile, it creates one or more objects that inherit their methods
38from a package C<MM>. MM itself doesn't provide any methods, but it
39ISA ExtUtils::MM_Unix class. The inheritance tree of MM lets operating
40specific packages take the responsibility for all the methods provided
41by MM_Unix. We are trying to reduce the number of the necessary
42overrides by defining rather primitive operations within
43ExtUtils::MM_Unix.
44
45If you are going to write a platform specific MM package, please try
1fef88e7
JM
46to limit the necessary overrides to primitive methods, and if it is not
47possible to do so, let's work out how to achieve that gain.
1e44e2bf 48
f4ae0f5e
PP
49If you are overriding any of these methods in your Makefile.PL (in the
50MY class), please report that to the makemaker mailing list. We are
51trying to minimize the necessary method overrides and switch to data
52driven Makefile.PLs wherever possible. In the long run less methods
53will be overridable via the MY class.
54
1e44e2bf
PP
55=head1 METHODS
56
57The following description of methods is still under
58development. Please refer to the code for not suitably documented
59sections and complain loudly to the makemaker mailing list.
60
f1387719 61Not all of the methods below are overridable in a
f4ae0f5e
PP
62Makefile.PL. Overridable methods are marked as (o). All methods are
63overridable by a platform specific MM_*.pm file (See
1fef88e7 64L<ExtUtils::MM_VMS> and L<ExtUtils::MM_OS2>).
f4ae0f5e 65
1e44e2bf
PP
66=head2 Preloaded methods
67
68=over 2
69
f1387719
PP
70=item canonpath
71
72No physical check on the filesystem, but a logical cleanup of a
73path. On UNIX eliminated successive slashes and successive "/.".
74
75=cut
76
77sub canonpath {
78 my($self,$path) = @_;
79 $path =~ s|/+|/|g ; # xx////xx -> xx/xx
80 $path =~ s|(/\.)+/|/|g ; # xx/././xx -> xx/xx
81 $path =~ s|^(\./)+|| unless $path eq "./"; # ./xx -> xx
82 $path =~ s|/$|| unless $path eq "/"; # xx/ -> xx
83 $path;
84}
85
1e44e2bf
PP
86=item catdir
87
88Concatenate two or more directory names to form a complete path ending
f1387719
PP
89with a directory. But remove the trailing slash from the resulting
90string, because it doesn't look good, isn't necessary and confuses
91OS2. Of course, if this is the root directory, don't cut off the
92trailing slash :-)
1e44e2bf
PP
93
94=cut
95
96# ';
97
f1387719 98sub catdir {
1e44e2bf 99 shift;
f1387719
PP
100 my @args = @_;
101 for (@args) {
102 # append a slash to each argument unless it has one there
93f9cb4b 103 $_ .= "/" if $_ eq '' or substr($_,-1) ne "/";
f1387719
PP
104 }
105 my $result = join('', @args);
106 # remove a trailing slash unless we are root
93f9cb4b
PP
107 substr($result,-1) = ""
108 if length($result) > 1 && substr($result,-1) eq "/";
1e44e2bf
PP
109 $result;
110}
111
112=item catfile
113
f1387719 114Concatenate one or more directory names and a filename to form a
1e44e2bf
PP
115complete path ending with a filename
116
117=cut
118
119sub catfile {
f1387719
PP
120 my $self = shift @_;
121 my $file = pop @_;
122 return $file unless @_;
123 my $dir = $self->catdir(@_);
124 for ($dir) {
125 $_ .= "/" unless substr($_,length($_)-1,1) eq "/";
126 }
127 return $dir.$file;
1e44e2bf
PP
128}
129
f1387719
PP
130=item curdir
131
132Returns a string representing of the current directory. "." on UNIX.
133
134=cut
135
136sub curdir {
137 return "." ;
138}
139
140=item rootdir
141
142Returns a string representing of the root directory. "/" on UNIX.
143
144=cut
145
146sub rootdir {
147 return "/";
148}
149
150=item updir
151
152Returns a string representing of the parent directory. ".." on UNIX.
153
154=cut
155
156sub updir {
157 return "..";
158}
159
160sub ExtUtils::MM_Unix::c_o ;
161sub ExtUtils::MM_Unix::clean ;
162sub ExtUtils::MM_Unix::const_cccmd ;
f4ae0f5e 163sub ExtUtils::MM_Unix::const_config ;
f4ae0f5e 164sub ExtUtils::MM_Unix::const_loadlibs ;
f1387719 165sub ExtUtils::MM_Unix::constants ;
f4ae0f5e 166sub ExtUtils::MM_Unix::depend ;
f1387719
PP
167sub ExtUtils::MM_Unix::dir_target ;
168sub ExtUtils::MM_Unix::dist ;
169sub ExtUtils::MM_Unix::dist_basics ;
170sub ExtUtils::MM_Unix::dist_ci ;
171sub ExtUtils::MM_Unix::dist_core ;
172sub ExtUtils::MM_Unix::dist_dir ;
173sub ExtUtils::MM_Unix::dist_test ;
f4ae0f5e
PP
174sub ExtUtils::MM_Unix::dlsyms ;
175sub ExtUtils::MM_Unix::dynamic ;
176sub ExtUtils::MM_Unix::dynamic_bs ;
177sub ExtUtils::MM_Unix::dynamic_lib ;
f1387719
PP
178sub ExtUtils::MM_Unix::exescan ;
179sub ExtUtils::MM_Unix::extliblist ;
180sub ExtUtils::MM_Unix::file_name_is_absolute ;
181sub ExtUtils::MM_Unix::find_perl ;
182sub ExtUtils::MM_Unix::force ;
183sub ExtUtils::MM_Unix::guess_name ;
184sub ExtUtils::MM_Unix::has_link_code ;
185sub ExtUtils::MM_Unix::init_dirscan ;
186sub ExtUtils::MM_Unix::init_main ;
187sub ExtUtils::MM_Unix::init_others ;
188sub ExtUtils::MM_Unix::install ;
189sub ExtUtils::MM_Unix::installbin ;
190sub ExtUtils::MM_Unix::libscan ;
191sub ExtUtils::MM_Unix::linkext ;
192sub ExtUtils::MM_Unix::lsdir ;
193sub ExtUtils::MM_Unix::macro ;
194sub ExtUtils::MM_Unix::makeaperl ;
195sub ExtUtils::MM_Unix::makefile ;
f4ae0f5e 196sub ExtUtils::MM_Unix::manifypods ;
f1387719
PP
197sub ExtUtils::MM_Unix::maybe_command ;
198sub ExtUtils::MM_Unix::maybe_command_in_dirs ;
199sub ExtUtils::MM_Unix::needs_linking ;
200sub ExtUtils::MM_Unix::nicetext ;
201sub ExtUtils::MM_Unix::parse_version ;
202sub ExtUtils::MM_Unix::pasthru ;
203sub ExtUtils::MM_Unix::path ;
204sub ExtUtils::MM_Unix::perl_script ;
205sub ExtUtils::MM_Unix::perldepend ;
206sub ExtUtils::MM_Unix::pm_to_blib ;
207sub ExtUtils::MM_Unix::post_constants ;
208sub ExtUtils::MM_Unix::post_initialize ;
209sub ExtUtils::MM_Unix::postamble ;
210sub ExtUtils::MM_Unix::prefixify ;
f4ae0f5e 211sub ExtUtils::MM_Unix::processPL ;
f4ae0f5e 212sub ExtUtils::MM_Unix::realclean ;
f1387719
PP
213sub ExtUtils::MM_Unix::replace_manpage_separator ;
214sub ExtUtils::MM_Unix::static ;
215sub ExtUtils::MM_Unix::static_lib ;
f4ae0f5e 216sub ExtUtils::MM_Unix::staticmake ;
f1387719
PP
217sub ExtUtils::MM_Unix::subdir_x ;
218sub ExtUtils::MM_Unix::subdirs ;
f4ae0f5e
PP
219sub ExtUtils::MM_Unix::test ;
220sub ExtUtils::MM_Unix::test_via_harness ;
221sub ExtUtils::MM_Unix::test_via_script ;
f1387719
PP
222sub ExtUtils::MM_Unix::tool_autosplit ;
223sub ExtUtils::MM_Unix::tool_xsubpp ;
224sub ExtUtils::MM_Unix::tools_other ;
225sub ExtUtils::MM_Unix::top_targets ;
f4ae0f5e 226sub ExtUtils::MM_Unix::writedoc ;
f1387719
PP
227sub ExtUtils::MM_Unix::xs_c ;
228sub ExtUtils::MM_Unix::xs_o ;
229sub ExtUtils::MM_Unix::xsubpp_version ;
f4ae0f5e
PP
230
231package ExtUtils::MM_Unix;
232
93f9cb4b 233use SelfLoader;
f4ae0f5e
PP
234
2351;
93f9cb4b
PP
236
237__DATA__
f4ae0f5e
PP
238
239=head2 SelfLoaded methods
240
f1387719 241=item c_o (o)
1e44e2bf 242
f1387719
PP
243Defines the suffix rules to compile different flavors of C files to
244object files.
1e44e2bf
PP
245
246=cut
247
f1387719
PP
248sub c_o {
249# --- Translation Sections ---
1e44e2bf 250
f1387719
PP
251 my($self) = shift;
252 return '' unless $self->needs_linking();
253 my(@m);
254 push @m, '
255.c$(OBJ_EXT):
042ade60 256 $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
a0d6894c
PP
257';
258 push @m, '
f1387719
PP
259.C$(OBJ_EXT):
260 $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.C
a0d6894c
PP
261' if $^O ne 'os2'; # Case-specific
262 push @m, '
f1387719
PP
263.cpp$(OBJ_EXT):
264 $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cpp
1e44e2bf 265
f1387719
PP
266.cxx$(OBJ_EXT):
267 $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cxx
1e44e2bf 268
f1387719
PP
269.cc$(OBJ_EXT):
270 $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cc
271';
272 join "", @m;
1e44e2bf
PP
273}
274
f1387719 275=item cflags (o)
1e44e2bf 276
f1387719
PP
277Does very much the same as the cflags script in the perl
278distribution. It doesn't return the whole compiler command line, but
279initializes all of its parts. The const_cccmd method then actually
280returns the definition of the CCCMD macro which uses these parts.
1e44e2bf
PP
281
282=cut
283
f1387719 284#'
1e44e2bf 285
f1387719
PP
286sub cflags {
287 my($self,$libperl)=@_;
288 return $self->{CFLAGS} if $self->{CFLAGS};
289 return '' unless $self->needs_linking();
1e44e2bf 290
f1387719
PP
291 my($prog, $uc, $perltype, %cflags);
292 $libperl ||= $self->{LIBPERL_A} || "libperl$self->{LIB_EXT}" ;
293 $libperl =~ s/\.\$\(A\)$/$self->{LIB_EXT}/;
1e44e2bf 294
f1387719
PP
295 @cflags{qw(cc ccflags optimize large split shellflags)}
296 = @Config{qw(cc ccflags optimize large split shellflags)};
297 my($optdebug) = "";
1e44e2bf 298
f1387719 299 $cflags{shellflags} ||= '';
1e44e2bf 300
f1387719
PP
301 my(%map) = (
302 D => '-DDEBUGGING',
303 E => '-DEMBED',
304 DE => '-DDEBUGGING -DEMBED',
305 M => '-DEMBED -DMULTIPLICITY',
306 DM => '-DDEBUGGING -DEMBED -DMULTIPLICITY',
307 );
1e44e2bf 308
f1387719
PP
309 if ($libperl =~ /libperl(\w*)\Q$self->{LIB_EXT}/){
310 $uc = uc($1);
311 } else {
312 $uc = ""; # avoid warning
313 }
314 $perltype = $map{$uc} ? $map{$uc} : "";
1e44e2bf 315
f1387719
PP
316 if ($uc =~ /^D/) {
317 $optdebug = "-g";
318 }
1e44e2bf 319
1e44e2bf 320
f1387719
PP
321 my($name);
322 ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ;
323 if ($prog = $Config::Config{$name}) {
324 # Expand hints for this extension via the shell
325 print STDOUT "Processing $name hint:\n" if $Verbose;
326 my(@o)=`cc=\"$cflags{cc}\"
327 ccflags=\"$cflags{ccflags}\"
328 optimize=\"$cflags{optimize}\"
329 perltype=\"$cflags{perltype}\"
330 optdebug=\"$cflags{optdebug}\"
331 large=\"$cflags{large}\"
332 split=\"$cflags{'split'}\"
333 eval '$prog'
334 echo cc=\$cc
335 echo ccflags=\$ccflags
336 echo optimize=\$optimize
337 echo perltype=\$perltype
338 echo optdebug=\$optdebug
339 echo large=\$large
340 echo split=\$split
341 `;
342 my($line);
343 foreach $line (@o){
344 chomp $line;
345 if ($line =~ /(.*?)=\s*(.*)\s*$/){
346 $cflags{$1} = $2;
347 print STDOUT " $1 = $2\n" if $Verbose;
348 } else {
349 print STDOUT "Unrecognised result from hint: '$line'\n";
350 }
351 }
352 }
1e44e2bf 353
f1387719
PP
354 if ($optdebug) {
355 $cflags{optimize} = $optdebug;
356 }
1e44e2bf 357
f1387719
PP
358 for (qw(ccflags optimize perltype large split)) {
359 $cflags{$_} =~ s/^\s+//;
360 $cflags{$_} =~ s/\s+/ /g;
361 $cflags{$_} =~ s/\s+$//;
362 $self->{uc $_} ||= $cflags{$_}
363 }
1e44e2bf 364
f1387719
PP
365 return $self->{CFLAGS} = qq{
366CCFLAGS = $self->{CCFLAGS}
367OPTIMIZE = $self->{OPTIMIZE}
368PERLTYPE = $self->{PERLTYPE}
369LARGE = $self->{LARGE}
370SPLIT = $self->{SPLIT}
371};
1e44e2bf 372
1e44e2bf
PP
373}
374
f1387719 375=item clean (o)
1e44e2bf 376
f1387719 377Defines the clean target.
1e44e2bf
PP
378
379=cut
380
f1387719
PP
381sub clean {
382# --- Cleanup and Distribution Sections ---
1e44e2bf 383
f1387719
PP
384 my($self, %attribs) = @_;
385 my(@m,$dir);
386 push(@m, '
387# Delete temporary files but do not touch installed files. We don\'t delete
388# the Makefile here so a later make realclean still has a makefile to use.
1e44e2bf 389
f1387719
PP
390clean ::
391');
392 # clean subdirectories first
393 for $dir (@{$self->{DIR}}) {
394 push @m, "\t-cd $dir && test -f $self->{MAKEFILE} && \$(MAKE) clean\n";
1e44e2bf 395 }
f1387719
PP
396
397 my(@otherfiles) = values %{$self->{XS}}; # .c files from *.xs files
398 push(@otherfiles, $attribs{FILES}) if $attribs{FILES};
399 push(@otherfiles, qw[./blib $(MAKE_APERL_FILE) $(INST_ARCHAUTODIR)/extralibs.all
400 perlmain.c mon.out core so_locations pm_to_blib
401 *~ */*~ */*/*~ *$(OBJ_EXT) *$(LIB_EXT) perl.exe
402 $(BOOTSTRAP) $(BASEEXT).bso $(BASEEXT).def
403 $(BASEEXT).exp
404 ]);
405 push @m, "\t-$self->{RM_RF} @otherfiles\n";
406 # See realclean and ext/utils/make_ext for usage of Makefile.old
407 push(@m,
408 "\t-$self->{MV} $self->{MAKEFILE} $self->{MAKEFILE}.old 2>/dev/null\n");
409 push(@m,
410 "\t$attribs{POSTOP}\n") if $attribs{POSTOP};
411 join("", @m);
1e44e2bf
PP
412}
413
f1387719 414=item const_cccmd (o)
1e44e2bf 415
f1387719
PP
416Returns the full compiler call for C programs and stores the
417definition in CONST_CCCMD.
1e44e2bf
PP
418
419=cut
420
f1387719
PP
421sub const_cccmd {
422 my($self,$libperl)=@_;
423 return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
424 return '' unless $self->needs_linking();
425 return $self->{CONST_CCCMD} =
426 q{CCCMD = $(CC) -c $(INC) $(CCFLAGS) $(OPTIMIZE) \\
427 $(PERLTYPE) $(LARGE) $(SPLIT) $(DEFINE_VERSION) \\
428 $(XS_DEFINE_VERSION)};
1e44e2bf
PP
429}
430
f1387719 431=item const_config (o)
1e44e2bf 432
f1387719
PP
433Defines a couple of constants in the Makefile that are imported from
434%Config.
1e44e2bf
PP
435
436=cut
437
f1387719
PP
438sub const_config {
439# --- Constants Sections ---
440
441 my($self) = shift;
442 my(@m,$m);
443 push(@m,"\n# These definitions are from config.sh (via $INC{'Config.pm'})\n");
444 push(@m,"\n# They may have been overridden via Makefile.PL or on the command line\n");
445 my(%once_only);
446 foreach $m (@{$self->{CONFIG}}){
447 # SITE*EXP macros are defined in &constants; avoid duplicates here
448 next if $once_only{$m} or $m eq 'sitelibexp' or $m eq 'sitearchexp';
449 push @m, "\U$m\E = ".$self->{uc $m}."\n";
450 $once_only{$m} = 1;
451 }
452 join('', @m);
1e44e2bf
PP
453}
454
f1387719 455=item const_loadlibs (o)
1e44e2bf 456
f1387719
PP
457Defines EXTRALIBS, LDLOADLIBS, BSLOADLIBS, LD_RUN_PATH. See
458L<ExtUtils::Liblist> for details.
1e44e2bf
PP
459
460=cut
461
f1387719
PP
462sub const_loadlibs {
463 my($self) = shift;
464 return "" unless $self->needs_linking;
465 my @m;
466 push @m, qq{
467# $self->{NAME} might depend on some other libraries:
468# See ExtUtils::Liblist for details
469#
470};
471 my($tmp);
472 for $tmp (qw/
473 EXTRALIBS LDLOADLIBS BSLOADLIBS LD_RUN_PATH
474 /) {
475 next unless defined $self->{$tmp};
476 push @m, "$tmp = $self->{$tmp}\n";
477 }
478 return join "", @m;
1e44e2bf
PP
479}
480
f1387719 481=item constants (o)
1e44e2bf 482
f1387719 483Initializes lots of constants and .SUFFIXES and .PHONY
1e44e2bf
PP
484
485=cut
486
f1387719 487sub constants {
1e44e2bf 488 my($self) = @_;
f1387719 489 my(@m,$tmp);
1e44e2bf 490
f1387719 491 for $tmp (qw/
1e44e2bf 492
f1387719
PP
493 AR_STATIC_ARGS NAME DISTNAME NAME_SYM VERSION
494 VERSION_SYM XS_VERSION INST_BIN INST_EXE INST_LIB
495 INST_ARCHLIB INST_SCRIPT PREFIX INSTALLDIRS
496 INSTALLPRIVLIB INSTALLARCHLIB INSTALLSITELIB
497 INSTALLSITEARCH INSTALLBIN INSTALLSCRIPT PERL_LIB
498 PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
499 FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC
500 PERL_INC PERL FULLPERL
1e44e2bf 501
f1387719
PP
502 / ) {
503 next unless defined $self->{$tmp};
504 push @m, "$tmp = $self->{$tmp}\n";
1e44e2bf
PP
505 }
506
f1387719
PP
507 push @m, qq{
508VERSION_MACRO = VERSION
509DEFINE_VERSION = -D\$(VERSION_MACRO)=\\\"\$(VERSION)\\\"
510XS_VERSION_MACRO = XS_VERSION
511XS_DEFINE_VERSION = -D\$(XS_VERSION_MACRO)=\\\"\$(XS_VERSION)\\\"
512};
1e44e2bf 513
f1387719
PP
514 push @m, qq{
515MAKEMAKER = $INC{'ExtUtils/MakeMaker.pm'}
516MM_VERSION = $ExtUtils::MakeMaker::VERSION
517};
1e44e2bf 518
f1387719
PP
519 push @m, q{
520# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
521# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
522# ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD) !!! Deprecated from MM 5.32 !!!
523# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
524# DLBASE = Basename part of dynamic library. May be just equal BASEEXT.
525};
1e44e2bf 526
f1387719
PP
527 for $tmp (qw/
528 FULLEXT BASEEXT PARENT_NAME DLBASE VERSION_FROM INC DEFINE OBJECT
529 LDFROM LINKTYPE
530 / ) {
531 next unless defined $self->{$tmp};
532 push @m, "$tmp = $self->{$tmp}\n";
533 }
1e44e2bf 534
f1387719
PP
535 push @m, "
536# Handy lists of source code files:
537XS_FILES= ".join(" \\\n\t", sort keys %{$self->{XS}})."
538C_FILES = ".join(" \\\n\t", @{$self->{C}})."
539O_FILES = ".join(" \\\n\t", @{$self->{O_FILES}})."
540H_FILES = ".join(" \\\n\t", @{$self->{H}})."
541MAN1PODS = ".join(" \\\n\t", sort keys %{$self->{MAN1PODS}})."
542MAN3PODS = ".join(" \\\n\t", sort keys %{$self->{MAN3PODS}})."
543";
1e44e2bf 544
f1387719
PP
545 for $tmp (qw/
546 INST_MAN1DIR INSTALLMAN1DIR MAN1EXT INST_MAN3DIR INSTALLMAN3DIR MAN3EXT
547 /) {
548 next unless defined $self->{$tmp};
549 push @m, "$tmp = $self->{$tmp}\n";
550 }
1e44e2bf 551
f1387719
PP
552 push @m, q{
553.NO_CONFIG_REC: Makefile
554} if $ENV{CLEARCASE_ROOT};
1e44e2bf 555
f1387719
PP
556 # why not q{} ? -- emacs
557 push @m, qq{
558# work around a famous dec-osf make(1) feature(?):
559makemakerdflt: all
1e44e2bf 560
f1387719 561.SUFFIXES: .xs .c .C .cpp .cxx .cc \$(OBJ_EXT)
1e44e2bf 562
f1387719
PP
563# Nick wanted to get rid of .PRECIOUS. I don't remember why. I seem to recall, that
564# some make implementations will delete the Makefile when we rebuild it. Because
565# we call false(1) when we rebuild it. So make(1) is not completely wrong when it
566# does so. Our milage may vary.
567# .PRECIOUS: Makefile # seems to be not necessary anymore
1e44e2bf 568
f1387719 569.PHONY: all config static dynamic test linkext manifest
1e44e2bf 570
f1387719
PP
571# Where is the Config information that we are using/depend on
572CONFIGDEP = \$(PERL_ARCHLIB)/Config.pm \$(PERL_INC)/config.h
dbc738d9 573};
1e44e2bf 574
dbc738d9
PP
575 my @parentdir = split(/::/, $self->{PARENT_NAME});
576 push @m, q{
f1387719 577# Where to put things:
dbc738d9
PP
578INST_LIBDIR = }. $self->catdir('$(INST_LIB)',@parentdir) .q{
579INST_ARCHLIBDIR = }. $self->catdir('$(INST_ARCHLIB)',@parentdir) .q{
1e44e2bf 580
dbc738d9
PP
581INST_AUTODIR = }. $self->catdir('$(INST_LIB)','auto','$(FULLEXT)') .q{
582INST_ARCHAUTODIR = }. $self->catdir('$(INST_ARCHLIB)','auto','$(FULLEXT)') .q{
f1387719 583};
1e44e2bf 584
f1387719
PP
585 if ($self->has_link_code()) {
586 push @m, '
587INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
588INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
589INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
590';
591 } else {
592 push @m, '
593INST_STATIC =
594INST_DYNAMIC =
595INST_BOOT =
596';
1e44e2bf
PP
597 }
598
f1387719
PP
599 if ($Is_OS2) {
600 $tmp = "$self->{BASEEXT}.def";
601 } else {
602 $tmp = "";
603 }
604 push @m, "
605EXPORT_LIST = $tmp
606";
1e44e2bf 607
f1387719
PP
608 if ($Is_OS2) {
609 $tmp = "\$(PERL_INC)/libperl\$(LIB_EXT)";
610 } else {
611 $tmp = "";
612 }
613 push @m, "
614PERL_ARCHIVE = $tmp
615";
1e44e2bf 616
f1387719
PP
617# push @m, q{
618#INST_PM = }.join(" \\\n\t", sort values %{$self->{PM}}).q{
619#
620#PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
621#};
1e44e2bf 622
f1387719
PP
623 push @m, q{
624TO_INST_PM = }.join(" \\\n\t", sort keys %{$self->{PM}}).q{
1e44e2bf 625
f1387719
PP
626PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
627};
1e44e2bf 628
f1387719
PP
629 join('',@m);
630}
1e44e2bf 631
f1387719 632=item depend (o)
1e44e2bf 633
f1387719 634Same as macro for the depend attribute.
1e44e2bf 635
f1387719 636=cut
1e44e2bf 637
f1387719
PP
638sub depend {
639 my($self,%attribs) = @_;
640 my(@m,$key,$val);
641 while (($key,$val) = each %attribs){
642 last unless defined $key;
643 push @m, "$key: $val\n";
1e44e2bf 644 }
f1387719
PP
645 join "", @m;
646}
1e44e2bf 647
f1387719 648=item dir_target (o)
1e44e2bf 649
f1387719
PP
650Takes an array of directories that need to exist and returns a
651Makefile entry for a .exists file in these directories. Returns
652nothing, if the entry has already been processed. We're helpless
653though, if the same directory comes as $(FOO) _and_ as "bar". Both of
654them get an entry, that's why we use "::".
1e44e2bf 655
f1387719 656=cut
1e44e2bf 657
f1387719
PP
658sub dir_target {
659# --- Make-Directories section (internal method) ---
660# dir_target(@array) returns a Makefile entry for the file .exists in each
661# named directory. Returns nothing, if the entry has already been processed.
662# We're helpless though, if the same directory comes as $(FOO) _and_ as "bar".
663# Both of them get an entry, that's why we use "::". I chose '$(PERL)' as the
664# prerequisite, because there has to be one, something that doesn't change
665# too often :)
1e44e2bf 666
f1387719
PP
667 my($self,@dirs) = @_;
668 my(@m,$dir);
669 foreach $dir (@dirs) {
670 my($src) = $self->catfile($self->{PERL_INC},'perl.h');
671 my($targ) = $self->catfile($dir,'.exists');
672 my($targdir) = $targ; # Necessary because catfile may have
673 $targdir =~ s:/?.exists$::; # adapted syntax of $dir to target OS
674 next if $self->{DIR_TARGET}{$self}{$targdir}++;
675 push @m, qq{
676$targ :: $src
677 $self->{NOECHO}\$(MKPATH) $targdir
678 $self->{NOECHO}\$(EQUALIZE_TIMESTAMP) $src $targ
679};
680 push(@m,qq{
681 -$self->{NOECHO}\$(CHMOD) 755 $targdir
682}) unless $Is_VMS;
683 }
684 join "", @m;
685}
1e44e2bf 686
f1387719 687=item dist (o)
1e44e2bf 688
f1387719 689Defines a lot of macros for distribution support.
1e44e2bf 690
f1387719 691=cut
1e44e2bf 692
f1387719
PP
693sub dist {
694 my($self, %attribs) = @_;
1e44e2bf 695
f1387719
PP
696 my(@m);
697 # VERSION should be sanitised before use as a file name
698 my($version) = $attribs{VERSION} || '$(VERSION)';
699 my($name) = $attribs{NAME} || '$(DISTNAME)';
700 my($tar) = $attribs{TAR} || 'tar'; # eg /usr/bin/gnutar
701 my($tarflags) = $attribs{TARFLAGS} || 'cvf';
702 my($zip) = $attribs{ZIP} || 'zip'; # eg pkzip Yuck!
703 my($zipflags) = $attribs{ZIPFLAGS} || '-r';
704 my($compress) = $attribs{COMPRESS} || 'compress'; # eg gzip
705 my($suffix) = $attribs{SUFFIX} || '.Z'; # eg .gz
706 my($shar) = $attribs{SHAR} || 'shar'; # eg "shar --gzip"
707 my($preop) = $attribs{PREOP} || "$self->{NOECHO}\$(NOOP)"; # eg update MANIFEST
708 my($postop) = $attribs{POSTOP} || "$self->{NOECHO}\$(NOOP)"; # eg remove the distdir
1e44e2bf 709
f1387719
PP
710 my($to_unix) = $attribs{TO_UNIX} || ($Is_OS2
711 ? "$self->{NOECHO}"
712 . 'test -f tmp.zip && $(RM) tmp.zip;'
713 . ' $(ZIP) -ll -mr tmp.zip $(DISTVNAME) && unzip -o tmp.zip && $(RM) tmp.zip'
714 : "$self->{NOECHO}\$(NOOP)");
1e44e2bf 715
f1387719
PP
716 my($ci) = $attribs{CI} || 'ci -u';
717 my($rcs_label)= $attribs{RCS_LABEL}|| 'rcs -Nv$(VERSION_SYM): -q';
718 my($dist_cp) = $attribs{DIST_CP} || 'best';
719 my($dist_default) = $attribs{DIST_DEFAULT} || 'tardist';
1e44e2bf 720
f1387719
PP
721 push @m, "
722DISTVNAME = ${name}-$version
723TAR = $tar
724TARFLAGS = $tarflags
725ZIP = $zip
726ZIPFLAGS = $zipflags
727COMPRESS = $compress
728SUFFIX = $suffix
729SHAR = $shar
730PREOP = $preop
731POSTOP = $postop
732TO_UNIX = $to_unix
733CI = $ci
734RCS_LABEL = $rcs_label
735DIST_CP = $dist_cp
736DIST_DEFAULT = $dist_default
737";
738 join "", @m;
1e44e2bf
PP
739}
740
f1387719 741=item dist_basics (o)
1e44e2bf 742
f1387719 743Defines the targets distclean, distcheck, skipcheck, manifest.
1e44e2bf
PP
744
745=cut
746
f1387719
PP
747sub dist_basics {
748 my($self) = shift;
749 my @m;
750 push @m, q{
751distclean :: realclean distcheck
752};
1e44e2bf 753
f1387719
PP
754 push @m, q{
755distcheck :
756 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&fullcheck";' \\
757 -e 'fullcheck();'
758};
1e44e2bf 759
f1387719
PP
760 push @m, q{
761skipcheck :
762 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&skipcheck";' \\
763 -e 'skipcheck();'
764};
1e44e2bf 765
f1387719
PP
766 push @m, q{
767manifest :
768 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&mkmanifest";' \\
769 -e 'mkmanifest();'
770};
771 join "", @m;
1e44e2bf
PP
772}
773
f1387719 774=item dist_ci (o)
1e44e2bf 775
f1387719 776Defines a check in target for RCS.
1e44e2bf
PP
777
778=cut
779
f1387719 780sub dist_ci {
1e44e2bf 781 my($self) = shift;
f1387719
PP
782 my @m;
783 push @m, q{
784ci :
785 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&maniread";' \\
786 -e '@all = keys %{ maniread() };' \\
787 -e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \\
788 -e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");'
789};
790 join "", @m;
791}
1e44e2bf 792
f1387719 793=item dist_core (o)
1e44e2bf 794
f1387719 795Defeines the targets dist, tardist, zipdist, uutardist, shdist
1e44e2bf 796
f1387719 797=cut
1e44e2bf 798
f1387719
PP
799sub dist_core {
800 my($self) = shift;
801 my @m;
802 push @m, q{
803dist : $(DIST_DEFAULT)
804 }.$self->{NOECHO}.q{$(PERL) -le 'print "Warning: Makefile possibly out of date with $$vf" if ' \
805 -e '-e ($$vf="$(VERSION_FROM)") and -M $$vf < -M "}.$self->{MAKEFILE}.q{";'
1e44e2bf 806
f1387719 807tardist : $(DISTVNAME).tar$(SUFFIX)
1e44e2bf 808
f1387719 809zipdist : $(DISTVNAME).zip
1e44e2bf 810
f1387719
PP
811$(DISTVNAME).tar$(SUFFIX) : distdir
812 $(PREOP)
813 $(TO_UNIX)
814 $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
815 $(RM_RF) $(DISTVNAME)
816 $(COMPRESS) $(DISTVNAME).tar
817 $(POSTOP)
1e44e2bf 818
f1387719
PP
819$(DISTVNAME).zip : distdir
820 $(PREOP)
821 $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
822 $(RM_RF) $(DISTVNAME)
823 $(POSTOP)
1e44e2bf 824
f1387719
PP
825uutardist : $(DISTVNAME).tar$(SUFFIX)
826 uuencode $(DISTVNAME).tar$(SUFFIX) \\
827 $(DISTVNAME).tar$(SUFFIX) > \\
828 $(DISTVNAME).tar$(SUFFIX)_uu
f4ae0f5e 829
f1387719
PP
830shdist : distdir
831 $(PREOP)
832 $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
833 $(RM_RF) $(DISTVNAME)
834 $(POSTOP)
835};
836 join "", @m;
f4ae0f5e
PP
837}
838
f1387719 839=item dist_dir (o)
f4ae0f5e 840
f1387719
PP
841Defines the scratch directory target that will hold the distribution
842before tar-ing (or shar-ing).
1e44e2bf
PP
843
844=cut
845
f1387719
PP
846sub dist_dir {
847 my($self) = shift;
848 my @m;
849 push @m, q{
850distdir :
851 $(RM_RF) $(DISTVNAME)
852 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=manicopy,maniread \\
853 -e 'manicopy(maniread(),"$(DISTVNAME)", "$(DIST_CP)");'
854};
855 join "", @m;
1e44e2bf
PP
856}
857
f1387719 858=item dist_test (o)
1e44e2bf 859
f1387719
PP
860Defines a target that produces the distribution in the
861scratchdirectory, and runs 'perl Makefile.PL; make ;make test' in that
862subdirectory.
1e44e2bf
PP
863
864=cut
865
f1387719 866sub dist_test {
1e44e2bf 867 my($self) = shift;
f1387719
PP
868 my @m;
869 push @m, q{
870disttest : distdir
871 cd $(DISTVNAME) && $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) Makefile.PL
872 cd $(DISTVNAME) && $(MAKE)
873 cd $(DISTVNAME) && $(MAKE) test
874};
875 join "", @m;
1e44e2bf
PP
876}
877
f1387719 878=item dlsyms (o)
1e44e2bf 879
f1387719
PP
880Used by AIX and VMS to define DL_FUNCS and DL_VARS and write the *.exp
881files.
1e44e2bf
PP
882
883=cut
884
f1387719
PP
885sub dlsyms {
886 my($self,%attribs) = @_;
1e44e2bf 887
f1387719 888 return '' unless ($^O eq 'aix' && $self->needs_linking() );
1e44e2bf 889
f1387719
PP
890 my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
891 my($vars) = $attribs{DL_VARS} || $self->{DL_VARS} || [];
892 my(@m);
1e44e2bf 893
f1387719
PP
894 push(@m,"
895dynamic :: $self->{BASEEXT}.exp
1e44e2bf 896
f1387719 897") unless $self->{SKIPHASH}{'dynamic'}; # dynamic and static are subs, so...
1e44e2bf 898
f1387719
PP
899 push(@m,"
900static :: $self->{BASEEXT}.exp
1e44e2bf 901
f1387719 902") unless $self->{SKIPHASH}{'static'}; # we avoid a warning if we tick them
1e44e2bf 903
f1387719
PP
904 push(@m,"
905$self->{BASEEXT}.exp: Makefile.PL
906",' $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e \'use ExtUtils::Mksymlists; \\
907 Mksymlists("NAME" => "',$self->{NAME},'", "DL_FUNCS" => ',
908 neatvalue($funcs),', "DL_VARS" => ', neatvalue($vars), ');\'
909');
1e44e2bf 910
f1387719
PP
911 join('',@m);
912}
1e44e2bf 913
f1387719 914=item dynamic (o)
1e44e2bf 915
f1387719 916Defines the dynamic target.
1e44e2bf 917
f1387719 918=cut
1e44e2bf 919
f1387719
PP
920sub dynamic {
921# --- Dynamic Loading Sections ---
1e44e2bf 922
f1387719
PP
923 my($self) = shift;
924 '
925## $(INST_PM) has been moved to the all: target.
926## It remains here for awhile to allow for old usage: "make dynamic"
927#dynamic :: '.$self->{MAKEFILE}.' $(INST_DYNAMIC) $(INST_BOOT) $(INST_PM)
928dynamic :: '.$self->{MAKEFILE}.' $(INST_DYNAMIC) $(INST_BOOT)
929 '.$self->{NOECHO}.'$(NOOP)
930';
931}
1e44e2bf 932
f1387719 933=item dynamic_bs (o)
1e44e2bf 934
f1387719 935Defines targets for bootstrap files.
1e44e2bf 936
f1387719 937=cut
1e44e2bf 938
f1387719
PP
939sub dynamic_bs {
940 my($self, %attribs) = @_;
941 return '
942BOOTSTRAP =
943' unless $self->has_link_code();
1e44e2bf 944
f1387719
PP
945 return '
946BOOTSTRAP = '."$self->{BASEEXT}.bs".'
1e44e2bf 947
f1387719
PP
948# As Mkbootstrap might not write a file (if none is required)
949# we use touch to prevent make continually trying to remake it.
950# The DynaLoader only reads a non-empty file.
951$(BOOTSTRAP): '."$self->{MAKEFILE} $self->{BOOTDEP}".' $(INST_ARCHAUTODIR)/.exists
952 '.$self->{NOECHO}.'echo "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
953 '.$self->{NOECHO}.'$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" \
954 -e \'use ExtUtils::Mkbootstrap;\' \
955 -e \'Mkbootstrap("$(BASEEXT)","$(BSLOADLIBS)");\'
956 '.$self->{NOECHO}.'$(TOUCH) $(BOOTSTRAP)
957 $(CHMOD) 644 $@
1e44e2bf 958
f1387719
PP
959$(INST_BOOT): $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists
960 '."$self->{NOECHO}$self->{RM_RF}".' $(INST_BOOT)
961 -'.$self->{CP}.' $(BOOTSTRAP) $(INST_BOOT)
962 $(CHMOD) 644 $@
1e44e2bf 963';
f1387719 964}
1e44e2bf 965
f1387719 966=item dynamic_lib (o)
1e44e2bf 967
f1387719
PP
968Defines how to produce the *.so (or equivalent) files.
969
970=cut
971
972sub dynamic_lib {
973 my($self, %attribs) = @_;
974 return '' unless $self->needs_linking(); #might be because of a subdir
1e44e2bf 975
f1387719 976 return '' unless $self->has_link_code;
f4ae0f5e 977
f1387719
PP
978 my($otherldflags) = $attribs{OTHERLDFLAGS} || "";
979 my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
980 my($armaybe) = $attribs{ARMAYBE} || $self->{ARMAYBE} || ":";
981 my($ldfrom) = '$(LDFROM)';
982 $armaybe = 'ar' if ($^O eq 'dec_osf' and $armaybe eq ':');
983 my(@m);
984 push(@m,'
985# This section creates the dynamically loadable $(INST_DYNAMIC)
986# from $(OBJECT) and possibly $(MYEXTLIB).
987ARMAYBE = '.$armaybe.'
988OTHERLDFLAGS = '.$otherldflags.'
989INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
f4ae0f5e 990
f1387719
PP
991$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
992');
993 if ($armaybe ne ':'){
994 $ldfrom = 'tmp$(LIB_EXT)';
995 push(@m,' $(ARMAYBE) cr '.$ldfrom.' $(OBJECT)'."\n");
996 push(@m,' $(RANLIB) '."$ldfrom\n");
997 }
998 $ldfrom = "-all $ldfrom -none" if ($^O eq 'dec_osf');
999 push(@m,' LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@ $(LDDLFLAGS) '.$ldfrom.
042ade60 1000 ' $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(EXPORT_LIST)');
f1387719
PP
1001 push @m, '
1002 $(CHMOD) 755 $@
1003';
1e44e2bf 1004
f1387719 1005 push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
1e44e2bf
PP
1006 join('',@m);
1007}
1008
f1387719 1009=item exescan
1e44e2bf 1010
f1387719 1011Deprecated method. Use libscan instead.
1e44e2bf
PP
1012
1013=cut
1014
f1387719
PP
1015sub exescan {
1016 my($self,$path) = @_;
1017 $path;
1e44e2bf
PP
1018}
1019
f1387719 1020=item extliblist
1e44e2bf 1021
f1387719
PP
1022Called by init_others, and calls ext ExtUtils::Liblist. See
1023L<ExtUtils::Liblist> for details.
1e44e2bf
PP
1024
1025=cut
1026
f1387719
PP
1027sub extliblist {
1028 my($self,$libs) = @_;
1029 require ExtUtils::Liblist;
1030 $self->ext($libs, $Verbose);
1031}
f4ae0f5e 1032
f1387719 1033=item file_name_is_absolute
f4ae0f5e 1034
1fef88e7 1035Takes as argument a path and returns true, if it is an absolute path.
1e44e2bf 1036
f1387719 1037=cut
1e44e2bf 1038
f1387719
PP
1039sub file_name_is_absolute {
1040 my($self,$file) = @_;
1041 $file =~ m:^/: ;
1042}
1e44e2bf 1043
f1387719 1044=item find_perl
1e44e2bf 1045
f1387719 1046Finds the executables PERL and FULLPERL
1e44e2bf 1047
f1387719 1048=cut
1e44e2bf 1049
f1387719
PP
1050sub find_perl {
1051 my($self, $ver, $names, $dirs, $trace) = @_;
1052 my($name, $dir);
1053 if ($trace >= 2){
1054 print "Looking for perl $ver by these names:
1055@$names
1056in these dirs:
1057@$dirs
1058";
1059 }
1060 foreach $dir (@$dirs){
1061 next unless defined $dir; # $self->{PERL_SRC} may be undefined
1062 foreach $name (@$names){
a1f8e286 1063 my ($abs, $val);
f1387719
PP
1064 if ($self->file_name_is_absolute($name)) { # /foo/bar
1065 $abs = $name;
1066 } elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { # foo
1067 $abs = $self->catfile($dir, $name);
1068 } else { # foo/bar
1069 $abs = $self->canonpath($self->catfile($self->curdir, $name));
1070 }
1071 print "Checking $abs\n" if ($trace >= 2);
1072 next unless $self->maybe_command($abs);
1073 print "Executing $abs\n" if ($trace >= 2);
a1f8e286
IZ
1074 $val = `$abs -e 'require $ver; print "VER_OK\n" ' 2>&1`;
1075 if ($val =~ /VER_OK/) {
f1387719
PP
1076 print "Using PERL=$abs\n" if $trace;
1077 return $abs;
a1f8e286
IZ
1078 } elsif ($trace >= 2) {
1079 print "Result: `$val'\n";
1e44e2bf
PP
1080 }
1081 }
1e44e2bf 1082 }
f1387719
PP
1083 print STDOUT "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
1084 0; # false and not empty
1085}
1e44e2bf 1086
f1387719 1087=head2 Methods to actually produce chunks of text for the Makefile
1e44e2bf 1088
f1387719
PP
1089The methods here are called in the order specified by
1090@ExtUtils::MakeMaker::MM_Sections. This manpage reflects the order as
1091well as possible. Some methods call each other, so in doubt refer to
1092the code.
f4ae0f5e 1093
f1387719
PP
1094=item force (o)
1095
1096Just writes FORCE:
1097
1098=cut
1e44e2bf 1099
f1387719
PP
1100sub force {
1101 my($self) = shift;
1102 '# Phony target to force checking subdirectories.
1103FORCE:
1104';
1e44e2bf
PP
1105}
1106
f1387719 1107=item guess_name
1e44e2bf 1108
f1387719
PP
1109Guess the name of this package by examining the working directory's
1110name. MakeMaker calls this only if the developer has not supplied a
1111NAME attribute.
1e44e2bf 1112
f1387719 1113=cut
f4ae0f5e 1114
f1387719
PP
1115# ';
1116
1117sub guess_name {
1118 my($self) = @_;
1119 use Cwd 'cwd';
1120 my $name = basename(cwd());
1121 $name =~ s|[\-_][\d\.\-]+$||; # this is new with MM 5.00, we
1122 # strip minus or underline
1123 # followed by a float or some such
1124 print "Warning: Guessing NAME [$name] from current directory name.\n";
1125 $name;
1126}
1127
1128=item has_link_code
1129
1130Returns true if C, XS, MYEXTLIB or similar objects exist within this
1131object that need a compiler. Does not descend into subdirectories as
1132needs_linking() does.
f4ae0f5e
PP
1133
1134=cut
1135
f1387719
PP
1136sub has_link_code {
1137 my($self) = shift;
1138 return $self->{HAS_LINK_CODE} if defined $self->{HAS_LINK_CODE};
1139 if ($self->{OBJECT} or @{$self->{C} || []} or $self->{MYEXTLIB}){
1140 $self->{HAS_LINK_CODE} = 1;
1141 return 1;
f4ae0f5e 1142 }
f1387719 1143 return $self->{HAS_LINK_CODE} = 0;
f4ae0f5e
PP
1144}
1145
f1387719 1146=item init_dirscan
f4ae0f5e 1147
f1387719
PP
1148Initializes DIR, XS, PM, C, O_FILES, H, PL_FILES, MAN*PODS, EXE_FILES.
1149
1150=cut
1151
1152sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc)
1153 my($self) = @_;
1154 my($name, %dir, %xs, %c, %h, %ignore, %pl_files, %manifypods);
1155 local(%pm); #the sub in find() has to see this hash
1156 $ignore{'test.pl'} = 1;
1157 $ignore{'makefile.pl'} = 1 if $Is_VMS;
1158 foreach $name ($self->lsdir($self->curdir)){
1159 next if $name eq $self->curdir or $name eq $self->updir or $ignore{$name};
1160 next unless $self->libscan($name);
1161 if (-d $name){
760ac839 1162 next if -l $name; # We do not support symlinks at all
f1387719
PP
1163 $dir{$name} = $name if (-f $self->catfile($name,"Makefile.PL"));
1164 } elsif ($name =~ /\.xs$/){
1165 my($c); ($c = $name) =~ s/\.xs$/.c/;
1166 $xs{$name} = $c;
1167 $c{$c} = 1;
1168 } elsif ($name =~ /\.c(pp|xx|c)?$/i){ # .c .C .cpp .cxx .cc
1169 $c{$name} = 1
1170 unless $name =~ m/perlmain\.c/; # See MAP_TARGET
1171 } elsif ($name =~ /\.h$/i){
1172 $h{$name} = 1;
1173 } elsif ($name =~ /\.(p[ml]|pod)$/){
1174 $pm{$name} = $self->catfile('$(INST_LIBDIR)',$name);
1175 } elsif ($name =~ /\.PL$/ && $name ne "Makefile.PL") {
1176 ($pl_files{$name} = $name) =~ s/\.PL$// ;
1177 } elsif ($Is_VMS && $name =~ /\.pl$/ && $name ne 'makefile.pl' &&
1178 $name ne 'test.pl') { # case-insensitive filesystem
1179 ($pl_files{$name} = $name) =~ s/\.pl$// ;
1180 }
1181 }
f4ae0f5e 1182
f1387719
PP
1183 # Some larger extensions often wish to install a number of *.pm/pl
1184 # files into the library in various locations.
f4ae0f5e 1185
f1387719
PP
1186 # The attribute PMLIBDIRS holds an array reference which lists
1187 # subdirectories which we should search for library files to
1188 # install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ]. We
1189 # recursively search through the named directories (skipping any
1190 # which don't exist or contain Makefile.PL files).
f4ae0f5e 1191
f1387719
PP
1192 # For each *.pm or *.pl file found $self->libscan() is called with
1193 # the default installation path in $_[1]. The return value of
1194 # libscan defines the actual installation location. The default
1195 # libscan function simply returns the path. The file is skipped
1196 # if libscan returns false.
f4ae0f5e 1197
f1387719
PP
1198 # The default installation location passed to libscan in $_[1] is:
1199 #
1200 # ./*.pm => $(INST_LIBDIR)/*.pm
1201 # ./xyz/... => $(INST_LIBDIR)/xyz/...
1202 # ./lib/... => $(INST_LIB)/...
1203 #
1204 # In this way the 'lib' directory is seen as the root of the actual
1205 # perl library whereas the others are relative to INST_LIBDIR
1206 # (which includes PARENT_NAME). This is a subtle distinction but one
1207 # that's important for nested modules.
1e44e2bf 1208
f1387719
PP
1209 $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}]
1210 unless $self->{PMLIBDIRS};
1e44e2bf 1211
f1387719 1212 #only existing directories that aren't in $dir are allowed
1e44e2bf 1213
f1387719
PP
1214 # Avoid $_ wherever possible:
1215 # @{$self->{PMLIBDIRS}} = grep -d && !$dir{$_}, @{$self->{PMLIBDIRS}};
1216 my (@pmlibdirs) = @{$self->{PMLIBDIRS}};
1217 my ($pmlibdir);
1218 @{$self->{PMLIBDIRS}} = ();
1219 foreach $pmlibdir (@pmlibdirs) {
1220 -d $pmlibdir && !$dir{$pmlibdir} && push @{$self->{PMLIBDIRS}}, $pmlibdir;
1e44e2bf 1221 }
1e44e2bf 1222
f1387719
PP
1223 if (@{$self->{PMLIBDIRS}}){
1224 print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n"
1225 if ($Verbose >= 2);
1226 require File::Find;
1227 File::Find::find(sub {
1228 if (-d $_){
1229 if ($_ eq "CVS" || $_ eq "RCS"){
1230 $File::Find::prune = 1;
1231 }
1232 return;
1233 }
1234 my($path, $prefix) = ($File::Find::name, '$(INST_LIBDIR)');
1235 my($striplibpath,$striplibname);
93f9cb4b 1236 $prefix = '$(INST_LIB)' if (($striplibpath = $path) =~ s:^(\W*)lib\W:$1:i);
f1387719
PP
1237 ($striplibname,$striplibpath) = fileparse($striplibpath);
1238 my($inst) = $self->catfile($prefix,$striplibpath,$striplibname);
1239 local($_) = $inst; # for backwards compatibility
1240 $inst = $self->libscan($inst);
1241 print "libscan($path) => '$inst'\n" if ($Verbose >= 2);
1242 return unless $inst;
1243 $pm{$path} = $inst;
1244 }, @{$self->{PMLIBDIRS}});
1245 }
1e44e2bf 1246
f1387719
PP
1247 $self->{DIR} = [sort keys %dir] unless $self->{DIR};
1248 $self->{XS} = \%xs unless $self->{XS};
1249 $self->{PM} = \%pm unless $self->{PM};
1250 $self->{C} = [sort keys %c] unless $self->{C};
1251 my(@o_files) = @{$self->{C}};
1252 $self->{O_FILES} = [grep s/\.c(pp|xx|c)?$/$self->{OBJ_EXT}/i, @o_files] ;
1253 $self->{H} = [sort keys %h] unless $self->{H};
1254 $self->{PL_FILES} = \%pl_files unless $self->{PL_FILES};
1e44e2bf 1255
f1387719
PP
1256 # Set up names of manual pages to generate from pods
1257 if ($self->{MAN1PODS}) {
1258 } elsif ( $self->{INST_MAN1DIR} =~ /^(none|\s*)$/ ) {
1259 $self->{MAN1PODS} = {};
1260 } else {
1261 my %manifypods = ();
1262 if ( exists $self->{EXE_FILES} ) {
1263 foreach $name (@{$self->{EXE_FILES}}) {
1264# use FileHandle ();
1265# my $fh = new FileHandle;
1266 local *FH;
1267 my($ispod)=0;
1268 # one day test, if $/ can be set to '' safely (is the bug fixed that was in 5.001m?)
1269# if ($fh->open("<$name")) {
1270 if (open(FH,"<$name")) {
1271# while (<$fh>) {
1272 while (<FH>) {
1273 if (/^=head1\s+\w+/) {
1274 $ispod=1;
1275 last;
1276 }
1277 }
1278# $fh->close;
1279 close FH;
1280 } else {
1281 # If it doesn't exist yet, we assume, it has pods in it
1282 $ispod = 1;
1e44e2bf 1283 }
f1387719
PP
1284 if( $ispod ) {
1285 $manifypods{$name} = $self->catfile('$(INST_MAN1DIR)',basename($name).'.$(MAN1EXT)');
1e44e2bf 1286 }
f1387719 1287 }
1e44e2bf 1288 }
f1387719 1289 $self->{MAN1PODS} = \%manifypods;
1e44e2bf 1290 }
f1387719
PP
1291 if ($self->{MAN3PODS}) {
1292 } elsif ( $self->{INST_MAN3DIR} =~ /^(none|\s*)$/ ) {
1293 $self->{MAN3PODS} = {};
1e44e2bf 1294 } else {
f1387719
PP
1295 my %manifypods = (); # we collect the keys first, i.e. the files
1296 # we have to convert to pod
1297 foreach $name (keys %{$self->{PM}}) {
1298 if ($name =~ /\.pod$/ ) {
1299 $manifypods{$name} = $self->{PM}{$name};
1300 } elsif ($name =~ /\.p[ml]$/ ) {
1301# use FileHandle ();
1302# my $fh = new FileHandle;
1303 local *FH;
1304 my($ispod)=0;
1305# $fh->open("<$name");
1306 if (open(FH,"<$name")) {
1307 # while (<$fh>) {
1308 while (<FH>) {
1309 if (/^=head1\s+\w+/) {
1310 $ispod=1;
1311 last;
1312 }
1313 }
1314 # $fh->close;
1315 close FH;
1316 } else {
1317 $ispod = 1;
1318 }
1319 if( $ispod ) {
1320 $manifypods{$name} = $self->{PM}{$name};
1321 }
1322 }
1323 }
1324
1325 # Remove "Configure.pm" and similar, if it's not the only pod listed
1326 # To force inclusion, just name it "Configure.pod", or override MAN3PODS
1327 foreach $name (keys %manifypods) {
1328 if ($name =~ /(config|setup).*\.pm/i) {
1329 delete $manifypods{$name};
1330 next;
1331 }
1332 my($manpagename) = $name;
1333 unless ($manpagename =~ s!^\W*lib\W+!!) { # everything below lib is ok
1334 $manpagename = $self->catfile(split(/::/,$self->{PARENT_NAME}),$manpagename);
1335 }
1336 $manpagename =~ s/\.p(od|m|l)$//;
1337 $manpagename = $self->replace_manpage_separator($manpagename);
1338 $manifypods{$name} = $self->catfile("\$(INST_MAN3DIR)","$manpagename.\$(MAN3EXT)");
1e44e2bf 1339 }
f1387719 1340 $self->{MAN3PODS} = \%manifypods;
1e44e2bf 1341 }
f1387719 1342}
1e44e2bf 1343
f1387719 1344=item init_main
1e44e2bf 1345
f1387719
PP
1346Initializes NAME, FULLEXT, BASEEXT, PARENT_NAME, DLBASE, PERL_SRC,
1347PERL_LIB, PERL_ARCHLIB, PERL_INC, INSTALLDIRS, INST_*, INSTALL*,
1348PREFIX, CONFIG, AR, AR_STATIC_ARGS, LD, OBJ_EXT, LIB_EXT, MAP_TARGET,
1349LIBPERL_A, VERSION_FROM, VERSION, DISTNAME, VERSION_SYM.
f4ae0f5e 1350
f1387719 1351=cut
1e44e2bf 1352
f1387719
PP
1353sub init_main {
1354 my($self) = @_;
1e44e2bf 1355
f1387719 1356 # --- Initialize Module Name and Paths
1e44e2bf 1357
f1387719
PP
1358 # NAME = Foo::Bar::Oracle
1359 # FULLEXT = Foo/Bar/Oracle
1360 # BASEEXT = Oracle
1361 # ROOTEXT = Directory part of FULLEXT with leading /. !!! Deprecated from MM 5.32 !!!
1362 # PARENT_NAME = Foo::Bar
1363### Only UNIX:
1364### ($self->{FULLEXT} =
1365### $self->{NAME}) =~ s!::!/!g ; #eg. BSD/Foo/Socket
1366 $self->{FULLEXT} = $self->catdir(split /::/, $self->{NAME});
1e44e2bf 1367
1e44e2bf 1368
f1387719 1369 # Copied from DynaLoader:
1e44e2bf 1370
f1387719
PP
1371 my(@modparts) = split(/::/,$self->{NAME});
1372 my($modfname) = $modparts[-1];
1e44e2bf 1373
f1387719
PP
1374 # Some systems have restrictions on files names for DLL's etc.
1375 # mod2fname returns appropriate file base name (typically truncated)
1376 # It may also edit @modparts if required.
1377 if (defined &DynaLoader::mod2fname) {
1378 $modfname = &DynaLoader::mod2fname(\@modparts);
760ac839 1379 }
1e44e2bf 1380
f1387719
PP
1381 ($self->{PARENT_NAME}, $self->{BASEEXT}) = $self->{NAME} =~ m!([\w:]+::)?(\w+)$! ;
1382
760ac839 1383 if (defined &DynaLoader::mod2fname) {
f1387719
PP
1384 # As of 5.001m, dl_os2 appends '_'
1385 $self->{DLBASE} = $modfname;
1386 } else {
1387 $self->{DLBASE} = '$(BASEEXT)';
1388 }
1389
1e44e2bf 1390
f1387719
PP
1391 ### ROOTEXT deprecated from MM 5.32
1392### ($self->{ROOTEXT} =
1393### $self->{FULLEXT}) =~ s#/?\Q$self->{BASEEXT}\E$## ; #eg. /BSD/Foo
1394### $self->{ROOTEXT} = ($Is_VMS ? '' : '/') . $self->{ROOTEXT} if $self->{ROOTEXT};
1e44e2bf 1395
1e44e2bf 1396
f1387719 1397 # --- Initialize PERL_LIB, INST_LIB, PERL_SRC
1e44e2bf 1398
f1387719
PP
1399 # *Real* information: where did we get these two from? ...
1400 my $inc_config_dir = dirname($INC{'Config.pm'});
1401 my $inc_carp_dir = dirname($INC{'Carp.pm'});
1e44e2bf 1402
f1387719
PP
1403 unless ($self->{PERL_SRC}){
1404 my($dir);
1405 foreach $dir ($self->updir(),$self->catdir($self->updir(),$self->updir()),$self->catdir($self->updir(),$self->updir(),$self->updir())){
1406 if (
1407 -f $self->catfile($dir,"config.sh")
1408 &&
1409 -f $self->catfile($dir,"perl.h")
1410 &&
1411 -f $self->catfile($dir,"lib","Exporter.pm")
1412 ) {
1413 $self->{PERL_SRC}=$dir ;
1414 last;
1415 }
1416 }
1417 }
1418 if ($self->{PERL_SRC}){
1419 $self->{PERL_LIB} ||= $self->catdir("$self->{PERL_SRC}","lib");
1420 $self->{PERL_ARCHLIB} = $self->{PERL_LIB};
1421 $self->{PERL_INC} = $self->{PERL_SRC};
1422 # catch a situation that has occurred a few times in the past:
1e44e2bf 1423
f1387719
PP
1424 warn <<EOM unless (-s $self->catfile($self->{PERL_SRC},'cflags') or $Is_VMS && -s $self->catfile($self->{PERL_SRC},'perlshr_attr.opt') or $Is_Mac);
1425You cannot build extensions below the perl source tree after executing
1426a 'make clean' in the perl source tree.
1e44e2bf 1427
f1387719
PP
1428To rebuild extensions distributed with the perl source you should
1429simply Configure (to include those extensions) and then build perl as
1430normal. After installing perl the source tree can be deleted. It is
1431not needed for building extensions by running 'perl Makefile.PL'
1432usually without extra arguments.
1e44e2bf 1433
f1387719
PP
1434It is recommended that you unpack and build additional extensions away
1435from the perl source tree.
1436EOM
1437 } else {
1438 # we should also consider $ENV{PERL5LIB} here
1439 $self->{PERL_LIB} ||= $Config::Config{privlibexp};
1440 $self->{PERL_ARCHLIB} ||= $Config::Config{archlibexp};
1441 $self->{PERL_INC} = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
1442 my $perl_h;
1443 die <<EOM unless (-f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h")));
1444Error: Unable to locate installed Perl libraries or Perl source code.
f4ae0f5e 1445
f1387719
PP
1446It is recommended that you install perl in a standard location before
1447building extensions. You can say:
1e44e2bf 1448
f1387719 1449 $^X Makefile.PL PERL_SRC=/path/to/perl/source/directory
1e44e2bf 1450
f1387719
PP
1451if you have not yet installed perl but still want to build this
1452extension now.
1453(You get this message, because MakeMaker could not find "$perl_h")
1454EOM
f4ae0f5e 1455
f1387719
PP
1456# print STDOUT "Using header files found in $self->{PERL_INC}\n"
1457# if $Verbose && $self->needs_linking();
1e44e2bf 1458
f1387719 1459 }
1e44e2bf 1460
f1387719
PP
1461 # We get SITELIBEXP and SITEARCHEXP directly via
1462 # Get_from_Config. When we are running standard modules, these
1463 # won't matter, we will set INSTALLDIRS to "perl". Otherwise we
1464 # set it to "site". I prefer that INSTALLDIRS be set from outside
1465 # MakeMaker.
1466 $self->{INSTALLDIRS} ||= "site";
1e44e2bf 1467
f1387719
PP
1468 # INST_LIB typically pre-set if building an extension after
1469 # perl has been built and installed. Setting INST_LIB allows
1470 # you to build directly into, say $Config::Config{privlibexp}.
1471 unless ($self->{INST_LIB}){
1e44e2bf 1472
1e44e2bf 1473
f1387719 1474 ##### XXXXX We have to change this nonsense
1e44e2bf 1475
f1387719
PP
1476 if (defined $self->{PERL_SRC} and $self->{INSTALLDIRS} eq "perl") {
1477 $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB};
1478 } else {
1479 $self->{INST_LIB} = $self->catdir($self->curdir,"blib","lib");
1480 }
1481 }
1482 $self->{INST_ARCHLIB} ||= $self->catdir($self->curdir,"blib","arch");
1483 $self->{INST_BIN} ||= $self->catdir($self->curdir,'blib','bin');
1e44e2bf 1484
93f9cb4b
PP
1485 # We need to set up INST_LIBDIR before init_libscan() for VMS
1486 my @parentdir = split(/::/, $self->{PARENT_NAME});
1487 $self->{INST_LIBDIR} = $self->catdir('$(INST_LIB)',@parentdir);
1488 $self->{INST_ARCHLIBDIR} = $self->catdir('$(INST_ARCHLIB)',@parentdir);
1489 $self->{INST_AUTODIR} = $self->catdir('$(INST_LIB)','auto','$(FULLEXT)');
1490 $self->{INST_ARCHAUTODIR} = $self->catdir('$(INST_ARCHLIB)','auto','$(FULLEXT)');
1491
f1387719
PP
1492 # INST_EXE is deprecated, should go away March '97
1493 $self->{INST_EXE} ||= $self->catdir($self->curdir,'blib','script');
1494 $self->{INST_SCRIPT} ||= $self->catdir($self->curdir,'blib','script');
1e44e2bf 1495
f1387719
PP
1496 # The user who requests an installation directory explicitly
1497 # should not have to tell us a architecture installation directory
1498 # as well We look if a directory exists that is named after the
1499 # architecture. If not we take it as a sign that it should be the
1500 # same as the requested installation directory. Otherwise we take
1501 # the found one.
1502 # We do the same thing twice: for privlib/archlib and for sitelib/sitearch
1503 my($libpair);
1504 for $libpair ({l=>"privlib", a=>"archlib"}, {l=>"sitelib", a=>"sitearch"}) {
1505 my $lib = "install$libpair->{l}";
1506 my $Lib = uc $lib;
1507 my $Arch = uc "install$libpair->{a}";
1508 if( $self->{$Lib} && ! $self->{$Arch} ){
1509 my($ilib) = $Config{$lib};
1510 $ilib = VMS::Filespec::unixify($ilib) if $Is_VMS;
1e44e2bf 1511
f1387719
PP
1512 $self->prefixify($Arch,$ilib,$self->{$Lib});
1513
1514 unless (-d $self->{$Arch}) {
1515 print STDOUT "Directory $self->{$Arch} not found, thusly\n" if $Verbose;
1516 $self->{$Arch} = $self->{$Lib};
1517 }
1518 print STDOUT "Defaulting $Arch to $self->{$Arch}\n" if $Verbose;
1519 }
1e44e2bf 1520 }
f4ae0f5e 1521
f1387719
PP
1522 # we have to look at the relation between $Config{prefix} and the
1523 # requested values. We're going to set the $Config{prefix} part of
1524 # all the installation path variables to literally $(PREFIX), so
1525 # the user can still say make PREFIX=foo
1526 my($prefix) = $Config{'prefix'};
1527 $prefix = VMS::Filespec::unixify($prefix) if $Is_VMS;
1528 unless ($self->{PREFIX}){
1529 $self->{PREFIX} = $prefix;
1530 }
1531 my($install_variable);
1532 for $install_variable (qw/
1e44e2bf 1533
f1387719
PP
1534 INSTALLPRIVLIB INSTALLARCHLIB INSTALLBIN
1535 INSTALLMAN1DIR INSTALLMAN3DIR INSTALLSCRIPT
1536 INSTALLSITELIB INSTALLSITEARCH
1e44e2bf 1537
f1387719
PP
1538 /) {
1539 $self->prefixify($install_variable,$prefix,q[$(PREFIX)]);
1540 }
1e44e2bf
PP
1541
1542
f1387719
PP
1543 # Now we head at the manpages. Maybe they DO NOT want manpages
1544 # installed
1545 $self->{INSTALLMAN1DIR} = $Config::Config{installman1dir}
1546 unless defined $self->{INSTALLMAN1DIR};
1547 unless (defined $self->{INST_MAN1DIR}){
1548 if ($self->{INSTALLMAN1DIR} =~ /^(none|\s*)$/){
1549 $self->{INST_MAN1DIR} = $self->{INSTALLMAN1DIR};
1550 } else {
1551 $self->{INST_MAN1DIR} = $self->catdir($self->curdir,'blib','man1');
1552 }
1553 }
1554 $self->{MAN1EXT} ||= $Config::Config{man1ext};
1e44e2bf 1555
f1387719
PP
1556 $self->{INSTALLMAN3DIR} = $Config::Config{installman3dir}
1557 unless defined $self->{INSTALLMAN3DIR};
1558 unless (defined $self->{INST_MAN3DIR}){
1559 if ($self->{INSTALLMAN3DIR} =~ /^(none|\s*)$/){
1560 $self->{INST_MAN3DIR} = $self->{INSTALLMAN3DIR};
1561 } else {
1562 $self->{INST_MAN3DIR} = $self->catdir($self->curdir,'blib','man3');
1563 }
1e44e2bf 1564 }
f1387719
PP
1565 $self->{MAN3EXT} ||= $Config::Config{man3ext};
1566
1567
1568 # Get some stuff out of %Config if we haven't yet done so
1569 print STDOUT "CONFIG must be an array ref\n"
1570 if ($self->{CONFIG} and ref $self->{CONFIG} ne 'ARRAY');
1571 $self->{CONFIG} = [] unless (ref $self->{CONFIG});
1572 push(@{$self->{CONFIG}}, @ExtUtils::MakeMaker::Get_from_Config);
1573 push(@{$self->{CONFIG}}, 'shellflags') if $Config::Config{shellflags};
1574 my(%once_only,$m);
1575 foreach $m (@{$self->{CONFIG}}){
1576 next if $once_only{$m};
1577 print STDOUT "CONFIG key '$m' does not exist in Config.pm\n"
1578 unless exists $Config::Config{$m};
1579 $self->{uc $m} ||= $Config::Config{$m};
1580 $once_only{$m} = 1;
1e44e2bf 1581 }
1e44e2bf 1582
f1387719
PP
1583# This is too dangerous:
1584# if ($^O eq "next") {
1585# $self->{AR} = "libtool";
1586# $self->{AR_STATIC_ARGS} = "-o";
1587# }
1588# But I leave it as a placeholder
1e44e2bf 1589
f1387719 1590 $self->{AR_STATIC_ARGS} ||= "cr";
1e44e2bf 1591
f1387719
PP
1592 # These should never be needed
1593 $self->{LD} ||= 'ld';
1594 $self->{OBJ_EXT} ||= '.o';
1595 $self->{LIB_EXT} ||= '.a';
1596
1597 $self->{MAP_TARGET} ||= "perl";
1598
1599 $self->{LIBPERL_A} ||= "libperl$self->{LIB_EXT}";
1600
1601 # make a simple check if we find Exporter
1602 warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory
1603 (Exporter.pm not found)"
1604 unless -f $self->catfile("$self->{PERL_LIB}","Exporter.pm") ||
1605 $self->{NAME} eq "ExtUtils::MakeMaker";
1e44e2bf 1606
f1387719
PP
1607 # Determine VERSION and VERSION_FROM
1608 ($self->{DISTNAME}=$self->{NAME}) =~ s#(::)#-#g unless $self->{DISTNAME};
1609 if ($self->{VERSION_FROM}){
1610 $self->{VERSION} = $self->parse_version($self->{VERSION_FROM}) or
1611 Carp::carp "WARNING: Setting VERSION via file '$self->{VERSION_FROM}' failed\n"
1e44e2bf 1612 }
f1387719
PP
1613
1614 # strip blanks
1615 if ($self->{VERSION}) {
1616 $self->{VERSION} =~ s/^\s+//;
1617 $self->{VERSION} =~ s/\s+$//;
1e44e2bf 1618 }
1e44e2bf 1619
f1387719
PP
1620 $self->{VERSION} ||= "0.10";
1621 ($self->{VERSION_SYM} = $self->{VERSION}) =~ s/\W/_/g;
1e44e2bf
PP
1622
1623
f1387719
PP
1624 # Graham Barr and Paul Marquess had some ideas how to ensure
1625 # version compatibility between the *.pm file and the
1626 # corresponding *.xs file. The bottomline was, that we need an
1627 # XS_VERSION macro that defaults to VERSION:
1628 $self->{XS_VERSION} ||= $self->{VERSION};
1e44e2bf 1629
f1387719
PP
1630 # --- Initialize Perl Binary Locations
1631
1632 # Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
1633 # will be working versions of perl 5. miniperl has priority over perl
1634 # for PERL to ensure that $(PERL) is usable while building ./ext/*
1635 my ($component,@defpath);
1636 foreach $component ($self->{PERL_SRC}, $self->path(), $Config::Config{binexp}) {
1637 push @defpath, $component if defined $component;
1e44e2bf 1638 }
f1387719
PP
1639 $self->{PERL} =
1640 $self->find_perl(5.0, [ $^X, 'miniperl','perl','perl5',"perl$]" ],
1641 \@defpath, $Verbose ) unless ($self->{PERL});
1642 # don't check if perl is executable, maybe they have decided to
1643 # supply switches with perl
1644
1645 # Define 'FULLPERL' to be a non-miniperl (used in test: target)
1646 ($self->{FULLPERL} = $self->{PERL}) =~ s/miniperl/perl/i
1647 unless ($self->{FULLPERL});
1e44e2bf
PP
1648}
1649
f1387719 1650=item init_others
1e44e2bf 1651
f1387719
PP
1652Initializes EXTRALIBS, BSLOADLIBS, LDLOADLIBS, LIBS, LD_RUN_PATH,
1653OBJECT, BOOTDEP, PERLMAINCC, LDFROM, LINKTYPE, NOOP, FIRST_MAKEFILE,
1654MAKEFILE, NOECHO, RM_F, RM_RF, TOUCH, CP, MV, CHMOD, UMASK_NULL
1e44e2bf
PP
1655
1656=cut
1657
f1387719 1658sub init_others { # --- Initialize Other Attributes
1e44e2bf 1659 my($self) = shift;
1e44e2bf 1660
f1387719
PP
1661 # Compute EXTRALIBS, BSLOADLIBS and LDLOADLIBS from $self->{LIBS}
1662 # Lets look at $self->{LIBS} carefully: It may be an anon array, a string or
1663 # undefined. In any case we turn it into an anon array:
1e44e2bf 1664
f1387719
PP
1665 # May check $Config{libs} too, thus not empty.
1666 $self->{LIBS}=[''] unless $self->{LIBS};
f4ae0f5e 1667
a1f8e286 1668 $self->{LIBS}=[$self->{LIBS}] if ref \$self->{LIBS} eq 'SCALAR';
f1387719
PP
1669 $self->{LD_RUN_PATH} = "";
1670 my($libs);
1671 foreach $libs ( @{$self->{LIBS}} ){
1672 $libs =~ s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace
1673 my(@libs) = $self->extliblist($libs);
1674 if ($libs[0] or $libs[1] or $libs[2]){
1675 # LD_RUN_PATH now computed by ExtUtils::Liblist
1676 ($self->{EXTRALIBS}, $self->{BSLOADLIBS}, $self->{LDLOADLIBS}, $self->{LD_RUN_PATH}) = @libs;
1677 last;
1678 }
1679 }
f4ae0f5e 1680
f1387719
PP
1681 if ( $self->{OBJECT} ) {
1682 $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g;
1683 } else {
1684 # init_dirscan should have found out, if we have C files
1685 $self->{OBJECT} = "";
1686 $self->{OBJECT} = '$(BASEEXT)$(OBJ_EXT)' if @{$self->{C}||[]};
1e44e2bf 1687 }
f1387719
PP
1688 $self->{OBJECT} =~ s/\n+/ \\\n\t/g;
1689 $self->{BOOTDEP} = (-f "$self->{BASEEXT}_BS") ? "$self->{BASEEXT}_BS" : "";
1690 $self->{PERLMAINCC} ||= '$(CC)';
1691 $self->{LDFROM} = '$(OBJECT)' unless $self->{LDFROM};
1e44e2bf 1692
f1387719
PP
1693 # Sanity check: don't define LINKTYPE = dynamic if we're skipping
1694 # the 'dynamic' section of MM. We don't have this problem with
1695 # 'static', since we either must use it (%Config says we can't
1696 # use dynamic loading) or the caller asked for it explicitly.
1697 if (!$self->{LINKTYPE}) {
1698 $self->{LINKTYPE} = $self->{SKIPHASH}{'dynamic'}
1699 ? 'static'
1700 : ($Config::Config{usedl} ? 'dynamic' : 'static');
1701 };
1702
1703 # These get overridden for VMS and maybe some other systems
55497cff 1704 $self->{NOOP} ||= '$(SHELL) -c true';
f1387719
PP
1705 $self->{FIRST_MAKEFILE} ||= "Makefile";
1706 $self->{MAKEFILE} ||= $self->{FIRST_MAKEFILE};
1707 $self->{MAKE_APERL_FILE} ||= "Makefile.aperl";
1708 $self->{NOECHO} = '@' unless defined $self->{NOECHO};
1709 $self->{RM_F} ||= "rm -f";
1710 $self->{RM_RF} ||= "rm -rf";
1711 $self->{TOUCH} ||= "touch";
1712 $self->{CP} ||= "cp";
1713 $self->{MV} ||= "mv";
1714 $self->{CHMOD} ||= "chmod";
1715 $self->{UMASK_NULL} ||= "umask 0";
1e44e2bf
PP
1716}
1717
f1387719 1718=item install (o)
1e44e2bf 1719
f1387719 1720Defines the install target.
1e44e2bf
PP
1721
1722=cut
1723
f1387719
PP
1724sub install {
1725 my($self, %attribs) = @_;
1e44e2bf 1726 my(@m);
a5f75d66 1727
f1387719
PP
1728 push @m, q{
1729install :: all pure_install doc_install
1e44e2bf 1730
f1387719 1731install_perl :: all pure_perl_install doc_perl_install
1e44e2bf 1732
f1387719 1733install_site :: all pure_site_install doc_site_install
1e44e2bf 1734
f1387719
PP
1735install_ :: install_site
1736 @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
1e44e2bf 1737
f1387719 1738pure_install :: pure_$(INSTALLDIRS)_install
1e44e2bf 1739
f1387719
PP
1740doc_install :: doc_$(INSTALLDIRS)_install
1741 }.$self->{NOECHO}.q{echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
1e44e2bf 1742
f1387719
PP
1743pure__install : pure_site_install
1744 @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
1e44e2bf 1745
f1387719
PP
1746doc__install : doc_site_install
1747 @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
1e44e2bf 1748
f1387719
PP
1749pure_perl_install ::
1750 }.$self->{NOECHO}.q{$(MOD_INSTALL) \
1751 read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
1752 write }.$self->catfile('$(INSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
1753 $(INST_LIB) $(INSTALLPRIVLIB) \
1754 $(INST_ARCHLIB) $(INSTALLARCHLIB) \
1755 $(INST_BIN) $(INSTALLBIN) \
1756 $(INST_SCRIPT) $(INSTALLSCRIPT) \
1757 $(INST_MAN1DIR) $(INSTALLMAN1DIR) \
1758 $(INST_MAN3DIR) $(INSTALLMAN3DIR)
1759 }.$self->{NOECHO}.q{$(WARN_IF_OLD_PACKLIST) \
1760 }.$self->catdir('$(SITEARCHEXP)','auto','$(FULLEXT)').q{
1e44e2bf 1761
1e44e2bf 1762
f1387719
PP
1763pure_site_install ::
1764 }.$self->{NOECHO}.q{$(MOD_INSTALL) \
1765 read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
1766 write }.$self->catfile('$(INSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
1767 $(INST_LIB) $(INSTALLSITELIB) \
1768 $(INST_ARCHLIB) $(INSTALLSITEARCH) \
1769 $(INST_BIN) $(INSTALLBIN) \
1770 $(INST_SCRIPT) $(INSTALLSCRIPT) \
1771 $(INST_MAN1DIR) $(INSTALLMAN1DIR) \
1772 $(INST_MAN3DIR) $(INSTALLMAN3DIR)
1773 }.$self->{NOECHO}.q{$(WARN_IF_OLD_PACKLIST) \
1774 }.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{
1e44e2bf 1775
f1387719
PP
1776doc_perl_install ::
1777 }.$self->{NOECHO}.q{$(DOC_INSTALL) \
dbc738d9 1778 "Module" "$(NAME)" \
f1387719
PP
1779 "installed into" "$(INSTALLPRIVLIB)" \
1780 LINKTYPE "$(LINKTYPE)" \
1781 VERSION "$(VERSION)" \
1782 EXE_FILES "$(EXE_FILES)" \
1783 >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
1e44e2bf 1784
f1387719
PP
1785doc_site_install ::
1786 }.$self->{NOECHO}.q{$(DOC_INSTALL) \
dbc738d9 1787 "Module" "$(NAME)" \
f1387719
PP
1788 "installed into" "$(INSTALLSITELIB)" \
1789 LINKTYPE "$(LINKTYPE)" \
1790 VERSION "$(VERSION)" \
1791 EXE_FILES "$(EXE_FILES)" \
1792 >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
1e44e2bf 1793
f1387719 1794};
1e44e2bf 1795
f1387719
PP
1796 push @m, q{
1797uninstall :: uninstall_from_$(INSTALLDIRS)dirs
f4ae0f5e 1798
f1387719
PP
1799uninstall_from_perldirs ::
1800 }.$self->{NOECHO}.
1801 q{$(UNINSTALL) }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{
1e44e2bf 1802
f1387719
PP
1803uninstall_from_sitedirs ::
1804 }.$self->{NOECHO}.
1805 q{$(UNINSTALL) }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{
1806};
1e44e2bf 1807
f1387719
PP
1808 join("",@m);
1809}
1e44e2bf 1810
f1387719 1811=item installbin (o)
1e44e2bf 1812
f1387719 1813Defines targets to install EXE_FILES.
1e44e2bf 1814
f1387719 1815=cut
1e44e2bf 1816
f1387719
PP
1817sub installbin {
1818 my($self) = shift;
1819 return "" unless $self->{EXE_FILES} && ref $self->{EXE_FILES} eq "ARRAY";
1820 return "" unless @{$self->{EXE_FILES}};
1821 my(@m, $from, $to, %fromto, @to);
1822 push @m, $self->dir_target(qw[$(INST_SCRIPT)]);
1823 for $from (@{$self->{EXE_FILES}}) {
1824 my($path)= $self->catfile('$(INST_SCRIPT)', basename($from));
1825 local($_) = $path; # for backwards compatibility
1826 $to = $self->libscan($path);
1827 print "libscan($from) => '$to'\n" if ($Verbose >=2);
1828 $fromto{$from}=$to;
1829 }
1830 @to = values %fromto;
1831 push(@m, "
1832EXE_FILES = @{$self->{EXE_FILES}}
1e44e2bf 1833
f1387719 1834all :: @to
1e44e2bf 1835
f1387719
PP
1836realclean ::
1837 $self->{RM_F} @to
1838");
1e44e2bf 1839
f1387719
PP
1840 while (($from,$to) = each %fromto) {
1841 last unless defined $from;
1842 my $todir = dirname($to);
1843 push @m, "
1844$to: $from $self->{MAKEFILE} $todir/.exists
1845 $self->{NOECHO}$self->{RM_F} $to
1846 $self->{CP} $from $to
1847";
1e44e2bf 1848 }
f1387719
PP
1849 join "", @m;
1850}
1e44e2bf 1851
f1387719 1852=item libscan (o)
1e44e2bf 1853
f1387719
PP
1854Takes a path to a file that is found by init_dirscan and returns false
1855if we don't want to include this file in the library. Mainly used to
1856exclude RCS, CVS, and SCCS directories from installation.
1e44e2bf 1857
f1387719 1858=cut
1e44e2bf 1859
f1387719 1860# ';
1e44e2bf 1861
f1387719
PP
1862sub libscan {
1863 my($self,$path) = @_;
1864 return '' if $path =~ m:\b(RCS|CVS|SCCS)\b: ;
1865 $path;
1e44e2bf
PP
1866}
1867
f4ae0f5e 1868=item linkext (o)
1e44e2bf 1869
f4ae0f5e 1870Defines the linkext target which in turn defines the LINKTYPE.
1e44e2bf
PP
1871
1872=cut
1873
1874sub linkext {
1875 my($self, %attribs) = @_;
1e44e2bf
PP
1876 # LINKTYPE => static or dynamic or ''
1877 my($linktype) = defined $attribs{LINKTYPE} ?
1878 $attribs{LINKTYPE} : '$(LINKTYPE)';
1879 "
1880linkext :: $linktype
f4ae0f5e 1881 $self->{NOECHO}\$(NOOP)
1e44e2bf
PP
1882";
1883}
1884
f1387719 1885=item lsdir
1e44e2bf 1886
f1387719
PP
1887Takes as arguments a directory name and a regular expression. Returns
1888all entries in the directory that match the regular expression.
1e44e2bf
PP
1889
1890=cut
1891
f1387719
PP
1892sub lsdir {
1893 my($self) = shift;
1894 my($dir, $regex) = @_;
1895 my(@ls);
1896 my $dh = new DirHandle;
1897 $dh->open($dir || ".") or return ();
1898 @ls = $dh->read;
1899 $dh->close;
1900 @ls = grep(/$regex/, @ls) if $regex;
1901 @ls;
1902}
1903
1904=item macro (o)
1905
1906Simple subroutine to insert the macros defined by the macro attribute
1907into the Makefile.
1908
1909=cut
1910
1911sub macro {
1e44e2bf 1912 my($self,%attribs) = @_;
f1387719
PP
1913 my(@m,$key,$val);
1914 while (($key,$val) = each %attribs){
1915 last unless defined $key;
1916 push @m, "$key = $val\n";
1e44e2bf 1917 }
f1387719
PP
1918 join "", @m;
1919}
1e44e2bf 1920
f1387719 1921=item makeaperl (o)
1e44e2bf 1922
f1387719
PP
1923Called by staticmake. Defines how to write the Makefile to produce a
1924static new perl.
1925
55497cff
PP
1926By default the Makefile produced includes all the static extensions in
1927the perl library. (Purified versions of library files, e.g.,
1928DynaLoader_pure_p1_c0_032.a are automatically ignored to avoid link errors.)
1929
f1387719
PP
1930=cut
1931
1932sub makeaperl {
1933 my($self, %attribs) = @_;
1934 my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmp, $libperl) =
1935 @attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
1e44e2bf 1936 my(@m);
f1387719
PP
1937 push @m, "
1938# --- MakeMaker makeaperl section ---
1939MAP_TARGET = $target
1940FULLPERL = $self->{FULLPERL}
1941";
1942 return join '', @m if $self->{PARENT};
1e44e2bf 1943
f1387719 1944 my($dir) = join ":", @{$self->{DIR}};
1e44e2bf 1945
f1387719
PP
1946 unless ($self->{MAKEAPERL}) {
1947 push @m, q{
1948$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
1949 $(MAKE) -f $(MAKE_APERL_FILE) $@
1e44e2bf 1950
f1387719
PP
1951$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
1952 }.$self->{NOECHO}.q{echo Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
1953 }.$self->{NOECHO}.q{$(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
1954 Makefile.PL DIR=}, $dir, q{ \
1955 MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
1956 MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=};
1e44e2bf 1957
f1387719
PP
1958 foreach (@ARGV){
1959 if( /\s/ ){
1960 s/=(.*)/='$1'/;
1961 }
1962 push @m, " \\\n\t\t$_";
1963 }
1964# push @m, map( " \\\n\t\t$_", @ARGV );
1965 push @m, "\n";
1e44e2bf 1966
f1387719
PP
1967 return join '', @m;
1968 }
1e44e2bf 1969
1e44e2bf 1970
1e44e2bf 1971
f1387719 1972 my($cccmd, $linkcmd, $lperl);
1e44e2bf 1973
1e44e2bf 1974
f1387719
PP
1975 $cccmd = $self->const_cccmd($libperl);
1976 $cccmd =~ s/^CCCMD\s*=\s*//;
1977 $cccmd =~ s/\$\(INC\)/ -I$self->{PERL_INC} /;
042ade60
PP
1978 $cccmd .= " $Config::Config{cccdlflags}"
1979 if ($Config::Config{useshrplib} eq 'true');
f1387719 1980 $cccmd =~ s/\(CC\)/\(PERLMAINCC\)/;
1e44e2bf 1981
f1387719
PP
1982 # The front matter of the linkcommand...
1983 $linkcmd = join ' ', "\$(CC)",
1984 grep($_, @Config{qw(large split ldflags ccdlflags)});
1985 $linkcmd =~ s/\s+/ /g;
93f9cb4b 1986 $linkcmd =~ s,(perl\.exp),\$(PERL_INC)/$1,;
1e44e2bf 1987
f1387719
PP
1988 # Which *.a files could we make use of...
1989 local(%static);
1990 require File::Find;
1991 File::Find::find(sub {
1992 return unless m/\Q$self->{LIB_EXT}\E$/;
1993 return if m/^libperl/;
55497cff
PP
1994 # Skip purified versions of libraries (e.g., DynaLoader_pure_p1_c0_032.a)
1995 return if m/_pure_\w+_\w+_\w+\.\w+$/ and -f "$File::Find::dir/.pure";
1e44e2bf 1996
f1387719
PP
1997 if( exists $self->{INCLUDE_EXT} ){
1998 my $found = 0;
1999 my $incl;
2000 my $xx;
2001
2002 ($xx = $File::Find::name) =~ s,.*?/auto/,,;
2003 $xx =~ s,/?$_,,;
2004 $xx =~ s,/,::,g;
2005
2006 # Throw away anything not explicitly marked for inclusion.
2007 # DynaLoader is implied.
2008 foreach $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){
2009 if( $xx eq $incl ){
2010 $found++;
2011 last;
2012 }
2013 }
2014 return unless $found;
2015 }
2016 elsif( exists $self->{EXCLUDE_EXT} ){
2017 my $excl;
2018 my $xx;
1e44e2bf 2019
f1387719
PP
2020 ($xx = $File::Find::name) =~ s,.*?/auto/,,;
2021 $xx =~ s,/?$_,,;
2022 $xx =~ s,/,::,g;
1e44e2bf 2023
f1387719
PP
2024 # Throw away anything explicitly marked for exclusion
2025 foreach $excl (@{$self->{EXCLUDE_EXT}}){
2026 return if( $xx eq $excl );
2027 }
2028 }
2029
2030 # don't include the installed version of this extension. I
2031 # leave this line here, although it is not necessary anymore:
2032 # I patched minimod.PL instead, so that Miniperl.pm won't
2033 # enclude duplicates
2034
2035 # Once the patch to minimod.PL is in the distribution, I can
2036 # drop it
2037 return if $File::Find::name =~ m:auto/$self->{FULLEXT}/$self->{BASEEXT}$self->{LIB_EXT}$:;
2038 use Cwd 'cwd';
2039 $static{cwd() . "/" . $_}++;
2040 }, grep( -d $_, @{$searchdirs || []}) );
2041
2042 # We trust that what has been handed in as argument, will be buildable
2043 $static = [] unless $static;
2044 @static{@{$static}} = (1) x @{$static};
2045
2046 $extra = [] unless $extra && ref $extra eq 'ARRAY';
2047 for (sort keys %static) {
2048 next unless /\Q$self->{LIB_EXT}\E$/;
2049 $_ = dirname($_) . "/extralibs.ld";
2050 push @$extra, $_;
1e44e2bf 2051 }
1e44e2bf 2052
f1387719 2053 grep(s/^/-I/, @{$perlinc || []});
1e44e2bf 2054
f1387719
PP
2055 $target = "perl" unless $target;
2056 $tmp = "." unless $tmp;
1e44e2bf 2057
f1387719
PP
2058# MAP_STATIC doesn't look into subdirs yet. Once "all" is made and we
2059# regenerate the Makefiles, MAP_STATIC and the dependencies for
2060# extralibs.all are computed correctly
2061 push @m, "
2062MAP_LINKCMD = $linkcmd
2063MAP_PERLINC = @{$perlinc || []}
2064MAP_STATIC = ",
2065join(" \\\n\t", reverse sort keys %static), "
1e44e2bf 2066
f1387719
PP
2067MAP_PRELIBS = $Config::Config{libs} $Config::Config{cryptlib}
2068";
2069
2070 if (defined $libperl) {
2071 ($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/;
2072 }
2073 unless ($libperl && -f $lperl) { # Ilya's code...
2074 my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE";
2075 $libperl ||= "libperl$self->{LIB_EXT}";
2076 $libperl = "$dir/$libperl";
2077 $lperl ||= "libperl$self->{LIB_EXT}";
2078 $lperl = "$dir/$lperl";
2079 print STDOUT "Warning: $libperl not found
2080 If you're going to build a static perl binary, make sure perl is installed
2081 otherwise ignore this warning\n"
2082 unless (-f $lperl || defined($self->{PERL_SRC}));
2083 }
1e44e2bf 2084
f1387719
PP
2085 push @m, "
2086MAP_LIBPERL = $libperl
2087";
1e44e2bf 2088
f1387719
PP
2089 push @m, "
2090\$(INST_ARCHAUTODIR)/extralibs.all: \$(INST_ARCHAUTODIR)/.exists ".join(" \\\n\t", @$extra)."
2091 $self->{NOECHO}$self->{RM_F} \$\@
2092 $self->{NOECHO}\$(TOUCH) \$\@
2093";
1e44e2bf 2094
f1387719
PP
2095 my $catfile;
2096 foreach $catfile (@$extra){
2097 push @m, "\tcat $catfile >> \$\@\n";
1e44e2bf 2098 }
1e44e2bf 2099
f1387719
PP
2100 push @m, "
2101\$(MAP_TARGET) :: $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) \$(INST_ARCHAUTODIR)/extralibs.all
2102 \$(MAP_LINKCMD) -o \$\@ \$(OPTIMIZE) $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) `cat \$(INST_ARCHAUTODIR)/extralibs.all` \$(MAP_PRELIBS)
2103 $self->{NOECHO}echo 'To install the new \"\$(MAP_TARGET)\" binary, call'
2104 $self->{NOECHO}echo ' make -f $makefilename inst_perl MAP_TARGET=\$(MAP_TARGET)'
2105 $self->{NOECHO}echo 'To remove the intermediate files say'
2106 $self->{NOECHO}echo ' make -f $makefilename map_clean'
1e44e2bf 2107
f1387719
PP
2108$tmp/perlmain\$(OBJ_EXT): $tmp/perlmain.c
2109";
2110 push @m, "\tcd $tmp && $cccmd -I\$(PERL_INC) perlmain.c\n";
1e44e2bf 2111
f1387719
PP
2112 push @m, qq{
2113$tmp/perlmain.c: $makefilename}, q{
2114 }.$self->{NOECHO}.q{echo Writing $@
2115 }.$self->{NOECHO}.q{$(PERL) $(MAP_PERLINC) -e 'use ExtUtils::Miniperl; \\
55497cff 2116 writemain(grep s#.*/auto/##, qw|$(MAP_STATIC)|)' > $@t && mv $@t $@
1e44e2bf 2117
f1387719 2118};
1e44e2bf 2119
f1387719
PP
2120 push @m, q{
2121doc_inst_perl:
2122 }.$self->{NOECHO}.q{echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
2123 }.$self->{NOECHO}.q{$(DOC_INSTALL) \
dbc738d9 2124 "Perl binary" "$(MAP_TARGET)" \
f1387719
PP
2125 MAP_STATIC "$(MAP_STATIC)" \
2126 MAP_EXTRA "`cat $(INST_ARCHAUTODIR)/extralibs.all`" \
2127 MAP_LIBPERL "$(MAP_LIBPERL)" \
2128 >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
1e44e2bf 2129
f1387719 2130};
1e44e2bf 2131
f1387719
PP
2132 push @m, q{
2133inst_perl: pure_inst_perl doc_inst_perl
1e44e2bf 2134
f1387719
PP
2135pure_inst_perl: $(MAP_TARGET)
2136 }.$self->{CP}.q{ $(MAP_TARGET) }.$self->catfile('$(INSTALLBIN)','$(MAP_TARGET)').q{
1e44e2bf 2137
f1387719
PP
2138clean :: map_clean
2139
2140map_clean :
2141 }.$self->{RM_F}.qq{ $tmp/perlmain\$(OBJ_EXT) $tmp/perlmain.c \$(MAP_TARGET) $makefilename \$(INST_ARCHAUTODIR)/extralibs.all
2142};
2143
2144 join '', @m;
1e44e2bf
PP
2145}
2146
f1387719 2147=item makefile (o)
1e44e2bf 2148
f1387719 2149Defines how to rewrite the Makefile.
1e44e2bf
PP
2150
2151=cut
2152
f1387719
PP
2153sub makefile {
2154 my($self) = shift;
2155 my @m;
2156 # We do not know what target was originally specified so we
2157 # must force a manual rerun to be sure. But as it should only
2158 # happen very rarely it is not a significant problem.
2159 push @m, '
2160$(OBJECT) : $(FIRST_MAKEFILE)
2161' if $self->{OBJECT};
1e44e2bf 2162
f1387719
PP
2163 push @m, q{
2164# We take a very conservative approach here, but it\'s worth it.
2165# We move Makefile to Makefile.old here to avoid gnu make looping.
2166}.$self->{MAKEFILE}.q{ : Makefile.PL $(CONFIGDEP)
2167 }.$self->{NOECHO}.q{echo "Makefile out-of-date with respect to $?"
2168 }.$self->{NOECHO}.q{echo "Cleaning current config before rebuilding Makefile..."
2169 -}.$self->{NOECHO}.q{mv }."$self->{MAKEFILE} $self->{MAKEFILE}.old".q{
2170 -$(MAKE) -f }.$self->{MAKEFILE}.q{.old clean >/dev/null 2>&1 || true
2171 $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" Makefile.PL }.join(" ",map(qq["$_"],@ARGV)).q{
2172 }.$self->{NOECHO}.q{echo ">>> Your Makefile has been rebuilt. <<<"
2173 }.$self->{NOECHO}.q{echo ">>> Please rerun the make command. <<<"; false
1e44e2bf 2174
f1387719
PP
2175# To change behavior to :: would be nice, but would break Tk b9.02
2176# so you find such a warning below the dist target.
2177#}.$self->{MAKEFILE}.q{ :: $(VERSION_FROM)
2178# }.$self->{NOECHO}.q{echo "Warning: Makefile possibly out of date with $(VERSION_FROM)"
1e44e2bf
PP
2179};
2180
f1387719 2181 join "", @m;
1e44e2bf
PP
2182}
2183
f4ae0f5e 2184=item manifypods (o)
1e44e2bf 2185
f4ae0f5e
PP
2186Defines targets and routines to translate the pods into manpages and
2187put them into the INST_* directories.
1e44e2bf
PP
2188
2189=cut
2190
2191sub manifypods {
2192 my($self, %attribs) = @_;
f1387719 2193 return "\nmanifypods :\n\t$self->{NOECHO}\$(NOOP)\n" unless %{$self->{MAN3PODS}} or %{$self->{MAN1PODS}};
1e44e2bf
PP
2194 my($dist);
2195 my($pod2man_exe);
2196 if (defined $self->{PERL_SRC}) {
2197 $pod2man_exe = $self->catfile($self->{PERL_SRC},'pod','pod2man');
2198 } else {
f1387719 2199 $pod2man_exe = $self->catfile($Config{scriptdirexp},'pod2man');
1e44e2bf
PP
2200 }
2201 unless ($self->perl_script($pod2man_exe)) {
2202 # No pod2man but some MAN3PODS to be installed
2203 print <<END;
2204
2205Warning: I could not locate your pod2man program. Please make sure,
2206 your pod2man program is in your PATH before you execute 'make'
2207
2208END
2209 $pod2man_exe = "-S pod2man";
2210 }
2211 my(@m);
2212 push @m,
2213qq[POD2MAN_EXE = $pod2man_exe\n],
2214q[POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \\
2215-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "].$self->{MAKEFILE}.q[";' \\
2216-e 'print "Manifying $$m{$$_}\n";' \\
f1387719 2217-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\\047t install $$m{$$_}\n";' \\
1e44e2bf
PP
2218-e 'chmod 0644, $$m{$$_} or warn "chmod 644 $$m{$$_}: $$!\n";}'
2219];
2220 push @m, "\nmanifypods : ";
2221 push @m, join " \\\n\t", keys %{$self->{MAN1PODS}}, keys %{$self->{MAN3PODS}};
f1387719
PP
2222
2223 push(@m,"\n");
2224 if (%{$self->{MAN1PODS}} || %{$self->{MAN3PODS}}) {
2225 push @m, "\t$self->{NOECHO}\$(POD2MAN) \\\n\t";
2226 push @m, join " \\\n\t", %{$self->{MAN1PODS}}, %{$self->{MAN3PODS}};
1e44e2bf 2227 }
f1387719 2228 join('', @m);
1e44e2bf
PP
2229}
2230
f1387719 2231=item maybe_command
1e44e2bf 2232
f1387719 2233Returns true, if the argument is likely to be a command.
1e44e2bf
PP
2234
2235=cut
2236
f1387719
PP
2237sub maybe_command {
2238 my($self,$file) = @_;
2239 return $file if -x $file && ! -d $file;
2240 return;
1e44e2bf
PP
2241}
2242
f1387719 2243=item maybe_command_in_dirs
1e44e2bf 2244
f1387719 2245method under development. Not yet used. Ask Ilya :-)
1e44e2bf
PP
2246
2247=cut
2248
f1387719
PP
2249sub maybe_command_in_dirs { # $ver is optional argument if looking for perl
2250# Ilya's suggestion. Not yet used, want to understand it first, but at least the code is here
2251 my($self, $names, $dirs, $trace, $ver) = @_;
2252 my($name, $dir);
2253 foreach $dir (@$dirs){
2254 next unless defined $dir; # $self->{PERL_SRC} may be undefined
2255 foreach $name (@$names){
2256 my($abs,$tryabs);
2257 if ($self->file_name_is_absolute($name)) { # /foo/bar
2258 $abs = $name;
2259 } elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { # bar
2260 $abs = $self->catfile($dir, $name);
2261 } else { # foo/bar
2262 $abs = $self->catfile($self->curdir, $name);
2263 }
2264 print "Checking $abs for $name\n" if ($trace >= 2);
2265 next unless $tryabs = $self->maybe_command($abs);
2266 print "Substituting $tryabs instead of $abs\n"
2267 if ($trace >= 2 and $tryabs ne $abs);
2268 $abs = $tryabs;
2269 if (defined $ver) {
2270 print "Executing $abs\n" if ($trace >= 2);
2271 if (`$abs -e 'require $ver; print "VER_OK\n" ' 2>&1` =~ /VER_OK/) {
2272 print "Using PERL=$abs\n" if $trace;
2273 return $abs;
2274 }
2275 } else { # Do not look for perl
2276 return $abs;
2277 }
2278 }
1e44e2bf 2279 }
1e44e2bf
PP
2280}
2281
f1387719 2282=item needs_linking (o)
1e44e2bf 2283
f1387719
PP
2284Does this module need linking? Looks into subdirectory objects (see
2285also has_link_code())
1e44e2bf
PP
2286
2287=cut
2288
f1387719
PP
2289sub needs_linking {
2290 my($self) = shift;
2291 my($child,$caller);
2292 $caller = (caller(0))[3];
2293 Carp::confess("Needs_linking called too early") if $caller =~ /^ExtUtils::MakeMaker::/;
2294 return $self->{NEEDS_LINKING} if defined $self->{NEEDS_LINKING};
2295 if ($self->has_link_code or $self->{MAKEAPERL}){
2296 $self->{NEEDS_LINKING} = 1;
2297 return 1;
1e44e2bf 2298 }
f1387719
PP
2299 foreach $child (keys %{$self->{CHILDREN}}) {
2300 if ($self->{CHILDREN}->{$child}->needs_linking) {
2301 $self->{NEEDS_LINKING} = 1;
2302 return 1;
2303 }
1e44e2bf 2304 }
f1387719 2305 return $self->{NEEDS_LINKING} = 0;
1e44e2bf
PP
2306}
2307
f1387719 2308=item nicetext
1e44e2bf 2309
f1387719
PP
2310misnamed method (will have to be changed). The MM_Unix method just
2311returns the argument without further processing.
2312
2313On VMS used to insure that colons marking targets are preceded by
2314space - most Unix Makes don't need this, but it's necessary under VMS
2315to distinguish the target delimiter from a colon appearing as part of
2316a filespec.
1e44e2bf
PP
2317
2318=cut
2319
f1387719
PP
2320sub nicetext {
2321 my($self,$text) = @_;
2322 $text;
2323}
1e44e2bf 2324
f1387719 2325=item parse_version
1e44e2bf 2326
f1387719 2327parse a file and return what you think is $VERSION in this file set to
1e44e2bf 2328
f1387719
PP
2329=cut
2330
2331sub parse_version {
2332 my($self,$parsefile) = @_;
2333 my $result;
2334 local *FH;
2335 local $/ = "\n";
2336 open(FH,$parsefile) or die "Could not open '$parsefile': $!";
2337 my $inpod = 0;
2338 while (<FH>) {
2339 $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
2340 next if $inpod;
2341 chop;
2342 next unless /\$(([\w\:\']*)\bVERSION)\b.*\=/;
dbc738d9
PP
2343 my $eval = qq{
2344 package ExtUtils::MakeMaker::_version;
a1f8e286
IZ
2345 no strict;
2346
dbc738d9
PP
2347 \$$1=undef; do {
2348 $_
2349 }; \$$1
2350 };
2351 local($^W) = 0;
2352 $result = eval($eval) || 0;
f1387719 2353 die "Could not eval '$eval' in $parsefile: $@" if $@;
f1387719
PP
2354 last;
2355 }
2356 close FH;
2357 return $result;
1e44e2bf
PP
2358}
2359
1e44e2bf 2360
f1387719
PP
2361=item pasthru (o)
2362
2363Defines the string that is passed to recursive make calls in
2364subdirectories.
1e44e2bf
PP
2365
2366=cut
2367
f1387719 2368sub pasthru {
1e44e2bf 2369 my($self) = shift;
f1387719 2370 my(@m,$key);
1e44e2bf 2371
f1387719 2372 my(@pasthru);
bbce6d69
PP
2373 my($sep) = $Is_VMS ? ',' : '';
2374 $sep .= "\\\n\t";
1e44e2bf 2375
f1387719
PP
2376 foreach $key (qw(LIBPERL_A LINKTYPE PREFIX OPTIMIZE)){
2377 push @pasthru, "$key=\"\$($key)\"";
2378 }
f4ae0f5e 2379
bbce6d69 2380 push @m, "\nPASTHRU = ", join ($sep, @pasthru), "\n";
f1387719
PP
2381 join "", @m;
2382}
1e44e2bf 2383
f1387719 2384=item path
f4ae0f5e 2385
f1387719 2386Takes no argument, returns the environment variable PATH as an array.
1e44e2bf 2387
f1387719
PP
2388=cut
2389
2390sub path {
2391 my($self) = @_;
2392 my $path_sep = $Is_OS2 ? ";" : ":";
2393 my $path = $ENV{PATH};
2394 $path =~ s:\\:/:g if $Is_OS2;
2395 my @path = split $path_sep, $path;
93f9cb4b
PP
2396 foreach(@path) { $_ = '.' if $_ eq '' }
2397 @path;
1e44e2bf
PP
2398}
2399
f1387719 2400=item perl_script
1e44e2bf 2401
f1387719
PP
2402Takes one argument, a file name, and returns the file name, if the
2403argument is likely to be a perl script. On MM_Unix this is true for
2404any ordinary, readable file.
1e44e2bf
PP
2405
2406=cut
2407
f1387719
PP
2408sub perl_script {
2409 my($self,$file) = @_;
2410 return $file if -r $file && -f _;
2411 return;
1e44e2bf
PP
2412}
2413
f1387719 2414=item perldepend (o)
1e44e2bf 2415
f1387719
PP
2416Defines the dependency from all *.h files that come with the perl
2417distribution.
1e44e2bf
PP
2418
2419=cut
2420
f1387719 2421sub perldepend {
1e44e2bf 2422 my($self) = shift;
f1387719
PP
2423 my(@m);
2424 push @m, q{
2425# Check for unpropogated config.sh changes. Should never happen.
2426# We do NOT just update config.h because that is not sufficient.
2427# An out of date config.h is not fatal but complains loudly!
2428$(PERL_INC)/config.h: $(PERL_SRC)/config.sh
2429 -}.$self->{NOECHO}.q{echo "Warning: $(PERL_INC)/config.h out of date with $(PERL_SRC)/config.sh"; false
2430
2431$(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh
2432 }.$self->{NOECHO}.q{echo "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
2433 cd $(PERL_SRC) && $(MAKE) lib/Config.pm
2434} if $self->{PERL_SRC};
2435
2436 return join "", @m unless $self->needs_linking;
2437
1e44e2bf 2438 push @m, q{
f1387719
PP
2439PERL_HDRS = \
2440$(PERL_INC)/EXTERN.h $(PERL_INC)/gv.h $(PERL_INC)/pp.h \
2441$(PERL_INC)/INTERN.h $(PERL_INC)/handy.h $(PERL_INC)/proto.h \
2442$(PERL_INC)/XSUB.h $(PERL_INC)/hv.h $(PERL_INC)/regcomp.h \
2443$(PERL_INC)/av.h $(PERL_INC)/keywords.h $(PERL_INC)/regexp.h \
2444$(PERL_INC)/config.h $(PERL_INC)/mg.h $(PERL_INC)/scope.h \
2445$(PERL_INC)/cop.h $(PERL_INC)/op.h $(PERL_INC)/sv.h \
2446$(PERL_INC)/cv.h $(PERL_INC)/opcode.h $(PERL_INC)/unixish.h \
2447$(PERL_INC)/dosish.h $(PERL_INC)/patchlevel.h $(PERL_INC)/util.h \
2448$(PERL_INC)/embed.h $(PERL_INC)/perl.h \
2449$(PERL_INC)/form.h $(PERL_INC)/perly.h
2450
2451$(OBJECT) : $(PERL_HDRS)
2452} if $self->{OBJECT};
2453
2454 push @m, join(" ", values %{$self->{XS}})." : \$(XSUBPPDEPS)\n" if %{$self->{XS}};
2455
2456 join "\n", @m;
1e44e2bf
PP
2457}
2458
f1387719 2459=item pm_to_blib
1e44e2bf 2460
f1387719 2461Defines target that copies all files in the hash PM to their
55497cff 2462destination and autosplits them. See L<ExtUtils::Install/DESCRIPTION>
1e44e2bf
PP
2463
2464=cut
2465
f1387719
PP
2466sub pm_to_blib {
2467 my $self = shift;
2468 my($autodir) = $self->catdir('$(INST_LIB)','auto');
2469 return q{
2470pm_to_blib: $(TO_INST_PM)
2471 }.$self->{NOECHO}.q{$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
2472 "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \
2473 -e 'pm_to_blib({qw{$(PM_TO_BLIB)}},"}.$autodir.q{")'
2474 }.$self->{NOECHO}.q{$(TOUCH) $@
1e44e2bf 2475};
1e44e2bf
PP
2476}
2477
f1387719 2478=item post_constants (o)
1e44e2bf 2479
f1387719
PP
2480Returns an empty string per default. Dedicated to overrides from
2481within Makefile.PL after all constants have been defined.
1e44e2bf
PP
2482
2483=cut
2484
f1387719
PP
2485sub post_constants{
2486 my($self) = shift;
2487 "";
2488}
1e44e2bf 2489
f1387719 2490=item post_initialize (o)
1e44e2bf 2491
1fef88e7 2492Returns an empty string per default. Used in Makefile.PLs to add some
f1387719 2493chunk of text to the Makefile after the object is initialized.
1e44e2bf 2494
f1387719 2495=cut
1e44e2bf 2496
f1387719
PP
2497sub post_initialize {
2498 my($self) = shift;
2499 "";
2500}
1e44e2bf 2501
f1387719 2502=item postamble (o)
1e44e2bf 2503
f1387719
PP
2504Returns an empty string. Can be used in Makefile.PLs to write some
2505text to the Makefile at the end.
1e44e2bf 2506
f1387719 2507=cut
1e44e2bf 2508
f1387719
PP
2509sub postamble {
2510 my($self) = shift;
2511 "";
2512}
1e44e2bf 2513
f1387719 2514=item prefixify
1e44e2bf 2515
f1387719
PP
2516Check a path variable in $self from %Config, if it contains a prefix,
2517and replace it with another one.
1e44e2bf 2518
f1387719
PP
2519Takes as arguments an attribute name, a search prefix and a
2520replacement prefix. Changes the attribute in the object.
1e44e2bf 2521
f1387719 2522=cut
1e44e2bf 2523
f1387719
PP
2524sub prefixify {
2525 my($self,$var,$sprefix,$rprefix) = @_;
2526 $self->{uc $var} ||= $Config{lc $var};
2527 $self->{uc $var} = VMS::Filespec::unixpath($self->{uc $var}) if $Is_VMS;
2528 $self->{uc $var} =~ s/\Q$sprefix\E/$rprefix/;
2529}
1e44e2bf 2530
f1387719 2531=item processPL (o)
1e44e2bf 2532
f1387719 2533Defines targets to run *.PL files.
1e44e2bf 2534
f1387719 2535=cut
1e44e2bf 2536
f1387719
PP
2537sub processPL {
2538 my($self) = shift;
2539 return "" unless $self->{PL_FILES};
2540 my(@m, $plfile);
2541 foreach $plfile (sort keys %{$self->{PL_FILES}}) {
2542 push @m, "
2543all :: $self->{PL_FILES}->{$plfile}
1e44e2bf 2544
f1387719
PP
2545$self->{PL_FILES}->{$plfile} :: $plfile
2546 \$(PERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) $plfile
2547";
2548 }
2549 join "", @m;
1e44e2bf
PP
2550}
2551
f1387719 2552=item realclean (o)
1e44e2bf 2553
f1387719 2554Defines the realclean target.
1e44e2bf
PP
2555
2556=cut
2557
f1387719
PP
2558sub realclean {
2559 my($self, %attribs) = @_;
2560 my(@m);
2561 push(@m,'
2562# Delete temporary files (via clean) and also delete installed files
2563realclean purge :: clean
2564');
2565 # realclean subdirectories first (already cleaned)
2566 my $sub = "\t-cd %s && test -f %s && \$(MAKE) %s realclean\n";
2567 foreach(@{$self->{DIR}}){
2568 push(@m, sprintf($sub,$_,"$self->{MAKEFILE}.old","-f $self->{MAKEFILE}.old"));
2569 push(@m, sprintf($sub,$_,"$self->{MAKEFILE}",''));
1e44e2bf 2570 }
f1387719
PP
2571 push(@m, " $self->{RM_RF} \$(INST_AUTODIR) \$(INST_ARCHAUTODIR)\n");
2572 if( $self->has_link_code ){
2573 push(@m, " $self->{RM_F} \$(INST_DYNAMIC) \$(INST_BOOT)\n");
2574 push(@m, " $self->{RM_F} \$(INST_STATIC)\n");
2575 }
2576 push(@m, " $self->{RM_F} " . join(" ", values %{$self->{PM}}) . "\n");
2577 my(@otherfiles) = ($self->{MAKEFILE},
2578 "$self->{MAKEFILE}.old"); # Makefiles last
2579 push(@otherfiles, $attribs{FILES}) if $attribs{FILES};
2580 push(@m, " $self->{RM_RF} @otherfiles\n") if @otherfiles;
2581 push(@m, " $attribs{POSTOP}\n") if $attribs{POSTOP};
2582 join("", @m);
1e44e2bf
PP
2583}
2584
f1387719 2585=item replace_manpage_separator
1e44e2bf 2586
f1387719
PP
2587Takes the name of a package, which may be a nested package, in the
2588form Foo/Bar and replaces the slash with C<::>. Returns the replacement.
1e44e2bf
PP
2589
2590=cut
2591
f1387719
PP
2592sub replace_manpage_separator {
2593 my($self,$man) = @_;
2594 $man =~ s,/+,::,g;
2595 $man;
2596}
1e44e2bf 2597
f1387719 2598=item static (o)
1e44e2bf 2599
f1387719 2600Defines the static target.
1e44e2bf 2601
f1387719 2602=cut
1e44e2bf 2603
f1387719
PP
2604sub static {
2605# --- Static Loading Sections ---
1e44e2bf 2606
f1387719
PP
2607 my($self) = shift;
2608 '
2609## $(INST_PM) has been moved to the all: target.
2610## It remains here for awhile to allow for old usage: "make static"
2611#static :: '.$self->{MAKEFILE}.' $(INST_STATIC) $(INST_PM)
2612static :: '.$self->{MAKEFILE}.' $(INST_STATIC)
2613 '.$self->{NOECHO}.'$(NOOP)
2614';
1e44e2bf
PP
2615}
2616
f1387719 2617=item static_lib (o)
1e44e2bf 2618
f1387719 2619Defines how to produce the *.a (or equivalent) files.
1e44e2bf
PP
2620
2621=cut
2622
f1387719
PP
2623sub static_lib {
2624 my($self) = @_;
2625# Come to think of it, if there are subdirs with linkcode, we still have no INST_STATIC
2626# return '' unless $self->needs_linking(); #might be because of a subdir
1e44e2bf 2627
f1387719
PP
2628 return '' unless $self->has_link_code;
2629
2630 my(@m);
2631 push(@m, <<'END');
2632$(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)/.exists
760ac839 2633 $(RM_RF) $@
f1387719
PP
2634END
2635 # If this extension has it's own library (eg SDBM_File)
2636 # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
2637 push(@m, "\t$self->{CP} \$(MYEXTLIB) \$\@\n") if $self->{MYEXTLIB};
f4ae0f5e 2638
f1387719 2639 push @m,
760ac839 2640q{ $(AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
f1387719
PP
2641 }.$self->{NOECHO}.q{echo "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
2642 $(CHMOD) 755 $@
f4ae0f5e 2643};
1e44e2bf 2644
f1387719
PP
2645# Old mechanism - still available:
2646
2647 push @m, "\t$self->{NOECHO}".q{echo "$(EXTRALIBS)" >> $(PERL_SRC)/ext.libs}."\n\n"
2648 if $self->{PERL_SRC};
2649
2650 push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
2651 join('', "\n",@m);
1e44e2bf
PP
2652}
2653
f4ae0f5e 2654=item staticmake (o)
1e44e2bf 2655
f4ae0f5e 2656Calls makeaperl.
1e44e2bf
PP
2657
2658=cut
2659
2660sub staticmake {
2661 my($self, %attribs) = @_;
1e44e2bf
PP
2662 my(@static);
2663
2664 my(@searchdirs)=($self->{PERL_ARCHLIB}, $self->{SITEARCHEXP}, $self->{INST_ARCHLIB});
2665
2666 # And as it's not yet built, we add the current extension
2667 # but only if it has some C code (or XS code, which implies C code)
2668 if (@{$self->{C}}) {
f4ae0f5e
PP
2669 @static = $self->catfile($self->{INST_ARCHLIB},
2670 "auto",
2671 $self->{FULLEXT},
2672 "$self->{BASEEXT}$self->{LIB_EXT}"
2673 );
1e44e2bf
PP
2674 }
2675
2676 # Either we determine now, which libraries we will produce in the
2677 # subdirectories or we do it at runtime of the make.
2678
2679 # We could ask all subdir objects, but I cannot imagine, why it
2680 # would be necessary.
2681
2682 # Instead we determine all libraries for the new perl at
2683 # runtime.
2684 my(@perlinc) = ($self->{INST_ARCHLIB}, $self->{INST_LIB}, $self->{PERL_ARCHLIB}, $self->{PERL_LIB});
2685
2686 $self->makeaperl(MAKE => $self->{MAKEFILE},
2687 DIRS => \@searchdirs,
2688 STAT => \@static,
2689 INCL => \@perlinc,
2690 TARGET => $self->{MAP_TARGET},
2691 TMP => "",
2692 LIBPERL => $self->{LIBPERL_A}
2693 );
2694}
2695
f1387719
PP
2696=item subdir_x (o)
2697
2698Helper subroutine for subdirs
2699
2700=cut
2701
2702sub subdir_x {
2703 my($self, $subdir) = @_;
2704 my(@m);
2705 qq{
2706
2707subdirs ::
2708 $self->{NOECHO}cd $subdir && \$(MAKE) all \$(PASTHRU)
2709
2710};
2711}
2712
2713=item subdirs (o)
2714
2715Defines targets to process subdirectories.
2716
2717=cut
2718
2719sub subdirs {
2720# --- Sub-directory Sections ---
2721 my($self) = shift;
2722 my(@m,$dir);
2723 # This method provides a mechanism to automatically deal with
2724 # subdirectories containing further Makefile.PL scripts.
2725 # It calls the subdir_x() method for each subdirectory.
2726 foreach $dir (@{$self->{DIR}}){
2727 push(@m, $self->subdir_x($dir));
2728#### print "Including $dir subdirectory\n";
2729 }
2730 if (@m){
2731 unshift(@m, "
2732# The default clean, realclean and test targets in this Makefile
2733# have automatically been given entries for each subdir.
2734
2735");
2736 } else {
2737 push(@m, "\n# none")
2738 }
2739 join('',@m);
2740}
2741
f4ae0f5e 2742=item test (o)
1e44e2bf 2743
f4ae0f5e 2744Defines the test targets.
1e44e2bf
PP
2745
2746=cut
2747
2748sub test {
2749# --- Test and Installation Sections ---
2750
2751 my($self, %attribs) = @_;
1e44e2bf
PP
2752 my($tests) = $attribs{TESTS} || (-d "t" ? "t/*.t" : "");
2753 my(@m);
2754 push(@m,"
2755TEST_VERBOSE=0
2756TEST_TYPE=test_\$(LINKTYPE)
f1387719
PP
2757TEST_FILE = test.pl
2758TESTDB_SW = -d
1e44e2bf 2759
f4ae0f5e 2760testdb :: testdb_\$(LINKTYPE)
f1387719
PP
2761
2762test :: \$(TEST_TYPE)
1e44e2bf
PP
2763");
2764 push(@m, map("\t$self->{NOECHO}cd $_ && test -f $self->{MAKEFILE} && \$(MAKE) test \$(PASTHRU)\n",
2765 @{$self->{DIR}}));
2766 push(@m, "\t$self->{NOECHO}echo 'No tests defined for \$(NAME) extension.'\n")
2767 unless $tests or -f "test.pl" or @{$self->{DIR}};
2768 push(@m, "\n");
2769
f4ae0f5e 2770 push(@m, "test_dynamic :: pure_all\n");
1e44e2bf
PP
2771 push(@m, $self->test_via_harness('$(FULLPERL)', $tests)) if $tests;
2772 push(@m, $self->test_via_script('$(FULLPERL)', 'test.pl')) if -f "test.pl";
2773 push(@m, "\n");
2774
f1387719
PP
2775 push(@m, "testdb_dynamic :: pure_all\n");
2776 push(@m, $self->test_via_script('$(FULLPERL) $(TESTDB_SW)', '$(TEST_FILE)'));
2777 push(@m, "\n");
f4ae0f5e 2778
1e44e2bf
PP
2779 # Occasionally we may face this degenerate target:
2780 push @m, "test_ : test_dynamic\n\n";
2781
2782 if ($self->needs_linking()) {
f4ae0f5e 2783 push(@m, "test_static :: pure_all \$(MAP_TARGET)\n");
1e44e2bf
PP
2784 push(@m, $self->test_via_harness('./$(MAP_TARGET)', $tests)) if $tests;
2785 push(@m, $self->test_via_script('./$(MAP_TARGET)', 'test.pl')) if -f "test.pl";
2786 push(@m, "\n");
f1387719
PP
2787 push(@m, "testdb_static :: pure_all \$(MAP_TARGET)\n");
2788 push(@m, $self->test_via_script('./$(MAP_TARGET) $(TESTDB_SW)', '$(TEST_FILE)'));
2789 push(@m, "\n");
1e44e2bf
PP
2790 } else {
2791 push @m, "test_static :: test_dynamic\n";
f4ae0f5e 2792 push @m, "testdb_static :: testdb_dynamic\n";
1e44e2bf
PP
2793 }
2794 join("", @m);
2795}
2796
f4ae0f5e 2797=item test_via_harness (o)
1e44e2bf 2798
f4ae0f5e 2799Helper method to write the test targets
1e44e2bf
PP
2800
2801=cut
2802
2803sub test_via_harness {
2804 my($self, $perl, $tests) = @_;
1e44e2bf
PP
2805 "\tPERL_DL_NONLAZY=1 $perl".q! -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use Test::Harness qw(&runtests $$verbose); $$verbose=$(TEST_VERBOSE); runtests @ARGV;' !."$tests\n";
2806}
2807
f4ae0f5e 2808=item test_via_script (o)
1e44e2bf 2809
f4ae0f5e 2810Other helper method for test.
1e44e2bf
PP
2811
2812=cut
2813
2814sub test_via_script {
2815 my($self, $perl, $script) = @_;
1e44e2bf
PP
2816 qq{\tPERL_DL_NONLAZY=1 $perl}.q{ -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) }.qq{$script
2817};
2818}
2819
f1387719 2820=item tool_autosplit (o)
1e44e2bf 2821
f1387719
PP
2822Defines a simple perl call that runs autosplit. May be deprecated by
2823pm_to_blib soon.
1e44e2bf
PP
2824
2825=cut
2826
f1387719
PP
2827sub tool_autosplit {
2828# --- Tool Sections ---
2829
2830 my($self, %attribs) = @_;
2831 my($asl) = "";
2832 $asl = "\$AutoSplit::Maxlen=$attribs{MAXLEN};" if $attribs{MAXLEN};
2833 q{
2834# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
2835AUTOSPLITFILE = $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e 'use AutoSplit;}.$asl.q{autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;'
2836};
1e44e2bf
PP
2837}
2838
f1387719 2839=item tools_other (o)
1e44e2bf 2840
f1387719
PP
2841Defines SHELL, LD, TOUCH, CP, MV, RM_F, RM_RF, CHMOD, UMASK_NULL in
2842the Makefile. Also defines the perl programs MKPATH,
2843WARN_IF_OLD_PACKLIST, MOD_INSTALL. DOC_INSTALL, and UNINSTALL.
1e44e2bf
PP
2844
2845=cut
2846
f1387719
PP
2847sub tools_other {
2848 my($self) = shift;
2849 my @m;
2850 my $bin_sh = $Config{sh} || '/bin/sh';
2851 push @m, qq{
2852SHELL = $bin_sh
2853};
2854
2855 for (qw/ CHMOD CP LD MV NOOP RM_F RM_RF TOUCH UMASK_NULL / ) {
2856 push @m, "$_ = $self->{$_}\n";
1e44e2bf 2857 }
1e44e2bf 2858
1e44e2bf 2859
f1387719
PP
2860 push @m, q{
2861# The following is a portable way to say mkdir -p
2862# To see which directories are created, change the if 0 to if 1
2863MKPATH = $(PERL) -wle '$$"="/"; foreach $$p (@ARGV){' \\
2864-e 'next if -d $$p; my(@p); foreach(split(/\//,$$p)){' \\
2865-e 'push(@p,$$_); next if -d "@p/"; print "mkdir @p" if 0;' \\
2866-e 'mkdir("@p",0777)||die $$! } } exit 0;'
1e44e2bf 2867
f1387719
PP
2868# This helps us to minimize the effect of the .exists files A yet
2869# better solution would be to have a stable file in the perl
2870# distribution with a timestamp of zero. But this solution doesn't
2871# need any changes to the core distribution and works with older perls
2872EQUALIZE_TIMESTAMP = $(PERL) -we 'open F, ">$$ARGV[1]"; close F;' \\
2873-e 'utime ((stat("$$ARGV[0]"))[8,9], $$ARGV[1])'
2874};
1e44e2bf 2875
f1387719 2876 return join "", @m if $self->{PARENT};
1e44e2bf 2877
f1387719
PP
2878 push @m, q{
2879# Here we warn users that an old packlist file was found somewhere,
2880# and that they should call some uninstall routine
2881WARN_IF_OLD_PACKLIST = $(PERL) -we 'exit unless -f $$ARGV[0];' \\
2882-e 'print "WARNING: I have found an old package in\n";' \\
2883-e 'print "\t$$ARGV[0].\n";' \\
2884-e 'print "Please make sure the two installations are not conflicting\n";'
1e44e2bf 2885
f1387719
PP
2886UNINST=0
2887VERBINST=1
1e44e2bf 2888
f1387719
PP
2889MOD_INSTALL = $(PERL) -I$(INST_LIB) -I$(PERL_LIB) -MExtUtils::Install \
2890-e 'install({@ARGV},"$(VERBINST)",0,"$(UNINST)");'
1e44e2bf 2891
dbc738d9
PP
2892DOC_INSTALL = $(PERL) -e '$$\="\n\n";' \
2893-e 'print "=head2 ", scalar(localtime), ": C<", shift, ">", " L<", shift, ">";' \
f1387719
PP
2894-e 'print "=over 4";' \
2895-e 'while (defined($$key = shift) and defined($$val = shift)){print "=item *";print "C<$$key: $$val>";}' \
2896-e 'print "=back";'
1e44e2bf 2897
f1387719
PP
2898UNINSTALL = $(PERL) -MExtUtils::Install \
2899-e 'uninstall($$ARGV[0],1);'
1e44e2bf 2900
f1387719 2901};
1e44e2bf 2902
f1387719
PP
2903 return join "", @m;
2904}
1e44e2bf 2905
f1387719 2906=item tool_xsubpp (o)
1e44e2bf 2907
f1387719 2908Determines typemaps, xsubpp version, prototype behaviour.
1e44e2bf 2909
f1387719 2910=cut
1e44e2bf 2911
f1387719
PP
2912sub tool_xsubpp {
2913 my($self) = shift;
2914 return "" unless $self->needs_linking;
2915 my($xsdir) = $self->catdir($self->{PERL_LIB},"ExtUtils");
2916 my(@tmdeps) = $self->catdir('$(XSUBPPDIR)','typemap');
2917 if( $self->{TYPEMAPS} ){
2918 my $typemap;
2919 foreach $typemap (@{$self->{TYPEMAPS}}){
2920 if( ! -f $typemap ){
2921 warn "Typemap $typemap not found.\n";
2922 }
2923 else{
2924 push(@tmdeps, $typemap);
2925 }
2926 }
2927 }
2928 push(@tmdeps, "typemap") if -f "typemap";
2929 my(@tmargs) = map("-typemap $_", @tmdeps);
2930 if( exists $self->{XSOPT} ){
2931 unshift( @tmargs, $self->{XSOPT} );
1e44e2bf
PP
2932 }
2933
1e44e2bf 2934
f1387719 2935 my $xsubpp_version = $self->xsubpp_version($self->catfile($xsdir,"xsubpp"));
1e44e2bf 2936
f1387719
PP
2937 # What are the correct thresholds for version 1 && 2 Paul?
2938 if ( $xsubpp_version > 1.923 ){
2939 $self->{XSPROTOARG} = "" unless defined $self->{XSPROTOARG};
2940 } else {
2941 if (defined $self->{XSPROTOARG} && $self->{XSPROTOARG} =~ /\-prototypes/) {
2942 print STDOUT qq{Warning: This extension wants to pass the switch "-prototypes" to xsubpp.
2943 Your version of xsubpp is $xsubpp_version and cannot handle this.
2944 Please upgrade to a more recent version of xsubpp.
2945};
2946 } else {
2947 $self->{XSPROTOARG} = "";
2948 }
1e44e2bf
PP
2949 }
2950
f1387719
PP
2951 return qq{
2952XSUBPPDIR = $xsdir
2953XSUBPP = \$(XSUBPPDIR)/xsubpp
2954XSPROTOARG = $self->{XSPROTOARG}
2955XSUBPPDEPS = @tmdeps
2956XSUBPPARGS = @tmargs
2957};
2958};
1e44e2bf 2959
f1387719
PP
2960sub xsubpp_version
2961{
2962 my($self,$xsubpp) = @_;
2963 return $Xsubpp_Version if defined $Xsubpp_Version; # global variable
1e44e2bf 2964
f1387719 2965 my ($version) ;
1e44e2bf 2966
f1387719 2967 # try to figure out the version number of the xsubpp on the system
1e44e2bf 2968
f1387719 2969 # first try the -v flag, introduced in 1.921 & 2.000a2
1e44e2bf 2970
f1387719 2971 return "" unless $self->needs_linking;
1e44e2bf 2972
f1387719
PP
2973 my $command = "$self->{PERL} -I$self->{PERL_LIB} $xsubpp -v 2>&1";
2974 print "Running $command\n" if $Verbose >= 2;
2975 $version = `$command` ;
2976 warn "Running '$command' exits with status " . ($?>>8) if $?;
2977 chop $version ;
1e44e2bf 2978
f1387719 2979 return $Xsubpp_Version = $1 if $version =~ /^xsubpp version (.*)/ ;
1e44e2bf 2980
f1387719 2981 # nope, then try something else
1e44e2bf 2982
f1387719
PP
2983 my $counter = '000';
2984 my ($file) = 'temp' ;
2985 $counter++ while -e "$file$counter"; # don't overwrite anything
2986 $file .= $counter;
1e44e2bf 2987
f1387719
PP
2988 open(F, ">$file") or die "Cannot open file '$file': $!\n" ;
2989 print F <<EOM ;
2990MODULE = fred PACKAGE = fred
1e44e2bf 2991
f1387719
PP
2992int
2993fred(a)
2994 int a;
2995EOM
1e44e2bf 2996
f1387719 2997 close F ;
1e44e2bf 2998
f1387719
PP
2999 $command = "$self->{PERL} $xsubpp $file 2>&1";
3000 print "Running $command\n" if $Verbose >= 2;
3001 my $text = `$command` ;
3002 warn "Running '$command' exits with status " . ($?>>8) if $?;
3003 unlink $file ;
3004
3005 # gets 1.2 -> 1.92 and 2.000a1
3006 return $Xsubpp_Version = $1 if $text =~ /automatically by xsubpp version ([\S]+)\s*/ ;
3007
3008 # it is either 1.0 or 1.1
3009 return $Xsubpp_Version = 1.1 if $text =~ /^Warning: ignored semicolon/ ;
3010
3011 # none of the above, so 1.0
3012 return $Xsubpp_Version = "1.0" ;
1e44e2bf
PP
3013}
3014
f1387719 3015=item top_targets (o)
1e44e2bf 3016
f1387719 3017Defines the targets all, subdirs, config, and O_FILES
1e44e2bf
PP
3018
3019=cut
3020
f1387719
PP
3021sub top_targets {
3022# --- Target Sections ---
1e44e2bf 3023
f1387719
PP
3024 my($self) = shift;
3025 my(@m);
3026 push @m, '
3027#all :: config $(INST_PM) subdirs linkext manifypods
1e44e2bf 3028
f1387719
PP
3029all :: pure_all manifypods
3030 '.$self->{NOECHO}.'$(NOOP)
1e44e2bf 3031
f1387719
PP
3032pure_all :: config pm_to_blib subdirs linkext
3033 '.$self->{NOECHO}.'$(NOOP)
1e44e2bf 3034
f1387719
PP
3035subdirs :: $(MYEXTLIB)
3036 '.$self->{NOECHO}.'$(NOOP)
1e44e2bf 3037
f1387719
PP
3038config :: '.$self->{MAKEFILE}.' $(INST_LIBDIR)/.exists
3039 '.$self->{NOECHO}.'$(NOOP)
3040
3041config :: $(INST_ARCHAUTODIR)/.exists
3042 '.$self->{NOECHO}.'$(NOOP)
3043
3044config :: $(INST_AUTODIR)/.exists
3045 '.$self->{NOECHO}.'$(NOOP)
3046';
3047
3048 push @m, qq{
3049config :: Version_check
3050 $self->{NOECHO}\$(NOOP)
3051
3052} unless $self->{PARENT} or ($self->{PERL_SRC} && $self->{INSTALLDIRS} eq "perl") or $self->{NO_VC};
3053
3054 push @m, $self->dir_target(qw[$(INST_AUTODIR) $(INST_LIBDIR) $(INST_ARCHAUTODIR)]);
3055
3056 if (%{$self->{MAN1PODS}}) {
3057 push @m, qq[
3058config :: \$(INST_MAN1DIR)/.exists
3059 $self->{NOECHO}\$(NOOP)
3060
3061];
3062 push @m, $self->dir_target(qw[$(INST_MAN1DIR)]);
1e44e2bf 3063 }
f1387719
PP
3064 if (%{$self->{MAN3PODS}}) {
3065 push @m, qq[
3066config :: \$(INST_MAN3DIR)/.exists
3067 $self->{NOECHO}\$(NOOP)
3068
3069];
3070 push @m, $self->dir_target(qw[$(INST_MAN3DIR)]);
1e44e2bf 3071 }
1e44e2bf 3072
f1387719
PP
3073 push @m, '
3074$(O_FILES): $(H_FILES)
3075' if @{$self->{O_FILES} || []} && @{$self->{H} || []};
1e44e2bf 3076
f1387719
PP
3077 push @m, q{
3078help:
3079 perldoc ExtUtils::MakeMaker
3080};
1e44e2bf 3081
f1387719
PP
3082 push @m, q{
3083Version_check:
3084 }.$self->{NOECHO}.q{$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
3085 -MExtUtils::MakeMaker=Version_check \
3086 -e 'Version_check("$(MM_VERSION)")'
3087};
1e44e2bf 3088
f1387719 3089 join('',@m);
1e44e2bf
PP
3090}
3091
3092=item writedoc
3093
f4ae0f5e 3094Obsolete, depecated method. Not used since Version 5.21.
1e44e2bf
PP
3095
3096=cut
3097
3098sub writedoc {
3099# --- perllocal.pod section ---
3100 my($self,$what,$name,@attribs)=@_;
1e44e2bf
PP
3101 my $time = localtime;
3102 print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
3103 print join "\n\n=item *\n\n", map("C<$_>",@attribs);
3104 print "\n\n=back\n\n";
3105}
3106
f1387719
PP
3107=item xs_c (o)
3108
3109Defines the suffix rules to compile XS files to C.
3110
3111=cut
3112
3113sub xs_c {
3114 my($self) = shift;
3115 return '' unless $self->needs_linking();
3116 '
3117.xs.c:
3118 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >$*.tc && mv $*.tc $@
3119';
3120}
3121
3122=item xs_o (o)
3123
3124Defines suffix rules to go from XS to object files directly. This is
3125only intended for broken make implementations.
3126
3127=cut
3128
3129sub xs_o { # many makes are too dumb to use xs_c then c_o
3130 my($self) = shift;
3131 return '' unless $self->needs_linking();
3132 '
3133.xs$(OBJ_EXT):
3134 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && mv xstmp.c $*.c
042ade60 3135 $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
f1387719
PP
3136';
3137}
3138
f4ae0f5e
PP
31391;
3140
3141
1e44e2bf
PP
3142=head1 SEE ALSO
3143
3144L<ExtUtils::MakeMaker>
3145
3146=cut
3147
f4ae0f5e 3148__END__