From 3915e7bd08c2e7cbe76a8f4363c6874be4302d2c Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Fri, 15 Jun 2018 06:57:53 +0100 Subject: Remove final remnants of GCJ - jstring.i --- Lib/perl5/jstring.i | 48 ------------------------------------------------ 1 file changed, 48 deletions(-) delete mode 100644 Lib/perl5/jstring.i (limited to 'Lib/perl5') diff --git a/Lib/perl5/jstring.i b/Lib/perl5/jstring.i deleted file mode 100644 index 1c179b754..000000000 --- a/Lib/perl5/jstring.i +++ /dev/null @@ -1,48 +0,0 @@ -%include - -%fragment(SWIG_AsVal_frag(jstring),"header") { -SWIGINTERN int -SWIG_AsVal_dec(jstring)(SV *obj, jstring *val) -{ - if (SvPOK(obj)) { - if (val) { - STRLEN len = 0; - char *cstr = SvPV(obj, len); - *val = JvNewStringLatin1(cstr, len); - } - return SWIG_OK; - } - return SWIG_ERROR; -} -} - -%fragment(SWIG_From_frag(jstring),"header") { -SWIGINTERNINLINE SV * -SWIG_From_dec(jstring)(jstring val) -{ - SV *obj = sv_newmortal(); - if (!val) { - sv_setsv(obj, &PL_sv_undef); - } else { - jsize len = JvGetStringUTFLength(val); - if (!len) { - sv_setsv(obj, &PL_sv_undef); - } else { - char *tmp = %new_array(len, char); - JvGetStringUTFRegion(val, 0, len, tmp); - sv_setpvn(obj, tmp, len); - SvUTF8_on(obj); - %delete_array(tmp); - } - } - return obj; -} -} - -%typemaps_asvalfrom(%checkcode(STRING), - %arg(SWIG_AsVal(jstring)), - %arg(SWIG_From(jstring)), - %arg(SWIG_AsVal_frag(jstring)), - %arg(SWIG_From_frag(jstring)), - java::lang::String *); - -- cgit v1.2.1