40 lines
711 B
Tcl
40 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"
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|