Remove obscure mpointer example and replace with member_pointer.i testcase and runtime examples

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9887 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/test-suite/common.mk

@@ -183,6 +183,7 @@ CPP_TEST_CASES += \
 	li_typemaps \
 	li_windows \
 	long_long_apply \
+	member_pointer \
 	member_template \
 	minherit \
 	minherit2 \

Examples/test-suite/csharp/member_pointer_runme.cs

@@ -0,0 +1,47 @@
+using System;
+using member_pointerNamespace;
+
+public class runme {
+  public static SWIGTYPE_m_Shape__f_void__double memberPtr = null;
+  static void Main() {
+    // Get the pointers
+
+    SWIGTYPE_m_Shape__f_void__double area_pt = member_pointer.areapt();
+    SWIGTYPE_m_Shape__f_void__double perim_pt = member_pointer.perimeterpt();
+
+    // Create some objects
+
+    Square s = new Square(10);
+
+    // Do some calculations
+
+    check( "Square area ", 100.0, member_pointer.do_op(s,area_pt) );
+    check( "Square perim", 40.0, member_pointer.do_op(s,perim_pt) );
+
+    memberPtr = member_pointer.areavar;
+    memberPtr = member_pointer.perimetervar;
+
+    // Try the variables
+    check( "Square area ", 100.0, member_pointer.do_op(s,member_pointer.areavar) );
+    check( "Square perim", 40.0, member_pointer.do_op(s,member_pointer.perimetervar) );
+
+    // Modify one of the variables
+    member_pointer.areavar = perim_pt;
+
+    check( "Square perimeter", 40.0, member_pointer.do_op(s,member_pointer.areavar) );
+
+    // Try the constants
+
+    memberPtr = member_pointer.AREAPT;
+    memberPtr = member_pointer.PERIMPT;
+    memberPtr = member_pointer.NULLPT;
+
+    check( "Square area ", 100.0, member_pointer.do_op(s,member_pointer.AREAPT) );
+    check( "Square perim", 40.0, member_pointer.do_op(s,member_pointer.PERIMPT) );
+
+  }
+  private static void check(string what, double expected, double actual) {
+    if (expected != actual)
+      throw new ApplicationException("Failed: " + what + " Expected: " + expected + " Actual: " + actual);
+  }
+}

Examples/test-suite/java/member_pointer_runme.java

@@ -0,0 +1,58 @@
+import member_pointer.*;
+
+public class member_pointer_runme {
+
+  static {
+    try {
+        System.loadLibrary("member_pointer");
+    } catch (UnsatisfiedLinkError e) {
+      System.err.println("Native code library failed to load. See the chapter on Dynamic Linking Problems in the SWIG Java documentation for help.\n" + e);
+      System.exit(1);
+    }
+  }
+
+  public static SWIGTYPE_m_Shape__f_void__double memberPtr = null;
+
+  public static void main(String argv[]) {
+    // Get the pointers
+
+    SWIGTYPE_m_Shape__f_void__double area_pt = member_pointer.areapt();
+    SWIGTYPE_m_Shape__f_void__double perim_pt = member_pointer.perimeterpt();
+
+    // Create some objects
+
+    Square s = new Square(10);
+
+    // Do some calculations
+
+    check( "Square area ", 100.0, member_pointer.do_op(s,area_pt) );
+    check( "Square perim", 40.0, member_pointer.do_op(s,perim_pt) );
+
+    memberPtr = member_pointer.getAreavar();
+    memberPtr = member_pointer.getPerimetervar();
+
+    // Try the variables
+    check( "Square area ", 100.0, member_pointer.do_op(s,member_pointer.getAreavar()) );
+    check( "Square perim", 40.0, member_pointer.do_op(s,member_pointer.getPerimetervar()) );
+
+    // Modify one of the variables
+    member_pointer.setAreavar(perim_pt);
+
+    check( "Square perimeter", 40.0, member_pointer.do_op(s,member_pointer.getAreavar()) );
+
+    // Try the constants
+
+    memberPtr = member_pointer.AREAPT;
+    memberPtr = member_pointer.PERIMPT;
+    memberPtr = member_pointer.NULLPT;
+
+    check( "Square area ", 100.0, member_pointer.do_op(s,member_pointer.AREAPT) );
+    check( "Square perim", 40.0, member_pointer.do_op(s,member_pointer.PERIMPT) );
+
+  }
+
+  private static void check(String what, double expected, double actual) {
+    if (expected != actual)
+      throw new RuntimeException("Failed: " + what + " Expected: " + expected + " Actual: " + actual);
+  }
+}

