Tests/SwigTest/runme.pl

   1 # file: runme.pl
   2
   3 # This file illustrates the low-level C++ interface
   4 # created by SWIG.  In this case, all of our C++ classes
   5 # get converted into function calls.
   6
   7 use example;
   8
   9 # ----- Object creation -----
  10
  11 print "Creating some objects:\n";
  12 $c = examplec::new_Circle(10);
  13 print "    Created circle $c\n";
  14 $s = examplec::new_Square(10);
  15 print "    Created square $s\n";
  16
  17 # ----- Access a static member -----
  18
  19 print "\nA total of $examplec::Shape_nshapes shapes were created\n";
  20
  21 # ----- Member data access -----
  22
  23 # Set the location of the object.
  24 # Note: methods in the base class Shape are used since
  25 # x and y are defined there.
  26
  27 examplec::Shape_x_set($c, 20);
  28 examplec::Shape_y_set($c, 30);
  29 examplec::Shape_x_set($s,-10);
  30 examplec::Shape_y_set($s,5);
  31
  32 print "\nHere is their current position:\n";
  33 print "    Circle = (",examplec::Shape_x_get($c),",", examplec::Shape_y_get($c),")\n";
  34 print "    Square = (",examplec::Shape_x_get($s),",", examplec::Shape_y_get($s),")\n";
  35
  36 # ----- Call some methods -----
  37
  38 print "\nHere are some properties of the shapes:\n";
  39 foreach $o ($c,$s) {
  40       print "    $o\n";
  41       print "        area      = ", examplec::Shape_area($o), "\n";
  42       print "        perimeter = ", examplec::Shape_perimeter($o), "\n";
  43   }
  44 # Notice how the Shape_area() and Shape_perimeter() functions really
  45 # invoke the appropriate virtual method on each object.
  46
  47 # ----- Delete everything -----
  48
  49 print "\nGuess I'll clean up now\n";
  50
  51 # Note: this invokes the virtual destructor
  52 examplec::delete_Shape($c);
  53 examplec::delete_Shape($s);
  54
  55 print $examplec::Shape_nshapes," shapes remain\n";
  56 print "Goodbye\n";
  57