blob: efe9bb4957b1eea6e8edf24c853c2f2cf49951ae (
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
40
41
42
43
44
45
46
47
|
# file: runme.tcl
catch { load ./example[info sharedlibextension] example}
# First create some objects using the pointer library.
puts "Testing the pointer library"
set a [new_intp]
set b [new_intp]
set c [new_intp] ;# Memory for result
intp_assign $a 37
intp_assign $b 42
puts " a = $a"
puts " b = $b"
puts " c = $c"
# Call the add() function with some pointers
add $a $b $c
# Now get the result
set r [intp_value $c]
puts " 37 + 42 = $r"
# Clean up the pointers
delete_intp $a
delete_intp $b
delete_intp $c
# Now try the typemap library
# This should be much easier. Now how it is no longer
# necessary to manufacture pointers.
puts "Trying the typemap library"
set r [sub 37 42]
puts " 37 - 42 = $r"
# Now try the version with multiple return values
puts "Testing multiple return values"
set qr [divide 42 37]
set q [lindex $qr 0]
set r [lindex $qr 1]
puts " 42/37 = $q remainder $r"
|