Utility.lua

local UtilityInternal = {};
UtilityInternal.DebugLogging = false;

Utility = UtilityInternal;

luanet.load_assembly("System");

local types = {};
types["System.Type"] = luanet.import_type("System.Type");
types["System.Action"] = luanet.import_type("System.Action");

local function Log(input, debugOnly)
    debugOnly = debugOnly or false;

    if ((not debugOnly) or (debugOnly and UtilityInternal.DebugLogging)) then
        local t = type(input);

        if (t == "string" or t == "number") then
            LogDebug(input);
        elseif (t == "table") then
            LogTable(input);
        elseif (t == "nil") then
            LogDebug("(nil)");
        elseif (t == "boolean") then
            if (input == true) then
                LogDebug("True");
            else
                LogDebug("False");
            end
        elseif (t == "function") then
            local success, result = pcall(input);

            if (success) then
                Log(result, debugOnly);
            end
        elseif (t == "userdata") then
            if (IsType(input, "System.Exception")) then
                LogException(input);
            else
                pcall(function()
                    LogDebug(input:ToString());
                end);
            end
        end
    end
end

local function Trim(s)
    local n = s:find"%S"
    return n and s:match(".*%S", n) or ""
end

local function IsType(o, t, checkFullName)
    if ((o and type(o) == "userdata") and (t and type(t) == "string")) then
        local comparisonType = types["System.Type"].GetType(t);
        if (comparisonType) then
            -- The comparison type was successfully loaded so we can do a check
            -- that the object can be assigned to the comparison type.
            return comparisonType:IsAssignableFrom(o:GetType()), true;
        else
            -- The comparison type was could not be loaded so we can only check
            -- based on the names of the types.
            if(checkFullName) then
                return (o:GetType().FullName == t), false;
            else
                return (o:GetType().Name == t), false;
            end
        end
    end

    return false, false;
end

local function LogIndented(entry, depth)
    depth = (depth or 0);
    LogDebug(string.rep("> ", depth) .. entry);
end

local function LogTable(input, depth)
    assert(type(input) == "table", "LogTable expects a LUA table");

    depth = (depth or 0);

    for key, value in pairs(input) do
        if (value and type(value) == "table") then
            LogIndented("Key: " .. key, depth);
            LogTable(value, depth + 1);
        else
            local success, result = pcall(string.format, "%s", (value or "(nil)"));

            if (success) then
                LogIndented("Key: " .. key .. " = " .. (value or "(nil)"), depth);
            else
                LogIndented("Key: " .. key .. " = (?)", depth);
            end
        end
    end

    for index, value in ipairs(input) do
        if (value and type(value) == "table") then
            LogIndented("Index: " .. index, depth);
            LogTable(value, depth + 1);
        else
            LogIndented("Index: " .. index .. " = " .. (value or "(nil)"), depth);
        end
    end
end

local function LogException(exception, depth)
    depth = (depth or 0);

    if (exception) then
        LogIndented(exception.Message, depth);
        LogException(exception.InnerException, depth + 1);
    end
end

local function URLDecode(s)
    s = string.gsub(s, "+", " ");
    s = string.gsub(s, "%%(%x%x)", function(h)
    return string.char(tonumber(h, 16));
    end);

    s = string.gsub(s, "\r\n", "\n");

    return s;
end

local function StringSplit(delimiter, text)
    if delimiter == nil then
        delimiter = "%s"
    end
    local t={};
    local i=1;
    for str in string.gmatch(text, "([^"..delimiter.."]+)") do
        t[i] = str
        i = i + 1
    end
    return t
end 

local function URLEncode(s)
    if (s) then
        s = string.gsub(s, "\n", "\r\n")
        s = string.gsub(s, "([^%w %-%_%.%~])",
            function (c)
                return string.format("%%%02X", string.byte(c))
            end);
        s = string.gsub(s, " ", "+")
    end
    return s
end

local function CreateQueryString(t)

    local query = nil;

    if (t and type(t) == "table") then
        for k, v in pairs(t) do
            if (v) then
                local success, value = pcall(URLEncode, v);
                if (success) then
                    query = string.format("%s%s=%s", ((query and (query .. "&")) or ""), k, value);
                end
            end
        end
    end

    return query;
end

local function GetNodeCount(xmlElement, xPath, namespaceManager)
    if (xmlElement == nil or xPath == nil) then
        Log("Invalid Element/Path to retrieve value", true);
        return nil;
    end

    Log("GetNodeCount Path: ".. xPath, true);

    local datafieldNode = nil;

    if (namespaceManager ~= nil) then
        datafieldNode = xmlElement:SelectNodes(xPath, namespaceManager);
    else
        datafieldNode = xmlElement:SelectNodes(xPath);
    end

    return datafieldNode.Count;
end

local function GetChildValue(xmlElement, xPath, namespaceManager)
    Log("[Utility.GetChildValue] "..xPath);
    if (xmlElement == nil or xPath == nil) then
        Log("Invalid Element/Path to retrieve value.");
        return nil;
    end

    local datafieldNode = nil;

    if (namespaceManager ~= nil) then
        datafieldNode = xmlElement:SelectNodes(xPath, namespaceManager);
    else
        datafieldNode = xmlElement:SelectNodes(xPath);
    end

    Log("Found "..datafieldNode.Count.." node elements matching "..xPath);
    local fieldValue = "";
    for d = 0, (datafieldNode.Count - 1) do
        Log("datafieldnode value is: " .. datafieldNode:Item(d).InnerText, true);
        fieldValue = fieldValue .. " " .. datafieldNode:Item(d).InnerText;
    end

    fieldValue = Trim(fieldValue);
    Log("GetChildValue Result: " .. fieldValue, true);

    return fieldValue;
end

local function RemoveTrailingSpecialCharacters(item)
    local trailingCharacters = { '\\', '/', ',', '%.', ';', ':', '%-', '=' };
    for _, value in ipairs(trailingCharacters) do
        if (string.match(item, value, -1)) then
            return Utility.Trim(item:sub(1, -2))
        end
    end
    return item;
end

local function RemoveWhiteSpaceFromString(str)
    return string.gsub(str, "%s+", "");
end

UtilityInternal.Trim = Trim;
UtilityInternal.IsType = IsType;
UtilityInternal.Log = Log;
UtilityInternal.URLDecode = URLDecode;
UtilityInternal.URLEncode = URLEncode;
UtilityInternal.StringSplit = StringSplit;
UtilityInternal.CreateQueryString = CreateQueryString;
UtilityInternal.GetXmlChildValue = GetChildValue;
UtilityInternal.GetXmlNodeCount = GetNodeCount;
UtilityInternal.RemoveWhiteSpaceFromString = RemoveWhiteSpaceFromString;
UtilityInternal.RemoveTrailingSpecialCharacters = RemoveTrailingSpecialCharacters;