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

Finnish numerals with inflection

Browse Source
This commit is contained in:
aarne
2005-06-12 15:04:40 +00:00
parent cff7d884a5
commit 6db5be4ca1
2 changed files with 98 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
lib/resource/finnish/MorphoFin.gf
View File

@@ -1006,4 +1006,40 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
koPart = suff "ko" ;
-- For $NumeralsFin$.
param NumPlace = NumIndep | NumAttr ;
oper
yksiN = mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi"
"yksien" "yksiä" "yksiin" ;
kymmenenN = mkSubst "ä" "kymmenen" "kymmene" "kymmene" "kymmenee"
"kymmeneen" "kymmeni" "kymmeni" "kymmenien" "kymmeniä"
"kymmeniin" ;
sataN = regNoun "sata" ;
tuhatN = mkSubst "a" "tuhat" "tuhanne" "tuhanne" "tuhantee" "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
}
}
} ;
} ;