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

fix the imperative forms and the subjRole in SlashVV and SlashV2VNP

Browse Source
This commit is contained in:
krasimir
2008-06-13 22:12:07 +00:00
parent 7e3c02e641
commit 9ad1cb5749
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -55,10 +55,14 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
vv_verb = (predV vv).s ! t ! a ! p ! agr ! q ! asp ;
slash_verb = slash.s ! Pres ! Simul ! Pos ! agr ! False ! Perf ;
in vv_verb ++ slash.ad ! False ++ "äà" ++ slash_verb ;
imp = slash.imp ;
imp = \\p,n,asp =>
let
vv_verb = (predV vv).imp ! p ! n ! asp ;
slash_verb = slash.s ! Pres ! Simul ! Pos ! {gn = gennum DMasc n; p = P2} ! False ! Perf ;
in vv_verb ++ slash.ad ! False ++ "äà" ++ slash_verb ;
ad = \\_ => [] ;
s2 = slash.s2 ;
subjRole = slash.subjRole
subjRole = (predV vv).subjRole
} ** {c2 = slash.c2} ;
-- test: I saw a car whom she begged me to buy
@@ -68,10 +72,14 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
vv_verb = (predV vv).s ! t ! a ! p ! agr ! q ! asp ;
slash_verb = slash.s ! Pres ! Simul ! Pos ! np.a ! False ! Perf ;
in vv_verb ++ vv.c2.s ++ np.s ! RObj vv.c2.c ++ slash.ad ! False ++ "äà" ++ slash_verb ;
imp = slash.imp ;
imp = \\p,n,asp =>
let
vv_verb = (predV vv).imp ! p ! n ! asp ;
slash_verb = slash.s ! Pres ! Simul ! Pos ! np.a ! False ! Perf ;
in vv_verb ++ vv.c2.s ++ np.s ! RObj vv.c2.c ++ slash.ad ! False ++ "äà" ++ slash_verb ;
ad = \\_ => [] ;
s2 = slash.s2 ;
subjRole = slash.subjRole
subjRole = (predV vv).subjRole
} ** {c2 = slash.c2} ;
ComplSlash slash np = {