GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-17 08:49:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the object-complement agreement in ComplSlash

Browse Source
This commit is contained in:
krasimir
2008-06-13 19:43:03 +00:00
parent 2166d9ce54
commit d4d33fc5ed
2 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.4/bulgarian/ResBul.gf
View File

@@ -291,14 +291,6 @@ resource ResBul = ParamX ** open Prelude in {
subjRole = vp.subjRole
} ;
insertObjPre : (Agr => Str) -> VP -> VP = \obj,vp -> {
s = vp.s ;
imp = vp.imp ;
ad = vp.ad ;
s2 = \\a => obj ! a ++ vp.s2 ! a ;
subjRole = vp.subjRole
} ;
auxBe : VTable =
table {
VPres Sg P1 => "ñúì" ;

8
lib/resource-1.4/bulgarian/VerbBul.gf
View File

@@ -79,7 +79,13 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
---- END guesses by AR
ComplSlash vp np = insertObjPre (\\_ => vp.c2.s ++ np.s ! RObj vp.c2.c) vp ;
ComplSlash slash np = {
s = slash.s ;
imp = slash.imp ;
ad = slash.ad ;
s2 = \\_ => slash.c2.s ++ np.s ! RObj slash.c2.c ++ slash.s2 ! np.a ;
subjRole = slash.subjRole
} ;
UseComp comp = insertObj comp.s (predV verbBe) ;