mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-24 18:46:28 -06:00
Krasimir Angelov
23 lines
933 B
Plaintext
23 lines
933 B
Plaintext
concrete IdiomBel of Idiom = CatBel ** open ResBel, (R = ParamX), ParadigmsBel in {
|
|
|
|
lin
|
|
ImpersCl vp = {s = \\t,p => vp.s ! t ! p ! defaultAgr} ;
|
|
GenericCl vp = {s = \\t,p => "нехта" ++ vp.s ! t ! p ! defaultAgr} ;
|
|
CleftNP np rs = {s = \\_,_ => "гэта" ++ np.s ! Nom ++ rs.s} ;
|
|
CleftAdv adv s = {s = \\_,_ => "гэта" ++ adv.s ++ s.s} ;
|
|
|
|
ExistNP np = {s = \\t,p => copula t p np.a ++ np.s ! Nom} ;
|
|
ExistIP ip = {s = \\t,p => copula t p ip.a ++ ip.s ! Nom} ;
|
|
ExistNPAdv np adv = {s = \\t,p => copula t p np.a ++ np.s ! Nom ++ adv.s} ;
|
|
ExistIPAdv ip adv = {s = \\t,p => copula t p ip.a ++ ip.s ! Nom ++ adv.s} ;
|
|
|
|
ProgrVP vp = vp ;
|
|
ImpPl1 vp = {s = "давайце" ++ vp.inf} ;
|
|
ImpP3 np vp = {s = "няхай" ++ np.s ! Nom ++ vp.s ! R.Pres ! R.Pos ! np.a} ;
|
|
|
|
SelfAdvVP vp = addAdvVP vp "сам" ;
|
|
SelfAdVVP vp = addAdVVP "сам" vp ;
|
|
SelfNP np = {s = \\c => np.s ! c ++ "сам"; a = np.a} ;
|
|
|
|
}
|