Add support for cdata library for Java

CHANGES.current

@@ -5,6 +5,9 @@ See the RELEASENOTES file for a summary of changes in each release.
 Version 3.0.0 (in progress)
 ============================
 
+2014-02-15: wsfulton
+            [Java] Add support for the cdata library.
+
 2014-02-06: gjanssens
             [Guile] Patch #133. Make scm to string conversion work with non-ascii strings.
             Guile 2 has a completely rewritten string implementation. SWIG made some assumptions

Examples/test-suite/java/li_cdata_runme.java

@@ -0,0 +1,24 @@
+import li_cdata.*;
+
+public class li_cdata_runme {
+
+  static {
+    try {
+        System.loadLibrary("li_cdata");
+    } catch (UnsatisfiedLinkError e) {
+      System.err.println("Native code library failed to load. See the chapter on Dynamic Linking Problems in the SWIG Java documentation for help.\n" + e);
+      System.exit(1);
+    }
+  }
+
+  public static void main(String argv[]) throws Throwable
+  {
+    byte[] s = "ABC abc".getBytes();
+    SWIGTYPE_p_void m = li_cdata.malloc(256);
+    li_cdata.memmove(m, s);
+    byte[] ss = li_cdata.cdata(m, 7);
+    String ss_string = new String(ss);
+    if (!ss_string.equals("ABC abc"))
+      throw new RuntimeException("failed got: " + ss_string);
+  }
+}

Lib/cdata.i

@@ -20,17 +20,50 @@ typedef struct SWIGCDATA {
    $result = scm_from_locale_stringn($1.data,$1.len);
 }
 %typemap(in) (const void *indata, int inlen) = (char *STRING, int LENGTH);
+
 #elif SWIGCHICKEN
+
 %typemap(out) SWIGCDATA {
   C_word *string_space = C_alloc(C_SIZEOF_STRING($1.len));
   $result = C_string(&string_space, $1.len, $1.data);
 }
 %typemap(in) (const void *indata, int inlen) = (char *STRING, int LENGTH);
+
 #elif SWIGPHP
+
 %typemap(out) SWIGCDATA {
   ZVAL_STRINGL($result, $1.data, $1.len, 1);
 }
 %typemap(in) (const void *indata, int inlen) = (char *STRING, int LENGTH);
+
+#elif SWIGJAVA
+
+%apply (char *STRING, int LENGTH) { (const void *indata, int inlen) }
+%typemap(jni) SWIGCDATA "jbyteArray"
+%typemap(jtype) SWIGCDATA "byte[]"
+%typemap(jstype) SWIGCDATA "byte[]"
+%fragment("SWIG_JavaArrayOutCDATA", "header") {
+static jbyteArray SWIG_JavaArrayOutCDATA(JNIEnv *jenv, char *result, jsize sz) {
+  jbyte *arr;
+  int i;
+  jbyteArray jresult = JCALL1(NewByteArray, jenv, sz);
+  if (!jresult)
+    return NULL;
+  arr = JCALL2(GetByteArrayElements, jenv, jresult, 0);
+  if (!arr)
+    return NULL;
+  for (i=0; i<sz; i++)
+    arr[i] = (jbyte)result[i];
+  JCALL3(ReleaseByteArrayElements, jenv, jresult, arr, 0);
+  return jresult;
+}
+}
+%typemap(out, fragment="SWIG_JavaArrayOutCDATA") SWIGCDATA
+%{$result = SWIG_JavaArrayOutCDATA(jenv, (char *)$1.data, $1.len); %}
+%typemap(javaout) SWIGCDATA {
+    return $jnicall;
+  }
+
 #else
 %echo "cdata.i module not supported."
 #endif