Examples/test-suite/member_pointer.i

@@ -0,0 +1,101 @@
+%module member_pointer
+
+%inline %{
+class Shape {
+public:
+  Shape() {
+    nshapes++;
+  }
+  virtual ~Shape() {
+    nshapes--;
+  };
+  double  x, y;   
+  double  *z;
+
+  void    move(double dx, double dy);
+  virtual double area(void) = 0;
+  virtual double perimeter(void) = 0;
+  static  int nshapes;
+};
+
+class Circle : public Shape {
+private:
+  double radius;
+public:
+  Circle(double r) : radius(r) { };
+  virtual double area(void);
+  virtual double perimeter(void);
+};
+  
+class Square : public Shape {
+private:
+  double width;
+public:
+  Square(double w) : width(w) { };
+  virtual double area(void);
+  virtual double perimeter(void);
+};
+
+extern double do_op(Shape *s, double (Shape::*m)(void));
+
+/* Functions that return member pointers */
+
+extern double (Shape::*areapt())(void);
+extern double (Shape::*perimeterpt())(void);
+
+/* Global variables that are member pointers */
+extern double (Shape::*areavar)(void);
+extern double (Shape::*perimetervar)(void);
+
+%}
+
+%{
+#  define M_PI 3.14159265358979323846
+
+/* Move the shape to a new location */
+void Shape::move(double dx, double dy) {
+  x += dx;
+  y += dy;
+}
+
+int Shape::nshapes = 0;
+
+double Circle::area(void) {
+  return M_PI*radius*radius;
+}
+
+double Circle::perimeter(void) {
+  return 2*M_PI*radius;
+}
+
+double Square::area(void) {
+  return width*width;
+}
+
+double Square::perimeter(void) {
+  return 4*width;
+}
+
+double do_op(Shape *s, double (Shape::*m)(void)) {
+  return (s->*m)();
+}
+
+double (Shape::*areapt())(void) {
+  return &Shape::area;
+}
+
+double (Shape::*perimeterpt())(void) {
+  return &Shape::perimeter;
+}
+
+/* Member pointer variables */
+double (Shape::*areavar)(void) = &Shape::area;
+double (Shape::*perimetervar)(void) = &Shape::perimeter;
+%}
+
+
+/* Some constants */
+%constant double (Shape::*AREAPT)(void) = &Shape::area;
+%constant double (Shape::*PERIMPT)(void) = &Shape::perimeter;
+%constant double (Shape::*NULLPT)(void) = 0;
+

Examples/test-suite/perl5/member_pointer_runme.pl

@@ -0,0 +1,47 @@
+
+# member_pointer using pointers to member functions
+
+use member_pointer;
+
+sub check($;$;$) {
+  my($what, $expected, $actual) = @_;
+  if ($expected != $actual) {
+    die ("Failed: $what Expected: $expected Actual: $actual");
+  }
+}
+
+# Get the pointers
+
+$area_pt = member_pointer::areapt();
+$perim_pt = member_pointer::perimeterpt();
+
+# Create some objects
+
+$s = new member_pointer::Square(10);
+
+# Do some calculations
+
+check "Square area ", 100.0, member_pointer::do_op($s,$area_pt);
+check "Square perim", 40.0, member_pointer::do_op($s,$perim_pt);
+
+$memberPtr = $member_pointer::areavar;
+$memberPtr = $member_pointer::perimetervar;
+
+# Try the variables
+check "Square area ", 100.0, member_pointer::do_op($s,$member_pointer::areavar);
+check "Square perim", 40.0, member_pointer::do_op($s,$member_pointer::perimetervar);
+
+# Modify one of the variables
+$member_pointer::areavar = $perim_pt;
+
+check "Square perimeter", 40.0, member_pointer::do_op($s,$member_pointer::areavar);
+
+# Try the constants
+
+$memberPtr = $member_pointer::AREAPT;
+$memberPtr = $member_pointer::PERIMPT;
+$memberPtr = $member_pointer::NULLPT;
+
+check "Square area ", 100.0, member_pointer::do_op($s,$member_pointer::AREAPT);
+check "Square perim", 40.0, member_pointer::do_op($s,$member_pointer::PERIMPT);
+

Examples/test-suite/python/member_pointer_runme.py

