~mdw
/
catacomb-perl
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a1a90aa
)
Fix typemap for older Perls.
author
mdw
<mdw>
Fri, 8 Oct 2004 08:39:16 +0000
(08:39 +0000)
committer
mdw
<mdw>
Fri, 8 Oct 2004 08:39:16 +0000
(08:39 +0000)
typemap
patch
|
blob
|
blame
|
history
diff --git
a/typemap
b/typemap
index
e28ed73
..
f18025c
100644
(file)
--- a/
typemap
+++ b/
typemap
@@
-1,4
+1,6
@@
TYPEMAP
TYPEMAP
+const char * T_PV
+
mp * T_MP
gf * T_MP
GE * T_CATSTRUCT
mp * T_MP
gf * T_MP
GE * T_CATSTRUCT
@@
-45,24
+47,24
@@
INPUT
T_MP
$var = mp_fromsv($arg, \"$var\", \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::\U$1/; $ntt =~ s/_/::/g; \$ntt}\", 0, 0)
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
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
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
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
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
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
OUTPUT
T_MP