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);