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

finish the initial jstring support

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8207 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2006-01-04 07:43:03 +00:00
commit 50e243ee28
3 changed files with 27 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
SWIG/Examples/perl5/java/Makefile
View file

@ -9,7 +9,7 @@ LIBS = -lm
all:: Example.class
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' CXX="gcj" CFLAGS="-fPIC" \
CXXSHARED="gcj -fPIC -shared Example.class" PERL5_CCFLAGS='' PERL5_EXP='' perl5_cpp
CXXSHARED="gcj -fPIC -shared Example.class -lstdc++ " PERL5_CCFLAGS='' PERL5_EXP='' perl5_cpp
clean::

3
SWIG/Examples/perl5/java/runme.pl
View file

@ -22,5 +22,8 @@ $e3 = $e1->Add($e1,$e2);
print $e3->{mPublicInt},"\n";
$s = $e2->Add("a","b");
print $s,"\n";
example::JvDetachCurrentThread()

24
SWIG/Lib/perl5/jstring.i
View file

@ -4,6 +4,14 @@
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;
}
}
@ -12,8 +20,22 @@ SWIG_AsVal_dec(jstring)(SV *obj, jstring *val)
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 + 1, char);
JvGetStringUTFRegion(val, 0, len, tmp);
tmp[len] = 0;
sv_setpv(obj, tmp);
SvUTF8_on(obj);
%delete_array(tmp);
}
}
return obj;
}
}