/tags/rel-1-3-24/SWIG/Examples/tcl/enum/runme.tcl
TCL | 32 lines | 19 code | 10 blank | 3 comment | 0 complexity | fe16b9a74118fb059bbd0c455d0a63ad MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
1# file: runme.tcl 2 3catch { load ./example[info sharedlibextension] example} 4 5# ----- Object creation ----- 6 7# Print out the value of some enums 8puts "*** color ***" 9puts " RED = $RED" 10puts " BLUE = $BLUE" 11puts " GREEN = $GREEN" 12 13puts "\n*** Foo::speed ***" 14puts " Foo_IMPULSE = $Foo_IMPULSE" 15puts " Foo_WARP = $Foo_WARP" 16puts " Foo_LUDICROUS = $Foo_LUDICROUS" 17 18 19puts "\nTesting use of enums with functions\n" 20 21enum_test $RED $Foo_IMPULSE 22enum_test $BLUE $Foo_WARP 23enum_test $GREEN $Foo_LUDICROUS 24enum_test 1234 5678 25 26puts "\nTesting use of enum with class method" 27Foo f 28 29f enum_test $Foo_IMPULSE 30f enum_test $Foo_WARP 31f enum_test $Foo_LUDICROUS 32