anselme/ast/Environment.lua

local ast = require("ast")

local operator_priority = require("common").operator_priority

local Branched, ArgumentTuple, Overload, Overloadable, Table

local VariableMetadata = ast.abstract.Runtime {
	type = "variable metadata",

	symbol = nil,
	branched = nil,
	format_priority = operator_priority["_=_"],

	init = function(self, state, symbol, value)
		self.symbol = symbol
		self.branched = Branched:new(state, value)
	end,
	get = function(self, state)
		if self.symbol.alias then
			return self.branched:get(state):call(state, ArgumentTuple:new())
		else
			return self.branched:get(state)
		end
	end,
	set = function(self, state, value)
		assert(not self.symbol.constant, ("trying to change the value of constant %s"):format(self.symbol.string))
		if self.symbol.type_check then
			local r = self.symbol.type_check:call(state, ArgumentTuple:new(value))
			if not r:truthy() then error(("type check failure for %s; %s does not satisfy %s"):format(self.symbol.string, value, self.symbol.type_check)) end
		end
		if self.symbol.alias then
			local assign_args = ArgumentTuple:new()
			assign_args:add_assignment(value)
			self.branched:get(state):call(state, assign_args)
		else
			self.branched:set(state, value)
		end
	end,

	_format = function(self, ...)
		return ("%s=%s"):format(self.symbol:format(...), self.branched:format(...))
	end,
	traverse = function(self, fn, ...)
		fn(self.symbol, ...)
		fn(self.branched, ...)
	end,

	_merge = function(self, state, cache)
		if not self.symbol.confined_to_branch then
			self.branched:merge(state, cache)
		end
	end
}

local Environment = ast.abstract.Runtime {
	type = "environment",

	parent = nil, -- environment or nil
	variables = nil, -- Table of { {identifier} = variable metadata, ... }

	partial = nil, -- { [name string] = true, ... }
	export = nil, -- bool

	init = function(self, state, parent, partial_names, is_export)
		self.variables = Table:new(state)
		self.parent = parent
		self.partial = partial_names
		self.export = is_export
	end,

	traverse = function(self, fn, ...)
		if self.parent then
			fn(self.parent, ...)
		end
		fn(self.variables, ...)
	end,
	_format = function(self, state)
		return "<environment>"
	end,

	-- define new variable in the environment
	define = function(self, state, symbol, exp)
		local name = symbol.string
		if self:defined_in_current(state, symbol) then
			error(name.." is already defined in the current scope")
		end
		if (self.partial and not self.partial[name])
			or (self.export ~= symbol.exported) then
			return self.parent:define(state, symbol, exp)
		end
		self.variables:set(state, symbol:to_identifier(), VariableMetadata:new(state, symbol, exp))
	end,
	-- define or redefine new overloadable variable in current environment, inheriting existing overload variants from (parent) scopes
	define_overloadable = function(self, state, symbol, exp)
		assert(Overloadable:issub(exp), "trying to add an non-overloadable value to an overload")

		local identifier = symbol:to_identifier()

		-- add overload variants already defined in current or parent scope
		if self:defined(state, identifier) then
			local val = self:get(state, identifier)
			if Overload:is(val) then
				exp = Overload:new(exp)
				for _, v in ipairs(val.list) do
					exp:insert(v)
				end
			elseif Overloadable:issub(val) then
				exp = Overload:new(exp, val)
			elseif self:defined_in_current(state, symbol) then
				error(("can't add an overload variant to non-overloadable variable %s defined in the same scope"):format(identifier))
			end
		end

		-- update/define in current scope
		if self:defined_in_current(state, symbol) then
			self:set(state, identifier, exp)
		else
			self:define(state, symbol, exp)
		end
	end,
	define_alias = function(self, state, symbol, call)
		assert(symbol.alias, "symbol is not an alias")
		assert(call.type == "call", "alias expression must be a call")

		local get = ast.Function:new(ast.ParameterTuple:new(), call):eval(state)

		local set_param = ast.ParameterTuple:new()
		set_param:insert_assignment(ast.FunctionParameter:new(ast.Identifier:new("value")))
		local assign_expr = ast.Call:new(call.func, call.arguments:with_assignment(ast.Identifier:new("value")))
		local set = ast.Function:new(set_param, assign_expr):eval(state)

		self:define(state, symbol, ast.Overload:new(get, set))
	end,

	-- returns bool if variable defined in current or parent environment
	defined = function(self, state, identifier)
		if self.variables:has(state, identifier) then
			return true
		elseif self.parent then
			return self.parent:defined(state, identifier)
		end
		return false
	end,
	-- returns bool if variable defined in current environment layer
	-- (note: by current layer, we mean the closest one where the variable is able to exist - if it is exported, the closest export layer, etc.)
	defined_in_current = function(self, state, symbol)
		local name = symbol.string
		if self.variables:has(state, symbol:to_identifier()) then
			return true
		elseif (self.partial and not self.partial[name])
			or (self.export ~= symbol.exported) then
			return self.parent:defined_in_current(state, symbol)
		end
		return false
	end,
	-- return bool if variable is defined in the current environment only - won't search in parent event for exported & partial names
	defined_in_current_strict = function(self, state, identifier)
		return self.variables:has(state, identifier)
	end,

	-- get variable in current or parent scope, with metadata
	_get_variable = function(self, state, identifier)
		if self:defined(state, identifier) then
			if self.variables:has(state, identifier) then
				return self.variables:get(state, identifier)
			elseif self.parent then
				return self.parent:_get_variable(state, identifier)
			end
		else
			error(("identifier %q is undefined in branch %s"):format(identifier.name, state.branch_id), 0)
		end
	end,
	-- get variable value in current or parent environment
	get = function(self, state, identifier)
		return self:_get_variable(state, identifier):get(state)
	end,
	-- set variable value in current or parent environment
	set = function(self, state, identifier, val)
		return self:_get_variable(state, identifier):set(state, val)
	end,

	-- returns a list {[symbol]=val,...} of all exported variables in the current strict layer
	list_exported = function(self, state)
		assert(self.export, "not an export scope layer")
		local r = {}
		for _, vm in self.variables:iter(state) do
			if vm.symbol.exported then
				r[vm.symbol] = vm:get(state)
			end
		end
		return r
	end,
	-- return the depth of the environmenet, i.e. the number of parents
	depth = function(self)
		local d = 0
		local e = self
		while e.parent do
			e = e.parent
			d = d + 1
		end
		return d
	end,

	_debug_state = function(self, state, filter, t, level)
		level = level or 0
		t = t or {}

		local indentation = string.rep(" ", level)
		table.insert(t, ("%s> %s %s scope"):format(indentation, self.export and "exported" or "", self.partial and "partial" or ""))

		for name, var in self.variables:iter(state) do
			if name.name:match(filter) then
				table.insert(t, ("%s| %s = %s"):format(indentation, name, var:get(state)))
			end
		end
		if self.parent then
			self.parent:_debug_state(state, filter, t, level+1)
		end
		return t
	end,
}

package.loaded[...] = Environment
Branched, ArgumentTuple, Overload, Overloadable, Table = ast.Branched, ast.ArgumentTuple, ast.Overload, ast.abstract.Overloadable, ast.Table

return Environment