File Manager

X7ROOT File Manager

Current Path: /usr/share/swig/2.0.10/perl5

📁 ..
📄 Makefile.pl(691 B)
📄 attribute.i(34 B)
📄 carrays.i(33 B)
📄 cdata.i(30 B)
📄 cmalloc.i(32 B)
📄 cni.i(150 B)
📄 cpointer.i(33 B)
📄 cstring.i(32 B)
📄 exception.i(138 B)
📄 factory.i(32 B)
📄 jstring.i(1.02 KB)
📄 noembed.h(1.54 KB)
📄 perl5.swg(1.44 KB)
📄 perlerrors.swg(871 B)
📄 perlfragments.swg(556 B)
📄 perlhead.swg(2.55 KB)
📄 perlinit.swg(1.94 KB)
📄 perlkw.swg(3.78 KB)
📄 perlmacros.swg(36 B)
📄 perlmain.i(1.94 KB)
📄 perlopers.swg(1.83 KB)
📄 perlprimtypes.swg(7.47 KB)
📄 perlrun.swg(14.23 KB)
📄 perlruntime.swg(326 B)
📄 perlstrings.swg(1.39 KB)
📄 perltypemaps.swg(2.74 KB)
📄 perluserdir.swg(36 B)
📄 reference.i(7.08 KB)
📄 std_common.i(617 B)
📄 std_deque.i(28 B)
📄 std_except.i(35 B)
📄 std_list.i(14.04 KB)
📄 std_map.i(2.28 KB)
📄 std_pair.i(703 B)
📄 std_string.i(62 B)
📄 std_vector.i(22.3 KB)
📄 stl.i(356 B)
📄 typemaps.i(12.48 KB)

Editing: jstring.i

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

X7ROOT File Manager

Editing: jstring.i

Upload File

Create Folder