Examples/tcl/contract/runme.tcl

   1 # file: runme.tcl
   2 # Try to load as a dynamic module.
   3
   4 catch { load ./example[info sharedlibextension] example}
   5
   6 # Call our gcd() function
   7 set x 42
   8 set y 105
   9 set g [gcd $x $y]
  10 puts "The gcd of $x and $y is $g"
  11
  12 # Manipulate the Foo global variable
  13
  14 # Output its current value
  15 puts "Foo = $Foo"
  16
  17 # Change its value
  18 set Foo 3.1415926
  19
  20 # See if the change took effect
  21 puts "Foo = $Foo"
  22