2 %typemap
(in
) double const
[] {
8 croak
("Math::GSL : $input is not a reference!");
9 if
(SvTYPE
(SvRV
($input
)) != SVt_PVAV
)
10 croak
("Math::GSL : $input is not an array ref!");
12 tempav
= (AV
*)SvRV
($input
);
14 $
1 = (double
*) malloc
((len
+1)*sizeof
(double
));
15 for
(i
= 0; i
<= len
; i
++) {
16 tv
= av_fetch
(tempav
, i
, 0);
17 $
1[i
] = (double
) SvNV
(*tv
);
20 %apply double const
[] { double
*data
};
21 %apply double const
[] { double x
[] };
23 %typemap
(argout
) double const
[] {
24 printf
("argout double const\n");