msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

rename the vp variable to slash in ComplVV and ComplV2VNP

Browse Source
This commit is contained in:
krasimir
2008-06-13 19:43:52 +00:00
parent d4d33fc5ed
commit 7679730d0f
1 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -51,31 +51,31 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
** {c2 = vv.c2} ; ---- FIXME: agreement with obj.a
-- test: I saw a car whom she wanted to buy
SlashVV vv vp = {
SlashVV vv slash = {
s = \\t,a,p,agr,q,asp =>
let
vv_verb = (predV vv).s ! t ! a ! p ! agr ! q ! asp ;
vp_verb = vp.s ! Pres ! Simul ! Pos ! agr ! False ! Perf ;
in vv_verb ++ vp.ad ! False ++ "äà" ++ vp_verb ;
imp = vp.imp ;
slash_verb = slash.s ! Pres ! Simul ! Pos ! agr ! False ! Perf ;
in vv_verb ++ slash.ad ! False ++ "äà" ++ slash_verb ;
imp = slash.imp ;
ad = \\_ => [] ;
s2 = vp.s2 ;
subjRole = vp.subjRole
} ** {c2 = vp.c2} ;
s2 = slash.s2 ;
subjRole = slash.subjRole
} ** {c2 = slash.c2} ;
-- test: I saw a car whom she begged me to buy
SlashV2VNP vv np vp =
SlashV2VNP vv np slash =
insertObj (\\_ => vv.c2.s ++ np.s ! RObj vv.c2.c) {
s = \\t,a,p,agr,q,asp =>
let
vv_verb = (predV vv).s ! t ! a ! p ! agr ! q ! asp ;
vp_verb = vp.s ! Pres ! Simul ! Pos ! agr ! False ! Perf ;
in vv_verb ++ vp.ad ! False ++ "äà" ++ vp_verb ;
imp = vp.imp ;
slash_verb = slash.s ! Pres ! Simul ! Pos ! agr ! False ! Perf ;
in vv_verb ++ slash.ad ! False ++ "äà" ++ slash_verb ;
imp = slash.imp ;
ad = \\_ => [] ;
s2 = vp.s2 ;
subjRole = vp.subjRole
} ** {c2 = vp.c2} ;
s2 = slash.s2 ;
subjRole = slash.subjRole
} ** {c2 = slash.c2} ;
---- END guesses by AR