Minetest-WorldEditAdditions/worldeditadditions/utils/parse/axes.lua

local Vector3 
if worldeditadditions then
	local wea = worldeditadditions
	Vector3 = dofile(wea.modpath.."/utils/vector3.lua")
else
	Vector3 = require("worldeditadditions.utils.vector3")
end

--- Parses an absolute axis name to a Vector3 instance.
-- @example
-- local v3instance = parse_abs_axis_name("-x")
-- -- v3instance will now be equal to Vector3.new(-1, 0, 0)
-- @param	axis_name	string	The axis name to parse.
-- @returns	bool,Vector3|string	A bool success value, followed by the resulting Vector3 instance (if succeeded) or an error message string (if failed).
local function parse_abs_axis_name(axis_name)
	if type(axis_name) ~= "string" then
		return false, "Error: Expected axis_name to be of type string, but found value of type '"..type(axis_name).."' instead."
	end
	
	local result = Vector3.new()
	if axis_name:match("-x") then result.x = -1
	elseif axis_name:match("x") then result.x = 1 end
	if axis_name:match("-y") then result.y = -1
	elseif axis_name:match("y") then result.y = 1 end
	if axis_name:match("-z") then result.z = -1
	elseif axis_name:match("z") then result.z = 1 end
	
	if Vector3.new() == result then
		return false, "Error: Unknown axis_name '"..axis_name.."'."
	end
	
	return true, result
end

-- Parses a relative axis name (e.g. "front", "back", etc) to an absolute
-- Vector3 instance.
-- @param	axis_name	string		The axis name to parse.
-- @param	player_name	PlayerDir	The directional information that the parsing should be relative to.
-- @returns	bool,Vector3|string	A bool success value, followed by the resulting Vector3 instance (if succeeded) or an error message string (if failed).
local function parse_relative_axis_name(axis_name, facing_dir)
	if type(axis_name) ~= "string" then
		return false, "Error: Expected axis_name to be of type string, value was of type '"..type(axis_name).."' instead."
	end
	
	local dir
	local flip = Vector3.new(-1, -1, -1)
	
	if axis_name == "?"							then dir = facing_dir.front	end
	if axis_name == "front"	or axis_name == "f"	then dir = facing_dir.front	end
	if axis_name == "back"	or axis_name == "b"	then dir = facing_dir.back	end
	if axis_name == "left"	or axis_name == "l"	then dir = facing_dir.left	end
	if axis_name == "right" or axis_name == "r"	then dir = facing_dir.right end
	if axis_name == "up"	or axis_name == "u"	then dir = facing_dir.up	end
	if axis_name == "down"	or axis_name == "d"	then dir = facing_dir.down	end
	
	if not dir then return false, "Error: Unknown axis name '"..axis_name.."'. Valid values: ?, front, f, back, b, left, l, right, r, up, u, down, d." end
	
	axis_name = (dir.sign < 0 and "-" or "")..dir.axis
	local success, result = parse_abs_axis_name(axis_name)
	if not success then return success, result end
	
	return true, result
end

--- Parses a relative or absolute axis name into a Vector3 instance.
-- @param	axis_name	string	The axis name to parse.
-- @param	facing_dir	table	The direction the player is facing. Obtain this by calling worldeditadditions.
local function parse_axis_name(axis_name, facing_dir)
	local success, result = parse_relative_axis_name(axis_name, facing_dir)
	if not success then
		success, result = parse_abs_axis_name(axis_name)
	end
	return success, result
end

local function vregion_apply(vpos1, vpos2, offset)
	-- It's a specific axis
	if offset.x < 0 then vpos1.x = vpos1.x + offset.x
	else vpos2.x = vpos2.x + offset.x end
	if offset.y < 0 then vpos1.y = vpos1.y + offset.y
	else vpos2.y = vpos2.y + offset.y end
	if offset.z < 0 then vpos1.z = vpos1.z + offset.z
	else vpos2.z = vpos2.z + offset.z end
	
	return vpos1, vpos2
