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

now in the parsing grammar ComplVV gets as additional arguments the polarity and the anteriority

Browse Source
This commit is contained in:
kr.angelov
2012-09-27 09:05:47 +00:00
parent 2b4182409d
commit dfc474580d
3 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/bulgarian/ParseEngBul.gf
View File

@@ -7,7 +7,7 @@ concrete ParseEngBul of ParseEngAbs =
NumeralBul,
SymbolBul [PN, Symb, MkSymb, SymbPN],
ConjunctionBul,
VerbBul - [SlashV2V, PassV2, UseCopula],
VerbBul - [SlashV2V, PassV2, UseCopula, ComplVV],
AdverbBul,
PhraseBul,
SentenceBul,
@@ -75,6 +75,14 @@ lin
daComplex ant.a p.p vp ! Perf ! agr)
(slashV vv vv.c2) ;
ComplVV vv ant p vp =
insertObj (\\agr => ant.s ++ p.s ++
case vv.typ of {
VVInf => daComplex ant.a p.p vp ! Perf ! agr;
VVGerund => gerund vp ! Imperf ! agr
})
(predV vv) ;
PredVPosv np vp = {
s = \\t,a,p,o =>
let