mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-20 08:32:50 -06:00
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
|
lin
|
||||||
RelCl cl = {
|
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
|
role = RSubj
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -528,4 +528,12 @@ resource ResBul = ParamX ** open Prelude in {
|
|||||||
GSg Neut => "êîåòî" ;
|
GSg Neut => "êîåòî" ;
|
||||||
GPl => "êîèòî"
|
GPl => "êîèòî"
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
suchRP : GenNum => Str
|
||||||
|
= table {
|
||||||
|
GSg Masc => "òàêúâ" ;
|
||||||
|
GSg Fem => "òàêàâà" ;
|
||||||
|
GSg Neut => "òàêîâà" ;
|
||||||
|
GPl => "òàêèâà"
|
||||||
|
} ;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user