Fix typemap for older Perls.

[catacomb-perl] / typemap

TYPEMAP
const char *			T_PV

mp *				T_MP
gf *				T_MP
GE *				T_CATSTRUCT
EC_Point *			T_CATSTRUCT
EC_Curve *			T_CATSTRUCT
EC_Info *			T_CATSTRUCT
Field *				T_CATSTRUCT
Group *				T_CATSTRUCT
gccipher *			T_GCALG
gchash *			T_GCALG
gcMAC *				T_GCALG
gcipher *			T_GALG
ghash *				T_GALG
gMAC *				T_GALG
grand *				T_GALG
keysize *			T_KEYSZ

Rand_True *			T_CATSTRUCT
Rand_DSA *			T_CATSTRUCT

MP_Mont	*			T_CATSTRUCT
MP_Barrett *			T_CATSTRUCT
MP_Mul *			T_CATSTRUCT
MP_CRT *			T_CATSTRUCT
MP_Reduce *			T_CATSTRUCT
GF_Reduce *			T_CATSTRUCT
MP_Prime_Filter *		T_CATSTRUCT
MP_Prime_Rabin *		T_CATSTRUCT
MP_Prime_Gen_Event *		T_CATSTRUCT
MP_Prime_Gen_Proc *		T_PGENPROC
MP_Prime_Gen_NullProc *		T_NULLPGENPROC
MP_Prime_Gen_MagicProc *	T_CATSTRUCT
MP_Prime_Gen_FilterStepper *	T_CATSTRUCT
MP_Prime_Gen_JumpStepper *	T_CATSTRUCT
MP_Prime_Gen_RabinTester *	T_CATSTRUCT

Key_File *			T_CATSTRUCT
Key_Data *			T_CATSTRUCT
Key *				T_CATSTRUCT

KeyErr				T_KEYERR

INPUT
T_MP
	$var = mp_fromsv($arg, \"$var\", \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\", 0, 0)
T_CATSTRUCT
	$var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\")
T_GALG
	$var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\", \"$var\")
T_GCALG
	$var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\", \"$var\")
T_KEYSZ
	$var = ptrfromsv($arg, \"Catacomb::KeySize\", \"$var\")
T_PGENPROC
	if (sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
	  $var = $arg;
	else
	  croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\");
T_NULLPGENPROC
	if (!SvOK($arg) || 
	    sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
	  $var = $arg;
	else
	  croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\");

OUTPUT
T_MP
	ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\");
T_CATSTRUCT
	ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\");
T_GALG
	ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\");
T_GCALG
	ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\");
T_KEYSZ
	ptrtosv(&$arg, (octet *)$var, \"Catacomb::KeySize\");
T_PGENPROC
	$arg = $var;
T_KEYERR
	$arg = keyerr($var);