5e638de46c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9185 626c5289-ae23-0410-ae9c-e8d60b6d4f22
39 lines
711 B
Tcl
39 lines
711 B
Tcl
# file: runme.tcl
|
|
# Try to load as a dynamic module.
|
|
|
|
catch { load ./example[info sharedlibextension] example}
|
|
|
|
# Create a couple of a vectors
|
|
|
|
set v [new_Vector 1 2 3]
|
|
set w [new_Vector 10 11 12]
|
|
|
|
puts "I just created the following vectors"
|
|
vector_print $v
|
|
vector_print $w
|
|
|
|
# Now call some of our functions
|
|
|
|
puts "\nNow I'm going to compute the dot product"
|
|
set d [dot_product $v $w]
|
|
puts "dot product = $d (should be 68)"
|
|
|
|
# Add the vectors together
|
|
|
|
puts "\nNow I'm going to add the vectors together"
|
|
set r [vector_add $v $w]
|
|
vector_print $r
|
|
puts "The value should be (11,13,15)"
|
|
|
|
# Now I'd better clean up the return result r
|
|
|
|
puts "\nNow I'm going to clean up the return result"
|
|
free $r
|
|
|
|
puts "Good"
|
|
|
|
|
|
|
|
|
|
|
|
|