local infix = require("parser.expression.secondary.infix.infix")
local escape = require("common").escape
local expression_to_ast = require("parser.expression.to_ast")

local operator_priority = require("common").operator_priority

local ast = require("ast")
local Tuple = ast.Tuple

return infix {
	operator = ",",
	identifier = "_,_",
	priority = operator_priority["_,_"],

	-- reminder: this :parse method is also called from primary.list as an helper to build list bracket litterals
	parse = function(self, source, str, limit_pattern, current_priority, primary)
		local start_source = source:clone()
		local l = Tuple:new()
		l:insert(primary)

		local escaped = escape(self.operator)
		local rem = str
		while rem:match("^%s*"..escaped) do
			rem = source:consume(rem:match("^(%s*"..escaped..")(.*)$"))

			local s, right
			s, right, rem = pcall(expression_to_ast, source, rem, limit_pattern, self.priority)
			if not s then error(("invalid expression after binop %q: %s"):format(self.operator, right), 0) end

			l:insert(right)
		end

		l.explicit = false
		return l:set_source(start_source), rem
	end
}