source: orxonox.OLD/branches/script_engine/src/lib/script_engine/account.cc @ 7975

    #include "luaincl.h"
    #include <iostream>

    #include "lunar.h"

    class Account {
      lua_Number m_balance;
    public:
      static const char className[];
      static Lunar<Account>::RegType methods[];

      Account(lua_State *L)      { m_balance = luaL_checknumber(L, 1); }
      int deposit (lua_State *L) { m_balance += luaL_checknumber(L, 1); return 0; }
      int withdraw(lua_State *L) { m_balance -= luaL_checknumber(L, 1); return 0; }
      int balance (lua_State *L) { lua_pushnumber(L, m_balance); return 1; }
      ~Account() { printf("deleted Account (%p)\n", this); }
    };

    const char Account::className[] = "Account";


    #define method(class, name) {#name, &class::name}

    Lunar<Account>::RegType Account::methods[] = {
      method(Account, deposit),
      method(Account, withdraw),
      method(Account, balance),
      {0,0}
    };


    class Object {
      public:
        static const char className[];
        static Lunar<Object>::RegType methods[];

        Object(lua_State* L) {callCount = 0; }
        ~Object() { printf("deleted Object (%p)\n", this); }

        int printName(lua_State* L)
        {
          printf("Hi i'm object %p ! This is the %i. call.\n",this,callCount);
          callCount ++;
          return 0;
        }


      private:
        int callCount;

    };

    const char Object::className[] = "Object";

    Lunar<Object>::RegType Object::methods[] = {
      method(Object, printName),
      {0,0}
    };

    int main(int argc, char *argv[])
    {
      lua_State *L = lua_open();

      luaopen_base(L);
      luaopen_table(L);
      luaopen_io(L);
      luaopen_string(L);
      luaopen_math(L);
      luaopen_debug(L);

      Lunar<Account>::Register(L);
      Lunar<Object>::Register(L);

      Object* obj= new Object(L);
      Lunar<Object>::insertObject(L,obj,"Obj",false);
      //delete obj;

      if(argc>1) lua_dofile(L, argv[1]);

      lua_setgcthreshold(L, 0);  // collected garbage
      lua_close(L);
      return 0;
    }