forked from GitHub/gf-rgl
12 lines
328 B
Plaintext
12 lines
328 B
Plaintext
concrete RelativeBel of Relative = CatBel ** open ResBel in {
|
|
|
|
lin
|
|
RelCl cl = {s = \\t,p => "што" ++ cl.s ! t ! p} ;
|
|
RelVP rp vp = {s = \\t,p => rp.s ++ vp.s ! t ! p ! defaultAgr} ;
|
|
RelSlash rp cl = {s = \\t,p => rp.s ++ cl.s ! t ! p} ;
|
|
|
|
IdRP = {s = "які"} ;
|
|
FunRP prep np rp = {s = prepNP prep np ++ rp.s} ;
|
|
|
|
}
|