lib/ExtUtils/MM_Win95.pm

   1 package ExtUtils::MM_Win95;
   2
   3 use vars qw($VERSION @ISA);
   4 $VERSION = 0.01;
   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 xs_c {
  13     my($self) = shift;
  14     return '' unless $self->needs_linking();
  15     '
  16 .xs.c:
  17         $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
  18             $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c
  19         '
  20 }
  21
  22 sub xs_cpp {
  23     my($self) = shift;
  24     return '' unless $self->needs_linking();
  25     '
  26 .xs.cpp:
  27         $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
  28             $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.cpp
  29         ';
  30 }
  31
  32 # many makes are too dumb to use xs_c then c_o
  33 sub xs_o {
  34     my($self) = shift;
  35     return '' unless $self->needs_linking();
  36     '
  37 .xs$(OBJ_EXT):
  38         $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
  39             $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c
  40         $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
  41         ';
  42 }
  43
  44 1;