58 lines
1.6 KiB
Perl
58 lines
1.6 KiB
Perl
|
# file: runme.pl
|
||
|
|
|
||
|
|
# This file illustrates the low-level C++ interface
|
||
|
|
# created by SWIG. In this case, all of our C++ classes
|
||
|
|
# get converted into function calls.
|
||
|
|
|
||
|
|
use example;
|
||
|
|
|
||
|
|
# ----- Object creation -----
|
||
|
|
|
||
|
|
print "Creating some objects:\n";
|
||
|
|
$c = examplec::new_Circle(10);
|
||
|
|
print " Created circle $c\n";
|
||
|
|
$s = examplec::new_Square(10);
|
||
|
|
print " Created square $s\n";
|
||
|
|
|
||
|
|
# ----- Access a static member -----
|
||
|
|
|
||
|
|
print "\nA total of $examplec::Shape_nshapes shapes were created\n";
|
||
|
|
|
||
|
|
# ----- Member data access -----
|
||
|
|
|
||
|
|
# Set the location of the object.
|
||
|
|
# Note: methods in the base class Shape are used since
|
||
|
|
# x and y are defined there.
|
||
|
|
|
||
|
|
examplec::Shape_x_set($c, 20);
|
||
|
|
examplec::Shape_y_set($c, 30);
|
||
|
|
examplec::Shape_x_set($s,-10);
|
||
|
|
examplec::Shape_y_set($s,5);
|
||
|
|
|
||
|
|
print "\nHere is their current position:\n";
|
||
|
|
print " Circle = (",examplec::Shape_x_get($c),",", examplec::Shape_y_get($c),")\n";
|
||
|
|
print " Square = (",examplec::Shape_x_get($s),",", examplec::Shape_y_get($s),")\n";
|
||
|
|
|
||
|
|
# ----- Call some methods -----
|
||
|
|
|
||
|
|
print "\nHere are some properties of the shapes:\n";
|
||
|
|
foreach $o ($c,$s) {
|
||
|
|
print " $o\n";
|
||
|
|
print " area = ", examplec::Shape_area($o), "\n";
|
||
|
|
print " perimeter = ", examplec::Shape_perimeter($o), "\n";
|
||
|
|
}
|
||
|
|
# Notice how the Shape_area() and Shape_perimeter() functions really
|
||
|
|
# invoke the appropriate virtual method on each object.
|
||
|
|
|
||
|
|
# ----- Delete everything -----
|
||
|
|
|
||
|
|
print "\nGuess I'll clean up now\n";
|
||
|
|
|
||
|
|
# Note: this invokes the virtual destructor
|
||
|
|
examplec::delete_Shape($c);
|
||
|
|
examplec::delete_Shape($s);
|
||
|
|
|
||
|
|
print $examplec::Shape_nshapes," shapes remain\n";
|
||
|
|
print "Goodbye\n";
|
||
|
|
|