forked from GitHub/gf-core
whichRP is replaced by suchRP to match closely the English grammar
This commit is contained in:
@@ -4,7 +4,7 @@ concrete RelativeBul of Relative = CatBul ** open ResBul in {
|
||||
|
||||
lin
|
||||
RelCl cl = {
|
||||
s = \\t,a,p,gn => whichRP ! gn ++ cl.s ! t ! a ! p ! Main ;
|
||||
s = \\t,a,p,gn => suchRP ! gn ++ "֌" ++ cl.s ! t ! a ! p ! Main ;
|
||||
role = RSubj
|
||||
} ;
|
||||
|
||||
|
||||
@@ -528,4 +528,12 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
GSg Neut => "êîåòî" ;
|
||||
GPl => "êîèòî"
|
||||
} ;
|
||||
|
||||
suchRP : GenNum => Str
|
||||
= table {
|
||||
GSg Masc => "òàêúâ" ;
|
||||
GSg Fem => "òàêàâà" ;
|
||||
GSg Neut => "òàêîâà" ;
|
||||
GPl => "òàêèâà"
|
||||
} ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user