(Ara) couple of additions

This commit is contained in:
Inari Listenmaa
2018-09-17 15:57:09 +02:00
parent 5e5840722d
commit c660dd6aa5
3 changed files with 5 additions and 3 deletions
+3 -1
View File
@@ -18,7 +18,9 @@ concrete PhraseAra of Phrase = CatAra ** open
UttIP ip = {s = \\_ => ip.s} ; ---- AR
-- AP = { s : Species => Gender => Number => State => Case => Str } ;
UttAP ap = {s = \\g => ap.s ! NoHum ! g ! Sg ! Def ! Nom } ; ---- OK? IL
UttAP ap = {s = \\g => ap.s ! NoHum ! g ! ResAra.Sg ! Def ! Nom } ; ---- OK? IL
-- Card = {s : Gender => State => Case => Str } ;
UttCard c = {s = \\g => c.s ! g ! Def ! Nom } ; ---- OK? IL
-- UttIAdv iadv = iadv ;
UttNP np = {s = \\_ => np.s ! Nom} ;