loncom/homework/caparesponse/capa.i - diff

Return to capa.i CVS log

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

version 1.3, 2004/03/12 21:06:19	version 1.5, 2004/03/22 01:43:28
Line 3	Line 3

%}	%}

%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);
char *temp=SvPV(tempsv,len);	$target = &cvalue;
cvalue = &temp;
$target = cvalue;
}	}

%typemap(perl5,argout) char ** reterror {	%typemap(perl5,argout) char ** reterror {