swig/Examples/test-suite/li_factory.i
Marcelo Matus 44264e5544 add the factory library for UTL
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8865 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2006-02-22 18:42:20 +00:00

37 lines
703 B
OpenEdge ABL

%module li_factory
%include factory.i
%newobject Geometry::create;
%factory(Geometry *Geometry::create, Point, Circle);
%inline {
struct Geometry {
enum GeomType{
POINT,
CIRCLE
};
virtual ~Geometry() {}
virtual int draw() = 0;
static Geometry *create(GeomType i);
};
struct Point : Geometry {
int draw() { return 1; }
double width() { return 1.0; }
};
struct Circle : Geometry {
int draw() { return 2; }
double radius() { return 1.5; }
};
Geometry *Geometry::create(GeomType type) {
switch (type) {
case POINT: return new Point();
case CIRCLE: return new Circle();
default: return 0;
}
}
}