12a43edc2d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
56 lines
1.3 KiB
Perl
56 lines
1.3 KiB
Perl
# file: example.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";
|
|
print "Goodbye\n";
|
|
|