swig/Examples/test-suite/director_classic.i
William S Fulton eafd1d8413 More comprehensive test
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9227 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2006-07-27 21:57:35 +00:00

53 lines
1 KiB
OpenEdge ABL
Executable file

%module(directors="1") director_classic
%include "std_string.i"
%feature("director");
%inline %{
#include <cstdio>
#include <iostream>
#include <string>
struct Being {
virtual std::string id() { return "Being"; }
virtual ~Being() {}
};
struct Person : Being {
virtual std::string id() { return "Person"; }
};
struct Child : Person {
virtual std::string id() { return "Child"; }
};
struct GrandChild : Child {
virtual std::string id() { return "GrandChild"; }
};
// Orphans - don't override id() in C++
struct OrphanPerson : Person {
// no overridden id()
};
struct OrphanChild : Child {
// no overridden id()
};
class Caller {
private:
Person *_callback;
public:
Caller(): _callback(0) {}
~Caller() { delCallback(); }
void delCallback() { delete _callback; _callback = 0; }
void setCallback(Person *cb) { delCallback(); _callback = cb; }
void resetCallback() { _callback = 0; }
std::string call() { if (_callback) return _callback->id(); else return "oops"; }
Person* baseClass() { return _callback; }
};
%}