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

Oridnal numerals added ; many fixes

Browse Source
This commit is contained in:
Roman Suzi
2020-08-08 20:30:28 +03:00
parent bbbe9bbb03
commit c0734bdfbb
25 changed files with 4061 additions and 425 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/russian/AdjectiveRus.gf
+4 -4
View File
@@ -1,12 +1,12 @@
concrete AdjectiveRus of Adjective = CatRus ** open ResRus, Prelude, Coordination in {
lin
-- : A -> AP ; -- warm - тёплый
PositA a = adjFormsAdjective a ** {isPost = False} ;
PositA a = adjFormsAdjective a ** {isPost = a.p} ;
-- : A2 -> AP ; -- married
UseA2 a = adjFormsAdjective a ** {isPost = False} ;
-- : A -> AP ; -- warmer - теплее
-- : A -> AP ; -- warmer - теплее
UseComparA a = adjFormsAdjective (immutableAdjForms a.comp)
** {isPost = False; preferShort = PrefShort} ; -- TODO: non-qual
** {isPost = a.p; preferShort = PrefShort} ; -- TODO: non-qual
-- : AP -> Adv -> AP ; -- warm by nature
AdvAP ap adv = ap ** {s = \\gn,a,c => adv.s ++ ap.s ! gn ! a ! c ; isPost = False} ;
@@ -29,7 +29,7 @@ lin
} ;
-- : Ord -> AP ; -- warmest
AdjOrd ord = adjFormsAdjective ord ** {isPost = False; preferShort = PrefFull} ;
AdjOrd ord = adjFormsAdjective ord ** {isPost = False; preferShort = PreferFull} ;
-- : A2 -> NP -> AP ; -- married to him - замужем за ним (NB: gender change requires different word!)
ComplA2 a2 np = let af=adjFormsAdjective a2 in {