Added functionality for V3 in lexicon, rearranged the Paradigms to accomodate it. Implemented Slash2V3 and Slash3V3

This commit is contained in:
David Bamutura
2019-05-06 23:15:56 +02:00
parent 48aa65d2dd
commit c2691eda44
8 changed files with 190 additions and 42 deletions

View File

@@ -1,6 +1,6 @@
--# -path=.:../prelude:../abstract:../common
concrete RelativeCgg of Relative = CatCgg ** open ResCgg in {
concrete RelativeCgg of Relative = CatCgg ** open Prelude, ResCgg in {
lin
{-
@@ -25,25 +25,37 @@ lin
-- a pronoun similar to "such that".
RelCl cl = {
s = "kugira ngu" ++ cl.s ;
subjAgr = cl.subjAgr;
subjAgr = AgrYes cl.subjAgr;
rp = mkRPs;
rObjVariant2 = mkRObjV2;
root = cl.root;
morphs = cl.morphs;
compl =cl.compl
compl =cl.compl;
isCompApStem = False;
agr = AgrNo
}; -- such that John loves her. why does it need any case?
-- The more proper ways are from a verb phrase
-- (formed in [``Verb`` Verb.html]) or a sentence
-- with a missing noun phrase (formed in [``Sentence`` Sentence.html]).
--RelVP : RP -> VP -> RCl ; -- who loves John
{-
RelVP rp vp ={
RelVP rp vp =
{
s = [];
subjAgr = cl.subjAgr;
root = cl.root;
morphs = cl.morphs;
compl =cl.compl
subjAgr = AgrNo;
rp = rp.s;
rObjVariant2 = rp.rObjVariant2;
root = vp.s;
morphs = vp.morphs;
compl =vp.comp;
isCompApStem = vp.isCompApStem;
agr = vp.agr
};
-}
--RelSlash : RP -> ClSlash -> RCl ; -- whom John loves
{-
--1 Relative clauses and pronouns