/trunk/Examples/tcl/multimap/runme.tcl
TCL | 24 lines | 10 code | 8 blank | 6 comment | 0 complexity | ca75438d0089e558d3c01e23290ce59f MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- # 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"
- # call the gcdmain
- gcdmain "gcdmain 42 105"
- # call count
- set c [count "Hello World" l]
- puts $c
- # call capitalize
- set c [capitalize "helloworld"]
- puts $c