lib/ExtUtils/MM_Win95.pm

   1 package ExtUtils::MM_Win95;
   2
   3 use vars qw($VERSION @ISA);
   4 $VERSION = 0.02;
   5
   6 require ExtUtils::MM_Win32;
   7 @ISA = qw(ExtUtils::MM_Win32);
   8
   9
  10 # a few workarounds for command.com (very basic)
  11
  12 sub dist_test {
  13     my($self) = shift;
  14     return q{
  15 disttest : distdir
  16         cd $(DISTVNAME)
  17         $(ABSPERLRUN) Makefile.PL
  18         $(MAKE) $(PASTHRU)
  19         $(MAKE) test $(PASTHRU)
  20         cd ..
  21 };
  22 }
  23
  24 sub xs_c {
  25     my($self) = shift;
  26     return '' unless $self->needs_linking();
  27     '
  28 .xs.c:
  29         $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
  30             $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c
  31         '
  32 }
  33
  34 sub xs_cpp {
  35     my($self) = shift;
  36     return '' unless $self->needs_linking();
  37     '
  38 .xs.cpp:
  39         $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
  40             $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.cpp
  41         ';
  42 }
  43
  44 # many makes are too dumb to use xs_c then c_o
  45 sub xs_o {
  46     my($self) = shift;
  47     return '' unless $self->needs_linking();
  48     '
  49 .xs$(OBJ_EXT):
  50         $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
  51             $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c
  52         $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
  53         ';
  54 }
  55
  56 1;