The great merge

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

SWIG/Examples/ruby/mpointer/.cvsignore

@@ -0,0 +1,2 @@
+example_wrap.cxx
+example.dll

SWIG/Examples/ruby/mpointer/Makefile

@@ -0,0 +1,20 @@
+TOP        = ../..
+SWIG       = $(TOP)/../swig
+CXXSRCS    = example.cxx
+TARGET     = example
+INTERFACE  = example.i
+LIBS       = -lm
+SWIGOPT    =
+
+all::
+	$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
+	TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' ruby_cpp
+
+static::
+	$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
+	TARGET='myruby' INTERFACE='$(INTERFACE)' ruby_cpp_static
+
+clean::
+	$(MAKE) -f $(TOP)/Makefile ruby_clean
+
+check: all

SWIG/Examples/ruby/mpointer/example.cxx

@@ -0,0 +1,45 @@
+/* File : example.c */
+
+#include "example.h"
+#include <math.h>
+
+/* 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;
+

SWIG/Examples/ruby/mpointer/example.h

@@ -0,0 +1,47 @@
+/* File : example.h */
+
+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);

SWIG/Examples/ruby/mpointer/example.i

@@ -0,0 +1,15 @@
+/* File : example.i */
+%module example
+
+%{
+#include "example.h"
+%}
+
+/* Let's just grab the original header file here */
+%include "example.h"
+
+/* Some constants */
+
+%constant double (Shape::*AREAPT)(void) = &Shape::area;
+%constant double (Shape::*PERIMPT)(void) = &Shape::perimeter;
+%constant double (Shape::*NULLPT)(void) = 0;

SWIG/Examples/ruby/mpointer/runme.rb

@@ -0,0 +1,48 @@
+# Example using pointers to member functions
+
+require 'example'
+
+# Get the pointers
+
+area_pt = Example::areapt
+perim_pt = Example::perimeterpt
+
+puts "area_pt  = #{area_pt}"
+puts "perim_pt = #{perim_pt}"
+
+# Create some objects
+
+c = Example::Circle.new(4)
+s = Example::Square.new(10)
+
+# Do some calculations
+
+puts "Circle area  = #{Example::do_op(c, area_pt)}"
+puts "Circle perim = #{Example::do_op(c, perim_pt)}"
+puts "Square area  = #{Example::do_op(s, area_pt)}"
+puts "Square perim = #{Example::do_op(s, perim_pt)}"
+
+puts "areavar      = #{Example::areavar}"
+puts "perimetervar = #{Example::perimetervar}"
+
+# Try the variables
+puts "Circle area  = #{Example::do_op(c, Example::areavar)}"
+puts "Circle perim = #{Example::do_op(c, Example::perimetervar)}"
+puts "Square area  = #{Example::do_op(s, Example::areavar)}"
+puts "Square perim = #{Example::do_op(s, Example::perimetervar)}"
+
+# Modify one of the variables
+Example::areavar = perim_pt
+
+puts "Circle perimeter = #{Example::do_op(c, Example::areavar)}"
+
+# Try the constants
+
+puts "Example::AREAPT = #{Example::AREAPT}"
+puts "Example::PERIMPT= #{Example::PERIMPT}"
+puts "Example::NULLPT = #{Example::NULLPT}"
+
+puts "Circle area  = #{Example::do_op(c, Example::AREAPT)}"
+puts "Circle perim = #{Example::do_op(c, Example::PERIMPT)}"
+puts "Square area  = #{Example::do_op(s, Example::AREAPT)}"
+puts "Square perim = #{Example::do_op(s, Example::PERIMPT)}"