initial commit

LibTSM/Util/JSON.lua

@@ -0,0 +1,58 @@
+-- ------------------------------------------------------------------------------ --
+--                                TradeSkillMaster                                --
+--                          https://tradeskillmaster.com                          --
+--    All Rights Reserved - Detailed license information included with addon.     --
+-- ------------------------------------------------------------------------------ --
+
+--- JSON Functions
+-- @module JSON
+
+local _, TSM = ...
+local JSON = TSM.Init("Util.JSON")
+local private = {}
+
+
+
+-- ============================================================================
+-- Module Functions
+-- ============================================================================
+
+function JSON.Encode(value)
+	if type(value) == "string" then
+		return "\""..private.SanitizeString(value).."\""
+	elseif type(value) == "number" or type(value) == "boolean" then
+		return tostring(value)
+	elseif type(value) == "table" then
+		local absCount = 0
+		for _ in pairs(value) do
+			absCount = absCount + 1
+		end
+		local tblParts = {}
+		if #value == absCount then
+			for _, v in ipairs(value) do
+				tinsert(tblParts, JSON.Encode(v))
+			end
+			return "["..table.concat(tblParts, ",").."]"
+		else
+			for k, v in pairs(value) do
+				tinsert(tblParts, "\""..private.SanitizeString(k).."\":"..JSON.Encode(v))
+			end
+			return "{"..table.concat(tblParts, ",").."}"
+		end
+	else
+		error("Invalid type: "..type(value))
+	end
+end
+
+
+
+-- ============================================================================
+-- Private Helper Functions
+-- ============================================================================
+
+function private.SanitizeString(str)
+	str = gsub(str, "\124cff[0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f]([^\124]+)\124r", "%1")
+	str = gsub(str, "[\\]+", "/")
+	str = gsub(str, "\"", "'")
+	return str
+end