# 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"