add tcl+java example

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8140 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/CHANGES.current

@@ -3,23 +3,30 @@ Version 1.3.28 (unreleased).
 
 12/30/2005: mmatus
 
-	  - Add initial support for gcj and Java -> Python. See
+	  - Add initial support for gcj and Java -> <target language> mechanism.
 
-		  Examples/python/java
+	    See	examples in:  
 	  
-            to see how to use gcj and how to export java classes into
+		Examples/python/java
-            python.
+		Examples/ruby/java
+		Examples/tcl/java
+
+            to see how to use gcj+swig to export java classes into
+            python/ruby/tcl.
 	    
 	    The idea is to put all the common code for gcj inside
 
 	          Lib/gcj
 
-            such that it can be used from other languages.
+            and localize especific issues as jstring, as can be found
+            in
 
-	    Python provide a simple jstring.i interface, which can be
+	         Lib/python/jstring.i
-	    used as a modelo to ruby,tcl and perl, ie, the languages
+	         Lib/ruby/jstring.i
-	    that use the UTL.
+	         Lib/tcl/jstring.i
 
+            Using the UTL, this is very easy, and the perl version for
+            jstring.i will be next.
 		 	    
 
 12/29/2005: mmatus

SWIG/Examples/tcl/check.list

@@ -13,3 +13,4 @@ reference
 simple
 value
 variables
+java

SWIG/Examples/tcl/java/Example.java

@@ -0,0 +1,29 @@
+public class Example {
+    public   int      mPublicInt;
+    
+    public Example() {
+	mPublicInt = 0;
+    }
+    
+    public Example(int IntVal) {
+	mPublicInt = IntVal;
+    }
+    
+    
+    public int Add(int a, int b) {
+	return (a+b);
+    }
+    
+    public float Add(float a, float b) {
+	return (a+b);
+    }
+    
+    public String Add(String a, String b) {
+	return (a+b);
+    }
+    
+    public Example Add(Example a, Example b) {
+	return new Example(a.mPublicInt + b.mPublicInt);
+    }
+}
+

SWIG/Examples/tcl/java/Makefile

@@ -0,0 +1,28 @@
+CXX        = g++
+TOP        = ../..
+SWIG       = $(TOP)/../preinst-swig
+CXXSRCS    = 
+TARGET     = example
+INTERFACE  = example.i
+LIBS       = -lm
+
+all:: Example.class
+	$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
+	TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' CXX="gcj" CFLAGS="-fPIC" \
+	TCL_CXXSHARED="gcj -fPIC -shared Example.class -lstdc++ " DEFS='' tcl_cpp
+
+
+clean::
+	$(MAKE) -f $(TOP)/Makefile tcl_clean
+	rm -f *.class Example.h
+
+check: all
+
+run:
+	tclsh runme.tcl
+
+Example.class: Example.java
+	gcj -v || exit 0
+	gcj -fPIC -C -c -g Example.java
+	gcjh  Example
+

SWIG/Examples/tcl/java/example.i

@@ -0,0 +1,10 @@
+%module example
+%include <gcj/cni.i>
+%include <jstring.i>
+
+%{
+#include "Example.h"
+%}
+
+
+%include Example.h

SWIG/Examples/tcl/java/runme.tcl

@@ -0,0 +1,15 @@
+catch { load ./example[info sharedlibextension] example}
+
+JvCreateJavaVM  NULL
+JvAttachCurrentThread NULL NULL
+Example e1 1
+Example e2 2
+
+puts "[e1 cget -mPublicInt]"
+puts "[e2 cget -mPublicInt]"
+
+puts "[e2 Add 1 2]"
+puts "[e2 Add 1.0 2.0]"
+puts "[e2 Add '1' '2']"
+
+JvDetachCurrentThread

SWIG/Lib/ruby/jstring.i

@@ -26,8 +26,7 @@ SWIG_From(jstring)(jstring val)
 {
   if (!val) {
     return Qnil;
-  }
+  } else {
-  else {
     jint len = JvGetStringUTFLength(val);
     char buf[len];
     JvGetStringUTFRegion(val, 0, len, buf);

SWIG/Lib/tcl/jstring.i

@@ -0,0 +1,42 @@
+%include <typemaps/valtypes.swg>
+
+%fragment(SWIG_AsVal_frag(jstring),"header") {
+SWIGINTERN int
+SWIG_AsVal_dec(jstring)(Tcl_Obj * obj, jstring *val)
+{
+  int len = 0;
+  const char *cstr = Tcl_GetStringFromObj(obj, &len);
+  if (!cstr || (strcmp(cstr,"NULL") == 0)) {
+    if (val) *val = 0;
+    return SWIG_OK;
+  } else {
+    int len = 0;
+    const Tcl_UniChar *ucstr = Tcl_GetUnicodeFromObj(obj,&len);
+    if (val) {
+      *val = JvNewString((const jchar*)ucstr, len);
+    }
+  }
+  
+  return SWIG_NEWOBJ;
+}
+}
+
+%fragment(SWIG_From_frag(jstring),"header") {
+SWIGINTERNINLINE Tcl_Obj *
+SWIG_From_dec(jstring)(jstring val)
+{
+  if (!val) {
+    return Tcl_NewStringObj("NULL",-1);
+  } else {
+    return Tcl_NewUnicodeObj((Tcl_UniChar *)JvGetStringChars(val),JvGetStringUTFLength(val));
+  }
+}
+}
+
+%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 *);
+