use v6.c;

use AI::Agent::Actor;
use AI::Agent::Agent;

class AI::Agent::HashedAgent is AI::Agent::Agent
{
        has &!callback;
        has AI::Agent::Agent @!dependencies;
        has Bool $.done;

        method BUILD(:$status) {
                $.status = $status;
                self.add-depedency(self.ask);
                self.add-depedency(self.agent);
        }

        method add-dependency(AI::Agent::Agent $dependency) {
                push @!dependencies, $dependency;
        }

        method ask(%args) {
                return "You can ask me the following:
RET
                        agent, dispatch args = \{ agent, agent instance \}
RET
";
        }

        # agent dispatched, overload for other agent parsing
        method dispatch_agent($agent) {
                return &$agent.dispatch;
        }

        # Look if an agent is dispatched, note the "agent" key for agents
        method agent(%args) {
                %args{"agent"}.dispatch_agent(self);
        }
                                                              24,1          55%
        ### main call to the actor-agent

        method dispatch($message, %optargs) {
                unless $!done {
                        self.dispatch($message, %optargs) for @!dependencies;
                        &!callback();
                        $!done = True;
                }
        }