@@ -0,0 +1,43 @@
+# Example using pointers to member functions
+
+from member_pointer import *
+
+def check(what, expected, actual):
+  if expected != actual:
+    raise RuntimeError ("Failed: " , what , " Expected: " , expected , " Actual: " , actual)
+
+# Get the pointers
+
+area_pt = areapt()
+perim_pt = perimeterpt()
+
+# Create some objects
+
+s = Square(10)
+
+# Do some calculations
+
+check ("Square area ", 100.0, do_op(s,area_pt))
+check ("Square perim", 40.0, do_op(s,perim_pt))
+
+memberPtr = cvar.areavar
+memberPtr = cvar.perimetervar
+
+# Try the variables
+check ("Square area ", 100.0, do_op(s,cvar.areavar))
+check ("Square perim", 40.0, do_op(s,cvar.perimetervar))
+
+# Modify one of the variables
+cvar.areavar = perim_pt
+
+check ("Square perimeter", 40.0, do_op(s,cvar.areavar))
+
+# Try the constants
+
+memberPtr = AREAPT
+memberPtr = PERIMPT
+memberPtr = NULLPT
+
+check ("Square area ", 100.0, do_op(s,AREAPT))
+check ("Square perim", 40.0, do_op(s,PERIMPT))
+

Examples/test-suite/ruby/member_pointer_runme.rb

@@ -0,0 +1,54 @@
+#!/usr/bin/env ruby
+#
+# Example using pointers to member functions
+# 
+# 
+#
+
+require 'swig_assert'
+
+require 'member_pointer'
+
+include Member_pointer
+
+def check(what, expected, actual)
+  if not expected == actual
+    raise RuntimeError, "Failed: #{what} Expected: #{expected} Actual: #{actual}"
+  end
+end
+
+# Get the pointers
+
+area_pt = Member_pointer::areapt
+perim_pt = Member_pointer::perimeterpt
+
+# Create some objects
+
+s = Member_pointer::Square.new(10)
+
+# Do some calculations
+
+check "Square area ", 100.0, Member_pointer::do_op(s, area_pt) 
+check "Square perim", 40.0, Member_pointer::do_op(s, perim_pt)
+
+memberPtr = Member_pointer::areavar
+memberPtr = Member_pointer::perimetervar
+
+# Try the variables
+check "Square area ", 100.0, Member_pointer::do_op(s, Member_pointer::areavar)
+check "Square perim", 40.0, Member_pointer::do_op(s, Member_pointer::perimetervar)
+
+# Modify one of the variables
+Member_pointer::areavar = perim_pt
+
+check "Square perimeter", 40.0, Member_pointer::do_op(s, Member_pointer::areavar)
+
+# Try the constants
+
+memberPtr = Member_pointer::AREAPT
+memberPtr = Member_pointer::PERIMPT
+memberPtr = Member_pointer::NULLPT
+
+check "Square area ", 100.0, Member_pointer::do_op(s, Member_pointer::AREAPT)
+check "Square perim", 40.0, Member_pointer::do_op(s, Member_pointer::PERIMPT)
+

Examples/test-suite/tcl/member_pointer_runme.tcl

@@ -0,0 +1,46 @@
+# Example using pointers to member functions
+
+if [ catch { load ./member_pointer[info sharedlibextension] member_pointer} err_msg ] {
+	puts stderr "Could not load shared object:\n$err_msg"
+}
+
+proc check {what expected actual} {
+  if {$expected != $actual } {
+    error "Failed: $what , Expected: $expected , Actual: $actual"
+  }
+}
+# Get the pointers
+
+set area_pt [ areapt ]
+set perim_pt [ perimeterpt ]
+
+# Create some objects
+
+set s [Square -args 10]
+
+# Do some calculations
+
+check "Square area " 100.0 [do_op $s $area_pt]
+check "Square perim" 40.0 [do_op $s $perim_pt]
+
+set memberPtr $areavar
+set memberPtr $perimetervar
+
+# Try the variables
+check "Square area " 100.0 [do_op $s $areavar]
+check "Square perim" 40.0 [do_op $s $perimetervar]
+
+# Modify one of the variables
+set areavar $perim_pt
+
+check "Square perimeter" 40.0 [do_op $s $areavar]
+
+# Try the constants
+
+set memberPtr $AREAPT
+set memberPtr $PERIMPT
+set memberPtr $NULLPT
+
+check "Square area " 100.0 [do_op $s $AREAPT]
+check "Square perim" 40.0 [do_op $s $PERIMPT]
+