1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
# 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";
|
