TYPEMAP
+const char * T_PV
+
mp * T_MP
gf * T_MP
GE * T_CATSTRUCT
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\");
+ $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\");
+ $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\");
+ $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\", \"$var\")
T_KEYSZ
- $var = ptrfromsv($arg, \"Catacomb::KeySize\", \"$var\");
+ $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\")
+ 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\")
+ croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\");
OUTPUT
T_MP