19 Rand_True * T_CATSTRUCT
20 Rand_DSA * T_CATSTRUCT
23 MP_Barrett * T_CATSTRUCT
26 MP_Reduce * T_CATSTRUCT
27 GF_Reduce * T_CATSTRUCT
28 MP_Prime_Filter * T_CATSTRUCT
29 MP_Prime_Rabin * T_CATSTRUCT
30 MP_Prime_Gen_Event * T_CATSTRUCT
31 MP_Prime_Gen_Proc * T_PGENPROC
32 MP_Prime_Gen_NullProc * T_NULLPGENPROC
33 MP_Prime_Gen_MagicProc * T_CATSTRUCT
34 MP_Prime_Gen_FilterStepper * T_CATSTRUCT
35 MP_Prime_Gen_JumpStepper * T_CATSTRUCT
36 MP_Prime_Gen_RabinTester * T_CATSTRUCT
38 Key_File * T_CATSTRUCT
39 Key_Data * T_CATSTRUCT
46 $var = mp_fromsv($arg, \"$var\", \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\", 0, 0)
48 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\");
50 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\", \"$var\");
52 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\", \"$var\");
54 $var = ptrfromsv($arg, \"Catacomb::KeySize\", \"$var\");
56 if (sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
59 croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\")
62 sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
65 croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\")
69 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\");
71 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\");
73 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\");
75 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\");
77 ptrtosv(&$arg, (octet *)$var, \"Catacomb::KeySize\");