mirror of
https://github.com/tym1116/BH3.git
synced 2025-12-18 09:24:39 +01:00
386 lines
14 KiB
C#
386 lines
14 KiB
C#
using System;
|
|
using System.Runtime.InteropServices;
|
|
|
|
namespace LuaInterface
|
|
{
|
|
public class LuaDLL
|
|
{
|
|
private const string LUADLL = "ulua";
|
|
|
|
public static int LUA_MULTRET = -1;
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_tothread(IntPtr L, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_xmove(IntPtr from, IntPtr to, int n);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_yield(IntPtr L, int nresults);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern IntPtr lua_newthread(IntPtr L);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_resume(IntPtr L, int narg);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_status(IntPtr L);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_pushthread(IntPtr L);
|
|
|
|
public static int luaL_getn(IntPtr luaState, int i)
|
|
{
|
|
return lua_objlen(luaState, i);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_gc(IntPtr luaState, LuaGCOptions what, int data);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern string lua_typename(IntPtr luaState, LuaTypes type);
|
|
|
|
public static string luaL_typename(IntPtr luaState, int stackPos)
|
|
{
|
|
return lua_typename(luaState, lua_type(luaState, stackPos));
|
|
}
|
|
|
|
public static int lua_isfunction(IntPtr luaState, int stackPos)
|
|
{
|
|
return Convert.ToInt32(lua_type(luaState, stackPos) == LuaTypes.LUA_TFUNCTION);
|
|
}
|
|
|
|
public static int lua_islightuserdata(IntPtr luaState, int stackPos)
|
|
{
|
|
return Convert.ToInt32(lua_type(luaState, stackPos) == LuaTypes.LUA_TLIGHTUSERDATA);
|
|
}
|
|
|
|
public static int lua_istable(IntPtr luaState, int stackPos)
|
|
{
|
|
return Convert.ToInt32(lua_type(luaState, stackPos) == LuaTypes.LUA_TTABLE);
|
|
}
|
|
|
|
public static int lua_isthread(IntPtr luaState, int stackPos)
|
|
{
|
|
return Convert.ToInt32(lua_type(luaState, stackPos) == LuaTypes.LUA_TTHREAD);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void luaL_error(IntPtr luaState, string message);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern string luaL_gsub(IntPtr luaState, string str, string pattern, string replacement);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_getfenv(IntPtr luaState, int stackPos);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_isuserdata(IntPtr luaState, int stackPos);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_lessthan(IntPtr luaState, int stackPos1, int stackPos2);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_rawequal(IntPtr luaState, int stackPos1, int stackPos2);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_setfenv(IntPtr luaState, int stackPos);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_setfield(IntPtr luaState, int stackPos, string name);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luaL_callmeta(IntPtr luaState, int stackPos, string name);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern IntPtr luaL_newstate();
|
|
|
|
public static IntPtr lua_open()
|
|
{
|
|
return luaL_newstate();
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_close(IntPtr luaState);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void luaL_openlibs(IntPtr luaState);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_objlen(IntPtr luaState, int stackPos);
|
|
|
|
public static int lua_strlen(IntPtr luaState, int stackPos)
|
|
{
|
|
return lua_objlen(luaState, stackPos);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luaL_loadstring(IntPtr luaState, string chunk);
|
|
|
|
public static int luaL_dostring(IntPtr luaState, string chunk)
|
|
{
|
|
int num = luaL_loadstring(luaState, chunk);
|
|
if (num != 0)
|
|
{
|
|
return num;
|
|
}
|
|
return lua_pcall(luaState, 0, -1, 0);
|
|
}
|
|
|
|
public static int lua_dostring(IntPtr luaState, string chunk)
|
|
{
|
|
return luaL_dostring(luaState, chunk);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_createtable(IntPtr luaState, int narr, int nrec);
|
|
|
|
public static void lua_newtable(IntPtr luaState)
|
|
{
|
|
lua_createtable(luaState, 0, 0);
|
|
}
|
|
|
|
public static int luaL_dofile(IntPtr luaState, string fileName)
|
|
{
|
|
int num = luaL_loadfile(luaState, fileName);
|
|
if (num != 0)
|
|
{
|
|
return num;
|
|
}
|
|
return lua_pcall(luaState, 0, -1, 0);
|
|
}
|
|
|
|
public static void lua_getglobal(IntPtr luaState, string name)
|
|
{
|
|
lua_pushstring(luaState, name);
|
|
lua_gettable(luaState, LuaIndexes.LUA_GLOBALSINDEX);
|
|
}
|
|
|
|
public static void lua_setglobal(IntPtr luaState, string name)
|
|
{
|
|
lua_pushstring(luaState, name);
|
|
lua_insert(luaState, -2);
|
|
lua_settable(luaState, LuaIndexes.LUA_GLOBALSINDEX);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_settop(IntPtr luaState, int newTop);
|
|
|
|
public static void lua_pop(IntPtr luaState, int amount)
|
|
{
|
|
lua_settop(luaState, -amount - 1);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_insert(IntPtr luaState, int newTop);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_remove(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_gettable(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_rawget(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_settable(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_rawset(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_setmetatable(IntPtr luaState, int objIndex);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_getmetatable(IntPtr luaState, int objIndex);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_equal(IntPtr luaState, int index1, int index2);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_pushvalue(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_replace(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_gettop(IntPtr luaState);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern LuaTypes lua_type(IntPtr luaState, int index);
|
|
|
|
public static bool lua_isnil(IntPtr luaState, int index)
|
|
{
|
|
return lua_type(luaState, index) == LuaTypes.LUA_TNIL;
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern bool lua_isnumber(IntPtr luaState, int index);
|
|
|
|
public static bool lua_isboolean(IntPtr luaState, int index)
|
|
{
|
|
return lua_type(luaState, index) == LuaTypes.LUA_TBOOLEAN;
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luaL_ref(IntPtr luaState, int registryIndex);
|
|
|
|
public static int lua_ref(IntPtr luaState, int lockRef)
|
|
{
|
|
if (lockRef != 0)
|
|
{
|
|
return luaL_ref(luaState, LuaIndexes.LUA_REGISTRYINDEX);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_rawgeti(IntPtr luaState, int tableIndex, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_rawseti(IntPtr luaState, int tableIndex, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern IntPtr lua_newuserdata(IntPtr luaState, int size);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern IntPtr lua_touserdata(IntPtr luaState, int index);
|
|
|
|
public static void lua_getref(IntPtr luaState, int reference)
|
|
{
|
|
lua_rawgeti(luaState, LuaIndexes.LUA_REGISTRYINDEX, reference);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void luaL_unref(IntPtr luaState, int registryIndex, int reference);
|
|
|
|
public static void lua_unref(IntPtr luaState, int reference)
|
|
{
|
|
luaL_unref(luaState, LuaIndexes.LUA_REGISTRYINDEX, reference);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern bool lua_isstring(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern bool lua_iscfunction(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_pushnil(IntPtr luaState);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_pushstdcallcfunction(IntPtr luaState, IntPtr wrapper);
|
|
|
|
public static void lua_pushstdcallcfunction(IntPtr luaState, LuaCSFunction function)
|
|
{
|
|
IntPtr functionPointerForDelegate = Marshal.GetFunctionPointerForDelegate(function);
|
|
lua_pushstdcallcfunction(luaState, functionPointerForDelegate);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_call(IntPtr luaState, int nArgs, int nResults);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_pcall(IntPtr luaState, int nArgs, int nResults, int errfunc);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern IntPtr lua_tocfunction(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern double lua_tonumber(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern bool lua_toboolean(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern IntPtr lua_tolstring(IntPtr luaState, int index, out int strLen);
|
|
|
|
public static string lua_tostring(IntPtr luaState, int index)
|
|
{
|
|
int strLen;
|
|
IntPtr intPtr = lua_tolstring(luaState, index, out strLen);
|
|
if (intPtr != IntPtr.Zero)
|
|
{
|
|
return Marshal.PtrToStringAnsi(intPtr, strLen);
|
|
}
|
|
return null;
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_atpanic(IntPtr luaState, LuaCSFunction panicf);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_pushnumber(IntPtr luaState, double number);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_pushboolean(IntPtr luaState, bool value);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_pushlstring(IntPtr luaState, string str, int size);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_pushstring(IntPtr luaState, string str);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luaL_newmetatable(IntPtr luaState, string meta);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_getfield(IntPtr luaState, int stackPos, string meta);
|
|
|
|
public static void luaL_getmetatable(IntPtr luaState, string meta)
|
|
{
|
|
lua_getfield(luaState, LuaIndexes.LUA_REGISTRYINDEX, meta);
|
|
}
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern IntPtr luaL_checkudata(IntPtr luaState, int stackPos, string meta);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern bool luaL_getmetafield(IntPtr luaState, int stackPos, string field);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_load(IntPtr luaState, LuaChunkReader chunkReader, ref ReaderInfo data, string chunkName);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luaL_loadbuffer(IntPtr luaState, string buff, int size, string name);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luaL_loadfile(IntPtr luaState, string filename);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern bool luaL_checkmetatable(IntPtr luaState, int obj);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luanet_tonetobject(IntPtr luaState, int obj);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luanet_newudata(IntPtr luaState, int val);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luanet_rawnetobj(IntPtr luaState, int obj);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int luanet_checkudata(IntPtr luaState, int obj, string meta);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_error(IntPtr luaState);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern bool lua_checkstack(IntPtr luaState, int extra);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern int lua_next(IntPtr luaState, int index);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void lua_pushlightuserdata(IntPtr luaState, IntPtr udata);
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern IntPtr luanet_gettag();
|
|
|
|
[DllImport("ulua", CallingConvention = CallingConvention.Cdecl)]
|
|
public static extern void luaL_where(IntPtr luaState, int level);
|
|
}
|
|
}
|