(Ara) Add linref for CN + choose bare form for UttCN, no case

This commit is contained in:
Inari Listenmaa
2018-10-19 17:25:25 +02:00
parent 85e4a8061f
commit 4b2c706bcd
3 changed files with 16 additions and 8 deletions
+5 -1
View File
@@ -47,7 +47,7 @@ concrete CatAra of Cat = CommonX - [Utt] ** open ResAra, Prelude, ParamX in {
-- Noun
CN = ResAra.Noun ** {adj : NTable ; np : Case => Str};
CN = ResAra.CN;
NP, Pron = ResAra.NP; --{s : Case => Str ; a : Agr } ;
Num,
Ord,
@@ -90,4 +90,8 @@ concrete CatAra of Cat = CommonX - [Utt] ** open ResAra, Prelude, ParamX in {
N3 = ResAra.Noun ** {c2, c3 : Str} ;
PN = {s : Case => Str; g : Gender; h : Species} ;
linref
CN = \cn -> uttCN cn ! Masc ;
}