22 lines
514 B
Tcl
22 lines
514 B
Tcl
|
# file: runme.tcl
|
||
|
|
|
||
|
|
catch { load ./example[info sharedlibextension] Example}
|
||
|
|
|
||
|
|
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"
|
||
|
|
|