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

# 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