private class AstMetricsVisitor
	super Visitor

	var phase: AstMetricsPhase

	redef fun visit(n)
	do
		n.visit_all(self)
		phase.node_counter.inc(n.class_name)
		if n isa TId or n isa TAttrid or n isa TClassid then
			assert n isa Token
			phase.id_counter.inc(n.text)
		end
	end
end