new example

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@844 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Examples/tcl/funcptr/example.tcl

@@ -0,0 +1,22 @@
+# 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"
+