All the runtime scripts are called runme.tcl now for easier testing
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5651 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
8e73549052
commit
8d4c509404
22 changed files with 34 additions and 22 deletions
24
Examples/tcl/multimap/runme.tcl
Normal file
24
Examples/tcl/multimap/runme.tcl
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
# 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
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue