GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Most of Finnish done.

Browse Source
This commit is contained in:
aarne
2006-02-06 20:44:41 +00:00
parent 1568ac53e6
commit cb1363413c
11 changed files with 249 additions and 187 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
lib/resource-1.0/finnish/MorphoFin.gf
View File

@@ -1064,44 +1064,6 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
(juo + "t" + u)
(juo + "d" + u + "n") ;
-- For $NumeralsFin$.
param NumPlace = NumIndep | NumAttr ;
oper
yksiN = nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi"
"yksien" "yksiä" "yksiin") ;
kymmenenN = nhn (mkSubst "ä" "kymmenen" "kymmene" "kymmene" "kymmentä"
"kymmeneen" "kymmeni" "kymmeni" "kymmenien" "kymmeniä"
"kymmeniin") ;
sataN = nhn (sLukko "sata") ;
tuhatN = nhn (mkSubst "a" "tuhat" "tuhanne" "tuhante" "tuhatta" "tuhanteen"
"tuhansi" "tuhansi" "tuhansien" "tuhansia" "tuhansiin") ;
kymmentaN = {s = table {
NCase Sg Nom => "kymmentä" ;
c => kymmenenN.s ! c
}
} ;
sataaN = {s = table {
Sg => sataN.s ;
Pl => table {
NCase Sg Nom => "sataa" ;
c => sataN.s ! c
}
}
} ;
tuhattaN = {s = table {
Sg => tuhatN.s ;
Pl => table {
NCase Sg Nom => "tuhatta" ;
c => tuhatN.s ! c
}
}
} ;
} ;