Logtalk 2.26.2 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1488 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -1,11 +0,0 @@
|
||||
|
||||
:- category(determiners).
|
||||
|
||||
|
||||
:- private(determiner//0).
|
||||
|
||||
determiner --> [the].
|
||||
determiner --> [a].
|
||||
|
||||
|
||||
:- end_category.
|
||||
@@ -1,11 +0,0 @@
|
||||
|
||||
:- category(nouns).
|
||||
|
||||
|
||||
:- private(noun//0).
|
||||
|
||||
noun --> [boy].
|
||||
noun --> [girl].
|
||||
|
||||
|
||||
:- end_category.
|
||||
@@ -1,22 +0,0 @@
|
||||
|
||||
:- 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.
|
||||
@@ -1,11 +0,0 @@
|
||||
|
||||
:- category(verbs).
|
||||
|
||||
|
||||
:- private(verb//0).
|
||||
|
||||
verb --> [likes].
|
||||
verb --> [hates].
|
||||
|
||||
|
||||
:- end_category.
|
||||
Reference in New Issue
Block a user