C++のクラスをバインドする



		// テストクラス
		class Test 
		{
			int _x;
		 public:
			Test(int x) : _x(x) {
				printf("ctor: %p, %d\n", this, _x);
			}
			~Test() {
				printf("dtor: %p\n", this);
			}
			void talk() {
				printf("talk(), %p, %d\n", this, _x);
			}

			void *operator new ( size_t sz, void *mem ) {
				return mem;
			}
		};



		メソッドをコールするために lua へバインドするための関数でラップする。


		static int l_talk(lua_State* L) 
		{
	    // ユーザデータ(ポインタ)を Lua Script からもらう。
			Test* p = (Test*)lua_touserdata(L, -1);

			// メソッド本体をコール
			p->talk();

			// 戻り値の数
			return 0;    
		}


		Lua から new をしたら, C++ 側では実際にオブジェクトを作成する。
		さらにメソッドをフィールドアクセスの構文( p.method()  )で呼べるように
		__index を指定したメタテーブルをオブジェクトに設定する。


		int l_new( lua_State *s )
		{
			// Lua 側から数値パラメータを一個もらう。
			int i = lua_tonumber( s, -1 );

			// オブジェクトを new して、そのポインタを Luaスタックに積む。
			void *p = lua_newuserdata ( s, sizeof( Test ) );
			void *q = new(p) Test( i );

			// クロージャで関連づけたテーブルを取り出し、
			lua_pushvalue( s, lua_upvalueindex(1));
			//	メタテーブルとして設定する
			lua_setmetatable( s, -2);


			// ポインタを Lua Script 側へ返す。
			// これで Lua 側からオブジェクトをハンドルできる。
			return 1;
		}


		Lua からは次のように作成する。

			-- オブジェクトを生成して、ハンドルをもらう。
			-- Test テーブルの new メソッドをコールする。
			local p = Test.new( 5 );


			-- 操作したいハンドルを指定してメソッドをコールする。
			-- オブジェクト p に対して p.talk と書けるのはフィールドアクセス( __index )をオーバーライドしたから
			p.talk( p );


			-- : を利用することで、第一引数を省略できメソッド的な記述ができる。
			-- やっているのは上と同じ。
			p:talk();


			-- 別オブジェクトをつくる。
			local p2 = Test.new( 3 );





		void defclass( lua_State *s )
		{

			// クラスをテーブルとして生成
			lua_newtable( s );

						// ユーザデータで共有するメタテーブル用テーブル作成
						//  インスタンス毎に setmetatable される
						lua_newtable( s );

								// __index をオーバーライドすることで  obj.method() という記述した( フィールドアクセス )時に
								// メソッド用関数のテーブルを参照させる。
								// setfield によって値がポップするためコピーしておく。
								lua_pushvalue(s, -1);    // メタテーブル自身
								lua_setfield( s, -2, "__index");


								// クラスのメソッドをテーブルを登録しておく
								lua_pushcfunction( s, l_talk );
								lua_setfield( s, -2, "talk");


						// テーブルを上位値としてクロージャ生成
						// 後で new() をした時にテーブルを取り出し instance のメタテーブルとして設定する。
						lua_pushcclosure( s, l_new, 1);
						lua_setfield( s, -2, "new");


			 // 生成したクラス(テーブル)を Test という名前でグローバル変数に公開
			 lua_setglobal( s, "Test");
		}