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

Finnish passive Impf and Condit fixed (both in rgl and stemmed)

Browse Source
This commit is contained in:
aarne
2013-03-30 20:44:28 +00:00
parent 73e0a8e5c6
commit 07d12bdffc
9 changed files with 76 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/finnish/NounFin.gf
View File

@@ -98,7 +98,10 @@ concrete NounFin of Noun = CatFin ** open ResFin, MorphoFin, Prelude in {
DetQuant quant num = {
s1 = \\c => quant.s1 ! num.n ! c ++ num.s ! Sg ! c ;
sp = \\c => quant.sp ! num.n ! c ++ num.s ! Sg ! c ;
sp = \\c => case num.isNum of {
True => quant.s1 ! num.n ! c ++ num.s ! Sg ! c ; -- 0 kolme with Indef
False => quant.sp ! num.n ! c ++ num.s ! Sg ! c -- yksi 0
} ;
s2 = quant.s2 ;
n = num.n ;
isNum = num.isNum ; -- case num.n of {Sg => False ; _ => True} ;