f1b417f1c3
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@812 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
23 lines
337 B
Plaintext
23 lines
337 B
Plaintext
|
|
:- object(sentence,
|
|
implements(parsep),
|
|
imports(determiners, nouns, verbs)).
|
|
|
|
|
|
parse(List, true) :-
|
|
phrase(sentence, List).
|
|
|
|
parse(_, false).
|
|
|
|
|
|
sentence --> noun_phrase, verb_phrase.
|
|
|
|
noun_phrase --> ::determiner, ::noun.
|
|
noun_phrase --> ::noun.
|
|
|
|
verb_phrase --> ::verb.
|
|
verb_phrase --> ::verb, noun_phrase.
|
|
|
|
|
|
:- end_object.
|