1 package ExtUtils::MM_Win32;
8 ExtUtils::MM_Win32 - methods to override UN*X behaviour in ExtUtils::MakeMaker
12 use ExtUtils::MM_Win32; # Done internally by ExtUtils::MakeMaker if needed
16 See ExtUtils::MM_Unix for a documentation of the methods provided
17 there. This package overrides the implementation of these methods, not
25 use ExtUtils::MakeMaker qw( neatvalue );
27 use vars qw(@ISA $VERSION $BORLAND $GCC $DMAKE $NMAKE);
29 require ExtUtils::MM_Any;
30 require ExtUtils::MM_Unix;
31 @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
34 $ENV{EMXSHELL} = 'sh'; # to run `commands`
36 $BORLAND = 1 if $Config{'cc'} =~ /^bcc/i;
37 $GCC = 1 if $Config{'cc'} =~ /^gcc/i;
38 $DMAKE = 1 if $Config{'make'} =~ /^dmake/i;
39 $NMAKE = 1 if $Config{'make'} =~ /^nmake/i;
42 =head2 Overridden methods
51 my($self,%attribs) = @_;
53 my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
54 my($vars) = $attribs{DL_VARS} || $self->{DL_VARS} || [];
55 my($funclist) = $attribs{FUNCLIST} || $self->{FUNCLIST} || [];
56 my($imports) = $attribs{IMPORTS} || $self->{IMPORTS} || {};
59 if (not $self->{SKIPHASH}{'dynamic'}) {
61 $self->{BASEEXT}.def: Makefile.PL
63 q! $(PERLRUN) -MExtUtils::Mksymlists \\
64 -e "Mksymlists('NAME'=>\"!, $self->{NAME},
65 q!\", 'DLBASE' => '!,$self->{DLBASE},
66 # The above two lines quoted differently to work around
67 # a bug in the 4DOS/4NT command line interpreter. The visible
68 # result of the bug was files named q('extension_name',) *with the
69 # single quotes and the comma* in the extension build directories.
70 q!', 'DL_FUNCS' => !,neatvalue($funcs),
71 q!, 'FUNCLIST' => !,neatvalue($funclist),
72 q!, 'IMPORTS' => !,neatvalue($imports),
73 q!, 'DL_VARS' => !, neatvalue($vars), q!);"
79 =item replace_manpage_separator
81 Changes the path separator with .
85 sub replace_manpage_separator {
92 =item B<maybe_command>
94 Since Windows has nothing as simple as an executable bit, we check the
97 The PATHEXT env variable will be used to get a list of extensions that
98 might indicate a command, otherwise .com, .exe, .bat and .cmd will be
104 my($self,$file) = @_;
105 my @e = exists($ENV{'PATHEXT'})
106 ? split(/;/, $ENV{PATHEXT})
107 : qw(.com .exe .bat .cmd);
109 for (@e) { $e .= "\Q$_\E|" }
111 # see if file ends in one of the known extensions
112 if ($file =~ /($e)$/i) {
113 return $file if -e $file;
117 return "$file$_" if -e "$file$_";
126 The Win9x shell does not expand globs and I'll play it safe and assume
127 other Windows variants don't either.
129 So we do it for them.
134 return join(' ', <t\\*.t>);
138 =item B<init_DIRFILESEP>
144 sub init_DIRFILESEP {
147 # The ^ makes sure its not interpreted as an escape in nmake
148 $self->{DIRFILESEP} = $NMAKE ? '^\\' :
155 Override some of the Unix specific commands with portable
156 ExtUtils::Command ones.
158 Also provide defaults for LD and AR in case the %Config values aren't
161 LDLOADLIBS's default is changed to $Config{libs}.
163 Adjustments are made for Borland's quirks needing -L to come first.
170 # Used in favor of echo because echo won't strip quotes. :(
171 $self->{ECHO} ||= $self->oneliner('print qq{@ARGV}', ['-l']);
172 $self->{ECHO_N} ||= $self->oneliner('print qq{@ARGV}');
174 $self->{TOUCH} ||= '$(PERLRUN) -MExtUtils::Command -e touch';
175 $self->{CHMOD} ||= '$(PERLRUN) -MExtUtils::Command -e chmod';
176 $self->{CP} ||= '$(PERLRUN) -MExtUtils::Command -e cp';
177 $self->{RM_F} ||= '$(PERLRUN) -MExtUtils::Command -e rm_f';
178 $self->{RM_RF} ||= '$(PERLRUN) -MExtUtils::Command -e rm_rf';
179 $self->{MV} ||= '$(PERLRUN) -MExtUtils::Command -e mv';
180 $self->{NOOP} ||= 'rem';
181 $self->{TEST_F} ||= '$(PERLRUN) -MExtUtils::Command -e test_f';
182 $self->{DEV_NULL} ||= '> NUL';
184 $self->{LD} ||= $Config{ld} || 'link';
185 $self->{AR} ||= $Config{ar} || 'lib';
187 $self->SUPER::init_others;
189 # Setting SHELL from $Config{sh} can break dmake. Its ok without it.
190 delete $self->{SHELL};
192 $self->{LDLOADLIBS} ||= $Config{libs};
193 # -Lfoo must come first for Borland, so we put it in LDDLFLAGS
195 my $libs = $self->{LDLOADLIBS};
197 while ($libs =~ s/(?:^|\s)(("?)-L.+?\2)(?:\s|$)/ /) {
198 $libpath .= ' ' if length $libpath;
201 $self->{LDLOADLIBS} = $libs;
202 $self->{LDDLFLAGS} ||= $Config{lddlflags};
203 $self->{LDDLFLAGS} .= " $libpath";
210 =item init_platform (o)
212 Add MM_Win32_VERSION.
214 =item platform_constants (o)
221 $self->{MM_Win32_VERSION} = $VERSION;
224 sub platform_constants {
228 foreach my $macro (qw(MM_Win32_VERSION))
230 next unless defined $self->{$macro};
231 $make_frag .= "$macro = $self->{$macro}\n";
238 =item special_targets (o)
240 Add .USESHELL target for dmake.
244 sub special_targets {
247 my $make_frag = $self->SUPER::special_targets;
249 $make_frag .= <<'MAKE_FRAG' if $DMAKE;
259 Changes how to run the linker.
261 The rest is duplicate code from MM_Unix. Should move the linker code
268 return '' unless $self->has_link_code;
272 $(INST_STATIC): $(OBJECT) $(MYEXTLIB) blibdirs.exists
276 # If this extension has its own library (eg SDBM_File)
277 # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
278 push @m, <<'MAKE_FRAG' if $self->{MYEXTLIB};
283 q{ $(AR) }.($BORLAND ? '$@ $(OBJECT:^"+")'
284 : ($GCC ? '-ru $@ $(OBJECT)'
285 : '-out:$@ $(OBJECT)')).q{
286 $(CHMOD) $(PERM_RWX) $@
287 $(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)\extralibs.ld
290 # Old mechanism - still available:
291 push @m, <<'MAKE_FRAG' if $self->{PERL_SRC} && $self->{EXTRALIBS};
292 $(NOECHO) $(ECHO) "$(EXTRALIBS)" >> $(PERL_SRC)\ext.libs
299 =item dynamic_lib (o)
301 Complicated stuff for Win32 that I don't understand. :(
306 my($self, %attribs) = @_;
307 return '' unless $self->needs_linking(); #might be because of a subdir
309 return '' unless $self->has_link_code;
311 my($otherldflags) = $attribs{OTHERLDFLAGS} || ($BORLAND ? 'c0d32.obj': '');
312 my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
313 my($ldfrom) = '$(LDFROM)';
316 # one thing for GCC/Mingw32:
317 # we try to overcome non-relocateable-DLL problems by generating
318 # a (hopefully unique) image-base from the dll's name
321 my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT};
322 $dllname =~ /(....)(.{0,4})/;
323 my $baseaddr = unpack("n", $1 ^ $2);
324 $otherldflags .= sprintf("-Wl,--image-base,0x%x0000 ", $baseaddr);
328 # This section creates the dynamically loadable $(INST_DYNAMIC)
329 # from $(OBJECT) and possibly $(MYEXTLIB).
330 OTHERLDFLAGS = '.$otherldflags.'
331 INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
333 $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) blibdirs.exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
337 q{ dlltool --def $(EXPORT_LIST) --output-exp dll.exp
338 $(LD) -o $@ -Wl,--base-file -Wl,dll.base $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp
339 dlltool --def $(EXPORT_LIST) --base-file dll.base --output-exp dll.exp
340 $(LD) -o $@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp });
343 q{ $(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) }.$ldfrom.q{,$@,,}
344 .($DMAKE ? q{$(PERL_ARCHIVE:s,/,\,) $(LDLOADLIBS:s,/,\,) }
345 .q{$(MYEXTLIB:s,/,\,),$(EXPORT_LIST:s,/,\,)}
346 : q{$(subst /,\,$(PERL_ARCHIVE)) $(subst /,\,$(LDLOADLIBS)) }
347 .q{$(subst /,\,$(MYEXTLIB)),$(subst /,\,$(EXPORT_LIST))})
351 q{ $(LD) -out:$@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) }
352 .q{$(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) -def:$(EXPORT_LIST)});
355 $(CHMOD) $(PERM_RWX) $@
363 Clean out some extra dll.{base,exp} files which might be generated by
364 gcc. Otherwise, take out all *.pdb files.
371 my $s = $self->SUPER::clean(@_);
372 my $clean = $GCC ? 'dll.base dll.exp' : '*.pdb';
388 $self->{PERL_ARCHIVE} = "\$(PERL_INC)\\$Config{libperl}";
389 $self->{PERL_ARCHIVE_AFTER} = '';
390 $self->{EXPORT_LIST} = '$(BASEEXT).def';
396 Checks for the perl program under several common perl extensions.
401 my($self,$file) = @_;
402 return $file if -r $file && -f _;
403 return "$file.pl" if -r "$file.pl" && -f _;
404 return "$file.plx" if -r "$file.plx" && -f _;
405 return "$file.bat" if -r "$file.bat" && -f _;
412 This target is stubbed out. Not sure why.
423 All we send is -nologo to nmake to prevent it from printing its damned
430 return "PASTHRU = " . ($NMAKE ? "-nologo" : "");
436 These are based on what command.com does on Win98. They may be wrong
437 for other Windows shells, I don't know.
442 my($self, $cmd, $switches) = @_;
443 $switches = [] unless defined $switches;
445 # Strip leading and trailing newlines
449 $cmd = $self->quote_literal($cmd);
450 $cmd = $self->escape_newlines($cmd);
452 $switches = join ' ', @$switches;
454 return qq{\$(PERLRUN) $switches -e $cmd};
459 my($self, $text) = @_;
461 # I don't know if this is correct, but it seems to work on
462 # Win98's command.com
465 # dmake eats '{' inside double quotes and leaves alone { outside double
466 # quotes; however it transforms {{ into { either inside and outside double
467 # quotes. It also translates }} into }. The escaping below is not
478 sub escape_newlines {
479 my($self, $text) = @_;
482 $text =~ s{\n}{\\\n}g;
490 nmake 1.50 limits command length to 2048 characters.
497 return $self->{_MAX_EXEC_LEN} ||= 2 * 1024;