started relative clauses

This commit is contained in:
Krasimir Angelov
2024-07-25 18:23:35 +02:00
parent b1a5cf93b6
commit 5135e5c5ca
8 changed files with 54 additions and 14 deletions
+4 -7
View File
@@ -231,19 +231,16 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, ParamX,
h = cn.h
} ;
-- TODO: currently not able to generate trees.
RelCN cn rs = {
s = \\n,c => "(TODO: RelCN)" ;
gen = cn.gen ;
s = \\n,c => rs.s ! {n=n; p=P3} ++ cn.s ! n ! c ;
gen = \\n,c => rs.s ! {n=n; p=P3} ++ cn.gen ! n ! c ;
h = cn.h
} ;
RelNP np rs = {
s = \\c => "(TODO: RelNP)" ;
gen = np.gen ;
s = \\c => rs.s ! np.a ++ np.s ! c ;
h = np.h ;
a = np.a ;
c = np.c
a = np.a
} ;
}