forked from GitHub/gf-rgl
26 lines
1010 B
Plaintext
26 lines
1010 B
Plaintext
concrete IdiomKaz of Idiom = CatKaz ** open ResKaz, ParadigmsKaz in {
|
|
lin
|
|
ProgrVP vp = vp ;
|
|
ExistNP np = mkClause np (mkV "болу") ;
|
|
ExistNPAdv np adv = mkClause np (prefixVerb adv.s (mkV "болу")) ;
|
|
ExistIP ip = {pres=\\_ => ip.s ++ "бар";past=\\_ => ip.s ++ "болды";
|
|
fut=\\_ => ip.s ++ "болады";cond=\\_ => ip.s ++ "болар еді";anter=\\_ => ip.s ++ "болған"} ;
|
|
ImpersCl vp = mkClause {s=\\_ => [];a=defaultAgr} vp ;
|
|
GenericCl vp = mkClause {s=\\_ => "адам";a=defaultAgr} vp ;
|
|
CleftNP np rs = {
|
|
pres=\\_ => np.s ! Nom ++ rs.s;
|
|
past=\\_ => np.s ! Nom ++ rs.s;
|
|
fut=\\_ => np.s ! Nom ++ rs.s;
|
|
cond=\\_ => np.s ! Nom ++ rs.s;
|
|
anter=\\_ => np.s ! Nom ++ rs.s
|
|
} ;
|
|
CleftAdv adv s = {
|
|
pres=\\_ => adv.s ++ s.s;
|
|
past=\\_ => adv.s ++ s.s;
|
|
fut=\\_ => adv.s ++ s.s;
|
|
cond=\\_ => adv.s ++ s.s;
|
|
anter=\\_ => adv.s ++ s.s
|
|
} ;
|
|
ImpPl1 vp = {s=vp.imperative!Pos!Informal!Pl} ;
|
|
}
|