PageRenderTime 20ms CodeModel.GetById 14ms app.highlight 5ms RepoModel.GetById 0ms app.codeStats 0ms

/tags/rel-1-3-15/SWIG/Examples/tcl/multimap/example.tcl

#
TCL | 25 lines | 11 code | 8 blank | 6 comment | 0 complexity | ff63c2216527164e82cbc670ac46a774 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
 1# file: example.tcl
 2# Try to load as a dynamic module.
 3
 4catch { load ./example.so example}
 5catch { load ./example.dll example}    ;# Windows
 6
 7# Call our gcd() function
 8set x 42
 9set y 105
10set g [gcd $x $y]
11puts "The gcd of $x and $y is $g"
12
13# call the gcdmain
14gcdmain "gcdmain 42 105"
15
16
17# call count
18set c [count "Hello World" l]
19puts $c
20
21# call capitalize
22
23set c [capitalize "helloworld"]
24puts $c
25