diff options
Diffstat (limited to 'Tests/RunCMake/UseSWIG/runme2.tcl')
-rw-r--r-- | Tests/RunCMake/UseSWIG/runme2.tcl | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/Tests/RunCMake/UseSWIG/runme2.tcl b/Tests/RunCMake/UseSWIG/runme2.tcl deleted file mode 100644 index d0b5c21..0000000 --- a/Tests/RunCMake/UseSWIG/runme2.tcl +++ /dev/null @@ -1,69 +0,0 @@ -# file: runme2.tcl - -# This file illustrates the low-level C++ interface -# created by SWIG. In this case, all of our C++ classes -# get converted into function calls. - -catch { load ./example[info sharedlibextension] example} - -# ----- Object creation ----- - -puts "Creating some objects:" -set c [new_Circle 10] -puts " Created circle $c" -set s [new_Square 10] -puts " Created square $s" - -# ----- Access a static member ----- - -puts "\nA total of $Shape_nshapes shapes were created" - -# ----- Member data access ----- - -# Set the location of the object -# Note: the base class must be used since that's where x and y -# were declared. - -Shape_x_set $c 20 -Shape_y_set $c 30 -Shape_x_set $s -10 -Shape_y_set $s 5 - -puts "\nHere is their current position:" -puts " Circle = ([Shape_x_get $c], [Shape_y_get $c])" -puts " Square = ([Shape_x_get $s], [Shape_y_get $s])" - -# ----- Call some methods ----- - -puts "\nHere are some properties of the shapes:" -foreach o "$c $s" { - puts " $o" - puts " area = [Shape_area $o]" - puts " perimeter = [Shape_perimeter $o]" -} -# Notice how the Shape_area() and Shape_perimeter() functions really -# invoke the appropriate virtual method on each object. - -# ----- Try to cause a type error ----- - -puts "\nI'm going to try and break the type system" - -if { [catch { - # Bad script! - Square_area $c # Try to invoke Square method on a Circle - puts " Bad bad SWIG!" - -}]} { - puts " Well, it didn't work. Good SWIG." -} - -# ----- Delete everything ----- - -puts "\nGuess I'll clean up now" - -# Note: this invokes the virtual destructor -delete_Shape $c -delete_Shape $s - -puts "$Shape_nshapes shapes remain" -puts "Goodbye" |