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

add jstring.i for ruby

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8138 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-12-30 10:51:35 +00:00
commit dc915a44a1
4 changed files with 54 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

45
Lib/ruby/jstring.i Normal file
View file

@ -0,0 +1,45 @@
%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(obj)->len;
*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 *);