public void typename()
{
var L = Melua.luaL_newstate();
Melua.lua_pushinteger(L, 123);
Assert.Equal("number", Melua.luaL_typename(L, -1));
Melua.lua_pushstring(L, "123");
Assert.Equal("string", Melua.luaL_typename(L, -1));
Melua.lua_newtable(L);
Assert.Equal("table", Melua.luaL_typename(L, -1));
}
public void tonumber()
{
var L = Melua.luaL_newstate();
Melua.lua_pushstring(L, "123");
Assert.Equal(123, Melua.lua_tonumber(L, -1));
Melua.lua_pushstring(L, "0x123");
Assert.Equal(0x123, Melua.lua_tonumber(L, -1));
Melua.lua_pushstring(L, "0x12AB34");
Assert.Equal(0x12AB34, Melua.lua_tonumber(L, -1));
}
public void type()
{
var L = Melua.luaL_newstate();
Melua.lua_pushinteger(L, 123);
Assert.Equal(Melua.LUA_TNUMBER, Melua.lua_type(L, -1));
Melua.lua_pushstring(L, "123");
Assert.Equal(Melua.LUA_TSTRING, Melua.lua_type(L, -1));
Melua.lua_newtable(L);
Assert.Equal(Melua.LUA_TTABLE, Melua.lua_type(L, -1));
}
public void tocfunction()
{
var L = Melua.luaL_newstate();
var n = 0;
Melua.melua_register(L, "foo", _ => { n += 1; return(0); });
Melua.melua_register(L, "bar", _ => { var func = Melua.lua_tocfunction(L, 1); func(L); return(0); });
Melua.luaL_dostring(L, "foo()");
Assert.Equal(1, n);
Melua.luaL_dostring(L, "bar(foo)");
Assert.Equal(2, n);
}
public void tostring()
{
var L = Melua.luaL_newstate();
Melua.lua_pushinteger(L, 123);
var str = Melua.lua_tostring(L, -1);
Assert.Equal("123", str);
Melua.lua_newtable(L);
Assert.Equal(null, Melua.lua_tostring(L, -1));
Melua.lua_pushstring(L, "foobar");
Assert.Equal("foobar", Melua.lua_tostring(L, -1));
}
public void createtable()
{
var L = Melua.luaL_newstate();
Melua.melua_openlibs(L);
var rnd = new Random(Environment.TickCount);
var foo = 0;
var bar = "";
var xyz = "";
var checkFoo = rnd.Next();
var checkBar = rnd.Next().ToString("X8").Substring(1, 6);
var checkXyz = rnd.Next().ToString("X8").Substring(2, 5);
Melua.melua_register(L, "getdata", NL =>
{
Melua.melua_createtable(NL);
Melua.melua_createfield(NL, "foo", checkFoo);
Melua.melua_createfield(NL, "bar", checkBar);
Melua.melua_startsubtable(NL, "foobar");
Melua.melua_createfield(NL, "xyz", checkXyz);
Melua.melua_endsubtable(NL);
return(1);
});
Melua.melua_register(L, "checkdata", NL =>
{
foo = Melua.luaL_checkinteger(NL, 1);
bar = Melua.luaL_checkstring(NL, 2);
xyz = Melua.luaL_checkstring(NL, 3);
Melua.lua_settop(L, 0);
return(0);
});
var result = Melua.luaL_dostring(L, @"
local data = getdata()
checkdata(data.foo, data.bar, data.foobar.xyz)
");
Assert.Equal(checkFoo, foo);
Assert.Equal(checkBar, bar);
Assert.Equal(checkXyz, xyz);
}
/// <summary>
/// Initializes global Lua state.
/// </summary>
private void InitializeLua()
{
_gL = Melua.luaL_newstate();
Melua.melua_openlib(_gL, new[]
{
new Melua.LuaLib("", Melua.meluaopen_basesafe),
new Melua.LuaLib("table", Melua.luaopen_table),
new Melua.LuaLib("string", Melua.luaopen_string),
new Melua.LuaLib("math", Melua.luaopen_math),
});
Melua.lua_atpanic(_gL, Melua.CreateFunctionReference(_gL, this.OnPanic));
this.RegisterFunctions();
}
/// <summary>
/// Initializes global Lua state.
/// </summary>
private void InitializeLua()
{
GL = Melua.luaL_newstate();
Melua.melua_openlib(GL, LuaLib.BaseSafe, LuaLib.Table, LuaLib.String, LuaLib.Math);
Melua.lua_atpanic(GL, Melua.CreateFunctionReference(GL, OnPanic));
// Functions
// --------------------------------------------------------------
// Setup
Register(addnpc);
Register(addwarp);
// Dialog
Register(msg);
Register(select);
Register(close);
Register(input);
Register(numinput);
Register(openshop);
// Information
Register(getpc);
Register(getnpc);
Register(gettime);
// Inventory
Register(hasitem);
Register(countitem);
Register(additem);
Register(removeitem);
// Action
Register(warp);
Register(resetstats);
Register(changehair);
Register(spawn);
// Others
Register(var);
Register(logdebug);
}
/// <summary>
/// Initializes scripting environment.
/// </summary>
public void Initialize()
{
GL = Melua.luaL_newstate();
Melua.melua_openlib(GL, LuaLib.Table, LuaLib.String, LuaLib.Math);
var func = new Melua.LuaNativeFunction(OnPanic);
_functions.Add(func);
Melua.lua_atpanic(GL, func);
// Functions
// --------------------------------------------------------------
// Output
Register(print);
Register(logdebug);
// Setup
Register(addnpc);
Register(addwarp);
// Dialog
Register(msg);
Register(select);
Register(close);
Register(input);
Register(numinput);
// Information
Register(getpc);
Register(getnpc);
Register(gettime);
// Inventory
Register(hasitem);
Register(countitem);
// Action
Register(warp);
Register(resetstats);
Register(changehair);
Register(spawn);
}
public void LoadLua()
{
if (L != IntPtr.Zero)
{
Melua.lua_close(L);
}
L = Melua.luaL_newstate();
Melua.melua_openlib(L, LuaLib.BaseSafe);
Melua.melua_register(L, "loadxmlfile", loadxmlfile);
Melua.melua_register(L, "setattributes", setattributes);
Melua.melua_register(L, "addelement", addelement);
Melua.melua_register(L, "removeelements", removeelements);
Melua.melua_register(L, "replacefile", replacefile);
Melua.melua_register(L, "replace", replace);
Melua.melua_register(L, "include", include);
Melua.melua_register(L, "require", require);
}
public void userdata()
{
var L = Melua.luaL_newstate();
Melua.melua_opensafelibs(L);
var n1 = 0;
// Ctor
Melua.luaL_register(L, "Test", new[]
{
new MeluaLib.Melua.LuaLib("new", NL =>
{
var test = new UserDataTest()
{
N1 = 1234
};
var size = Marshal.SizeOf(test);
var ptr = Melua.lua_newuserdata(L, size);
Melua.luaL_getmetatable(L, "Melua.Test");
Melua.lua_setmetatable(L, -2);
Marshal.StructureToPtr(test, ptr, true);
return(1);
})
});
// Meta table for test userdata type
Melua.luaL_newmetatable(L, "Melua.Test");
Melua.lua_pushstring(L, "__index");
Melua.lua_pushvalue(L, -2);
Melua.lua_settable(L, -3);
Melua.luaL_register(L, null, new[]
{
new MeluaLib.Melua.LuaLib("setN1", _ =>
{
var ptr = Melua.luaL_checkudata(L, 1, "Melua.Test");
var val = Melua.luaL_checkinteger(L, 2);
// Either marshal back and forth or use unsafe
var test = (UserDataTest)Marshal.PtrToStructure(ptr, typeof(UserDataTest));
test.N1 = val;
Marshal.StructureToPtr(test, ptr, true);
//unsafe
//{
// var test = (UserDataTest*)ptr;
// test->N1 = val;
//}
return(0);
}),
new MeluaLib.Melua.LuaLib("getN1", _ =>
{
var ptr = Melua.luaL_checkudata(L, 1, "Melua.Test");
var test = (UserDataTest)Marshal.PtrToStructure(ptr, typeof(UserDataTest));
Melua.lua_pushinteger(L, test.N1);
return(1);
})
});
// Test method
Melua.melua_register(L, "testgetn1", _ =>
{
n1 = Melua.lua_tointeger(L, -1);
return(0);
});
var result = Melua.luaL_dostring(L, @"
local t = Test.new()
t:setN1(5678)
testgetn1(t:getN1())
");
if (result != 0)
{
throw new Exception(Melua.lua_tostring(L, -1));
}
Assert.Equal(n1, 5678);
}