GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the word order in SlashV2V

Browse Source
This commit is contained in:
krasimir
2008-06-12 18:41:33 +00:00
parent 0113a9cadc
commit 0f10ebd23b
1 changed files with 4 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -45,17 +45,10 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
SlashV2Q v q = insertObj (\\_ => q.s ! QIndir) (predV v) ** {c2 = v.c2} ; SlashV2Q v q = insertObj (\\_ => q.s ! QIndir) (predV v) ** {c2 = v.c2} ;
-- test: I saw a boy whom she begged to walk -- test: I saw a boy whom she begged to walk
SlashV2V vv vp = { SlashV2V vv vp =
s = \\t,a,p,agr,q,asp => insertObj (\\agr => vp.ad ! False ++ "äà" ++ vp.s ! Pres ! Simul ! Pos ! agr ! False ! Perf)
let (predV vv)
vv_verb = (predV vv).s ! t ! a ! p ! agr ! q ! asp ; ** {c2 = vv.c2} ; ---- FIXME: agreement with obj.a
vp_verb = vp.s ! Pres ! Simul ! Pos ! agr ! False ! Perf ;
in vv_verb ++ vp.ad ! False ++ "äà" ++ vp_verb ;
imp = vp.imp ;
ad = \\_ => [] ;
s2 = vp.s2 ;
subjRole = vp.subjRole
} ** {c2 = vv.c2} ;
-- test: I saw a car whom she wanted to buy -- test: I saw a car whom she wanted to buy
SlashVV vv vp = { SlashVV vv vp = {