added patch, regen headers
[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / MM_Win32.pm
CommitLineData
68dc0745 1package ExtUtils::MM_Win32;
2
3=head1 NAME
4
5ExtUtils::MM_Win32 - methods to override UN*X behaviour in ExtUtils::MakeMaker
6
7=head1 SYNOPSIS
8
9 use ExtUtils::MM_Win32; # Done internally by ExtUtils::MakeMaker if needed
10
11=head1 DESCRIPTION
12
13See ExtUtils::MM_Unix for a documentation of the methods provided
14there. This package overrides the implementation of these methods, not
15the semantics.
16
17=over
18
19=cut
20
3e3baf6d 21use Config;
68dc0745 22#use Cwd;
23use File::Basename;
24require Exporter;
25
26Exporter::import('ExtUtils::MakeMaker',
27 qw( $Verbose &neatvalue));
28
29$ENV{EMXSHELL} = 'sh'; # to run `commands`
30unshift @MM::ISA, 'ExtUtils::MM_Win32';
31
3e3baf6d 32$BORLAND = 1 if $Config{'cc'} =~ /^bcc/i;
5b0d9cbe 33$GCC = 1 if $Config{'cc'} =~ /^gcc/i;
3e3baf6d 34$DMAKE = 1 if $Config{'make'} =~ /^dmake/i;
35$NMAKE = 1 if $Config{'make'} =~ /^nmake/i;
9d8a25dc 36$OBJ = 1 if $Config{'ccflags'} =~ /PERL_OBJECT/i;
3e3baf6d 37
68dc0745 38sub dlsyms {
39 my($self,%attribs) = @_;
40
41 my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
42 my($vars) = $attribs{DL_VARS} || $self->{DL_VARS} || [];
43 my($imports) = $attribs{IMPORTS} || $self->{IMPORTS} || {};
44 my(@m);
45 (my $boot = $self->{NAME}) =~ s/:/_/g;
46
47 if (not $self->{SKIPHASH}{'dynamic'}) {
48 push(@m,"
49$self->{BASEEXT}.def: Makefile.PL
50",
51 q! $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Mksymlists \\
52 -e "Mksymlists('NAME' => '!, $self->{NAME},
53 q!', 'DLBASE' => '!,$self->{DLBASE},
54 q!', 'DL_FUNCS' => !,neatvalue($funcs),
55 q!, 'IMPORTS' => !,neatvalue($imports),
56 q!, 'DL_VARS' => !, neatvalue($vars), q!);"
57!);
58 }
59 join('',@m);
60}
61
62sub replace_manpage_separator {
63 my($self,$man) = @_;
64 $man =~ s,/+,.,g;
65 $man;
66}
67
68sub maybe_command {
69 my($self,$file) = @_;
70 return "$file.exe" if -e "$file.exe";
71 return;
72}
73
74sub file_name_is_absolute {
75 my($self,$file) = @_;
76 $file =~ m{^([a-z]:)?[\\/]}i ;
77}
78
79sub find_perl {
80 my($self, $ver, $names, $dirs, $trace) = @_;
81 my($name, $dir);
82 if ($trace >= 2){
83 print "Looking for perl $ver by these names:
84@$names
85in these dirs:
86@$dirs
87";
88 }
89 foreach $dir (@$dirs){
90 next unless defined $dir; # $self->{PERL_SRC} may be undefined
91 foreach $name (@$names){
92 my ($abs, $val);
93 if ($self->file_name_is_absolute($name)) { # /foo/bar
94 $abs = $name;
95 } elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { # foo
96 $abs = $self->catfile($dir, $name);
97 } else { # foo/bar
98 $abs = $self->canonpath($self->catfile($self->curdir, $name));
99 }
100 print "Checking $abs\n" if ($trace >= 2);
101 next unless $self->maybe_command($abs);
102 print "Executing $abs\n" if ($trace >= 2);
103 $val = `$abs -e "require $ver;" 2>&1`;
104 if ($? == 0) {
105 print "Using PERL=$abs\n" if $trace;
106 return $abs;
107 } elsif ($trace >= 2) {
108 print "Result: `$val'\n";
109 }
110 }
111 }
112 print STDOUT "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
113 0; # false and not empty
114}
115
116sub catdir {
117 my $self = shift;
118 my @args = @_;
119 for (@args) {
120 # append a slash to each argument unless it has one there
121 $_ .= "\\" if $_ eq '' or substr($_,-1) ne "\\";
122 }
123 my $result = $self->canonpath(join('', @args));
124 $result;
125}
126
127=item catfile
128
129Concatenate one or more directory names and a filename to form a
130complete path ending with a filename
131
132=cut
133
134sub catfile {
135 my $self = shift @_;
136 my $file = pop @_;
137 return $file unless @_;
138 my $dir = $self->catdir(@_);
96e4d5b1 139 $dir =~ s/(\\\.)$//;
140 $dir .= "\\" unless substr($dir,length($dir)-1,1) eq "\\";
68dc0745 141 return $dir.$file;
142}
143
144sub init_others
145{
146 my ($self) = @_;
147 &ExtUtils::MM_Unix::init_others;
148 $self->{'TOUCH'} = '$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e touch';
149 $self->{'CHMOD'} = '$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e chmod';
150 $self->{'CP'} = '$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e cp';
151 $self->{'RM_F'} = '$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e rm_f';
152 $self->{'RM_RF'} = '$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e rm_rf';
153 $self->{'MV'} = '$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e mv';
154 $self->{'NOOP'} = 'rem';
155 $self->{'TEST_F'} = '$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e test_f';
3e3baf6d 156 $self->{'LD'} = $Config{'ld'} || 'link';
157 $self->{'AR'} = $Config{'ar'} || 'lib';
5b0d9cbe 158 if ($GCC)
159 {
160 $self->{'LDLOADLIBS'} ||= ' ';
161 }
162 else
163 {
164 $self->{'LDLOADLIBS'}
165 ||= ( $BORLAND
166 ? 'import32.lib cw32mti.lib '
852c2e52 167 : # compiler adds msvcrtd?.lib according to debug switches
168 'oldnames.lib kernel32.lib comdlg32.lib winspool.lib gdi32.lib '
5b0d9cbe 169 .'advapi32.lib user32.lib shell32.lib netapi32.lib ole32.lib '
170 .'oleaut32.lib uuid.lib wsock32.lib mpr.lib winmm.lib version.lib '
171 ) . ' odbc32.lib odbccp32.lib';
172 }
68dc0745 173 $self->{'DEV_NULL'} = '> NUL';
174 # $self->{'NOECHO'} = ''; # till we have it working
175}
176
3e3baf6d 177
178=item constants (o)
179
180Initializes lots of constants and .SUFFIXES and .PHONY
181
182=cut
183
184sub constants {
185 my($self) = @_;
186 my(@m,$tmp);
187
188 for $tmp (qw/
189
190 AR_STATIC_ARGS NAME DISTNAME NAME_SYM VERSION
191 VERSION_SYM XS_VERSION INST_BIN INST_EXE INST_LIB
192 INST_ARCHLIB INST_SCRIPT PREFIX INSTALLDIRS
193 INSTALLPRIVLIB INSTALLARCHLIB INSTALLSITELIB
194 INSTALLSITEARCH INSTALLBIN INSTALLSCRIPT PERL_LIB
195 PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
196 FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC
197 PERL_INC PERL FULLPERL
198
199 / ) {
200 next unless defined $self->{$tmp};
201 push @m, "$tmp = $self->{$tmp}\n";
202 }
203
204 push @m, qq{
205VERSION_MACRO = VERSION
206DEFINE_VERSION = -D\$(VERSION_MACRO)=\\\"\$(VERSION)\\\"
207XS_VERSION_MACRO = XS_VERSION
208XS_DEFINE_VERSION = -D\$(XS_VERSION_MACRO)=\\\"\$(XS_VERSION)\\\"
209};
210
211 push @m, qq{
212MAKEMAKER = $INC{'ExtUtils\MakeMaker.pm'}
213MM_VERSION = $ExtUtils::MakeMaker::VERSION
214};
215
216 push @m, q{
217# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
218# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
219# ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD) !!! Deprecated from MM 5.32 !!!
220# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
221# DLBASE = Basename part of dynamic library. May be just equal BASEEXT.
222};
223
224 for $tmp (qw/
225 FULLEXT BASEEXT PARENT_NAME DLBASE VERSION_FROM INC DEFINE OBJECT
226 LDFROM LINKTYPE
227 / ) {
228 next unless defined $self->{$tmp};
229 push @m, "$tmp = $self->{$tmp}\n";
230 }
231
232 push @m, "
233# Handy lists of source code files:
234XS_FILES= ".join(" \\\n\t", sort keys %{$self->{XS}})."
235C_FILES = ".join(" \\\n\t", @{$self->{C}})."
236O_FILES = ".join(" \\\n\t", @{$self->{O_FILES}})."
237H_FILES = ".join(" \\\n\t", @{$self->{H}})."
238MAN1PODS = ".join(" \\\n\t", sort keys %{$self->{MAN1PODS}})."
239MAN3PODS = ".join(" \\\n\t", sort keys %{$self->{MAN3PODS}})."
240";
241
242 for $tmp (qw/
243 INST_MAN1DIR INSTALLMAN1DIR MAN1EXT INST_MAN3DIR INSTALLMAN3DIR MAN3EXT
244 /) {
245 next unless defined $self->{$tmp};
246 push @m, "$tmp = $self->{$tmp}\n";
247 }
248
249 push @m, qq{
250.USESHELL :
251} if $DMAKE;
252
253 push @m, q{
254.NO_CONFIG_REC: Makefile
255} if $ENV{CLEARCASE_ROOT};
256
257 # why not q{} ? -- emacs
258 push @m, qq{
259# work around a famous dec-osf make(1) feature(?):
260makemakerdflt: all
261
262.SUFFIXES: .xs .c .C .cpp .cxx .cc \$(OBJ_EXT)
263
264# Nick wanted to get rid of .PRECIOUS. I don't remember why. I seem to recall, that
265# some make implementations will delete the Makefile when we rebuild it. Because
266# we call false(1) when we rebuild it. So make(1) is not completely wrong when it
267# does so. Our milage may vary.
268# .PRECIOUS: Makefile # seems to be not necessary anymore
269
270.PHONY: all config static dynamic test linkext manifest
271
272# Where is the Config information that we are using/depend on
273CONFIGDEP = \$(PERL_ARCHLIB)\\Config.pm \$(PERL_INC)\\config.h
274};
275
276 my @parentdir = split(/::/, $self->{PARENT_NAME});
277 push @m, q{
278# Where to put things:
279INST_LIBDIR = }. $self->catdir('$(INST_LIB)',@parentdir) .q{
280INST_ARCHLIBDIR = }. $self->catdir('$(INST_ARCHLIB)',@parentdir) .q{
281
282INST_AUTODIR = }. $self->catdir('$(INST_LIB)','auto','$(FULLEXT)') .q{
283INST_ARCHAUTODIR = }. $self->catdir('$(INST_ARCHLIB)','auto','$(FULLEXT)') .q{
284};
285
286 if ($self->has_link_code()) {
287 push @m, '
288INST_STATIC = $(INST_ARCHAUTODIR)\$(BASEEXT)$(LIB_EXT)
289INST_DYNAMIC = $(INST_ARCHAUTODIR)\$(DLBASE).$(DLEXT)
290INST_BOOT = $(INST_ARCHAUTODIR)\$(BASEEXT).bs
291';
292 } else {
293 push @m, '
294INST_STATIC =
295INST_DYNAMIC =
296INST_BOOT =
297';
298 }
299
300 $tmp = $self->export_list;
301 push @m, "
302EXPORT_LIST = $tmp
303";
304 $tmp = $self->perl_archive;
305 push @m, "
306PERL_ARCHIVE = $tmp
307";
308
309# push @m, q{
310#INST_PM = }.join(" \\\n\t", sort values %{$self->{PM}}).q{
311#
312#PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
313#};
314
315 push @m, q{
316TO_INST_PM = }.join(" \\\n\t", sort keys %{$self->{PM}}).q{
317
318PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
319};
320
321 join('',@m);
322}
323
324
68dc0745 325sub path {
326 local $^W = 1;
327 my($self) = @_;
328 my $path = $ENV{'PATH'} || $ENV{'Path'} || $ENV{'path'};
329 my @path = split(';',$path);
330 foreach(@path) { $_ = '.' if $_ eq '' }
331 @path;
332}
333
334=item static_lib (o)
335
336Defines how to produce the *.a (or equivalent) files.
337
338=cut
339
340sub static_lib {
341 my($self) = @_;
342# Come to think of it, if there are subdirs with linkcode, we still have no INST_STATIC
343# return '' unless $self->needs_linking(); #might be because of a subdir
344
345 return '' unless $self->has_link_code;
346
347 my(@m);
348 push(@m, <<'END');
3e3baf6d 349$(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)\.exists
68dc0745 350 $(RM_RF) $@
351END
352 # If this extension has it's own library (eg SDBM_File)
353 # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
354 push(@m, "\t$self->{CP} \$(MYEXTLIB) \$\@\n") if $self->{MYEXTLIB};
355
356 push @m,
910dfcc8 357q{ $(AR) }.($BORLAND ? '$@ $(OBJECT:^"+")'
358 : ($GCC ? '-ru $@ $(OBJECT)'
359 : '-out:$@ $(OBJECT)')).q{
3e3baf6d 360 }.$self->{NOECHO}.q{echo "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)\extralibs.ld
68dc0745 361 $(CHMOD) 755 $@
362};
363
364# Old mechanism - still available:
365
3e3baf6d 366 push @m, "\t$self->{NOECHO}".q{echo "$(EXTRALIBS)" >> $(PERL_SRC)\ext.libs}."\n\n"
68dc0745 367 if $self->{PERL_SRC};
368
369 push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
370 join('', "\n",@m);
371}
372
3e3baf6d 373=item dynamic_bs (o)
374
375Defines targets for bootstrap files.
376
377=cut
68dc0745 378
3e3baf6d 379sub dynamic_bs {
380 my($self, %attribs) = @_;
381 return '
382BOOTSTRAP =
383' unless $self->has_link_code();
384
385 return '
386BOOTSTRAP = '."$self->{BASEEXT}.bs".'
387
388# As Mkbootstrap might not write a file (if none is required)
389# we use touch to prevent make continually trying to remake it.
390# The DynaLoader only reads a non-empty file.
391$(BOOTSTRAP): '."$self->{MAKEFILE} $self->{BOOTDEP}".' $(INST_ARCHAUTODIR)\.exists
392 '.$self->{NOECHO}.'echo "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
393 '.$self->{NOECHO}.'$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" \
394 -MExtUtils::Mkbootstrap \
395 -e "Mkbootstrap(\'$(BASEEXT)\',\'$(BSLOADLIBS)\');"
396 '.$self->{NOECHO}.'$(TOUCH) $(BOOTSTRAP)
397 $(CHMOD) 644 $@
398
399$(INST_BOOT): $(BOOTSTRAP) $(INST_ARCHAUTODIR)\.exists
400 '."$self->{NOECHO}$self->{RM_RF}".' $(INST_BOOT)
401 -'.$self->{CP}.' $(BOOTSTRAP) $(INST_BOOT)
402 $(CHMOD) 644 $@
403';
404}
68dc0745 405
406=item dynamic_lib (o)
407
408Defines how to produce the *.so (or equivalent) files.
409
410=cut
411
412sub dynamic_lib {
413 my($self, %attribs) = @_;
414 return '' unless $self->needs_linking(); #might be because of a subdir
415
416 return '' unless $self->has_link_code;
417
3e3baf6d 418 my($otherldflags) = $attribs{OTHERLDFLAGS} || ($BORLAND ? 'c0d32.obj': '');
68dc0745 419 my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
420 my($ldfrom) = '$(LDFROM)';
421 my(@m);
422 push(@m,'
423# This section creates the dynamically loadable $(INST_DYNAMIC)
424# from $(OBJECT) and possibly $(MYEXTLIB).
425OTHERLDFLAGS = '.$otherldflags.'
426INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
427
3e3baf6d 428$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)\.exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
68dc0745 429');
5b0d9cbe 430 if ($GCC) {
431 push(@m,
910dfcc8 432 q{ dlltool --def $(EXPORT_LIST) --output-exp dll.exp
433 $(LD) -o $@ -Wl,--base-file -Wl,dll.base $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp
5b0d9cbe 434 dlltool --def $(EXPORT_LIST) --base-file dll.base --output-exp dll.exp
435 $(LD) -o $@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp });
436 } else {
437 push(@m, $BORLAND ?
438 q{ $(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) }.$ldfrom.q{,$@,,$(PERL_ARCHIVE:s,/,\,) $(LDLOADLIBS:s,/,\,) $(MYEXTLIB:s,/,\,),$(EXPORT_LIST:s,/,\,),$(RESFILES)} :
439 q{ $(LD) -out:$@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) -def:$(EXPORT_LIST)}
3e3baf6d 440 );
5b0d9cbe 441 }
68dc0745 442 push @m, '
443 $(CHMOD) 755 $@
444';
445
446 push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
447 join('',@m);
448}
449
450sub perl_archive
451{
e3b8966e 452 my ($self) = @_;
f7a92b15 453 if($OBJ) {
e3b8966e 454 if ($self->{CAPI} eq 'TRUE') {
455 return '$(PERL_INC)\PerlCAPI$(LIB_EXT)';
456 }
457 else {
458 return '$(PERL_INC)\perlcore$(LIB_EXT)';
459 }
f7a92b15 460 }
eda5ff31 461 return '$(PERL_INC)\\'.$Config{'libperl'};
68dc0745 462}
463
464sub export_list
465{
466 my ($self) = @_;
467 return "$self->{BASEEXT}.def";
468}
469
470=item canonpath
471
472No physical check on the filesystem, but a logical cleanup of a
473path. On UNIX eliminated successive slashes and successive "/.".
474
475=cut
476
477sub canonpath {
478 my($self,$path) = @_;
96e4d5b1 479 $path =~ s/^([a-z]:)/\u$1/;
68dc0745 480 $path =~ s|/|\\|g;
3e3baf6d 481 $path =~ s|(.)\\+|$1\\|g ; # xx////xx -> xx/xx
68dc0745 482 $path =~ s|(\\\.)+\\|\\|g ; # xx/././xx -> xx/xx
483 $path =~ s|^(\.\\)+|| unless $path eq ".\\"; # ./xx -> xx
484 $path =~ s|\\$||
485 unless $path =~ m#^([a-z]:)?\\#; # xx/ -> xx
486 $path .= '.' if $path =~ m#\\$#;
487 $path;
488}
489
490=item perl_script
491
492Takes one argument, a file name, and returns the file name, if the
493argument is likely to be a perl script. On MM_Unix this is true for
494any ordinary, readable file.
495
496=cut
497
498sub perl_script {
499 my($self,$file) = @_;
500 return "$file.pl" if -r "$file.pl" && -f _;
501 return;
502}
503
504=item pm_to_blib
505
506Defines target that copies all files in the hash PM to their
507destination and autosplits them. See L<ExtUtils::Install/DESCRIPTION>
508
509=cut
510
511sub pm_to_blib {
512 my $self = shift;
513 my($autodir) = $self->catdir('$(INST_LIB)','auto');
514 return q{
515pm_to_blib: $(TO_INST_PM)
516 }.$self->{NOECHO}.q{$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
517 "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \
3e3baf6d 518 -e "pm_to_blib(qw[ }.
519 ($NMAKE ? '<<pmfiles.dat'
520 : '$(mktmp,pmfiles.dat $(PM_TO_BLIB:s,\\,\\\\,)\n)').
521 q{ ],'}.$autodir.q{')"
522 }. ($NMAKE ? q{
68dc0745 523$(PM_TO_BLIB)
524<<
3e3baf6d 525 } : '') . $self->{NOECHO}.q{$(TOUCH) $@
68dc0745 526};
527}
528
529=item test_via_harness (o)
530
531Helper method to write the test targets
532
533=cut
534
535sub test_via_harness {
536 my($self, $perl, $tests) = @_;
537 "\t$perl".q! -Mblib -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e "use Test::Harness qw(&runtests $$verbose); $$verbose=$(TEST_VERBOSE); runtests @ARGV;" !."$tests\n";
538}
539
3e3baf6d 540
68dc0745 541=item tool_autosplit (override)
542
543Use Win32 quoting on command line.
544
545=cut
546
547sub tool_autosplit{
548 my($self, %attribs) = @_;
549 my($asl) = "";
550 $asl = "\$AutoSplit::Maxlen=$attribs{MAXLEN};" if $attribs{MAXLEN};
551 q{
552# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
553AUTOSPLITFILE = $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MAutoSplit }.$asl.q{ -e "autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1);"
554};
555}
556
557=item tools_other (o)
558
559Win32 overrides.
560
561Defines SHELL, LD, TOUCH, CP, MV, RM_F, RM_RF, CHMOD, UMASK_NULL in
562the Makefile. Also defines the perl programs MKPATH,
563WARN_IF_OLD_PACKLIST, MOD_INSTALL. DOC_INSTALL, and UNINSTALL.
564
565=cut
566
567sub tools_other {
568 my($self) = shift;
569 my @m;
570 my $bin_sh = $Config{sh} || 'cmd /c';
571 push @m, qq{
572SHELL = $bin_sh
3e3baf6d 573} unless $DMAKE; # dmake determines its own shell
68dc0745 574
575 for (qw/ CHMOD CP LD MV NOOP RM_F RM_RF TEST_F TOUCH UMASK_NULL DEV_NULL/ ) {
576 push @m, "$_ = $self->{$_}\n";
577 }
578
579 push @m, q{
580# The following is a portable way to say mkdir -p
581# To see which directories are created, change the if 0 to if 1
582MKPATH = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e mkpath
583
584# This helps us to minimize the effect of the .exists files A yet
585# better solution would be to have a stable file in the perl
586# distribution with a timestamp of zero. But this solution doesn't
587# need any changes to the core distribution and works with older perls
588EQUALIZE_TIMESTAMP = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e eqtime
589};
590
591
592 return join "", @m if $self->{PARENT};
593
594 push @m, q{
595# Here we warn users that an old packlist file was found somewhere,
596# and that they should call some uninstall routine
597WARN_IF_OLD_PACKLIST = $(PERL) -lwe "exit unless -f $$ARGV[0];" \\
598-e "print 'WARNING: I have found an old package in';" \\
599-e "print ' ', $$ARGV[0], '.';" \\
600-e "print 'Please make sure the two installations are not conflicting';"
601
602UNINST=0
603VERBINST=1
604
605MOD_INSTALL = $(PERL) -I$(INST_LIB) -I$(PERL_LIB) -MExtUtils::Install \
3e3baf6d 606-e "install({ @ARGV },'$(VERBINST)',0,'$(UNINST)');"
68dc0745 607
608DOC_INSTALL = $(PERL) -e "$$\=\"\n\n\";" \
609-e "print '=head2 ', scalar(localtime), ': C<', shift, '>', ' L<', shift, '>';" \
610-e "print '=over 4';" \
3e3baf6d 611-e "while (defined($$key = shift) and defined($$val = shift)) { print '=item *';print 'C<', \"$$key: $$val\", '>'; }" \
68dc0745 612-e "print '=back';"
613
614UNINSTALL = $(PERL) -MExtUtils::Install \
615-e "uninstall($$ARGV[0],1,1); print \"\nUninstall is deprecated. Please check the";" \
616-e "print \" packlist above carefully.\n There may be errors. Remove the\";" \
617-e "print \" appropriate files manually.\n Sorry for the inconveniences.\n\""
618};
619
620 return join "", @m;
621}
622
3e3baf6d 623=item xs_o (o)
624
625Defines suffix rules to go from XS to object files directly. This is
626only intended for broken make implementations.
627
628=cut
629
630sub xs_o { # many makes are too dumb to use xs_c then c_o
631 my($self) = shift;
632 return ''
633}
634
635=item top_targets (o)
636
637Defines the targets all, subdirs, config, and O_FILES
638
639=cut
640
641sub top_targets {
642# --- Target Sections ---
643
644 my($self) = shift;
645 my(@m);
646 push @m, '
647#all :: config $(INST_PM) subdirs linkext manifypods
648';
649
650 push @m, '
651all :: pure_all manifypods
652 '.$self->{NOECHO}.'$(NOOP)
653'
654 unless $self->{SKIPHASH}{'all'};
655
656 push @m, '
657pure_all :: config pm_to_blib subdirs linkext
658 '.$self->{NOECHO}.'$(NOOP)
659
660subdirs :: $(MYEXTLIB)
661 '.$self->{NOECHO}.'$(NOOP)
662
663config :: '.$self->{MAKEFILE}.' $(INST_LIBDIR)\.exists
664 '.$self->{NOECHO}.'$(NOOP)
665
666config :: $(INST_ARCHAUTODIR)\.exists
667 '.$self->{NOECHO}.'$(NOOP)
668
669config :: $(INST_AUTODIR)\.exists
670 '.$self->{NOECHO}.'$(NOOP)
671';
672
673 push @m, qq{
674config :: Version_check
675 $self->{NOECHO}\$(NOOP)
676
677} unless $self->{PARENT} or ($self->{PERL_SRC} && $self->{INSTALLDIRS} eq "perl") or $self->{NO_VC};
678
679 push @m, $self->dir_target(qw[$(INST_AUTODIR) $(INST_LIBDIR) $(INST_ARCHAUTODIR)]);
680
681 if (%{$self->{MAN1PODS}}) {
682 push @m, qq[
683config :: \$(INST_MAN1DIR)\\.exists
684 $self->{NOECHO}\$(NOOP)
685
686];
687 push @m, $self->dir_target(qw[$(INST_MAN1DIR)]);
688 }
689 if (%{$self->{MAN3PODS}}) {
690 push @m, qq[
691config :: \$(INST_MAN3DIR)\\.exists
692 $self->{NOECHO}\$(NOOP)
693
694];
695 push @m, $self->dir_target(qw[$(INST_MAN3DIR)]);
696 }
697
698 push @m, '
699$(O_FILES): $(H_FILES)
700' if @{$self->{O_FILES} || []} && @{$self->{H} || []};
701
702 push @m, q{
703help:
704 perldoc ExtUtils::MakeMaker
705};
706
707 push @m, q{
708Version_check:
709 }.$self->{NOECHO}.q{$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
710 -MExtUtils::MakeMaker=Version_check \
711 -e "Version_check('$(MM_VERSION)')"
712};
713
714 join('',@m);
715}
716
68dc0745 717=item manifypods (o)
718
719We don't want manpage process. XXX add pod2html support later.
720
721=cut
722
723sub manifypods {
724 return "\nmanifypods :\n\t$self->{NOECHO}\$(NOOP)\n";
725}
726
727=item dist_ci (o)
728
729Same as MM_Unix version (changes command-line quoting).
730
731=cut
732
733sub dist_ci {
734 my($self) = shift;
735 my @m;
736 push @m, q{
737ci :
738 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=maniread \\
739 -e "@all = keys %{ maniread() };" \\
740 -e "print(\"Executing $(CI) @all\n\"); system(\"$(CI) @all\");" \\
741 -e "print(\"Executing $(RCS_LABEL) ...\n\"); system(\"$(RCS_LABEL) @all\");"
742};
743 join "", @m;
744}
745
746=item dist_core (o)
747
748Same as MM_Unix version (changes command-line quoting).
749
750=cut
751
752sub dist_core {
753 my($self) = shift;
754 my @m;
755 push @m, q{
756dist : $(DIST_DEFAULT)
757 }.$self->{NOECHO}.q{$(PERL) -le "print \"Warning: Makefile possibly out of date with $$vf\" if " \
758 -e "-e ($$vf=\"$(VERSION_FROM)\") and -M $$vf < -M \"}.$self->{MAKEFILE}.q{\";"
759
760tardist : $(DISTVNAME).tar$(SUFFIX)
761
762zipdist : $(DISTVNAME).zip
763
764$(DISTVNAME).tar$(SUFFIX) : distdir
765 $(PREOP)
766 $(TO_UNIX)
767 $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
768 $(RM_RF) $(DISTVNAME)
769 $(COMPRESS) $(DISTVNAME).tar
770 $(POSTOP)
771
772$(DISTVNAME).zip : distdir
773 $(PREOP)
774 $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
775 $(RM_RF) $(DISTVNAME)
776 $(POSTOP)
777
778uutardist : $(DISTVNAME).tar$(SUFFIX)
779 uuencode $(DISTVNAME).tar$(SUFFIX) \\
780 $(DISTVNAME).tar$(SUFFIX) > \\
781 $(DISTVNAME).tar$(SUFFIX)_uu
782
783shdist : distdir
784 $(PREOP)
785 $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
786 $(RM_RF) $(DISTVNAME)
787 $(POSTOP)
788};
789 join "", @m;
790}
791
792=item pasthru (o)
793
794Defines the string that is passed to recursive make calls in
795subdirectories.
796
797=cut
798
799sub pasthru {
800 my($self) = shift;
3e3baf6d 801 return "PASTHRU = " . ($NMAKE ? "-nologo" : "");
68dc0745 802}
803
804
805
8061;
807__END__
808
809=back
810
811=cut
812
5b0d9cbe 813