blob: 1f6f4afa6aaf4455c8e3477a99853d816fa76618 [file] [log] [blame]
# 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"