version 1.2, 2001/10/29 21:15:44
|
version 1.5, 2004/03/22 01:43:28
|
Line 2
|
Line 2
|
%{ |
%{ |
|
|
%} |
%} |
|
|
|
%typemap(perl5,in) char** reterror (char* cvalue) { |
|
SV* tempsv; |
|
int len; |
|
if (!SvROK($source)) { |
|
croak("expected a reference\n"); |
|
} |
|
tempsv = SvRV($source); |
|
if ((!SvPOK(tempsv))) { |
|
croak("expected a double reference\n"); |
|
} |
|
cvalue = SvPV(tempsv,len); |
|
$target = &cvalue; |
|
} |
|
|
|
%typemap(perl5,argout) char ** reterror { |
|
SV *tempsv; |
|
tempsv = SvRV($arg); |
|
if (($source!=NULL) && (*$source!=NULL)) { |
|
sv_setpv(tempsv, *$source); |
|
free(*$source); |
|
} |
|
} |
extern int caparesponse_capa_check_answer(char *response,char *correct, |
extern int caparesponse_capa_check_answer(char *response,char *correct, |
int type,int tol_type,double tolerance, |
int type,int tol_type,double tolerance, |
int sig_lbound,int sig_ubound, |
int sig_lbound,int sig_ubound, |
char *ans_fmt, char *unit_str, |
char *ans_fmt, char *unit_str, |
int calc, char *id_list, char *pts_list, |
int calc, char *id_list, char *pts_list, |
char *rndseed); |
char *rndseed, char** reterror); |