12 Rand_True * T_CATSTRUCT
13 Rand_DSA * T_CATSTRUCT
16 MP_Barrett * T_CATSTRUCT
19 MP_Prime_Filter * T_CATSTRUCT
20 MP_Prime_Rabin * T_CATSTRUCT
21 MP_Prime_Gen_Event * T_CATSTRUCT
22 MP_Prime_Gen_Proc * T_PGENPROC
23 MP_Prime_Gen_NullProc * T_NULLPGENPROC
24 MP_Prime_Gen_MagicProc * T_CATSTRUCT
25 MP_Prime_Gen_FilterStepper * T_CATSTRUCT
26 MP_Prime_Gen_JumpStepper * T_CATSTRUCT
27 MP_Prime_Gen_RabinTester * T_CATSTRUCT
29 Key_File * T_CATSTRUCT
30 Key_Data * T_CATSTRUCT
37 $var = mp_fromsv($arg, \"$var\", 0, 0)
39 if (sv_derived_from($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\"))
40 $var = ($type)SvIV((SV *)SvRV($arg));
42 croak(\"$var is not of type ${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\")
44 if (sv_derived_from($arg, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\"))
45 $var = ($type)SvIV((SV *)SvRV($arg));
47 croak(\"$var is not of type ${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\")
49 if (sv_derived_from($arg, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\"))
50 $var = ($type)SvIV((SV *)SvRV($arg));
52 croak(\"$var is not of type ${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\")
54 if (sv_derived_from($arg, \"Catacomb::KeySize\"))
55 $var = (keysize *)SvIV((SV *)SvRV($arg));
57 croak(\"$var is not of type Catacomb::KeySize\")
59 if (sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
62 croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\")
65 sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
68 croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\")
73 sv_setref_pv($arg, \"Catacomb::MP\", (void*)$var);
78 sv_setref_pv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", (void *)$var);
83 sv_setref_pv($arg, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\", (void *)$var);
88 sv_setref_pv($arg, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\", (void *)$var);
93 sv_setref_pv($arg, \"Catacomb::KeySize\", (void *)$var);