rainmeter-studio/Library/lua/LuaScript.cpp

216 lines
4.6 KiB
C++
Raw Normal View History

/*
Copyright (C) 2010 Matt King, Birunthan Mohanathas
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
#include "../StdAfx.h"
#include "LuaScript.h"
#include "LuaManager.h"
#include "../Rainmeter.h"
/*
** The constructor
**
*/
LuaScript::LuaScript(const char* file) :
m_Ref(LUA_NOREF),
m_Initialized(true)
{
lua_State* L = LuaManager::GetState();
int result = luaL_loadfile(L, file);
// If the file loaded okay.
if (result == 0)
{
// Create the table this script will reside in
lua_newtable(L);
// Create the metatable that will store the global table
lua_createtable(L, 0, 1);
2011-03-29 19:21:57 +00:00
// Push the global teble
lua_pushvalue(L, LUA_GLOBALSINDEX);
2011-03-29 19:21:57 +00:00
// Set the __index of the table to be the global table
lua_setfield(L, -2, "__index");
// Set the metatable for the script's table
lua_setmetatable(L, -2);
// Put the table into the global table
m_Ref = luaL_ref(L, LUA_GLOBALSINDEX);
lua_rawgeti(L, LUA_GLOBALSINDEX, m_Ref);
// Set the environment for the function to be run in to be the table that
// has been created for the script/
lua_setfenv(L, -2);
// Execute the Lua script
result = lua_pcall(L, 0, 0, 0);
if (result)
{
m_Initialized = false;
LuaManager::ReportErrors(L);
2011-02-10 08:48:04 +00:00
luaL_unref(L, LUA_GLOBALSINDEX, m_Ref);
m_Ref = LUA_NOREF;
}
}
else
{
m_Initialized = false;
LuaManager::ReportErrors(L);
}
}
/*
** The destructor
**
*/
LuaScript::~LuaScript()
{
lua_State* L = LuaManager::GetState();
luaL_unref(L, LUA_GLOBALSINDEX, m_Ref);
}
/*
** Checks if given function is defined in the script file.
**
*/
bool LuaScript::IsFunction(const char* funcName)
{
lua_State* L = LuaManager::GetState();
bool bExists = false;
if (m_Initialized)
{
// Push our table onto the stack
lua_rawgeti(L, LUA_GLOBALSINDEX, m_Ref);
// Push the function onto the stack
lua_getfield(L, -1, funcName);
if (lua_isfunction(L, -1))
{
bExists = true;
}
// Pop both the table and the function off the stack.
lua_pop(L, 2);
}
return bExists;
}
/*
** Runs given function in script file.
**
*/
void LuaScript::RunFunction(const char* funcName)
{
lua_State* L = LuaManager::GetState();
if (m_Initialized)
{
// Push our table onto the stack
lua_rawgeti(L, LUA_GLOBALSINDEX, m_Ref);
// Push the function onto the stack
lua_getfield(L, -1, funcName);
if (lua_pcall(L, 0, 0, 0))
{
LuaManager::ReportErrors(L);
}
lua_pop(L, 1);
}
}
/*
** Runs given function in script file and stores the retruned number or string.
**
*/
int LuaScript::RunFunctionWithReturn(const char* funcName, double& numValue, std::wstring& strValue)
{
lua_State* L = LuaManager::GetState();
int type = LUA_TNIL;
if (m_Initialized)
{
// Push our table onto the stack
lua_rawgeti(L, LUA_GLOBALSINDEX, m_Ref);
// Push the function onto the stack
lua_getfield(L, -1, funcName);
if (lua_pcall(L, 0, 1, 0))
{
LuaManager::ReportErrors(L);
lua_pop(L, 1);
}
else
{
type = lua_type(L, -1);
if (type == LUA_TNUMBER)
{
numValue = lua_tonumber(L, -1);
}
else if (type == LUA_TSTRING)
{
const char* str = lua_tostring(L, -1);
strValue = ConvertToWide(str);
2011-08-01 17:20:24 +00:00
numValue = strtod(str, NULL);
}
lua_pop(L, 2);
}
}
return type;
}
/*
** Runs given string in the context of the script file.
**
*/
void LuaScript::RunString(const char* str)
{
lua_State* L = LuaManager::GetState();
if (m_Initialized)
{
// Load the string as a Lua chunk
if (luaL_loadstring(L, str))
{
LuaManager::ReportErrors(L);
}
// Push our table onto the stack
lua_rawgeti(L, LUA_GLOBALSINDEX, m_Ref);
// Pop table and set the environment of the loaded chunk to it
lua_setfenv(L, -2);
if (lua_pcall(L, 0, 0, 0))
{
LuaManager::ReportErrors(L);
}
}
}