1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
require 'Core/Dev.pm'; PDL::Core::Dev->import();
use ExtUtils::MakeMaker;
$defstartup = 'default.perldlrc';
if ($^O =~ /win32/i) {
$defstartup = 'default.pdl';
system("copy default.perldlrc $defstartup");
}
# # See lib/ExtUtils/MakeMaker.pm for details of how to influence
# # the contents of the Makefile that is written.
my @pm_names = qw ( PDL.pm Lite.pm LiteF.pm AutoLoader.pm Options.pm
Matrix.pm Reduce.pm Lvalue.pm);
my %pm = map { $h = '$(INST_LIBDIR)/';
$h .= 'PDL/' if $_ !~ /PDL.pm$/;
( $_, $h . $_ );
} ( @pm_names, $defstartup );
my %man3pods = map { $h = '$(INST_MAN3DIR)/';
$h .= 'PDL::' if $_ !~ /PDL.pm$/;
( $_, $h . substr($_,0,length($_)-3) . '.$(MAN3EXT)' );
} @pm_names;
WriteMakefile(
'NAME' => 'PDL',
'VERSION_FROM' => 'Core/Version.pm',
'PM' => \%pm,
'MAN3PODS' => \%man3pods,
'DIR' => ['Pod','Gen','SourceFilter','Core','Bad','Ops','Ufunc',
'Primitive','Slices','Test','Math','MatrixOps','Complex'],
);
# modify clean method not to delete files named 'core'
package MY; # so that "SUPER" works right
sub clean {
my $inherited = shift->SUPER::clean(@_);
$inherited =~ s/\s+core\s/ /;
# print STDERR "processed list :\n$inherited\n";
$inherited;
}
package main;
|