end

local function in_list(list, str)
	for i,item in ipairs(list) do
		if item == str then return true end
	end
	return false
end

--- Parses a token list of axes and counts into a Vector3.
-- For example, "x 4" would become { x = 4, y = 0, z = 0 }, and "? 4 -z 10"
-- might become { x = 4, y = 0, z = -10 }.
-- Note that the input here needs to be *post split*. wea.split_shell is
-- recommended for this purpose.
-- @param	token_list	string[]	A list of tokens to parse
-- @param	facing_dir	PlayerDir	The direction the player is facing. Returned from wea.player_dir(name).
-- @returns	Vector3,Vector3		A Vector3 pair generated from parsing out the input token list representing the delta change that can be applied to a defined pos1, pos2 region.
local function parse_axes(token_list, facing_dir)
	local mirroring_keywords = {
		"sym", "symmetrical",
		"mirror", "mir",
		"rev", "reverse",
		"true"
	}
	
	if type(token_list) ~= "table" then
		return false, "Error: Expected list of tokens as a table, but found value of type '"..type(token_list).."' instead."
	end
	if type(facing_dir) ~= "table" then
		return false, "Error: Expected facing_dir to be a table, but found value of type '"..type(facing_dir).."' instead."
	end
	
	local vpos1, vpos2 = Vector3.new(), Vector3.new()
	
	if #token_list < 2 then
		return false, "Error: Not enough arguments (at least 2 are required)"
	end
	
	local state = "AXIS"
	local current_axis = nil
	local current_axis_text = nil
	local success
	
	-- for i,token in ipairs(token_list) do
	for i=1,#token_list do
		local token = token_list[i]
		local token_next
		if i < #token_list then token_next = token_list[i + 1] end
		
		if type(token) ~= "string" then
			return false, "Error: Found token of unexpected type '"..type(token).."' at position "..i.."."
		end
		
		-- print("DEBUG i", i, "token", token)
		
		if state == "AXIS" then
			if token == "h" or token == "horizontal" then
				current_axis_text = "horizontal"
				current_axis = Vector3.new(1, 0, 1)
			elseif token == "v" or token == "vertical" then
				current_axis_text = "vertical"
				current_axis = Vector3.new(0, 1, 0)
			elseif not in_list(mirroring_keywords, token) then
				current_axis_text = token
				success, current_axis = parse_axis_name(token, facing_dir)
				if not success then return success, current_axis end
			end
			
			state = "VALUE"
		elseif state == "VALUE" then
			
			local offset_this = tonumber(token)
			if not offset_this then
				return false, "Error: Invalid count value '"..tostring(token).."' for axis '"..current_axis_text.."'. Values may only be positive or negative integers."
			end
			
			offset_this = current_axis * offset_this
			
			-- print("DEBUG STATE VALUE offset_this", offset_this)
			
			-- Apply the new offset to the virtual defined region
			if current_axis_text == "horizontal" or current_axis_text == "vertical" then
				-- We're horizonal / vertical
				vpos1 = vpos1 + (offset_this * -1)
				vpos2 = vpos2 + offset_this
			else
				vpos1, vpos2 = vregion_apply(vpos1, vpos2, offset_this)
				-- Handle the extra mirroring keyword
				if in_list(mirroring_keywords, token_next) then
						vpos1, vpos2 = vregion_apply(vpos1, vpos2, offset_this * -1)
				end
			end
			
			state = "AXIS"
		else
			return false, "Error: Failed to parse input due to unknown state '"..tostring(state).."' (this is probably a bug - please report it!)"
		end
	end
	
	return true, vpos1, vpos2
end

return {
	parse_axes = parse_axes,
	parse_axis_name = parse_axis_name,
	parse_abs_axis_name = parse_abs_axis_name,
	parse_relative_axis_name = parse_relative_axis_name
}