X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fyoink;a=blobdiff_plain;f=src%2FMoof%2FScript.hh;h=f67c62c20d27f67a09732650d4cdb4adb70b88c4;hp=a1b536cf1a3d49786725c6ac8e07f57134ff84f6;hb=7e84479de612a4ce287c6f63deb014b447a993ec;hpb=8a1acac01b444dccf8b57cedf08392ada2e473c1

diff --git a/src/Moof/Script.hh b/src/Moof/Script.hh
index a1b536c..f67c62c 100644
--- a/src/Moof/Script.hh
+++ b/src/Moof/Script.hh
@@ -59,8 +59,10 @@ class Script;
 typedef boost::shared_ptr<Script> ScriptP;
 
 
-struct Script
+class Script
 {
+public:
+
 	typedef boost::function<int(Script&)> Function;
 
 	enum Type
@@ -123,7 +125,7 @@ struct Script
 		 */
 		Value(lua_State* s = 0, int i = 0) :
 			index(i),
-			state(s) {}
+			mState(s) {}
 
 		/**
 		 * A copied value presently points to the same value, except the real
@@ -134,22 +136,22 @@ struct Script
 
 		Value(const Value& copy) :
 			index(copy.getRealIndex()),
-			state(copy.state) {}
+			mState(copy.mState) {}
 
 
 		// check the type of the value
-		bool isBoolean() const   { return (bool)lua_isboolean(state, index); }
-		bool isFunction() const  { return (bool)lua_isfunction(state, index); }
-		bool isNil() const       { return (bool)lua_isnil(state, index); }
-		bool isNone() const      { return (bool)lua_isnone(state, index); }
-		bool isValid() const     { return state != 0 && !isNone(); }
-		bool isNoneOrNil() const { return (bool)lua_isnoneornil(state, index); }
-		bool isNumber() const    { return (bool)lua_isnumber(state, index); }
-		bool isString() const    { return (bool)lua_isstring(state, index); }
-		bool isTable() const     { return (bool)lua_istable(state, index); }
-		bool isThread() const    { return (bool)lua_isthread(state, index); }
-		bool isData() const      { return (bool)lua_isuserdata(state, index); }
-		bool isLightData() const { return (bool)lua_islightuserdata(state, index); }
+		bool isBoolean() const   { return (bool)lua_isboolean(mState, index); }
+		bool isFunction() const  { return (bool)lua_isfunction(mState, index); }
+		bool isNil() const       { return (bool)lua_isnil(mState, index); }
+		bool isNone() const      { return (bool)lua_isnone(mState, index); }
+		bool isValid() const     { return mState != 0 && !isNone(); }
+		bool isNoneOrNil() const { return (bool)lua_isnoneornil(mState, index); }
+		bool isNumber() const    { return (bool)lua_isnumber(mState, index); }
+		bool isString() const    { return (bool)lua_isstring(mState, index); }
+		bool isTable() const     { return (bool)lua_istable(mState, index); }
+		bool isThread() const    { return (bool)lua_isthread(mState, index); }
+		bool isData() const      { return (bool)lua_isuserdata(mState, index); }
+		bool isLightData() const { return (bool)lua_islightuserdata(mState, index); }
 
 		/**
 		 * Check the value and throw an error if its the wrong type.  There's a
@@ -168,54 +170,54 @@ struct Script
 		{
 			if (type != getType())
 			{
-				luaL_typerror(state, index, lua_typename(state, type));
+				luaL_typerror(mState, index, lua_typename(mState, type));
 			}
 		}
 
 		void throwError(const char* error)
 		{
-			luaL_argerror(state, index, error);
+			luaL_argerror(mState, index, error);
 		}
 
 
 		Value& requireBoolean()
 		{
-			if (!isBoolean()) luaL_typerror(state, index, "boolean");
+			if (!isBoolean()) luaL_typerror(mState, index, "boolean");
 			return *this;
 		}
 		Value& requireNumber()
 		{
-			if (!isNumber()) luaL_typerror(state, index, "number");
+			if (!isNumber()) luaL_typerror(mState, index, "number");
 			return *this;
 		}
 		Value& requireString()
 		{
-			if (!isString()) luaL_typerror(state, index, "string");
+			if (!isString()) luaL_typerror(mState, index, "string");
 			return *this;
 		}
 		Value& requireTable()
 		{
-			if (!isTable()) luaL_typerror(state, index, "table");
+			if (!isTable()) luaL_typerror(mState, index, "table");
 			return *this;
 		}
 		Value& requireFunction()
 		{
-			if (!isFunction()) luaL_typerror(state, index, "function");
+			if (!isFunction()) luaL_typerror(mState, index, "function");
 			return *this;
 		}
 		Value& requireData()
 		{
-			if (!isData()) luaL_typerror(state, index, "data");
+			if (!isData()) luaL_typerror(mState, index, "data");
 			return *this;
 		}
 		Value& requireNil()
 		{
-			if (!isNil()) luaL_typerror(state, index, "nil");
+			if (!isNil()) luaL_typerror(mState, index, "nil");
 			return *this;
 		}
 		Value& requireThread()
 		{
-			if (!isThread()) luaL_typerror(state, index, "thread");
+			if (!isThread()) luaL_typerror(mState, index, "thread");
 			return *this;
 		}
 
@@ -226,7 +228,7 @@ struct Script
 
 		Type getType() const
 		{
-			return (Type)lua_type(state, index);
+			return (Type)lua_type(mState, index);
 		}
 
 		/**
@@ -235,7 +237,7 @@ struct Script
 
 		std::string getTypeName() const
 		{
-			return std::string(luaL_typename(state, index));
+			return std::string(luaL_typename(mState, index));
 		}
 
 
@@ -245,12 +247,12 @@ struct Script
 
 		size_t getLength() const
 		{
-			return lua_objlen(state, index);
+			return lua_objlen(mState, index);
 		}
 
 		int getRealIndex() const
 		{
-			if (index < 0) return lua_gettop(state) + 1 + index;
+			if (index < 0) return lua_gettop(mState) + 1 + index;
 			else           return index;
 		}
 
@@ -261,13 +263,13 @@ struct Script
 
 		const void* getIdentifier() const
 		{
-			return lua_topointer(state, index);
+			return lua_topointer(mState, index);
 		}
 
 
 		bool operator == (const Value& rhs) const
 		{
-			return (bool)lua_equal(state, index, rhs.index);
+			return (bool)lua_equal(mState, index, rhs.index);
 		}
 		bool operator != (const Value& rhs) const
 		{
@@ -275,7 +277,7 @@ struct Script
 		}
 		bool operator < (const Value& rhs) const
 		{
-			return (bool)lua_lessthan(state, index, rhs.index);
+			return (bool)lua_lessthan(mState, index, rhs.index);
 		}
 		bool operator <= (const Value& rhs) const
 		{
@@ -291,7 +293,7 @@ struct Script
 		}
 		operator bool () const
 		{
-			return (bool)lua_toboolean(state, index);
+			return (bool)lua_toboolean(mState, index);
 		}
 
 		Value& operator = (const Value& rhs)
@@ -311,7 +313,7 @@ struct Script
 		{
 			if (isNumber())
 			{
-				value = (T)lua_tointeger(state, index);
+				value = (T)lua_tointeger(mState, index);
 				return true;
 			}
 			return false;
@@ -321,7 +323,7 @@ struct Script
 		{
 			if (isNumber())
 			{
-				value = (float)lua_tonumber(state, index);
+				value = (float)lua_tonumber(mState, index);
 				return true;
 			}
 			return false;
@@ -330,7 +332,7 @@ struct Script
 		{
 			if (isNumber())
 			{
-				value = (double)lua_tonumber(state, index);
+				value = (double)lua_tonumber(mState, index);
 				return true;
 			}
 			return false;
@@ -340,7 +342,7 @@ struct Script
 		{
 			if (isBoolean())
 			{
-				value = (bool)lua_toboolean(state, index);
+				value = (bool)lua_toboolean(mState, index);
 				return true;
 			}
 			return false;
@@ -351,7 +353,7 @@ struct Script
 			if (isString())
 			{
 				size_t size;
-				const char* str = lua_tolstring(state, index, &size);
+				const char* str = lua_tolstring(mState, index, &size);
 				value.assign(str, size);
 				return true;
 			}
@@ -365,19 +367,19 @@ struct Script
 
 			array.clear();
 
-			Value	value(state, -1);
+			Value	value(mState, -1);
 			int		realIndex = getRealIndex();
 
 			bool done = false;
 			for (int i = 1; !done; ++i)
 			{
-				lua_rawgeti(state, realIndex, i);
+				lua_rawgeti(mState, realIndex, i);
 
 				T v;
 				if (value.get(v)) array.push_back(v);
 				else              done = true;
 
-				lua_pop(state, 1);
+				lua_pop(mState, 1);
 			}
 
 			return true;
@@ -390,12 +392,12 @@ struct Script
 
 			dictionary.clear();
 
-			Value	key(state, -2);
-			Value	value(state, -1);
+			Value	key(mState, -2);
+			Value	value(mState, -1);
 			int		realIndex = getRealIndex();
 
-			lua_pushnil(state);
-			while (lua_next(state, realIndex) != 0)
+			lua_pushnil(mState);
+			while (lua_next(mState, realIndex) != 0)
 			{
 				std::string k;
 				if (!key.isNumber() && key.get(k))
@@ -403,9 +405,9 @@ struct Script
 					T v;
 					if (value.get(v)) dictionary[k] = v;
 				}
-				lua_pop(state, 1);
+				lua_pop(mState, 1);
 			}
-			lua_pop(state, 1);
+			lua_pop(mState, 1);
 
 			return true;
 		}
@@ -418,7 +420,7 @@ struct Script
 
 		void pushCopy() const
 		{
-			lua_pushvalue(state, index);
+			lua_pushvalue(mState, index);
 		}
 
 		/**
@@ -427,12 +429,12 @@ struct Script
 
 		void replaceWithTop()
 		{
-			lua_replace(state, index);
+			lua_replace(mState, index);
 		}
 
 		void remove()
 		{
-			lua_remove(state, index);
+			lua_remove(mState, index);
 		}
 
 		/**
@@ -442,42 +444,47 @@ struct Script
 
 		void insertTopHere()
 		{
-			lua_insert(state, index);
+			lua_insert(mState, index);
 		}
 
 		
 		void pushMetatable() const
 		{
-			lua_getmetatable(state, index);
+			lua_getmetatable(mState, index);
 		}
 
 		void pushField() const
 		{
-			lua_gettable(state, index);
+			lua_gettable(mState, index);
 		}
 
 		void pushField(const std::string& name) const
 		{
-			lua_getfield(state, index, name.c_str());
+			lua_getfield(mState, index, name.c_str());
+		}
+
+		void pushField(size_t index) const
+		{
+			lua_pushinteger(mState, lua_Integer(index));
+			pushField();
 		}
 
 
 	private:
 
-		lua_State* state;
+		lua_State* mState;
 	};
 
 
 	Script() :
-		mState(luaL_newstate())
+		mState(0)
 	{
-		lua_pushlightuserdata(mState, this);
-		lua_setfield(mState, LUA_REGISTRYINDEX, "_script_obj");
+		reset();
 	}
 
 	~Script()
 	{
-		if (mIsMainThread) lua_close(mState);
+		destroy();
 	}
 
 
@@ -486,12 +493,77 @@ struct Script
 		return ScriptP(new Script);
 	}
 
+	void reset()
+	{
+		if (mState) destroy();
+		mState = luaL_newstate();
+		lua_pushlightuserdata(mState, this);
+		lua_setfield(mState, LUA_REGISTRYINDEX, "_script_obj");
+	}
+
 
 	void importStandardLibraries()
 	{
 		luaL_openlibs(mState);
 	}
 
+	void importBaseLibrary()
+	{
+		lua_pushcfunction(mState, luaopen_base);
+		push(LUA_COLIBNAME);
+		call(1, 0);
+	}
+
+	void importPackageLibrary()
+	{
+		lua_pushcfunction(mState, luaopen_package);
+		push(LUA_LOADLIBNAME);
+		call(1, 0);
+	}
+
+	void importStringLibrary()
+	{
+		lua_pushcfunction(mState, luaopen_string);
+		push(LUA_STRLIBNAME);
+		call(1, 0);
+	}
+
+	void importTableLibrary()
+	{
+		lua_pushcfunction(mState, luaopen_table);
+		push(LUA_TABLIBNAME);
+		call(1, 0);
+	}
+
+	void importMathLibrary()
+	{
+		lua_pushcfunction(mState, luaopen_math);
+		push(LUA_MATHLIBNAME);
+		call(1, 0);
+	}
+
+	void importIoLibrary()
+	{
+		lua_pushcfunction(mState, luaopen_io);
+		push(LUA_IOLIBNAME);
+		call(1, 0);
+	}
+
+	void importOsLibrary()
+	{
+		lua_pushcfunction(mState, luaopen_os);
+		push(LUA_OSLIBNAME);
+		call(1, 0);
+	}
+
+	void importDebugLibrary()
+	{
+		lua_pushcfunction(mState, luaopen_debug);
+		push(LUA_DBLIBNAME);
+		call(1, 0);
+	}
+
+
 	void importFunction(const std::string& name, const Function& function)
 	{
 		push(function);
@@ -794,6 +866,7 @@ struct Script
 		lua_gc(mState, LUA_GCSETSTEPMUL, step);
 	}
 
+
 private:
 
 	Script(lua_State* state) :
@@ -812,6 +885,11 @@ private:
 		return (*function)(*script);
 	}
 
+	void destroy()
+	{
+		if (mIsMainThread) lua_close(mState);
+	}
+
 	lua_State*			mState;
 	bool				mIsMainThread;
 	std::list<Function>	mFunctions;