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