diff --git a/Supervisor/LUA/Lua_General.vb b/Supervisor/LUA/Lua_General.vb index 5c801db..300eb53 100644 --- a/Supervisor/LUA/Lua_General.vb +++ b/Supervisor/LUA/Lua_General.vb @@ -33,17 +33,21 @@ Public Module Lua_General Friend func_EntWriteStringToIni As LuaFunction = AddressOf Lua_EntWriteStringToIni Friend func_RdsStringGet As LuaFunction = AddressOf Lua_RdsStringGet Friend func_RdsStringSetAsync As LuaFunction = AddressOf Lua_RdsStringSetAsync - Friend func_RdsPublishAsync As LuaFunction = AddressOf Lua_RdsPublishAsync - Friend func_ComReadShortVar As LuaFunction = AddressOf Lua_ComReadShortVar - Friend func_ComWriteShortVar As LuaFunction = AddressOf Lua_ComWriteShortVar - - Private Function Lua_EntIs64bit(ByVal p As IntPtr) As Integer - Dim state = Lua.FromIntPtr(p) - state.PushBoolean(Not IntPtr.Size = 4) - Return 1 - End Function - - Private Function Lua_EntOutLog(ByVal p As IntPtr) As Integer + Friend func_RdsPublishAsync As LuaFunction = AddressOf Lua_RdsPublishAsync + Friend func_ComReadShortVar As LuaFunction = AddressOf Lua_ComReadShortVar + Friend func_ComWriteShortVar As LuaFunction = AddressOf Lua_ComWriteShortVar + Friend func_ComReadDoubleVar As LuaFunction = AddressOf Lua_ComReadDoubleVar + Friend func_ComWriteDoubleVar As LuaFunction = AddressOf Lua_ComWriteDoubleVar + Friend func_ComReadBitVar As LuaFunction = AddressOf Lua_ComReadBitVar + Friend func_ComWriteBitVar As LuaFunction = AddressOf Lua_ComWriteBitVar + + Private Function Lua_EntIs64bit(ByVal p As IntPtr) As Integer + Dim state = Lua.FromIntPtr(p) + state.PushBoolean(Not IntPtr.Size = 4) + Return 1 + End Function + + Private Function Lua_EntOutLog(ByVal p As IntPtr) As Integer Dim state = Lua.FromIntPtr(p) ' 1 o 2 parametri : stringa da emettere [, DebugLevel = 0] Dim sLogMsg As String = "" @@ -386,10 +390,14 @@ Public Module Lua_General state.Register("EntWriteStringToIni", func_EntWriteStringToIni) state.Register("RdsStringGet", func_RdsStringGet) state.Register("RdsStringSetAsync", func_RdsStringSetAsync) - state.Register("RdsPublishAsync", func_RdsPublishAsync) - state.Register("ComReadShortVar", func_ComReadShortVar) - state.Register("ComWriteShortVar", func_ComWriteShortVar) - Return True - End Function + state.Register("RdsPublishAsync", func_RdsPublishAsync) + state.Register("ComReadShortVar", func_ComReadShortVar) + state.Register("ComWriteShortVar", func_ComWriteShortVar) + state.Register("ComReadDoubleVar", func_ComReadDoubleVar) + state.Register("ComWriteDoubleVar", func_ComWriteDoubleVar) + state.Register("ComReadBitVar", func_ComReadBitVar) + state.Register("ComWriteBitVar", func_ComWriteBitVar) + Return True + End Function End Module