From 5f2a1d653696ec5457bfd044f0ebcd873bfc3c80 Mon Sep 17 00:00:00 2001 From: peter Date: Sun, 11 Aug 2013 20:03:12 +0000 Subject: Update nvi-1.79 to 2.1.1-4334a8297f This is the gsoc-2011 project to clean up and backport multibyte support from other nvi forks in a form we can use. USE_WIDECHAR is on unless building for the rescue crunchgen. This should allow editing in the native locale encoding. USE_ICONV depends on make.conf having 'WITH_ICONV=YES' for now. This adds the ability to do things like edit a KOI8-R file while having $LANG set to (say) en_US.UTF-8. iconv is used to transcode the characters for display. Other points: * It uses gencat and catopen/etc instead of homegrown msg catalog stuff. * A lot of stuff has been trimmed out, eg: the perl and tcl bindings which we could never use in base anyway. * It uses ncursesw when in widechar mode. This could be interesting. GSoC info: http://www.google-melange.com/gsoc/proposal/review/google/gsoc2011/zy/1 Repo at: https://github.com/lichray/nvi2 Obtained from: Zhihao Yuan --- contrib/nvi/perl_api/typemap | 42 ------------------------------------------ 1 file changed, 42 deletions(-) delete mode 100644 contrib/nvi/perl_api/typemap (limited to 'contrib/nvi/perl_api/typemap') 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); -- cgit v1.1