fixed RelSlash; sta

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

View File

@@ -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
} ;

View File

@@ -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 + "стах"
};

View File

@@ -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
} ;

View File

@@ -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> это она , которую кто-то пишет