jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove final remnants of GCJ - jstring.i

Browse source
This commit is contained in:
William S Fulton 2018-06-15 06:57:53 +01:00
commit 3915e7bd08
4 changed files with 0 additions and 206 deletions
Download patch file Download diff file Expand all files Collapse all files

48
Lib/perl5/jstring.i
View file

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

72
Lib/python/jstring.i
View file

@ -1,72 +0,0 @@
%include <typemaps/valtypes.swg>
%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 *);

44
Lib/ruby/jstring.i
View file

@ -1,44 +0,0 @@
%include <typemaps/valtypes.swg>
%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 *);

42
Lib/tcl/jstring.i
View file

@ -1,42 +0,0 @@
%include <typemaps/valtypes.swg>
%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 *);