/tags/rel-1-3-26/SWIG/Examples/perl5/import/foo.h

 1#include "base.h"
 2
 3class Foo : public Base {
 4 public:
 5  Foo() { }
 6  ~Foo() { }
 7  virtual void A() { 
 8    printf("I'm Foo::A\n");
 9  }
10  void B() {
11    printf("I'm Foo::B\n");
12  }
13  virtual Base *toBase() {
14    return static_cast<Base *>(this);
15  }
16  static Foo *fromBase(Base *b) {
17    return dynamic_cast<Foo *>(b);
18  }
19};
20
21