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) $(INST_ARCHAUTODIR)$(DIRFILESEP).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
295 push @m, "\n", $self->dir_target('$(INST_ARCHAUTODIR)');
300 =item dynamic_lib (o)
302 Complicated stuff for Win32 that I don't understand. :(
307 my($self, %attribs) = @_;
308 return '' unless $self->needs_linking(); #might be because of a subdir
310 return '' unless $self->has_link_code;
312 my($otherldflags) = $attribs{OTHERLDFLAGS} || ($BORLAND ? 'c0d32.obj': '');
313 my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
314 my($ldfrom) = '$(LDFROM)';
317 # one thing for GCC/Mingw32:
318 # we try to overcome non-relocateable-DLL problems by generating
319 # a (hopefully unique) image-base from the dll's name
322 my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT};
323 $dllname =~ /(....)(.{0,4})/;
324 my $baseaddr = unpack("n", $1 ^ $2);
325 $otherldflags .= sprintf("-Wl,--image-base,0x%x0000 ", $baseaddr);
329 # This section creates the dynamically loadable $(INST_DYNAMIC)
330 # from $(OBJECT) and possibly $(MYEXTLIB).
331 OTHERLDFLAGS = '.$otherldflags.'
332 INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
334 $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DIRFILESEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
338 q{ dlltool --def $(EXPORT_LIST) --output-exp dll.exp
339 $(LD) -o $@ -Wl,--base-file -Wl,dll.base $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp
340 dlltool --def $(EXPORT_LIST) --base-file dll.base --output-exp dll.exp
341 $(LD) -o $@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp });
344 q{ $(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) }.$ldfrom.q{,$@,,}
345 .($DMAKE ? q{$(PERL_ARCHIVE:s,/,\,) $(LDLOADLIBS:s,/,\,) }
346 .q{$(MYEXTLIB:s,/,\,),$(EXPORT_LIST:s,/,\,)}
347 : q{$(subst /,\,$(PERL_ARCHIVE)) $(subst /,\,$(LDLOADLIBS)) }
348 .q{$(subst /,\,$(MYEXTLIB)),$(subst /,\,$(EXPORT_LIST))})
352 q{ $(LD) -out:$@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) }
353 .q{$(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) -def:$(EXPORT_LIST)});
356 $(CHMOD) $(PERM_RWX) $@
359 push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
365 Clean out some extra dll.{base,exp} files which might be generated by
366 gcc. Otherwise, take out all *.pdb files.
373 my $s = $self->SUPER::clean(@_);
374 my $clean = $GCC ? 'dll.base dll.exp' : '*.pdb';
390 $self->{PERL_ARCHIVE} = "\$(PERL_INC)\\$Config{libperl}";
391 $self->{PERL_ARCHIVE_AFTER} = '';
392 $self->{EXPORT_LIST} = '$(BASEEXT).def';
398 Checks for the perl program under several common perl extensions.
403 my($self,$file) = @_;
404 return $file if -r $file && -f _;
405 return "$file.pl" if -r "$file.pl" && -f _;
406 return "$file.plx" if -r "$file.plx" && -f _;
407 return "$file.bat" if -r "$file.bat" && -f _;
414 This target is stubbed out. Not sure why.
425 All we send is -nologo to nmake to prevent it from printing its damned
432 return "PASTHRU = " . ($NMAKE ? "-nologo" : "");
438 These are based on what command.com does on Win98. They may be wrong
439 for other Windows shells, I don't know.
444 my($self, $cmd, $switches) = @_;
445 $switches = [] unless defined $switches;
447 # Strip leading and trailing newlines
451 $cmd = $self->quote_literal($cmd);
452 $cmd = $self->escape_newlines($cmd);
454 $switches = join ' ', @$switches;
456 return qq{\$(PERLRUN) $switches -e $cmd};
461 my($self, $text) = @_;
463 # I don't know if this is correct, but it seems to work on
464 # Win98's command.com
467 # dmake eats '{' inside double quotes and leaves alone { outside double
468 # quotes; however it transforms {{ into { either inside and outside double
469 # quotes. It also translates }} into }. The escaping below is not
480 sub escape_newlines {
481 my($self, $text) = @_;
484 $text =~ s{\n}{\\\n}g;
492 nmake 1.50 limits command length to 2048 characters.
499 return $self->{_MAX_EXEC_LEN} ||= 2 * 1024;