21 Rand_True * T_CATSTRUCT
22 Rand_DSA * T_CATSTRUCT
25 MP_Barrett * T_CATSTRUCT
28 MP_Reduce * T_CATSTRUCT
29 GF_Reduce * T_CATSTRUCT
30 MP_Prime_Filter * T_CATSTRUCT
31 MP_Prime_Rabin * T_CATSTRUCT
32 MP_Prime_Gen_Event * T_CATSTRUCT
33 MP_Prime_Gen_Proc * T_PGENPROC
34 MP_Prime_Gen_NullProc * T_NULLPGENPROC
35 MP_Prime_Gen_MagicProc * T_CATSTRUCT
36 MP_Prime_Gen_FilterStepper * T_CATSTRUCT
37 MP_Prime_Gen_JumpStepper * T_CATSTRUCT
38 MP_Prime_Gen_RabinTester * T_CATSTRUCT
40 Key_File * T_CATSTRUCT
41 Key_Data * T_CATSTRUCT
48 $var = mp_fromsv($arg, \"$var\", \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\", 0, 0)
50 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\")
52 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\", \"$var\")
54 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\", \"$var\")
56 $var = ptrfromsv($arg, \"Catacomb::KeySize\", \"$var\")
58 if (sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
61 croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\");
64 sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
67 croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\");
71 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\");
73 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\");
75 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\");
77 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\");
79 ptrtosv(&$arg, (octet *)$var, \"Catacomb::KeySize\");