mirror of
https://github.com/weyne85/DCS-ExportScripts.git
synced 2025-10-29 16:58:18 +00:00
923cc06b00
add function ExportScript.Tools.ltrim add function ExportScript.Tools.rtrim add function ExportScript.Tools.subst
494 lines
18 KiB
Lua
494 lines
18 KiB
Lua
-- Ikarus and D.A.C. Export Script
|
|
-- Version 1.0.0 BETA
|
|
--
|
|
-- Tools
|
|
--
|
|
-- Copyright by Michael aka McMicha 2014
|
|
-- Contact dcs2arcaze.micha@farbpigmente.org
|
|
|
|
ExportScript.Tools = {}
|
|
|
|
function ExportScript.Tools.WriteToLog(message)
|
|
if ExportScript.logFile then
|
|
local ltmp, lMiliseconds = math.modf(os.clock())
|
|
if lMiliseconds==0 then
|
|
lMiliseconds='000'
|
|
else
|
|
lMiliseconds=tostring(lMiliseconds):sub(3,5)
|
|
end
|
|
ExportScript.logFile:write(os.date("%X")..":"..lMiliseconds.." : "..message.."\r\n")
|
|
end
|
|
end
|
|
|
|
function ExportScript.Tools.ProcessInput()
|
|
local lCommand, lCommandArgs, lDevice
|
|
-- C1,3001,4
|
|
-- lComand = C
|
|
-- lCommandArgs[1] = 1 => lDevice
|
|
-- lCommandArgs[2] = 3001 => ButtonID
|
|
-- lCommandArgs[3] = 4 => Value
|
|
if ExportScript.Config.Listener then
|
|
local lInput,from,port = ExportScript.UDPListener:receivefrom()
|
|
if ExportScript.Config.Debug then
|
|
ExportScript.Tools.WriteToLog("lInput: "..ExportScript.Tools.dump(lInput)..", from: "..ExportScript.Tools.dump(from)..", port: "..ExportScript.Tools.dump(port))
|
|
end
|
|
if lInput then
|
|
lCommand = string.sub(lInput,1,1)
|
|
|
|
if lCommand == "R" then -- R == Reset
|
|
if ExportScript.Config.IkarusExport then
|
|
ExportScript.Tools.ResetChangeValues()
|
|
end
|
|
if ExportScript.Config.DACExport then
|
|
ExportScript.Tools.ResetChangeValuesDAC()
|
|
end
|
|
end
|
|
|
|
if (lCommand == "C") then
|
|
lCommandArgs = ExportScript.Tools.StrSplit(string.sub(lInput,2),",")
|
|
lDevice = GetDevice(lCommandArgs[1])
|
|
if lDevice ~= "1000" then
|
|
if type(lDevice) == "table" then
|
|
lDevice:performClickableAction(lCommandArgs[2],lCommandArgs[3])
|
|
end
|
|
elseif lDevice == "1000" then
|
|
--ExportScript.genericRadio(key, value)
|
|
ExportScript.genericRadio(lCommandArgs[2],lCommandArgs[3])
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
function ExportScript.Tools.StrSplit(str, delim, maxNb)
|
|
-- Eliminate bad cases...
|
|
if string.find(str, delim) == nil then
|
|
return { str }
|
|
end
|
|
if maxNb == nil or maxNb < 1 then
|
|
maxNb = 0 -- No limit
|
|
end
|
|
local lResult = {}
|
|
local lPat = "(.-)" .. delim .. "()"
|
|
local lNb = 0
|
|
local lLastPos
|
|
for part, pos in string.gfind(str, lPat) do
|
|
lNb = lNb + 1
|
|
lResult[lNb] = part
|
|
lLastPos = pos
|
|
if lNb == maxNb then break end
|
|
end
|
|
-- Handle the last field
|
|
if lNb ~= maxNb then
|
|
lResult[lNb + 1] = string.sub(str, lLastPos)
|
|
end
|
|
return lResult
|
|
end
|
|
|
|
-- remove trailing and leading whitespace from string.
|
|
function ExportScript.Tools.trim(s)
|
|
return (s:gsub("^%s*(.-)%s*$", "%1"))
|
|
end
|
|
|
|
-- remove leading whitespace from string.
|
|
function ExportScript.Tools.ltrim(s)
|
|
return (s:gsub("^%s*", ""))
|
|
end
|
|
|
|
-- remove trailing whitespace from string.
|
|
function ExportScript.Tools.rtrim(s)
|
|
local n = #s
|
|
while n > 0 and s:find("^%s", n) do n = n - 1 end
|
|
return s:sub(1, n)
|
|
end
|
|
-- The following more obvious implementation is generally not
|
|
-- as efficient, particularly for long strings since Lua pattern matching
|
|
-- starts at the left (though in special cases it is more efficient).
|
|
-- Related discussion on p.197 of book "Beginning Lua Programming".
|
|
--[[
|
|
function ExportScript.Tools.rtrim(s)
|
|
return (s:gsub("%s*$", ""))
|
|
end
|
|
]]
|
|
|
|
-- substitute variables into string.
|
|
-- Example: subst("a=$(a),b=$(b)", {a=1, b=2}) --> "a=1,b=2".
|
|
function ExportScript.Tools.subst(s, t)
|
|
-- note: handle {a=false} substitution
|
|
s = s:gsub("%$%(([%w_]+)%)", function(name)
|
|
local val = t[name]
|
|
return val ~= nil and tostring(val)
|
|
end)
|
|
return s
|
|
end
|
|
|
|
function ExportScript.Tools.round(num, idp)
|
|
local lMult = 10^(idp or 0)
|
|
return math.floor(num * lMult + 0.5) / lMult
|
|
end
|
|
|
|
-- Status Gathering Functions
|
|
function ExportScript.Tools.ProcessArguments(device, arguments)
|
|
local lArgument , lFormat , lArgumentValue
|
|
local lCounter = 0
|
|
|
|
if ExportScript.Config.Debug then
|
|
ExportScript.Tools.WriteToLog("======Begin========")
|
|
end
|
|
|
|
for lArgument, lFormat in pairs(arguments) do
|
|
lArgumentValue = string.format(lFormat,device:get_argument_value(lArgument))
|
|
if ExportScript.Config.Debug then
|
|
lCounter = lCounter + 1
|
|
ExportScript.Tools.WriteToLog(lCounter..". ID: "..lArgument..", Fromat: "..lFormat..", Value: "..lArgumentValue)
|
|
end
|
|
if ExportScript.Config.IkarusExport then
|
|
ExportScript.Tools.SendData(lArgument, lArgumentValue)
|
|
end
|
|
if ExportScript.Config.DACExport then
|
|
ExportScript.Tools.SendDataDAC(lArgument, lArgumentValue)
|
|
end
|
|
end
|
|
|
|
if ExportScript.Config.Debug then
|
|
ExportScript.Tools.WriteToLog("======End========")
|
|
end
|
|
end
|
|
|
|
-- Network Functions for GlassCockpit
|
|
function ExportScript.Tools.SendData(id, value)
|
|
if id == nil then
|
|
ExportScript.Tools.WriteToLog("Export id is nil")
|
|
return
|
|
end
|
|
if value == nil then
|
|
ExportScript.Tools.WriteToLog("Value for id "..id.." is nil")
|
|
return
|
|
end
|
|
|
|
if string.len(value) > 3 and value == string.sub("-0.00000000",1, string.len(value)) then
|
|
value = value:sub(2)
|
|
end
|
|
|
|
if ExportScript.LastData[id] == nil or ExportScript.LastData[id] ~= value then
|
|
local ldata = id .. "=" .. value
|
|
local ldataLen = string.len(ldata)
|
|
|
|
if ldataLen + ExportScript.PacketSize > 576 then
|
|
ExportScript.Tools.FlushData()
|
|
end
|
|
|
|
table.insert(ExportScript.SendStrings, ldata)
|
|
ExportScript.LastData[id] = value
|
|
ExportScript.PacketSize = ExportScript.PacketSize + ldataLen + 1
|
|
end
|
|
end
|
|
|
|
-- Network Functions for DAC
|
|
function ExportScript.Tools.SendDataDAC(id, value)
|
|
for hardware=1, #ExportScript.Config.DAC, 1 do
|
|
if id == nil then
|
|
ExportScript.Tools.WriteToLog("Export id is nil")
|
|
return
|
|
end
|
|
if value == nil then
|
|
ExportScript.Tools.WriteToLog("Value for id "..id.." is nil")
|
|
return
|
|
end
|
|
if ExportScript.Config.DAC[hardware] == nil then
|
|
ExportScript.Tools.WriteToLog("unknown hardware ID '"..hardware.."' for value: '"..id.."="..value.."'")
|
|
return
|
|
end
|
|
|
|
if string.len(value) > 3 and value == string.sub("-0.00000000",1, string.len(value)) then
|
|
value = value:sub(2)
|
|
end
|
|
|
|
if ExportScript.LastDataDAC[hardware][id] == nil or ExportScript.LastDataDAC[hardware][id] ~= value then
|
|
local ldata = id .. "=" .. value
|
|
local ldataLen = string.len(ldata)
|
|
|
|
if ldataLen + ExportScript.PacketSizeDAC[hardware] > 576 then
|
|
ExportScript.Tools.FlushDataDAC(hardware)
|
|
end
|
|
|
|
table.insert(ExportScript.SendStringsDAC[hardware], ldata)
|
|
ExportScript.LastDataDAC[hardware][id] = value
|
|
ExportScript.PacketSizeDAC[hardware] = ExportScript.PacketSizeDAC[hardware] + ldataLen + 1
|
|
--ExportScript.Tools.WriteToLog("id=ldata: "..ldata)
|
|
--ExportScript.Tools.WriteToLog("ExportScript.LastDataDAC["..hardware.."]: "..ExportScript.Tools.dump(ExportScript.LastDataDAC[hardware]))
|
|
end
|
|
end
|
|
end
|
|
|
|
function ExportScript.Tools.FlushData()
|
|
if #ExportScript.SendStrings > 0 then
|
|
local lES_SimID = ""
|
|
if ExportScript.GlassCockpitType == 1 then
|
|
lES_SimID = ExportScript.SimID
|
|
elseif ExportScript.GlassCockpitType == 2 then
|
|
lES_SimID = ""
|
|
end
|
|
local lPacket = lES_SimID .. table.concat(ExportScript.SendStrings, ExportScript.Config.IkarusSeparator) .. "\n"
|
|
ExportScript.socket.try(ExportScript.UDPsender:sendto(lPacket, ExportScript.Config.IkarusHost, ExportScript.Config.IkarusPort))
|
|
ExportScript.SendStrings = {}
|
|
ExportScript.PacketSize = 0
|
|
end
|
|
end
|
|
|
|
function ExportScript.Tools.FlushDataDAC(hardware)
|
|
hardware = hardware or 1
|
|
|
|
if ExportScript.Config.DAC[hardware] == nil then
|
|
ExportScript.Tools.WriteToLog("unknown hardware ID '"..hardware.."'")
|
|
return
|
|
end
|
|
|
|
if #ExportScript.SendStringsDAC[hardware] > 0 then
|
|
local lPacket = ExportScript.SimID .. table.concat(ExportScript.SendStringsDAC[hardware], ExportScript.Config.DAC[hardware].Separator) .. "\n"
|
|
ExportScript.socket.try(ExportScript.UDPsender:sendto(lPacket, ExportScript.Config.DAC[hardware].Host, ExportScript.Config.DAC[hardware].SendPort))
|
|
ExportScript.SendStringsDAC[hardware] = {}
|
|
ExportScript.PacketSizeDAC[hardware] = 0
|
|
end
|
|
end
|
|
|
|
function ExportScript.Tools.ResetChangeValues()
|
|
ExportScript.LastData = {}
|
|
ExportScript.TickCount = 10
|
|
end
|
|
|
|
function ExportScript.Tools.ResetChangeValuesDAC()
|
|
for i = 1, #ExportScript.Config.DAC, 1 do
|
|
ExportScript.LastDataDAC[i] = {}
|
|
end
|
|
ExportScript.TickCount = 10
|
|
ExportScript.TickCountDAC = 0
|
|
end
|
|
|
|
function ExportScript.Tools.SelectModule()
|
|
-- Select Module...
|
|
ExportScript.FoundDCSModule = false
|
|
ExportScript.FoundFCModule = false
|
|
ExportScript.FoundNoModul = true
|
|
|
|
local lMyInfo = LoGetSelfData()
|
|
if lMyInfo == nil then -- End SelectModule, if don't selected a aircraft
|
|
return
|
|
end
|
|
|
|
ExportScript.ModuleName = lMyInfo.Name
|
|
local lModuleName = ExportScript.ModuleName..".lua"
|
|
local lModuleFile = ""
|
|
|
|
ExportScript.FoundNoModul = false
|
|
|
|
for file in lfs.dir(ExportScript.Config.ExportModulePath) do
|
|
if lfs.attributes(ExportScript.Config.ExportModulePath..file,"mode") == "file" then
|
|
if file == lModuleName then
|
|
lModuleFile = ExportScript.Config.ExportModulePath..file
|
|
end
|
|
end
|
|
end
|
|
|
|
ExportScript.Tools.WriteToLog("File Path: "..lModuleFile)
|
|
|
|
if string.len(lModuleFile) > 1 then
|
|
ExportScript.Tools.ResetChangeValuesDAC()
|
|
|
|
-- load Aircraft File
|
|
dofile(lModuleFile)
|
|
ExportScript.Tools.SendDataDAC("File", lMyInfo.Name)
|
|
for i=1, #ExportScript.Config.DAC, 1 do
|
|
ExportScript.Tools.FlushDataDAC(i)
|
|
end
|
|
ExportScript.Tools.SendData("File", lMyInfo.Name)
|
|
ExportScript.Tools.FlushData()
|
|
|
|
ExportScript.Tools.WriteToLog("File '"..lModuleFile.."' loaded")
|
|
|
|
ExportScript.FirstNewDataSend = true
|
|
ExportScript.FirstNewDataSendCount = 5
|
|
|
|
if ExportScript.FoundDCSModule then
|
|
local lCounter = 0
|
|
for k, v in pairs(ExportScript.ConfigEveryFrameArguments) do
|
|
lCounter = lCounter + 1
|
|
end
|
|
if ExportScript.Config.Debug then
|
|
ExportScript.Tools.WriteToLog("ExportScript.ConfigEveryFrameArguments Count: "..lCounter)
|
|
end
|
|
if lCounter > 0 then
|
|
ExportScript.EveryFrameArguments = ExportScript.ConfigEveryFrameArguments
|
|
else
|
|
-- no Arguments
|
|
ExportScript.EveryFrameArguments = {}
|
|
end
|
|
lCounter = 0
|
|
for k, v in pairs(ExportScript.ConfigArguments) do
|
|
lCounter = lCounter + 1
|
|
end
|
|
if ExportScript.Config.Debug then
|
|
ExportScript.Tools.WriteToLog("ExportScript.ConfigArguments Count: "..lCounter)
|
|
end
|
|
if lCounter > 0 then
|
|
ExportScript.Arguments = ExportScript.ConfigArguments
|
|
else
|
|
-- no Arguments
|
|
ExportScript.Arguments = {}
|
|
end
|
|
|
|
ExportScript.ProcessIkarusDCSHighImportance = ExportScript.ProcessIkarusDCSConfigHighImportance
|
|
ExportScript.ProcessIkarusDCSLowImportance = ExportScript.ProcessIkarusDCSConfigLowImportance
|
|
ExportScript.ProcessDACHighImportance = ExportScript.ProcessDACConfigHighImportance
|
|
ExportScript.ProcessDACLowImportance = ExportScript.ProcessDACConfigLowImportance
|
|
|
|
elseif ExportScript.FoundFCModule then
|
|
ExportScript.ProcessIkarusFCHighImportance = ExportScript.ProcessIkarusFCHighImportanceConfig
|
|
ExportScript.ProcessIkarusFCLowImportance = ExportScript.ProcessIkarusFCLowImportanceConfig
|
|
ExportScript.ProcessDACHighImportance = ExportScript.ProcessDACConfigHighImportance
|
|
ExportScript.ProcessDACLowImportance = ExportScript.ProcessDACConfigLowImportance
|
|
else
|
|
ExportScript.Tools.WriteToLog("Unknown Module Type: "..lMyInfo.Name)
|
|
end
|
|
|
|
else -- Unknown Module
|
|
ExportScript.ProcessIkarusDCSHighImportance = ExportScript.ProcessIkarusDCSHighImportanceNoConfig
|
|
ExportScript.ProcessIkarusDCSLowImportance = ExportScript.ProcessIkarusDCSLowImportanceNoConfig
|
|
ExportScript.ProcessIkarusFCHighImportance = ExportScript.ProcessIkarusFCHighImportanceNoConfig
|
|
ExportScript.ProcessIkarusFCLowImportance = ExportScript.ProcessIkarusFCLowImportanceNoConfig
|
|
ExportScript.ProcessDACHighImportance = ExportScript.ProcessDACHighImportanceNoConfig
|
|
ExportScript.ProcessDACLowImportance = ExportScript.ProcessDACLowImportanceNoConfig
|
|
ExportScript.EveryFrameArguments = {}
|
|
ExportScript.Arguments = {}
|
|
ExportScript.Tools.WriteToLog("Unknown Module Name: "..lMyInfo.Name)
|
|
end
|
|
end
|
|
|
|
-- The ExportScript.Tools.dump function show the content of the specified variable.
|
|
-- ExportScript.Tools.dump is similar to PHP function dump and show variables from type
|
|
-- "nil, "number", "string", "boolean, "table", "function", "thread" and "userdata"
|
|
function ExportScript.Tools.dump(var, depth)
|
|
depth = depth or 0
|
|
if type(var) == "string" then
|
|
return 'string: "' .. var .. '"\n'
|
|
elseif type(var) == "nil" then
|
|
return 'nil\n'
|
|
elseif type(var) == "number" then
|
|
return 'number: "' .. var .. '"\n'
|
|
elseif type(var) == "boolean" then
|
|
return 'boolean: "' .. tostring(var) .. '"\n'
|
|
elseif type(var) == "function" then
|
|
if debug and debug.getinfo then
|
|
fcnname = tostring(var)
|
|
local info = debug.getinfo(var, "S")
|
|
if info.what == "C" then
|
|
return string.format('%q', fcnname .. ', C function') .. '\n'
|
|
else
|
|
if (string.sub(info.source, 1, 2) == [[./]]) then
|
|
return string.format('%q', fcnname .. ', defined in (' .. info.linedefined .. '-' .. info.lastlinedefined .. ')' .. info.source) ..'\n'
|
|
else
|
|
return string.format('%q', fcnname .. ', defined in (' .. info.linedefined .. '-' .. info.lastlinedefined .. ')') ..'\n'
|
|
end
|
|
end
|
|
else
|
|
return 'a function\n'
|
|
end
|
|
elseif type(var) == "thread" then
|
|
return 'thread\n'
|
|
elseif type(var) == "userdata" then
|
|
return tostring(var)..'\n'
|
|
elseif type(var) == "table" then
|
|
depth = depth + 1
|
|
out = "{\n"
|
|
for k,v in pairs(var) do
|
|
out = out .. (" "):rep(depth*4).. "["..k.."] = " .. ExportScript.Tools.dump(v, depth)
|
|
end
|
|
return out .. (" "):rep((depth-1)*4) .. "}\n"
|
|
else
|
|
return tostring(var) .. "\n"
|
|
end
|
|
end
|
|
|
|
-- round function for math libraray
|
|
-- number : value
|
|
-- decimals: number of decimal
|
|
-- method : ceil: Returns the smallest integer larger than or equal to number
|
|
-- floor: Returns the smallest integer smaller than or equal to number
|
|
function ExportScript.Tools.round(number, decimals, method)
|
|
if string.find(number, "%p" ) ~= nil then
|
|
decimals = decimals or 0
|
|
local lFactor = 10 ^ decimals
|
|
if (method == "ceil" or method == "floor") then
|
|
-- ceil: Returns the smallest integer larger than or equal to number
|
|
-- floor: Returns the smallest integer smaller than or equal to number
|
|
return math[method](number * lFactor) / lFactor
|
|
else
|
|
return tonumber(("%."..decimals.."f"):format(number))
|
|
end
|
|
else
|
|
return number
|
|
end
|
|
end
|
|
|
|
-- split function for string libraray
|
|
-- stringvalue: value
|
|
-- delimiter : delimiter for split
|
|
-- for example, see http://www.lua.org/manual/5.1/manual.html#5.4.1
|
|
function ExportScript.Tools.split(stringvalue, delimiter)
|
|
result = {};
|
|
for match in (stringvalue..delimiter):gmatch("(.-)"..delimiter) do
|
|
table.insert(result, match);
|
|
end
|
|
return result;
|
|
end
|
|
|
|
-- the function evaluation of the handover parameters and makes accordingly to the light on or off
|
|
-- handover parameters, singel id or a table with id's
|
|
function ExportScript.Tools.IkarusCockpitLights(mainPanelDevice, ExportIDs)
|
|
local TmpExportIDs = ExportIDs or 0
|
|
local TmpLight = false
|
|
|
|
if type(mainPanelDevice) ~= "table" then
|
|
return
|
|
end
|
|
|
|
if type(TmpExportIDs) == "table" then
|
|
for key,value in pairs(TmpExportIDs) do
|
|
if type(value) == "number" then
|
|
if mainPanelDevice:get_argument_value(value) > 0.4 then
|
|
TmpLight = true
|
|
end
|
|
end
|
|
end
|
|
elseif type(TmpExportIDs) == "number" then
|
|
if mainPanelDevice:get_argument_value(TmpExportIDs) > 0.4 then
|
|
TmpLight = true
|
|
end
|
|
end
|
|
|
|
if TmpLight then
|
|
ExportScript.Tools.SendData(2222, "1.0") -- Ikarus Cockpit Light on
|
|
else
|
|
ExportScript.Tools.SendData(2222, "0.0") -- Ikarus Cockpit Light off
|
|
end
|
|
end
|
|
|
|
-- Pointed to by ExportScript.ProcessIkarusDCSHighImportance, if the player aircraft is something else
|
|
function ExportScript.ProcessIkarusDCSHighImportanceNoConfig(mainPanelDevice)
|
|
end
|
|
-- Pointed to by ExportScript.ProcessIkarusDCSLowImportance, if the player aircraft is something else
|
|
function ExportScript.ProcessIkarusDCSLowImportanceNoConfig(mainPanelDevice)
|
|
end
|
|
|
|
-- the player aircraft is a Flaming Cliffs or similar aircraft
|
|
function ExportScript.ProcessIkarusFCHighImportanceNoConfig()
|
|
end
|
|
function ExportScript.ProcessIkarusFCLowImportanceNoConfig()
|
|
end
|
|
|
|
-- Hardware exports
|
|
function ExportScript.ProcessDACHighImportanceNoConfig(mainPanelDevice)
|
|
end
|
|
function ExportScript.ProcessDACLowImportanceNoConfig(mainPanelDevice)
|
|
end
|