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