diff options
Diffstat (limited to 'contrib/nvi/perl_api/typemap')
-rw-r--r-- | contrib/nvi/perl_api/typemap | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/contrib/nvi/perl_api/typemap b/contrib/nvi/perl_api/typemap deleted file mode 100644 index 0e38a9c..0000000 --- a/contrib/nvi/perl_api/typemap +++ /dev/null @@ -1,42 +0,0 @@ -TYPEMAP -# Grr can't let it end in OBJ 'cause xsubpp would -# s/OBJ$/REF/ that for the DESTROY function -VI T_VIOBJNOMUNGE -VI::OPT T_VIOBJREF -VI::MAP T_VIOBJREF -VI::MARK T_VIOBJREF -AVREF T_AVREFREF - -INPUT -T_AVREFREF - if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVAV) - $var = (AV *)SvRV($arg); - else - croak(\"$var is not a reference to an array\") -T_VIOBJNOMUNGE - if (sv_isa($arg, \"VI\")) { - IV tmp = SvIV((SV*)SvRV($arg)); - $var = ($type) tmp; - if (!tmp) - croak(\"screen no longer exists\"); - } - else - croak(\"$var is not of type ${ntype}\") -T_VIOBJREF - if (sv_isa($arg, \"${ntype}\")) { - IV tmp = SvIV((SV*)SvRV($arg)); - if (sv_isa((SV *)tmp, \"VI\")) { - IV tmp2 = SvIV((SV*)SvRV((SV *)tmp)); - $var = ($type) tmp2; - if (!tmp2) - croak(\"screen no longer exists\"); - } - else - croak(\"$var is not of type ${ntype}\"); - } - else - croak(\"$var is not of type ${ntype}\") - -OUTPUT -T_VIOBJNOMUNGE - newVIrv($arg, $var); |