tolua/src/tests/tclass.pkg


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

$#include "tclass.h"

$renaming ^Tst_ @

class Tst_Dummy;

class Tst_A
{
  static Tst_A* last;
  Tst_A ();
  virtual const char* a ();
  class Tst_AA
  {
    Tst_AA () {}
    ~Tst_AA () {}
    const char* aa () { return "AA"; }
  };
  class Tst_BB : public Tst_AA
  {
    Tst_BB () {}
    ~Tst_BB () {}
    Tst_AA* Base () { return this; }
    const char* classname () const {
      return "Tst_BB";
    }
  };
};

class Tst_B : public Tst_A
{
  static Tst_B* last;
  Tst_B ();
  virtual const char* b ();
};

class Tst_C@luaC : public Tst_B
{
  static Tst_C* last;
  Tst_C (int n);
  ~Tst_C ();
  virtual const char* c ();
};

class D // private destructor
{
  D () {}
};

Tst_A::Tst_AA* Tst_create_aa ();
bool Tst_is_aa (Tst_A::Tst_AA* obj);