pikuma_ps1/scripts/duffle.lua

--- duffle.lua — facade over duffle_scan / duffle_isa / duffle_emit.
local scan = require("duffle_scan")
local isa  = require("duffle_isa")
local emit = require("duffle_emit")
local M    = {}

local function merge(src, label)
	for k, v in pairs(src) do
		if M[k] ~= nil and M[k] ~= v then
			error("duffle facade name collision on " .. tostring(k) .. " from " .. label, 0)
		end
		M[k] = v
	end
end

merge(scan, "duffle_scan")
merge(isa,  "duffle_isa")
merge(emit, "duffle_emit")

function M.corpus_view(ctx)
	local  corpus = ctx and ctx.shared and ctx.shared.corpus
	if not corpus then error("requires ctx.shared.corpus", 0) end
	return {
		register_alias_registry = corpus.register_alias_registry or {},
		type_name_registry      = corpus.type_name_registry      or {},
		atom_views              = corpus.atom_views              or {},
		atom_ctxs               = corpus.atom_ctxs               or {},
		atom_phases             = corpus.atom_phases             or {},
		binds_by_name           = corpus.binds_by_name           or {},
		atoms_by_name           = corpus.atoms_by_name           or {},
		atom_infos              = corpus.atom_infos              or {},
		components              = corpus.components              or {},
		component_atom_infos    = corpus.component_atom_infos    or {},
		component_body_index    = corpus.component_body_index    or {},
		tape_chains             = corpus.tape_chains             or {},
		source_order            = corpus.source_order            or {},
		collisions              = corpus.collisions              or {},
	}
end

function M.run_check_rules(rules, phase, item, pipe_ctx, findings)
	for _, rule in ipairs(rules) do
		local fn = rule[phase]
		if    fn then fn(item, pipe_ctx, findings) end
	end
end

return M