msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fixed RelSlash; sta

Browse Source
This commit is contained in:
Roman Suzi
2020-07-27 23:22:00 +03:00
parent 9918e391b3
commit a76a017064
4 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/russian/CatRus.gf
View File

@@ -46,7 +46,7 @@ lincat
ClSlash = { ClSlash = {
subj,compl,adv : Str ; subj,compl,adv : Str ;
verb : VerbForms ; verb : VerbForms ;
dep : Str ; -- dependent infinites and such dep : Str ; -- dependent infiniteve and such
a : Agr ; a : Agr ;
c : ComplementCase c : ComplementCase
} ; } ;

2
src/russian/NumeralRus.gf
View File

@@ -128,7 +128,7 @@ oper sta : (Gender => Animacy => Case => Str) -> (Gender => Animacy => Case => S
<(Nom|VocRus|Acc), _ > => n ! Fem ! Animate ! c + "ста"; <(Nom|VocRus|Acc), _ > => n ! Fem ! Animate ! c + "ста";
<Gen|Ptv, _ > => n ! Fem ! Animate ! c + "сот"; <Gen|Ptv, _ > => n ! Fem ! Animate ! c + "сот";
<Dat, _ > => n ! Fem ! Animate ! c + "стам"; <Dat, _ > => n ! Fem ! Animate ! c + "стам";
<Ins, _ > => n ! Fem ! Animate ! c + "юстами"; <Ins, _ > => n ! Fem ! Animate ! c + "стами";
<Pre|Loc, _ > => n ! Fem ! Animate ! c + "стах" <Pre|Loc, _ > => n ! Fem ! Animate ! c + "стах"
}; };

6
src/russian/RelativeRus.gf
View File

@@ -16,11 +16,11 @@ lin
} ; } ;
-- : RP -> ClSlash -> RCl ; -- whom John loves -- : RP -> ClSlash -> RCl ; -- whom John loves
RelSlash rp cls = { RelSlash rp cls = {
subj=rp.s ; subj=\\gn,anim,cas => cls.c.s ++ (rp.s ! gn ! Inanimate ! cls.c.c) ++ cls.subj ;
adv=\\a=>cls.adv ; -- TODO: this should be after subj in this case adv=\\a=>cls.adv ;
verb=cls.verb ; verb=cls.verb ;
dep=cls.dep ; dep=cls.dep ;
compl=\\a=>cls.compl ; compl=\\a=> cls.compl ;
a=cls.a a=cls.a
} ; } ;

4
src/russian/todo.txt
View File

@@ -29,3 +29,7 @@ AllRus: складываем &+ те всех в кого &+ -то пит
LangRus-NEW> некоторое из этих двадцати червей существует LangRus-NEW> некоторое из этих двадцати червей существует
Inherent number for nouns. eg, for geonames or pluralia tantum. Inherent number for nouns. eg, for geonames or pluralia tantum.
** UseCl (TTAnt TPres ASimul) PPos (CleftNP (UsePron she_Pron) (UseRCl (TTAnt TPres ASimul) PPos (RelSlash ∅ (SlashVP somebody_NP (SlashV2a write_V2)))))
LangRus-NEW> она это , которую кто &+ -то пишет
LangRus-OLD> это она , которую кто-то пишет