/trunk/Lib/perl5/jstring.i
# · Swig · 48 lines · 44 code · 4 blank · 0 comment · 0 complexity · 496c46f5032b0677224af907c6590cdc MD5 · raw file
- %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 *);