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

added a contruction; fixed negation

Browse Source
This commit is contained in:
EkaterinaVoloshina
2024-11-26 21:26:54 +01:00
parent 3dae1cf820
commit 6b5df036e3
15 changed files with 107 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/russian/CatRus.gf
+8 -2
View File
@@ -1,4 +1,4 @@
concrete CatRus of Cat = CommonX ** open ResRus, Prelude in {
concrete CatRus of Cat = CommonX - [AdV, mkAdV] ** open ResRus, Prelude in {
flags coding=utf8 ; optimize=all ;
lincat
N = ResRus.NounForms ;
@@ -29,6 +29,11 @@ lincat
A, Ord = ResRus.AdjForms ;
A2 = ResRus.AdjForms ** {c : ComplementCase} ;
AdV = {
s : Str ;
p : Polarity
} ;
V, VS, VQ, VA = ResRus.VerbForms ;
V2, V2S, V2Q, V2A, V2V = ResRus.VerbForms2 ;
V3 = ResRus.VerbForms3 ;
@@ -136,7 +141,8 @@ linref
= {verb = s.verb ;
adv = s.adv ;
dep = s.dep ;
compl = \\p, a => s.compl1 ! p ! a ++ s.c.s ++ s.compl2 ! p ! a
compl = \\p, a => s.compl1 ! p ! a ++ s.c.s ++ s.compl2 ! p ! a ;
p = s.p
}
in vp.adv ! Ag (GSg Neut) P3 ++ (verbInf vp.verb) ++ vp.dep ++ vp.compl ! Pos ! Ag (GSg Neut) P3 ;
Cl = \s -> s.subj ++ s.adv ++ (verbInf s.verb) ++ s.dep ++ s.compl ! Pos ;