jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

New example

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@727 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-08-30 16:26:58 +00:00
commit 41d131351b
5 changed files with 255 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

63
SWIG/Examples/tcl/variables/example.tcl Normal file
View file

@ -0,0 +1,63 @@
# file: example.tcl
catch { load ./example.so example} ;# Unix
catch { load ./example.dll example} ;# Windows
# Try to set the values of some global variables
set ivar 42
set svar -31000
set lvar 65537
set uivar 123456
set usvar 61000
set ulvar 654321
set scvar -13
set ucvar 251
set cvar "S"
set fvar 3.14159
set dvar 2.1828
set strvar "Hello World"
set iptrvar [new_int 37]
# Now print out the values of the variables
puts "Variables (values printed from Tcl)"
puts "ivar = $ivar"
puts "svar = $svar"
puts "lvar = $lvar"
puts "uivar = $uivar"
puts "usvar = $usvar"
puts "ulvar = $ulvar"
puts "scvar = $scvar"
puts "ucvar = $ucvar"
puts "fvar = $fvar"
puts "dvar = $dvar"
puts "cvar = $cvar"
puts "strvar = $strvar"
puts "iptrvar = $iptrvar"
puts "name = $name"
puts "\nVariables (values printed from C)"
print_vars
puts "\nNow I'm going to try and modify some read only variables";
puts " Tring to set 'name'";
if { [catch {
set name "Whoa!"
puts "Hey, what's going on?!?! This shouldn't work"
}]} {
puts "Good."
}
puts " Trying to set 'status'";
if { [catch {
set status 0
puts "Hey, what's going on?!?! This shouldn't work"
}]} {
puts "Good."
}