| # 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 = new example::Circle(10); |
| print " Created circle $c\n"; |
| $s = new example::Square(10); |
| print " Created square $s\n"; |
| |
| # ----- Access a static member ----- |
| |
| print "\nA total of $example::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. |
| |
| $c->{x} = 20; |
| $c->{y} = 30; |
| $s->{x} = -10; |
| $s->{y} = 5; |
| |
| print "\nHere is their current position:\n"; |
| print " Circle = (",$c->{x},",", $c->{y},")\n"; |
| print " Square = (",$s->{x},",", $s->{y},")\n"; |
| |
| # ----- Call some methods ----- |
| |
| print "\nHere are some properties of the shapes:\n"; |
| foreach $o ($c,$s) { |
| print " $o\n"; |
| print " area = ", $o->area(), "\n"; |
| print " perimeter = ", $o->perimeter(), "\n"; |
| } |
| |
| # ----- Delete everything ----- |
| |
| print "\nGuess I'll clean up now\n"; |
| |
| # Note: this invokes the virtual destructor |
| |
| $c->DESTROY(); |
| $s->DESTROY(); |
| |
| print $example::Shape::nshapes," shapes remain\n"; |
| |
| $square = example::CFoo::MakeSquare(); |
| $tsquare = example::CFoo::MakeTSquare(); |
| print "Areas ", $square->area(), " ", $tsquare->area(),"\n"; |
| |
| print "Goodbye\n"; |