blob: ea0b57dd3fac41adfaf05a99f9926d457fc4fe50 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
# 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"
|
