(Ara) Add UttInterj and an API command mkInterj

This commit is contained in:
Inari Listenmaa
2018-11-14 18:11:10 +01:00
parent 2b16118063
commit 06efa09f93
2 changed files with 4 additions and 1 deletions
+1
View File
@@ -10,6 +10,7 @@ concrete PhraseAra of Phrase = CatAra ** open
UttQS qs = {s = \\g => qs.s ! QDir} ;
UttImpSg pol imp = {s = \\g => imp.s ! pol.p ! g ! ResAra.Sg ++ pol.s} ;
UttImpPl,UttImpPol = \pol,imp -> {s = \\g => imp.s ! pol.p ! g ! ResAra.Pl ++ pol.s} ;
UttInterj i = {s = \\g => i.s} ;
UttIP ip = {s = \\g => ip.s ! False ! g ! Def ! Nom} ; --IL
UttAP ap = {s = ResAra.uttAP ap} ; --IL