mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-22 18:26:13 -06:00
22 lines
918 B
Plaintext
22 lines
918 B
Plaintext
concrete IdiomHye of Idiom = CatHye ** open ResHye in {
|
|
oper
|
|
bareCl : Str -> Cl = \s -> lin Cl {
|
|
s=s; negative=table {_ => "չ" ++ s}; conditional=\\_,_ => s;
|
|
converb={imperfective=s;futCon1=s;futCon2=s;negative=s;perfective=s;simultaneous=s};
|
|
passive=s;past=\\_,_ => s;participle=\\_ => s;subjunctive=\\_,_ => s
|
|
} ;
|
|
lin
|
|
ImpersCl vp = bareCl vp.s ;
|
|
GenericCl vp = bareCl ("մարդ" ++ vp.s) ;
|
|
CleftNP np rs = bareCl (np.s ! Nom ++ rs.s) ;
|
|
CleftAdv adv s = bareCl (adv.s ++ s.s) ;
|
|
ExistNP np = bareCl (np.s ! Nom ++ "կա") ;
|
|
ExistIP ip = {s=ip.s ++ "կա՞"} ;
|
|
ExistNPAdv np adv = bareCl (adv.s ++ np.s ! Nom ++ "կա") ;
|
|
ExistIPAdv ip adv = {s=adv.s ++ ip.s ++ "կա՞"} ;
|
|
ProgrVP vp = vp ;
|
|
ImpPl1 vp = {s="եկեք" ++ vp.s} ;
|
|
ImpP3 np vp = {s="թող" ++ np.s ! Nom ++ vp.s} ;
|
|
SelfAdvVP vp = vp ; SelfAdVVP vp = vp ; SelfNP np = np ;
|
|
}
|