Остановка скриптов, luabind и потоки - C++ Builder - Ответ 563650

class TFunctionsLua : public TLua
{
public:
//---------------------------------------------------------------------------
int Lua_ShowMessage(lua_State*st)
{
TLua lua(st);
int top=lua.GetTop();
if(top==1) ShowMessage(lua.ToString(top));
return 0;
}
void RegFunctions()
{
RegFunction("ShowMessage",Lua_ShowMessage);
}
//---------------------------------------------------------------------------
};

class TLua
{
lua_State*lua;
bool isowner;
public:
TLua()
     {
     lua=luaL_newstate();
     isowner=true;
     if(lua==NULL)
          {
          lua=NULL;
          throw Exception("Lua was not initialized");
          }
     LoadAllStdLibs();
     }
TLua(lua_State*lua_state)
     {
     lua=lua_state;
     isowner=false;
     }
 
~TLua()
     {
     if(isowner==true)
          {
          if(lua!=NULL)
               {
               lua_close(lua);
               }
          }
     }
__inline void LoadAllStdLibs()
     {
     luaL_openlibs(lua);
     }
__inline void DoStr(char*str)
     {
     int res=luaL_dostring(lua, str);
     if(res!=0)throw Exception(lua_tostring(lua,-1));
     }
 
__inline void DoFile(char*str)
     {
     int res=luaL_dofile(lua, str);
     if(res!=0)throw Exception(lua_tostring(lua,-1));
     }
__inline int RegFunction(char*name,int(*poin)(lua_State*st))
     {
     lua_register(lua,name,poin);
     return 0;
     }
__inline void GlobalField(char*field)
     {
     lua_getfield(lua,LUA_GLOBALSINDEX,field);
     }
__inline int ToInteger(int index)
     {
     return lua_tointeger(lua,index);
     }
__inline double ToNumber(int index)
     {
     return lua_tonumber(lua,index);
     }
__inline const char*ToString(int index)
     {
     return lua_tostring(lua,index);
     }
__inline void Push(int i)
     {
     lua_pushinteger(lua,i);
     }
__inline void Push(char*str)
     {
     lua_pushstring(lua,str);
     }
__inline void PushNil()
     {
     lua_pushnil(lua);
     }
__inline void PushNumber(double d)
     {
     lua_pushnumber(lua,d);
     }
__inline void  Pop(int count)
     {
     lua_pop(lua,count);
     }
__inline int GetTop()
     {
     return lua_gettop(lua);
     }
__inline void SetTop(int top)
     {
     lua_settop(lua,top);
     }
__inline int GetType(int index)
     {
     return lua_type(lua,index);
     }
__inline const char*GetTypeName(int TypeCode)
     {
     return lua_typename(lua,TypeCode);
     }
void Error()
     {
     lua_error(lua);
     }
};