loncom/homework/caparesponse/capa.i - diff

Return to capa.i CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.4, 2004/03/13 00:23:27	version 1.5, 2004/03/22 01:43:28
Line 5	Line 5

%typemap(perl5,in) char** reterror (char* cvalue) {	%typemap(perl5,in) char** reterror (char* cvalue) {
SV* tempsv;	SV* tempsv;
	int len;
if (!SvROK($source)) {	if (!SvROK($source)) {
croak("expected a reference\n");	croak("expected a reference\n");
}	}
Line 12	Line 13
if ((!SvPOK(tempsv))) {	if ((!SvPOK(tempsv))) {
croak("expected a double reference\n");	croak("expected a double reference\n");
}	}
int len;
cvalue = SvPV(tempsv,len);	cvalue = SvPV(tempsv,len);
$target = &cvalue;	$target = &cvalue;
}	}