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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
# Makefile.PL for PDL::Primitive module.
# Use this as a template for the Makefile.PL for
# any external PDL module.
use ExtUtils::MakeMaker;
PDL::Core::Dev->import();
# Files for each routine (.c assumed)
%FileToUse = qw( acosh acosh asinh asinh atanh atanh
erf ndtr erfc ndtr j0 j0 j1 j1 jn jn
y0 j0 y1 j1 yn yn ndtri ndtri
blas blas eigens eigens simq simq rint rint
);
%included = ();
# test for library features
my (@ufuncs2) = qw(acosh asinh atanh erf erfc rint);
my (@besufuncs) = qw(j0 j1 y0 y1);
my (@besbifuncs) = qw(jn yn);
@need = qw(ndtri blas eigens simq); # List of routine we need because system
# does not have them
# Test for absence of unary functions
foreach (@ufuncs2) {
open FILE,'>/tmp/t.c';
print FILE <<"EOF";
#include <math.h>
#include <stdio.h>
main() {printf("%lg",$_(1.));}
EOF
close FILE;
push @need, $_ if system('cc -o /tmp/t /tmp/t.c -lm>/dev/null 2>&1')!=0;
}
# Test for absence of besfuncs
foreach (@besufuncs) {
open FILE,'>/tmp/t.c';
print FILE <<"EOF";
#include <math.h>
#include <stdio.h>
main() {printf("%lg",$_(1.));}
EOF
close FILE;
push @need, $_ if system('cc -o /tmp/t /tmp/t.c -lm>/dev/null 2>&1')!=0;
}
foreach (@besbifuncs) {
open FILE,'>/tmp/t.c';
print FILE <<"EOF";
#include <math.h>
#include <stdio.h>
main() {printf("%lg",$_(1.,1.));}
EOF
close FILE;
push @need, $_ if system('cc -o /tmp/t /tmp/t.c -lm>/dev/null 2>&1')!=0;
}
unlink '/tmp/t','/tmp/t.c';
print "\nUsing distribution version of functions: @need\n";
print "Using system version of functions: ";
for $func (@ufuncs2,@besufuncs,@besbifuncs) {
print $func," " unless grep {$func eq $_} @need;
}
print "\n\n";
@pack = (["math.pd",Math,PDL::Math]);
%hash = pdlpp_stdargs_int(@::pack);
%seen = (); # Build object file list
for $func (@need) {
die "File for function $func not found\n" if $FileToUse{$func} eq '';
$file = $FileToUse{$func};
$hash{OBJECT} .= " $file\$(OBJ_EXT)" unless $seen{$file};
}
# Add support routines if we are using the distn versions
$hash{OBJECT} .= " const\$(OBJ_EXT) mtherr\$(OBJ_EXT) polevl\$(OBJ_EXT)"
if scalar(@need)>0;
$hash{LIBS} = ['-lm'];
WriteMakefile(%hash);
sub MY::postamble {
pdlpp_postamble_int(@::pack);
} # Add genpp rule
|
