local infix = require("parser.expression.secondary.infix.infix")
local identifier = require("parser.expression.primary.identifier")

local operator_priority = require("common").operator_priority

local ast = require("ast")
local Call, Identifier, ArgumentTuple = ast.Call, ast.Identifier, ast.ArgumentTuple

return infix {
	operator = "*",
	identifier = "_*_",
	priority = operator_priority["_*_"]+.5, -- just above / so 1/2x gives 1/(2x)

	match = function(self, str, current_priority, primary)
		return self.priority > current_priority and identifier:match(str)
	end,

	parse = function(self, source, str, limit_pattern, current_priority, primary)
		local start_source = source:clone()
		local right, rem = identifier:parse(source, str, limit_pattern)
		return Call:new(Identifier:new(self.identifier), ArgumentTuple:new(primary, right)):set_source(start_source), rem
	end
}