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.4, 2004/03/13 00:23:27
Line 3	Line 3

%}	%}

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

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