jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

All the runtime scripts are called runme.tcl now for easier testing

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5651 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2004-01-20 21:22:56 +00:00
commit d2d3496881
22 changed files with 34 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

32
SWIG/Examples/tcl/enum/runme.tcl Normal file
View file

@ -0,0 +1,32 @@
# file: runme.tcl
catch { load ./example[info sharedlibextension] example}
# ----- Object creation -----
# Print out the value of some enums
puts "*** color ***"
puts " RED = $RED"
puts " BLUE = $BLUE"
puts " GREEN = $GREEN"
puts "\n*** Foo::speed ***"
puts " Foo_IMPULSE = $Foo_IMPULSE"
puts " Foo_WARP = $Foo_WARP"
puts " Foo_LUDICROUS = $Foo_LUDICROUS"
puts "\nTesting use of enums with functions\n"
enum_test $RED $Foo_IMPULSE
enum_test $BLUE $Foo_WARP
enum_test $GREEN $Foo_LUDICROUS
enum_test 1234 5678
puts "\nTesting use of enum with class method"
Foo f
f enum_test $Foo_IMPULSE
f enum_test $Foo_WARP
f enum_test $Foo_LUDICROUS