660b443c |
1 | TYPEMAP |
ef3af890 |
2 | const char * T_PV |
3 | |
660b443c |
4 | mp * T_MP |
a1a90aaf |
5 | gf * T_MP |
a1a90aaf |
6 | EC_Curve * T_CATSTRUCT |
7 | EC_Info * T_CATSTRUCT |
8 | Field * T_CATSTRUCT |
9 | Group * T_CATSTRUCT |
660b443c |
10 | gccipher * T_GCALG |
11 | gchash * T_GCALG |
12 | gcMAC * T_GCALG |
13 | gcipher * T_GALG |
14 | ghash * T_GALG |
15 | gMAC * T_GALG |
16 | grand * T_GALG |
17 | keysize * T_KEYSZ |
18 | |
fcd15e0b |
19 | fe * T_FIELDELT |
20 | ec * T_ECPT |
21 | ge * T_GROUPELT |
22 | |
660b443c |
23 | Rand_True * T_CATSTRUCT |
24 | Rand_DSA * T_CATSTRUCT |
25 | |
fcd15e0b |
26 | Share_GF * T_CATSTRUCT |
27 | Share_Prime * T_CATSTRUCT |
28 | |
29 | PRP * T_CATSTRUCT |
30 | PRPClass * T_CATSTRUCT |
31 | |
660b443c |
32 | MP_Mont * T_CATSTRUCT |
33 | MP_Barrett * T_CATSTRUCT |
34 | MP_Mul * T_CATSTRUCT |
35 | MP_CRT * T_CATSTRUCT |
a1a90aaf |
36 | MP_Reduce * T_CATSTRUCT |
37 | GF_Reduce * T_CATSTRUCT |
660b443c |
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 |
47 | |
48 | Key_File * T_CATSTRUCT |
bfdf19cb |
49 | Key_Data * T_KEYDATA |
fcd15e0b |
50 | Key_AttrIter * T_CATSTRUCT |
51 | Key_StructIter * T_CATSTRUCT |
52 | Key_FileIter * T_CATSTRUCT |
53 | Key_Filter * T_CATSTRUCTUNDEF |
660b443c |
54 | Key * T_CATSTRUCT |
660b443c |
55 | KeyErr T_KEYERR |
56 | |
fcd15e0b |
57 | RSA_Public * T_CATSTRUCT |
58 | RSA_Private * T_CATSTRUCT |
59 | |
660b443c |
60 | INPUT |
61 | T_MP |
fcd15e0b |
62 | $var = mp_fromsv($arg, \"$var\", 0, 0) |
660b443c |
63 | T_CATSTRUCT |
ef3af890 |
64 | $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\") |
fcd15e0b |
65 | T_CATSTRUCTUNDEF |
66 | $var = SvOK($arg) ? ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\") : 0 |
67 | T_FIELDELT |
68 | $var = fieldelt($arg, \"$var\") |
69 | T_GROUPELT |
70 | $var = groupelt($arg, \"$var\") |
71 | T_ECPT |
72 | $var = ecpt($arg, \"$var\") |
660b443c |
73 | T_GALG |
ef3af890 |
74 | $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\", \"$var\") |
660b443c |
75 | T_GCALG |
ef3af890 |
76 | $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\", \"$var\") |
660b443c |
77 | T_KEYSZ |
ef3af890 |
78 | $var = ptrfromsv($arg, \"Catacomb::KeySize\", \"$var\") |
bfdf19cb |
79 | T_KEYDATA |
80 | $var = ptrfromsv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", \"$var\") |
660b443c |
81 | T_PGENPROC |
82 | if (sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\")) |
83 | $var = $arg; |
84 | else |
ef3af890 |
85 | croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\"); |
660b443c |
86 | T_NULLPGENPROC |
87 | if (!SvOK($arg) || |
88 | sv_derived_from($arg, \"Catacomb::MP::Prime::Gen::Proc\")) |
89 | $var = $arg; |
90 | else |
ef3af890 |
91 | croak(\"$var is not of type Catacomb::MP::Prime::Gen::Proc\"); |
660b443c |
92 | |
93 | OUTPUT |
94 | T_MP |
a1a90aaf |
95 | ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\"); |
660b443c |
96 | T_CATSTRUCT |
a1a90aaf |
97 | ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\"); |
fcd15e0b |
98 | T_CATSTRUCTUNDEF |
99 | ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\"); |
100 | T_FIELDELT |
101 | ptrtosv(&$arg, $var, \"Catacomb::MP\"); |
102 | T_GROUPELT |
103 | ptrtosv(&$arg, $var, \"Catacomb::Group::Element\"); |
104 | T_ECPT |
105 | ptrtosv(&$arg, $var, \"Catacomb::EC::Point\"); |
660b443c |
106 | T_GALG |
a1a90aaf |
107 | ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^g(.*)Ptr$/Catacomb::\u$1/; \$ntt}\"); |
660b443c |
108 | T_GCALG |
fcd15e0b |
109 | ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^gc(.*)Ptr$/Catacomb::\u$1Class/; \$ntt}\"); |
660b443c |
110 | T_KEYSZ |
a1a90aaf |
111 | ptrtosv(&$arg, (octet *)$var, \"Catacomb::KeySize\"); |
660b443c |
112 | T_PGENPROC |
113 | $arg = $var; |
660b443c |
114 | T_KEYERR |
115 | $arg = keyerr($var); |
bfdf19cb |
116 | T_KEYDATA |
117 | ptrtosv(&$arg, $var, keydata_type($var)); |