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 *); - diff --git a/Lib/python/jstring.i b/Lib/python/jstring.i deleted file mode 100644 index bda95237b..000000000 --- a/Lib/python/jstring.i +++ /dev/null @@ -1,72 +0,0 @@ -%include - -%fragment(SWIG_AsVal_frag(jstring),"header") { -SWIGINTERN int -SWIG_AsVal(jstring)(PyObject *obj, jstring *val) -{ - if (obj == Py_None) { - if (val) *val = 0; - return SWIG_OK; - } - - PyObject *tmp = 0; - int isunicode = PyUnicode_Check(obj); - if (!isunicode && PyString_Check(obj)) { - if (val) { - obj = tmp = PyUnicode_FromObject(obj); - } - isunicode = 1; - } - if (isunicode) { - if (val) { - if (sizeof(Py_UNICODE) == sizeof(jchar)) { - *val = JvNewString((const jchar *) PyUnicode_AS_UNICODE(obj),PyUnicode_GET_SIZE(obj)); - return SWIG_NEWOBJ; - } else { - int len = PyUnicode_GET_SIZE(obj); - Py_UNICODE *pchars = PyUnicode_AS_UNICODE(obj); - *val = JvAllocString (len); - jchar *jchars = JvGetStringChars (*val); - for (int i = 0; i < len; ++i) { - jchars[i] = pchars[i]; - } - return SWIG_NEWOBJ; - } - } - Py_XDECREF(tmp); - return SWIG_OK; - } - return SWIG_TypeError; -} -} - -%fragment(SWIG_From_frag(jstring),"header") { -SWIGINTERNINLINE PyObject * -SWIG_From(jstring)(jstring val) -{ - if (!val) { - return SWIG_Py_Void(); - } - if (sizeof(Py_UNICODE) == sizeof(jchar)) { - return PyUnicode_FromUnicode((const Py_UNICODE *) JvGetStringChars(val), - JvGetStringUTFLength(val)); - } else { - int len = JvGetStringUTFLength(val); - Py_UNICODE pchars[len]; - jchar *jchars = JvGetStringChars(val); - - for (int i = 0; i < len; i++) { - pchars[i] = jchars[i]; - } - return PyUnicode_FromUnicode((const Py_UNICODE *) pchars, len); - } -} -} - -%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 *); - diff --git a/Lib/ruby/jstring.i b/Lib/ruby/jstring.i deleted file mode 100644 index 17efa978d..000000000 --- a/Lib/ruby/jstring.i +++ /dev/null @@ -1,44 +0,0 @@ -%include - -%fragment(SWIG_AsVal_frag(jstring),"header") { -SWIGINTERN int -SWIG_AsVal(jstring)(VALUE obj, jstring *val) -{ - if (NIL_P(obj)){ - if (val) *val = 0; - return SWIG_OK; - } - if (TYPE(obj) == T_STRING) { - if (val) { - char *cstr = rb_string_value_ptr(&(obj)); - jsize len = RSTRING_LEN(obj); - *val = JvNewStringLatin1(cstr, len); - } - return SWIG_NEWOBJ; - } - return SWIG_TypeError; -} -} - -%fragment(SWIG_From_frag(jstring),"header") { -SWIGINTERNINLINE VALUE -SWIG_From(jstring)(jstring val) -{ - if (!val) { - return Qnil; - } else { - jint len = JvGetStringUTFLength(val); - char buf[len]; - JvGetStringUTFRegion(val, 0, len, buf); - return rb_str_new(buf,len); - } -} -} - -%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 *); - diff --git a/Lib/tcl/jstring.i b/Lib/tcl/jstring.i deleted file mode 100644 index 7fb7b89fe..000000000 --- a/Lib/tcl/jstring.i +++ /dev/null @@ -1,42 +0,0 @@ -%include - -%fragment(SWIG_AsVal_frag(jstring),"header") { -SWIGINTERN int -SWIG_AsVal_dec(jstring)(Tcl_Obj * obj, jstring *val) -{ - int len = 0; - const char *cstr = Tcl_GetStringFromObj(obj, &len); - if (!cstr || (strcmp(cstr,"NULL") == 0)) { - if (val) *val = 0; - return SWIG_OK; - } else { - int len = 0; - const Tcl_UniChar *ucstr = Tcl_GetUnicodeFromObj(obj,&len); - if (val) { - *val = JvNewString((const jchar*)ucstr, len); - } - } - - return SWIG_NEWOBJ; -} -} - -%fragment(SWIG_From_frag(jstring),"header") { -SWIGINTERNINLINE Tcl_Obj * -SWIG_From_dec(jstring)(jstring val) -{ - if (!val) { - return Tcl_NewStringObj("NULL",-1); - } else { - return Tcl_NewUnicodeObj((Tcl_UniChar *)JvGetStringChars(val),JvGetStringUTFLength(val)); - } -} -} - -%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 *); -