794ff1ed6c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@762 626c5289-ae23-0410-ae9c-e8d60b6d4f22
40 lines
740 B
Tcl
40 lines
740 B
Tcl
# file: example.py
|
|
# Try to load as a dynamic module.
|
|
|
|
catch { load ./example.so example}
|
|
catch { load ./example.dll example} ;# Windows
|
|
|
|
# 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"
|
|
|
|
|
|
|
|
|
|
|
|
|