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 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);
}
private int DoPath(IntPtr L, string path, bool errorOnMissing)
{
var fullPath = path;
var isHttp = (path.StartsWith("http://") || path.StartsWith("https://"));
var status = 0;
if (isHttp)
{
try
{
var wc = new WebClient();
var script = wc.DownloadString(fullPath);
status = Melua.luaL_dostring(L, script);
}
catch (WebException ex)
{
if (errorOnMissing)
{
return(Melua.melua_error(L, "Failed to include remote script '{0}' ({1}).", fullPath, ex.Message));
}
}
}
else
{
fullPath = Path.GetFullPath(Path.Combine(_cwd, path));
if (!IsInsideCwd(fullPath))
{
return(Melua.melua_error(L, "Invalid path. ({0})", path));
}
if (!File.Exists(fullPath))
{
if (errorOnMissing)
{
return(Melua.melua_error(L, "File not found. ({0})", path));
}
else
{
return(0);
}
}
status = Melua.luaL_dofile(L, fullPath);
}
if (status == 1) // Error in do/load
{
return(Melua.melua_error(L, Melua.lua_tostring(L, -1)));
}
if (status != 0) // Error in execution
{
return(status);
}
var returnValues = Melua.lua_gettop(L);
return(returnValues);
}
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);
}