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

allow VV verbs to control the aspect of the governed verb

Browse Source
This commit is contained in:
Krasimir Angelov
2018-06-10 08:21:00 +02:00
parent 561bf721d1
commit 317fdfbeaa
5 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/bulgarian/CatBul.gf
View File

@@ -99,7 +99,7 @@ concrete CatBul of Cat = CommonX - [IAdv,CAdv,AdV,SC] ** open ResBul, Prelude, P
V2 = \s -> {s = \\_,_ => s; vtype = VNormal; c2 = {s=""; c=Acc}}; V2 = \s -> {s = \\_,_ => s; vtype = VNormal; c2 = {s=""; c=Acc}};
V2A, V2V, V2S, V2Q = \s -> {s = \\_,_ => s; vtype = VNormal; c2,c3 = {s=""; c=Acc}}; V2A, V2V, V2S, V2Q = \s -> {s = \\_,_ => s; vtype = VNormal; c2,c3 = {s=""; c=Acc}};
V3 = \s -> {s = \\_,_ => s; vtype = VNormal; c2,c3 = {s=""; c=Acc}}; V3 = \s -> {s = \\_,_ => s; vtype = VNormal; c2,c3 = {s=""; c=Acc}};
VV = \s -> {s = \\_,_ => s; vtype = VNormal; typ = VVInf}; VV = \s -> {s = \\_,_ => s; vtype = VNormal; typ = VVInf Perf};
A = \s -> {s = \\_ => s; adv = s}; A = \s -> {s = \\_ => s; adv = s};
A2 = \s -> {s = \\_ => s; adv = s; c2 = ""}; A2 = \s -> {s = \\_ => s; adv = s; c2 = ""};

3
src/bulgarian/DocumentationBul.gf
View File

@@ -237,7 +237,8 @@ lin
} ++ } ++
v.s ! Imperf ! VPres Sg P3 ++ v.s ! Imperf ! VPres Sg P3 ++
case v.typ of { case v.typ of {
VVInf => "да" ++ pp "глагол"; VVInf Perf => "да" ++ pp "свършен глагол";
VVInf Imperf => "да" ++ pp "несвършен глагол";
VVGerund => pp "деепричастие" VVGerund => pp "деепричастие"
}; };
s2= inflVerb v ; s2= inflVerb v ;

5
src/bulgarian/MorphoFunsBul.gf
View File

@@ -144,7 +144,10 @@ oper
mkVS v = v ** {lock_VS = <>} ; mkVS v = v ** {lock_VS = <>} ;
mkVV : V -> VV ; mkVV : V -> VV ;
mkVV v = v ** {typ = VVInf; lock_VV = <>} ; mkVV v = v ** {typ = VVInf Perf; lock_VV = <>} ;
imperfVV : V -> VV ;
imperfVV v = v ** {typ = VVInf Imperf; lock_VV = <>} ;
gerundVV : V -> VV ; gerundVV : V -> VV ;
gerundVV v = v ** {typ = VVGerund; lock_VV = <>} ; gerundVV v = v ** {typ = VVGerund; lock_VV = <>} ;

2
src/bulgarian/ResBul.gf
View File

@@ -73,7 +73,7 @@ resource ResBul = ParamX ** open Prelude, Predef in {
| VPhrasal Case | VPhrasal Case
; ;
VVType = VVInf | VVGerund ; VVType = VVInf Aspect | VVGerund ;
-- The order of sentence is needed already in $VP$. -- The order of sentence is needed already in $VP$.

2
src/bulgarian/VerbBul.gf
View File

@@ -18,7 +18,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
ComplVV vv vp = ComplVV vv vp =
insertObj (case vv.typ of { insertObj (case vv.typ of {
VVInf => daComplex Simul Pos vp ! Perf; VVInf asp => daComplex Simul Pos vp ! asp;
VVGerund => gerund vp ! Imperf VVGerund => gerund vp ! Imperf
}) vp.p }) vp.p
(predV vv) ; (predV vv) ;