GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the word order in SlashV2A in bulgarian-1.4

Browse Source
This commit is contained in:
krasimir
2008-06-11 09:30:38 +00:00
parent 2c0229f65c
commit 3241b03d8a
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -291,6 +291,14 @@ resource ResBul = ParamX ** open Prelude in {
subjRole = vp.subjRole 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 = auxBe : VTable =
table { table {
VPres Sg P1 => "ñúì" ; VPres Sg P1 => "ñúì" ;

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

@@ -33,7 +33,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
SlashV2A v ap = SlashV2A v ap =
insertObj (\\a => v.c2.s ++ ap.s ! aform a.gn Indef (RObj Acc)) insertObj (\\a => ap.s ! aform a.gn Indef (RObj Acc))
(predV v) ** {c2 = v.c2} ; ---- FIXME: agreement with obj.a (predV v) ** {c2 = v.c2} ; ---- FIXME: agreement with obj.a
---- AR guessed these five, copying from Compl(VS,VQ,VV) ---- AR guessed these five, copying from Compl(VS,VQ,VV)
@@ -86,7 +86,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
---- END guesses by AR ---- END guesses by AR
ComplSlash vp np = insertObj (\\_ => vp.c2.s ++ np.s ! RObj vp.c2.c) vp ; ComplSlash vp np = insertObjPre (\\_ => vp.c2.s ++ np.s ! RObj vp.c2.c) vp ;
UseComp comp = insertObj comp.s (predV verbBe) ; UseComp comp = insertObj comp.s (predV verbBe) ;