6f556a1b14
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@844 626c5289-ae23-0410-ae9c-e8d60b6d4f22
22 lines
544 B
Tcl
22 lines
544 B
Tcl
# file: example.tcl
|
|
|
|
catch { load ./example.so example}
|
|
catch { load ./example.dll example} ;# Windows
|
|
|
|
set a 37
|
|
set b 42
|
|
|
|
# Now call our C function with a bunch of callbacks
|
|
|
|
puts "Trying some C callback functions"
|
|
puts " a = $a"
|
|
puts " b = $b"
|
|
puts " ADD(a,b) = [do_op $a $b $ADD]"
|
|
puts " SUB(a,b) = [do_op $a $b $SUB]"
|
|
puts " MUL(a,b) = [do_op $a $b $MUL]"
|
|
|
|
puts "Here is what the C callback function objects look like in Tcl"
|
|
puts " ADD = $ADD"
|
|
puts " SUB = $SUB"
|
|
puts " MUL = $MUL"
|
|
|