23 Rand_True * T_CATSTRUCT
24 Rand_DSA * T_CATSTRUCT
26 Share_GF * T_CATSTRUCT
27 Share_Prime * T_CATSTRUCT
30 PRPClass * T_CATSTRUCT
33 MP_Barrett * T_CATSTRUCT
36 MP_Reduce * T_CATSTRUCT
37 GF_Reduce * T_CATSTRUCT
38 MP_Prime_Filter * T_CATSTRUCT
39 MP_Prime_Rabin * T_CATSTRUCT
40 MP_Prime_Gen_Event * T_CATSTRUCT
41 MP_Prime_Gen_Proc * T_PGENPROC
42 MP_Prime_Gen_NullProc * T_NULLPGENPROC
43 MP_Prime_Gen_MagicProc * T_CATSTRUCT
44 MP_Prime_Gen_FilterStepper * T_CATSTRUCT
45 MP_Prime_Gen_JumpStepper * T_CATSTRUCT
46 MP_Prime_Gen_RabinTester * T_CATSTRUCT
48 Key_File * T_CATSTRUCT
50 Key_AttrIter * T_CATSTRUCT
51 Key_StructIter * T_CATSTRUCT
52 Key_FileIter * T_CATSTRUCT
53 Key_Filter * T_CATSTRUCTUNDEF
57 RSA_Public * T_CATSTRUCT
58 RSA_Private * T_CATSTRUCT
62 $var = mp_fromsv($arg, \"$var\", 0, 0)
64 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\")
66 $var = SvOK($arg) ? ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\") : 0
68 $var = fieldelt($arg, \"$var\")
70 $var = groupelt($arg, \"$var\")
72 $var = ecpt($arg, \"$var\")
74 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\", \"$var\")
76 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\", \"$var\")
78 $var = ptrfromsv($arg, \"Catacomb::KeySize\", \"$var\")
80 $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\")
82 if (sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
85 croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\");
88 sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\"))
91 croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\");
95 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\");
97 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\");
99 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\");
101 ptrtosv(&$arg, $var, \"Catacomb::MP\");
103 ptrtosv(&$arg, $var, \"Catacomb::Group::Element\");
105 ptrtosv(&$arg, $var, \"Catacomb::EC::Point\");
107 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\");
109 ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\");
111 ptrtosv(&$arg, (octet *)$var, \"Catacomb::KeySize\");
117 ptrtosv(&$arg, $var, keydata_type($var));