PageRenderTime 53ms CodeModel.GetById 18ms RepoModel.GetById 1ms app.codeStats 0ms

/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 
    

  1. catch { load ./example[info sharedlibextension] example}
    2. 

  2. 

  3. JvCreateJavaVM  NULL
    4. 

  4. JvAttachCurrentThread NULL NULL
    5. 

  5. Example e1 1
    6. 

  6. Example e2 2
    7. 

  7. 

  8. puts "[e1 cget -mPublicInt]"
    9. 

  9. puts "[e2 cget -mPublicInt]"
    10. 

  10. 

  11. puts "[e2 Add 1 2]"
    12. 

  12. puts "[e2 Add 1.0 2.0]"
    13. 

  13. puts "[e2 Add '1' '2']"
    14. 

  14. 

  15. JvDetachCurrentThread
    16. 

  16.