PageRenderTime 13ms CodeModel.GetById 8ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/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
 4catch { load ./example[info sharedlibextension] example}
 5
 6# Call our gcd() function
 7set x 42
 8set y 105
 9set g [gcd $x $y]
10puts "The gcd of $x and $y is $g"
11
12# call the gcdmain
13gcdmain "gcdmain 42 105"
14
15
16# call count
17set c [count "Hello World" l]
18puts $c
19
20# call capitalize
21
22set c [capitalize "helloworld"]
23puts $c
24