jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9887 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2007-08-09 23:47:13 +00:00
commit f5bdd056f7
38 changed files with 397 additions and 929 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Examples/java/check.list
View file

@ -5,7 +5,6 @@ constants
enum
extend
funcptr
mpointer
multimap
native
pointer

18
Examples/java/mpointer/Makefile
View file

@ -1,18 +0,0 @@
TOP = ../..
SWIG = $(TOP)/../preinst-swig
CXXSRCS = example.cxx
TARGET = example
INTERFACE = example.i
SWIGOPT =
all:: java
java::
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' java_cpp
javac *.java
clean::
$(MAKE) -f $(TOP)/Makefile java_clean
check: all

48
Examples/java/mpointer/example.cxx
View file

@ -1,48 +0,0 @@
/* File : example.c */
#include "example.h"
#include <math.h>
#ifndef M_PI
# define M_PI 3.14159265358979323846
#endif
/* 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;

50
Examples/java/mpointer/example.h
View file

@ -1,50 +0,0 @@
/* 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);

16
Examples/java/mpointer/example.i
View file

@ -1,16 +0,0 @@
/* 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;

61
Examples/java/mpointer/main.java
View file

@ -1,61 +0,0 @@
// Example using pointers to member functions
public class main {
static {
try {
System.loadLibrary("example");
} 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 void main(String argv[])
{
// Get the pointers
SWIGTYPE_m_Shape__f_void__double area_pt = example.areapt();
SWIGTYPE_m_Shape__f_void__double perim_pt = example.perimeterpt();
System.out.println( "area_pt =" + area_pt );
System.out.println( "perim_pt = " + perim_pt );
// Create some objects
Circle c = new Circle(4);
Square s = new Square(10);
// Do some calculations
System.out.println( "Circle area = " + example.do_op(c,area_pt) );
System.out.println( "Circle perim = " + example.do_op(c,perim_pt) );
System.out.println( "Square area = " + example.do_op(s,area_pt) );
System.out.println( "Square perim = " + example.do_op(s,perim_pt) );
System.out.println( "areavar = " + example.getAreavar() );
System.out.println( "perimetervar = " + example.getPerimetervar() );
// Try the variables
System.out.println( "Circle area = " + example.do_op(c,example.getAreavar()) );
System.out.println( "Circle perim = " + example.do_op(c,example.getPerimetervar()) );
System.out.println( "Square area = " + example.do_op(s,example.getAreavar()) );
System.out.println( "Square perim = " + example.do_op(s,example.getPerimetervar()) );
// Modify one of the variables
example.setAreavar(perim_pt);
System.out.println( "Circle perimeter = " + example.do_op(c,example.getAreavar()) );
// Try the constants
System.out.println( "example.AREAPT =" + example.AREAPT );
System.out.println( "example.PERIMPT=" + example.PERIMPT );
System.out.println( "example.NULLPT =" + example.NULLPT );
System.out.println( "Circle area = " + example.do_op(c,example.AREAPT) );
System.out.println( "Circle perim = " + example.do_op(c,example.PERIMPT) );
System.out.println( "Square area = " + example.do_op(s,example.AREAPT) );
System.out.println( "Square perim = " + example.do_op(s,example.PERIMPT) );
}
}

1
Examples/perl5/check.list
View file

@ -5,7 +5,6 @@ constants2
funcptr
import
java
mpointer
multimap
multiple_inheritance
pointer

20
Examples/perl5/mpointer/Makefile
View file

@ -1,20 +0,0 @@
TOP = ../..
SWIG = $(TOP)/../preinst-swig
CXXSRCS = example.cxx
TARGET = example
INTERFACE = example.i
LIBS = -lm
SWIGOPT =
all::
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' perl5_cpp
static::
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
SWIGOPT='$(SWIGOPT)' TARGET='myperl' INTERFACE='$(INTERFACE)' perl5_cpp_static
clean::
$(MAKE) -f $(TOP)/Makefile perl5_clean
check: all

48
Examples/perl5/mpointer/example.cxx
View file

@ -1,48 +0,0 @@
/* File : example.c */
#include "example.h"
#include <math.h>
#ifndef M_PI
# define M_PI 3.14159265358979323846
#endif
/* 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;

50
Examples/perl5/mpointer/example.h
View file

@ -1,50 +0,0 @@
/* 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);

16
Examples/perl5/mpointer/example.i
View file

@ -1,16 +0,0 @@
/* 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;

51
Examples/perl5/mpointer/runme.pl
View file

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

1
Examples/python/check.list
View file

@ -15,7 +15,6 @@ import
import_template
java
#libffi
mpointer
multimap
operator
pointer

21
Examples/python/mpointer/Makefile
View file

@ -1,21 +0,0 @@
TOP = ../..
SWIG = $(TOP)/../preinst-swig
CXXSRCS = example.cxx
TARGET = example
INTERFACE = example.i
LIBS = -lm
SWIGOPT =
all::
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' python_cpp
static::
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
SWIGOPT='$(SWIGOPT)' TARGET='mypython' INTERFACE='$(INTERFACE)' python_cpp_static
clean::
$(MAKE) -f $(TOP)/Makefile python_clean
rm -f $(TARGET).py
check: all

48
Examples/python/mpointer/example.cxx
View file

@ -1,48 +0,0 @@
/* File : example.c */
#include "example.h"
#include <math.h>
#ifndef M_PI
# define M_PI 3.14159265358979323846
#endif
/* 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;

50
Examples/python/mpointer/example.h
View file

@ -1,50 +0,0 @@
/* 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);

16
Examples/python/mpointer/example.i
View file

@ -1,16 +0,0 @@
/* 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;

51
Examples/python/mpointer/runme.py
View file

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

1
Examples/ruby/check.list
View file

@ -11,7 +11,6 @@ import
import_template
java
mark_function
mpointer
multimap
operator
overloading

20
Examples/ruby/mpointer/Makefile
View file

@ -1,20 +0,0 @@
TOP = ../..
SWIG = $(TOP)/../preinst-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

48
Examples/ruby/mpointer/example.cxx
View file

@ -1,48 +0,0 @@
/* File : example.c */
#include "example.h"
#include <math.h>
#ifndef M_PI
# define M_PI 3.14159265358979323846
#endif
/* 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;

47
Examples/ruby/mpointer/example.h
View file

@ -1,47 +0,0 @@
/* 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);

15
Examples/ruby/mpointer/example.i
View file

@ -1,15 +0,0 @@
/* 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;

48
Examples/ruby/mpointer/runme.rb
View file

@ -1,48 +0,0 @@
# 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)}"

1
Examples/tcl/check.list
View file

@ -6,7 +6,6 @@ enum
funcptr
import
java
mpointer
multimap
operator
pointer

19
Examples/tcl/mpointer/Makefile
View file

@ -1,19 +0,0 @@
TOP = ../..
SWIG = $(TOP)/../preinst-swig
CXXSRCS = example.cxx
TARGET = example
INTERFACE = example.i
LIBS = -lm
all::
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' tcl_cpp
static::
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
TARGET='mytclsh' INTERFACE='$(INTERFACE)' tclsh_cpp_static
clean::
$(MAKE) -f $(TOP)/Makefile tcl_clean
check: all

48
Examples/tcl/mpointer/example.cxx
View file

@ -1,48 +0,0 @@
/* File : example.c */
#include "example.h"
#include <math.h>
#ifndef M_PI
# define M_PI 3.14159265358979323846
#endif
/* 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;

50
Examples/tcl/mpointer/example.h
View file

@ -1,50 +0,0 @@
/* 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);

16
Examples/tcl/mpointer/example.i
View file

@ -1,16 +0,0 @@
/* 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;

49
Examples/tcl/mpointer/runme.tcl
View file

@ -1,49 +0,0 @@
# Example using pointers to member functions
catch { load ./example[info sharedlibextension] example}
# Get the pointers
set area_pt [ areapt ]
set perim_pt [ perimeterpt ]
puts "area_pt = $area_pt"
puts "perim_pt = $perim_pt"
# Create some objects
set c [Circle -args 4]
set s [Square -args 10]
# Do some calculations
puts "Circle area = [do_op $c $area_pt]"
puts "Circle perim = [do_op $c $perim_pt]"
puts "Square area = [do_op $s $area_pt]"
puts "Square perim = [do_op $s $perim_pt]"
puts "areavar = $areavar";
puts "perimetervar = $perimetervar";
# Try the variables
puts "Circle area = [do_op $c $areavar]"
puts "Circle perim = [do_op $c $perimetervar]"
puts "Square area = [do_op $s $areavar]"
puts "Square perim = [do_op $s $perimetervar]"
# Modify one of the variables
set areavar $perim_pt
puts "Circle perimeter = [do_op $c $areavar]"
# Try the constants
puts "example.AREAPT = $AREAPT"
puts "example.PERIMPT= $PERIMPT"
puts "example.NULLPT = $NULLPT"
puts "Circle area = [do_op $c $AREAPT]"
puts "Circle perim = [do_op $c $PERIMPT]"
puts "Square area = [do_op $s $AREAPT]"
puts "Square perim = [do_op $s $PERIMPT]"

1
Examples/test-suite/common.mk
View file

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

47
Examples/test-suite/csharp/member_pointer_runme.cs Normal file
View file

@ -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);
}
}

58
Examples/test-suite/java/member_pointer_runme.java Normal file
View file

@ -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);
}
}

101
Examples/test-suite/member_pointer.i Normal file
View file

@ -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;

47
Examples/test-suite/perl5/member_pointer_runme.pl Normal file
View file

@ -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);

43
Examples/test-suite/python/member_pointer_runme.py Normal file
View file

@ -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))

54
Examples/test-suite/ruby/member_pointer_runme.rb Normal file
View file

@ -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)

46
Examples/test-suite/tcl/member_pointer_runme.tcl Normal file
View file

@ -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]