1 %module
"Math::GSL::Deriv"
4 %typemap
(in
) gsl_function
* {
6 fprintf
(stderr
,"gsl_func \n");
7 fprintf
(stderr
, "HAI %d\n", (int
) $
1->params
);
8 fprintf
(stderr
, "HAI %d\n", (int
) $
1->function
);
15 %typemap
(in
) double
(*)(double
,void
*) {
16 printf
("function pointer * %d \n", (int
) $
1);
17 printf
("input * %d \n", (int
) $input
);
18 Perl_sv_dump
( $input
);
21 //%apply double
* OUTPUT { double
*result
,double
*abserr
};
24 #include
"gsl/gsl_math.h"
25 #include
"gsl/gsl_deriv.h"
28 %include
"gsl/gsl_math.h"
29 %include
"gsl/gsl_deriv.h"
37 %EXPORT_TAGS
= ( all
=> [ @EXPORT_OK
] );