/trunk/Examples/tcl/variables/runme.tcl

 1# file: runme.tcl
 2
 3catch { load ./example[info sharedlibextension] example}
 4
 5# Try to set the values of some global variables
 6
 7set ivar    42
 8set svar   -31000
 9set lvar    65537
10set uivar   123456
11set usvar   61000
12set ulvar   654321
13set scvar   -13
14set ucvar   251
15set cvar    "S"
16set fvar    3.14159
17set dvar    2.1828
18set strvar  "Hello World"
19set iptrvar [new_int 37]
20set ptptr [new_Point 37 42]
21set name    "Bill"
22
23# Now print out the values of the variables
24
25puts "Variables (values printed from Tcl)"
26
27puts "ivar      = $ivar"
28puts "svar      = $svar"
29puts "lvar      = $lvar"
30puts "uivar     = $uivar"
31puts "usvar     = $usvar"
32puts "ulvar     = $ulvar"
33puts "scvar     = $scvar"
34puts "ucvar     = $ucvar"
35puts "fvar      = $fvar"
36puts "dvar      = $dvar"
37puts "cvar      = $cvar"
38puts "strvar    = $strvar"
39puts "cstrvar   = $cstrvar"
40puts "iptrvar   = $iptrvar"
41puts "name      = $name"
42puts "ptptr     = $ptptr [Point_print $ptptr]"
43puts "pt        = $pt [Point_print $pt]"
44
45puts "\nVariables (values printed from C)"
46
47print_vars
48
49puts "\nNow I'm going to try and modify some read only variables";
50
51puts "     Tring to set 'path'";
52if { [catch {
53    set path "Whoa!"
54    puts "Hey, what's going on?!?! This shouldn't work"
55}]} {
56    puts "Good."
57}
58
59puts "     Trying to set 'status'";
60if { [catch {
61    set status 0
62    puts "Hey, what's going on?!?! This shouldn't work"
63}]} {
64    puts "Good."
65}
66
67puts "\nI'm going to try and update a structure variable.\n"
68
69set pt $ptptr
70
71puts "The new value is"
72pt_print
73puts "You should see the value [Point_print $ptptr]"
74
75
76