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

an improvement in Fin passive infinitives - but still not perfect

Browse Source
This commit is contained in:
aarne
2013-03-30 17:39:36 +00:00
parent 68bf1cc2f9
commit 73e0a8e5c6
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/finnish/stemmed/ParseFin.gf
View File

@@ -58,16 +58,16 @@ lin
oper
passVPSlash : VPSlash -> ResFin.VP = \vp -> lin VP {
s = \\vif,ant,pol,agr => case pol of {
Pos => vp.s ! VIPass ! ant ! pol ! agr ;
Neg => vp.s ! VIPass ! ant ! pol ! agr
s = \\vif,ant,pol,agr => case vif of {
VIInf _ => vp.s ! vif ! ant ! pol ! agr ;
_ => vp.s ! VIPass ! ant ! pol ! agr
} ;
s2 = vp.s2 ;
adv = vp.adv ;
ext = vp.ext ;
qp = vp.qp ;
isNeg = vp.isNeg ;
sc = vp.c2.c
sc = case vp.c2.c of {NPCase Nom => NPAcc ; c => c}
} ;
lin