xplcidl/uniscript.tcl

   1 #!/usr/bin/env tclsh
   2 load ./uniscript_tcl.so
   3 set x [unicreate "mymulti:hello world!"]
   4 puts "create result: $x"
   5
   6 puts [unicall $x getString]
   7 puts [unicall $x getBool]
   8 puts [unicall $x "setInt 555"]
   9 puts [unicall $x getInt]