/trunk/Examples/tcl/multimap/runme.tcl

# · TCL · 24 lines · 10 code · 8 blank · 6 comment · 0 complexity · ca75438d0089e558d3c01e23290ce59f MD5 · raw file

  1. # file: runme.tcl
  2. # Try to load as a dynamic module.
  3. catch { load ./example[info sharedlibextension] example}
  4. # Call our gcd() function
  5. set x 42
  6. set y 105
  7. set g [gcd $x $y]
  8. puts "The gcd of $x and $y is $g"
  9. # call the gcdmain
  10. gcdmain "gcdmain 42 105"
  11. # call count
  12. set c [count "Hello World" l]
  13. puts $c
  14. # call capitalize
  15. set c [capitalize "helloworld"]
  16. puts $c