local config = require("druid.editor_scripts.defold_parser.system.config")

local M = {}

-- Example: "name: value"
M.REGEX_KEY_COLUM_VALUE = "^%s*([%w_]+):%s*(.+)$"
-- Example: "name {"
M.REGEX_START_TABLE = "^%s*([%w_]*)%s*{%s*$"
-- Example: "}"
M.REGEX_END_TABLE = "^%s*}%s*$"


---@param value string
---@return string
function M.unescape_text_field(value)
	-- Splitting the value by new lines and processing each line
	local lines = {}
	for line in value:gmatch("[^\r\n]+") do
		line = line:gsub('\\"', '"') -- Unescaping quotes
		line = line:gsub("\\n", "")  -- Removing newline escapes
		line = line:gsub("\\", "")   -- Unescaping backslashes
		table.insert(lines, line)
	end

	-- Reconstructing the value
	value = table.concat(lines, "\n")
	return value
end


function M.is_multiline_value(value)
	return value:find("\\n\"") ~= nil
end


---@param value any
---@param property_name string|nil
---@return any
function M.decode_value(value, property_name)
	if value:match('^".*"$') then
		-- Removing the quotes from the string
		value = value:sub(2, -2)

		-- Check if value is escaped
		-- If ends with \n
		if value:sub(-2) == "\\n" then
			value = value:gsub('\\"', '"') -- Unescaping quotes
			value = value:gsub("\\n", "")
			value = value:gsub("\\", "")
		end

	elseif value:match('^%-?[0-9.E%-]+$') then
		-- Converting to number
		value = tonumber(value)
	end

	-- Specific handling for the "text" property
	if property_name == "text" then
		value = tostring(value)
	else
		if value == "true" then
			value = true
		elseif value == "false" then
			value = false
		end
	end

	if property_name == "text" and M.is_multiline_value(value) and type(value) == "string" then
		value = M.unescape_text_field(value)
	end

	return value
end


---@param parent_object table
---@param name string
---@param stack table
function M.new_inner_struct(parent_object, name, stack)
	local new_object = {}
	M.apply_value(parent_object, name, new_object)

	local is_object_always_list = config.ALWAYS_LIST[name]
	if is_object_always_list and not M.is_array(parent_object[name]) then
		parent_object[name] = { parent_object[name] }
	end

	table.insert(stack, new_object)
end


---Apply value to the object, if the value is already present, convert it to an array
---@param object table
---@param name string
---@param value any
---@return table object
function M.apply_value(object, name, value)
	local is_object_always_list = config.ALWAYS_LIST[name]
	if object[name] == nil then
		object[name] = value
		if is_object_always_list then
			object[name] = { object[name] }
		end
		return object
	end

	-- Convert to array if not already
	if not M.is_array(object[name]) then
		object[name] = { object[name] }
	end

	table.insert(object[name], value)
	return object
end


---@param object table
---@param value string
---@return table @object
function M.apply_multiline_value(object, name, value)
	if object[name] == nil then
		object[name] = value
	else
		object[name] = object[name] .. "\n" .. value
	end

	return object
end


--- Check if table is array
---@param t table
---@return boolean
function M.is_array(t)
	return type(t) == "table" and t[1] ~= nil
end


return M