/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
- # file: example.tcl
- # Try to load as a dynamic module.
- catch { load ./example.so example}
- catch { load ./example.dll example} ;# Windows
- # 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