mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
fixed RelSlash; sta
This commit is contained in:
@@ -46,7 +46,7 @@ lincat
|
||||
ClSlash = {
|
||||
subj,compl,adv : Str ;
|
||||
verb : VerbForms ;
|
||||
dep : Str ; -- dependent infinites and such
|
||||
dep : Str ; -- dependent infiniteve and such
|
||||
a : Agr ;
|
||||
c : ComplementCase
|
||||
} ;
|
||||
|
||||
@@ -128,7 +128,7 @@ oper sta : (Gender => Animacy => Case => Str) -> (Gender => Animacy => Case => S
|
||||
<(Nom|VocRus|Acc), _ > => n ! Fem ! Animate ! c + "ста";
|
||||
<Gen|Ptv, _ > => 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 + "стах"
|
||||
};
|
||||
|
||||
|
||||
@@ -16,11 +16,11 @@ lin
|
||||
} ;
|
||||
-- : RP -> ClSlash -> RCl ; -- whom John loves
|
||||
RelSlash rp cls = {
|
||||
subj=rp.s ;
|
||||
adv=\\a=>cls.adv ; -- TODO: this should be after subj in this case
|
||||
subj=\\gn,anim,cas => cls.c.s ++ (rp.s ! gn ! Inanimate ! cls.c.c) ++ cls.subj ;
|
||||
adv=\\a=>cls.adv ;
|
||||
verb=cls.verb ;
|
||||
dep=cls.dep ;
|
||||
compl=\\a=>cls.compl ;
|
||||
compl=\\a=> cls.compl ;
|
||||
a=cls.a
|
||||
} ;
|
||||
|
||||
|
||||
@@ -29,3 +29,7 @@ AllRus: складываем &+ те всех в кого &+ -то пит
|
||||
LangRus-NEW> некоторое из этих двадцати червей существует
|
||||
|
||||
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> это она , которую кто-то пишет
|
||||
|
||||
Reference in New Issue
Block a user