diff options
Diffstat (limited to 'src/typemap')
-rw-r--r-- | src/typemap | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/typemap b/src/typemap new file mode 100644 index 0000000..ca1600e --- /dev/null +++ b/src/typemap @@ -0,0 +1,14 @@ +TYPEMAP +VIWIN T_VIOBJNOMUNGE +VIBUF T_VIOBJNOMUNGE + +INPUT +T_VIOBJNOMUNGE + if (sv_isa($arg, \"${ntype}\")) { + IV tmp = SvIV((SV*)SvRV($arg)); + $var = INT2PTR($type, tmp); + if (!tmp) + croak(\"$ntype no longer exists\"); + } + else + croak(\"$var is not of type ${ntype}\") |