class Async::Node

def add_child child
 ||= Set.new
 << child

def annotate(annotation)
	if block_given?
		previous_annotation = @annotation
		@annotation = annotation
		yield
		@annotation = previous_annotation
	else
		@annotation = annotation
	end
end

def consume
	if @parent and finished?
		@parent.reap(self)
		@parent.consume
		@parent = nil
	end
end

def description
	@object_name ||= "#{self.class}:0x#{object_id.to_s(16)}"
	
	if @annotation
		"#{@object_name} #{@annotation}"
	else
		@object_name
	end
end

def finished?
	@children.nil? or @children.empty?
end

def initialize(parent = nil)
	@children = nil
	@parent = nil
	
	@annotation = nil
	@object_name = nil
	
	if parent
		self.parent = parent
	end
end

def inspect
	to_s
end

def parent=(parent)
	return if @parent.equal?(parent)
	
	if @parent
		@parent.reap(self)
		@parent = nil
	end
	
	if parent
		@parent = parent
		@parent.add_child(self)
	end
	
	return self
end

def print_hierarchy(out = $stdout)
	self.traverse do |node, level|
		out.puts "#{"\t" * level}#{node}"
	end
end

def reap(child)
	@children.delete(child)
end

def stop
	@children&.each(&:stop)
end

def to_s
	"\#<#{description}>"
end

def traverse(level = 0, &block)
	yield self, level
	
	@children&.each do |child|
		child.traverse(level + 1, &block)
	end
end