# file: runme.tcl | |
# Try to load as a dynamic module. | |
catch { load ./example[info sharedlibextension] example} | |
# Call our gcd() function | |
set x 42 | |
set y 105 | |
set g [gcd $x $y] | |
puts "The gcd of $x and $y is $g" | |
# Manipulate the Foo global variable | |
# Output its current value | |
puts "Foo = $Foo" | |
# Change its value | |
set Foo 3.1415926 | |
# See if the change took effect | |
puts "Foo = $Foo" | |