/tags/Root-branch-php-utl/SWIG/Examples/tcl/java/runme.tcl
TCL | 15 lines | 11 code | 4 blank | 0 comment | 0 complexity | f0cca9d2d0fbb7c2370ec049ff431f4b MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
1catch { load ./example[info sharedlibextension] example}
2
3JvCreateJavaVM NULL
4JvAttachCurrentThread NULL NULL
5Example e1 1
6Example e2 2
7
8puts "[e1 cget -mPublicInt]"
9puts "[e2 cget -mPublicInt]"
10
11puts "[e2 Add 1 2]"
12puts "[e2 Add 1.0 2.0]"
13puts "[e2 Add '1' '2']"
14
15JvDetachCurrentThread