Remove final remnants of GCJ - jstring.i

1 files changed, 0 insertions, 48 deletions

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 <typemaps/valtypes.swg>
-
-%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 *);
-