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

Romance negation: word order dependence

Browse Source
This commit is contained in:
aarne
2012-05-28 07:38:25 +00:00
parent 9f1738124e
commit 5014c38e6d
6 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/src/romance/ResRomance.gf
View File

@@ -209,12 +209,13 @@ oper
\isNeg, subj, hasClit, isPol, agr, vp -> {
s = \\d,te,a,b,m =>
let
isAnyNeg = orB isNeg vp.isNeg ;
pol = case <isAnyNeg,b> of {
<True,RPos> => RNeg True ;
pol : RPolarity = case <isNeg, vp.isNeg, b, d> of {
<_,True,RPos,_> => RNeg True ;
<True,_,RPos,DInv> => RNeg True ;
<True,_,RPos,_> => polNegDirSubj ;
_ => b
} ;
neg = vp.neg ! pol ;
gen = agr.g ;