internal static int VMLoader(IntPtr L)
{
try {
string filename = Lua.lua_tostring(L, 1);
// LuaEnv self = ObjectTranslatorPool.Instance.Find(L).luaEnv;
string real_file_path = filename;
byte[] bytes = SGK.FileUtils.Load(ref real_file_path);
if (bytes != null)
{
if (Lua.xluaL_loadbuffer(L, bytes, bytes.Length, "@" + real_file_path) != 0)
{
Lua.lua_pushstring(L, Lua.lua_tostring(L, -1));
return(1);
// return Lua.luaL_error(L, String.Format("error loading module {0} from VMLoader, {1}",
// Lua.lua_tostring(L, 1), Lua.lua_tostring(L, -1)));
}
return(1);
}
Lua.lua_pushstring(L, string.Format(
"\n\tno such file '{0}' in VMLoader!", filename));
return(1);
} catch (System.Exception e) {
return(Lua.luaL_error(L, "c# exception in LoadFromCustomLoaders:" + e));
}
}
private Sio.SData format_map(IntPtr L, int index, NParam o)
{
Sio.SMapWriter pmap = new Sio.SMapWriter();
Sio.SData data = new Sio.SData(pmap);
if (LuaAPI.lua_istable(L, index) && o.DType == ParamType.ptype_object)
{
NStruct ps = NStructManager.GetInstance().Find(o.TypeName);
if (ps != null)
{
LuaAPI.lua_pushnil(L);
while (LuaAPI.lua_next(L, index) != 0)
{
if (LuaAPI.lua_isstring(L, -2))
{
NParam findparam = ps.Get(LuaAPI.lua_tostring(L, -2));
if (findparam != null)
{
pmap.write(findparam.Id, format_data(findparam, L, LuaAPI.lua_gettop(L), true));
}
}
LuaAPI.lua_pop(L, 1);
}
}
}
return(data);
}
internal static int LuaImport(IntPtr L)
{
LuaModule luaModule = Instance;
string fileName = LuaDLL.lua_tostring(L, 1);
var obj = luaModule.Import(fileName);
LuaObject.pushValue(L, obj);
LuaObject.pushValue(L, true);
return(2);
}
private int LuaUsing(IntPtr l)
{
try
{
LuaDLL.luaL_checktype(l, 1, LuaTypes.LUA_TSTRING);
string str = LuaDLL.lua_tostring(l, 1);
string[] ns = str.Split('.');
LuaDLL.lua_pushglobaltable(l);
for (int n = 0; n < ns.Length; n++)
{
LuaDLL.lua_getfield(l, -1, ns[n]);
if (!LuaDLL.lua_istable(l, -1))
{
return(LuaObject.error(l, "expect {0} is type table", ns));
}
LuaDLL.lua_remove(l, -2);
}
LuaDLL.lua_pushnil(l);
while (LuaDLL.lua_next(l, -2) != 0)
{
string key = LuaDLL.lua_tostring(l, -2);
LuaDLL.lua_getglobal(l, key);
if (!LuaDLL.lua_isnil(l, -1))
{
LuaDLL.lua_pop(l, 1);
return(LuaObject.error(l, "{0} had existed, import can't overload it.", key));
}
LuaDLL.lua_pop(l, 1);
LuaDLL.lua_setglobal(l, key);
}
LuaDLL.lua_pop(l, 1);
LuaObject.pushValue(l, true);
return(1);
}
catch (Exception e)
{
return(LuaObject.error(l, e));
}
}
public static void Main(string[] args)
{
// args = new[] {"/Users/cn/a3/c308/client/Unity/Tools/excel/lua/app/CollectImg2Excel.lua"};
// // no use
// AppDomain.CurrentDomain.AssemblyResolve += delegate(object sender, ResolveEventArgs eventArgs)
// {
// string assemblyFile = (eventArgs.Name.Contains(','))
// ? eventArgs.Name.Substring(0, eventArgs.Name.IndexOf(','))
// : eventArgs.Name;
//
// assemblyFile += ".dll";
//
// // // Forbid non handled dll's
// // if (!LOAD_ASSEMBLIES.Contains(assemblyFile))
// // {
// // return null;
// // }
//
// string absoluteFolder = new FileInfo((new System.Uri(Assembly.GetExecutingAssembly().CodeBase)).LocalPath).Directory.FullName;
// string targetPath = Path.Combine(absoluteFolder, assemblyFile);
//
// try
// {
// Console.WriteLine($"try load:{targetPath}");
// return Assembly.LoadFile(targetPath);
// }
// catch (Exception)
// {
// return null;
// }
// Console.WriteLine($"load:{targetPath}");
// };
// // no use 2
// var PrivateBinPath = AppDomain.CurrentDomain.SetupInformation.PrivateBinPath + (System.IO.Path.PathSeparator+AppDomain.CurrentDomain.BaseDirectory+"lib");
// AppDomain.CurrentDomain.SetupInformation.PrivateBinPath = PrivateBinPath;
// Console.WriteLine($"PathSeparator:{System.IO.Path.PathSeparator}\nPrivateBinPath:{PrivateBinPath}=>{AppDomain.CurrentDomain.SetupInformation.PrivateBinPath}\nBaseDirectory:{AppDomain.CurrentDomain.BaseDirectory} ");
// for (int i = 0; i < args.Length; i++)
// {
// Debug.WriteLine("args{0}: {1}", i, args[i]);
// }
// var w = AppDomain.CurrentDomain.GetAssemblies();
// var asm = Assembly.LoadFrom("");
// asm.GetExportedTypes();
// Activator.CreateInstance(typeof(String));
// var l = LuaCallCSharpTypes.L;
// var size = NPOI.SS.Util.ImageUtils.GetImageDimension(null);
// var wb = new XSSFWorkbook();
// var sheet = wb.GetSheet("");
// var picInd = wb.AddPicture(new FileStream("", FileMode.Open), 6);
// var helper = wb.GetCreationHelper();
// var drawing = sheet.CreateDrawingPatriarch();
// var anchor = helper.CreateClientAnchor();
// anchor.Col1 = 0;
// anchor.Col2 = 0;
// anchor.Row1 = 5;
// var pict = drawing.CreatePicture(anchor, picInd);
// pict.Resize();
LuaEnv luaenv = LuaEnvSingleton.Instance;
var L = luaenv.L;
if (0 == LuaAPI.xlua_getglobal(L, "_VERSION"))
{
Console.WriteLine($"{LuaAPI.lua_tostring(L, -1)}");
}
ExecutableDir = AppDomain.CurrentDomain.BaseDirectory.Replace("\\", "/");// Application.ExecutablePath.Replace(Path.GetFileName(Application.ExecutablePath), "");
luaenv.DoString("package.cpath = package.cpath .. ';./lib?.dylib;./?.dylib';"
+ string.Format("package.cpath = package.cpath .. ';{0}lib?.dylib;{0}lib/lib?.dylib;{0}lib/?.dylib;{0}../lib/lib?.dylib;{0}../lib/?.dylib'", ExecutableDir)
);
var initlua = ExecutableDir + "init.lua";
if (File.Exists(initlua))
{
luaenv.DoFile(initlua);
}
var mainlua = ExecutableDir + "lua/main.lua";
if (args.Length > 0)
{
mainlua = args[0];
var maindir = mainlua.Substring(0, mainlua.LastIndexOf("/"));
luaenv.DoString(string.Format("package.path = package.path .. ';{0}/../?.lua;{0}/?.lua;{0}/lua/?.lua;'", maindir)
+ @"package.path = package.path .. ';lua/?.lua' .. ';../lua/?.lua';"
+ string.Format("package.path = package.path .. ';{0}/?.lua;;{0}/lua/?.lua;'", ExecutableDir));
LuaTable env = luaenv.NewTable();
env.Set("__index", luaenv.Global);
env.Set("__newindex", luaenv.Global);
LuaTable argv = luaenv.NewTable();
for (int i = 0; i < args.Length; ++i)
{
// Debug.WriteLine($"cs-argv[{i}] = {args[i]}");
argv.Set(i, args[i]);
}
env.Set("argv", argv);
env.SetMetaTable(env);
if (File.Exists(mainlua))
{
luaenv.DoFile(mainlua, env);
}
}
else
{
luaenv.DoString(@"package.path = package.path .. ';lua/?.lua' .. ';../lua/?.lua';"
+ string.Format("package.path = package.path .. ';{0}/?.lua;;{0}/lua/?.lua;'", ExecutableDir));
// Debug.WriteLine("run default entry lua/main.lua");
Debug.WriteLine(" usage:\n\tosx/unix: mono xlua.exe path/to/entry.lua");
Debug.WriteLine("\twindows: xlua.exe path/to/entry.lua");
Debug.WriteLine("Or type lua code in Interaction Mode\nGood luck.");
Console.Write("xlua");
// // XLua.LuaDLL.Lua.lua_pushcclosure(L, (IntPtr)(pmain), 0);
// XLua.LuaDLL.Lua.xlua_pushinteger(L, args.Length - 1);
// luaenv.Translator.PushAny(L, args);
// var ok = pmain(L);
// Console.WriteLine($"lua return: {ok}");
// LuaDoREPL(L);
//
// return;
//*
var fhistory = "xlua.history.lua";
System.ReadLine.HistoryEnabled = false;
var historyList = ReadLine.GetHistory();
if (File.Exists(fhistory))
{
historyList.AddRange(File.ReadAllLines(fhistory)
.GroupBy(i => i)
.Select(i => i.First()));
// ReadLine.AddHistory(historyList.ToArray());
}
var history = File.AppendText(fhistory);
int historyIdx = 0;
var cmd = "";
while (cmd != "quit" && cmd != "exit")
{
cmd = cmd.Trim().Replace("\0", "");
if (!historyList.Contains(cmd))
{
history.WriteLine(cmd);
history.Flush();
}
if (cmd.Length > 0)
{
historyList.Add(cmd);
}
if (cmd == "cls")
{
Console.Clear();
goto next;
}
if (cmd != ""
// && !cmd.Contains(" ")
&& !cmd.Contains("=") &&
!cmd.Contains("print")
)
{
if (!cmd.Contains(",") &&
!cmd.Contains(" ")
)
{
cmd = "return tostring(" + cmd + ")";
}
else
{
cmd = "return " + cmd;
}
}
try
{
if (cmd.Length > 0)
{
try
{
var ret = luaenv.DoString(cmd);
if (ret != null && ret.Length > 0)
{
foreach (var o in ret)
{
// ObjectTranslatorPool.Instance.Find(L).PushAny(L, o);
// var v = o is null ? XLua.LuaDLL.Lua.lua_tostring(L, -1) : o.ToString();
var v = o is null ? "nil or native_ptr try tostring(obj) again" : o.ToString();
Console.Write("{0}\t", v);
}
Console.Write("\n");
}
}
catch (LuaException e)
{
Console.WriteLine(e.Message);
}
}
}
catch (LuaException e)
{
Debug.WriteLine(e.Message);
}
catch (Exception e)
{
Debug.WriteLine(e.Message + "\n#trace: \n" + e.StackTrace);
}
next:
cmd = ReadLine.Read("> ");
}// while
history.Close();
Console.WriteLine("\nexit no error.");
// */
}
}
private Sio.SData format_data(NParam o, RealStatePtr L, int index, bool checklist)
{
if (checklist == true && o.Container == ParamContainer.pparam_container_list)
{
return(format_List(L, index, o));
}
else
{
switch (o.DType)
{
case ParamType.ptype_bool:
{
bool ans = LuaAPI.lua_toboolean(L, index);
if (LuaAPI.lua_isboolean(L, index))
{
ans = LuaAPI.lua_toboolean(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_char:
case ParamType.ptype_uchar:
{
byte ans = 0;
if (LuaAPI.lua_isnumber(L, index))
{
ans = (byte)LuaAPI.xlua_tointeger(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_ushort:
{
UInt16 ans = 0;
if (LuaAPI.lua_isnumber(L, index))
{
ans = (UInt16)LuaAPI.xlua_tointeger(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_short:
{
Int16 ans = 0;
if (LuaAPI.lua_isnumber(L, index))
{
ans = (Int16)LuaAPI.xlua_tointeger(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_int:
{
int ans = 0;
if (LuaAPI.lua_isnumber(L, index))
{
ans = (int)LuaAPI.xlua_tointeger(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_uint:
{
uint ans = 0;
if (LuaAPI.lua_isnumber(L, index))
{
ans = (uint)LuaAPI.xlua_tointeger(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_float:
{
float ans = 0.0f;
if (LuaAPI.lua_isnumber(L, index))
{
ans = (float)LuaAPI.xlua_tointeger(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_double:
{
double ans = 0.0;
if (LuaAPI.lua_isnumber(L, index))
{
ans = (double)LuaAPI.xlua_tointeger(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_long:
{
long ans = 0;
if (LuaAPI.lua_isint64(L, index))
{
ans = LuaAPI.lua_toint64(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_ulong:
{
ulong ans = 0;
if (LuaAPI.lua_isint64(L, index))
{
ans = LuaAPI.lua_touint64(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_string:
{
string ans = string.Empty;
if (LuaAPI.lua_isstring(L, index))
{
ans = LuaAPI.lua_tostring(L, index);
}
return(new Sio.SData(ans));
}
case ParamType.ptype_object:
{
return(format_map(L, index, o));
}
default:
break;
}
}
return(null);
}