% FAX agent (Prolog)
%    Publishes an OAA interface to some low-level fax api.

:- [agent].		% Include agent library

% The starting point for agent
runtime_entry(start) :- start_agent(fax).

% declaration of capabilities
solvable([fax(Person, Document)]).

timeout(0).		% No special timeout value

% Initialization callback: write vocabulary to Facilitator
app_init :-	
	write_bb(noun, [fax, fax]),
	write_bb(imp_verb, [fax, fax]).

% Agent can fax a document to a person
%   IF a fax number can be found for person
do_event(_AgtId, fax(Person, Doc)) :-
	solve(fax_number(Person, Num), []),
	my_fax_API(Num, Doc).