2%:-module(pddl_reader,[read_pddl/2]).
    3
    4%%:-include(readFile).
    5%:-include(parseProblem).
    6%:-include(parseDomain).
    7
    8:-[parseProblem, parseDomain].    9
   10read_pddl(F,L):-
   11	(
   12		parseDomain(F, L, _) ; parseProblem(F, L, _)
   13	), !.
   14read_pddl(F,[]):-
   15	write('Parsing file failed. '), write('('), write(F), write(')'), nl.
   16
   17 pd:-parseDomain('FairyTaleCastle.PDDL',X,L),writeq(X:L),nl,nl,nl