Commit | Line | Data |
---|---|---|
f6d6199c MS |
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 | } | |
4da32025 MS |
43 | |
44 | 1; |