GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 11:38:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

slightly improved adjective inflection in Ara.wmkA, more todo

Browse Source
This commit is contained in:
Aarne Ranta
2024-02-06 11:33:00 +01:00
parent d2eb7bd46d
commit 82891f3c84
2 changed files with 53 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/arabic/MorphoAra.gf
+22
View File
@@ -491,6 +491,28 @@ oper
AComp d c => indeclN aHmar ! d ! c
};
-- NTable = Number => State => Case => Str;
-- Adj : Type = {s : AForm => Str} ;
-- AForm = APosit Gender Number State Case | AComp State Case ;
ntablesAdj : (masc, fem, comp : NTable) -> Adj = \masc, fem, comp -> {
s = table {
APosit Masc n d c => masc ! n ! d ! c ;
APosit Fem n d c => fem ! n ! d ! c ;
AComp d c => comp ! Sg ! d ! c
}
} ;
mascFemCompAdj : (kabir, kabira, akbar : Str) -> Adj =
\kabir, kabira, akbar ->
ntablesAdj (positAdj kabir ! Masc) (positAdj kabir ! Fem) (positAdj akbar ! Masc) ;
mascFemAdj : (kabir, kabira : Str) -> Adj = \kabir, kabira ->
mascFemCompAdj kabir kabira kabir ; ---- comp
mascAdj : (kabir : Str) -> Adj = \kabir ->
mascFemAdj kabir (kabir + "َة") ;
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------