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

fixed the ordinals 1st and 2nd in Fin

Browse Source
This commit is contained in:
aarne
2013-05-16 18:53:18 +00:00
parent 647b6945d8
commit faa0bc3396
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/finnish/NumeralFin.gf
View File

@@ -12,10 +12,7 @@ lincat
lin lin
num x = x ; num x = x ;
n2 = co n2 = kaksi_toinenN ;
(nhn (mkSubst "a" "kaksi" "kahde" "kahte" "kahta" "kahteen" "kaksi" "kaksi"
"kaksien" "kaksia" "kaksiin"))
(ordN "a" "kahdes") ; --- toinen
n3 = co n3 = co
(nhn (mkSubst "a" "kolme" "kolme" "kolme" "kolmea" "kolmeen" "kolmi" "kolmi" (nhn (mkSubst "a" "kolme" "kolme" "kolme" "kolmea" "kolmeen" "kolmi" "kolmi"
"kolmien" "kolmia" "kolmiin")) "kolmien" "kolmia" "kolmiin"))
@@ -41,7 +38,7 @@ lin
pot01 = pot01 =
{s = table { {s = table {
NumAttr => \\_ => [] ; NumAttr => \\_ => [] ;
NumIndep => yksiN.s NumIndep => yksi_ensiN.s
} ; } ;
n = Sg n = Sg
} ; } ;
@@ -105,6 +102,14 @@ oper
(nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi" (nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi"
"yksien" "yksiä" "yksiin")) "yksien" "yksiä" "yksiin"))
(ordN "ä" "yhdes") ; ---- ensimmäinen (ordN "ä" "yhdes") ; ---- ensimmäinen
yksi_ensiN = co
(nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi"
"yksien" "yksiä" "yksiin"))
(mkN "ensimmäinen") ; -- ensimmäinen ---- sadasensimmäinentuhannes
kaksi_toinenN = co
(nhn (mkSubst "a" "kaksi" "kahde" "kahte" "kahta" "kahteen" "kaksi" "kaksi"
"kaksien" "kaksia" "kaksiin"))
(mkN "toinen") ;
kymmenenN = co kymmenenN = co
(nhn (mkSubst "ä" "kymmenen" "kymmene" "kymmene" "kymmentä" (nhn (mkSubst "ä" "kymmenen" "kymmene" "kymmene" "kymmentä"
"kymmeneen" "kymmeni" "kymmeni" "kymmenien" "kymmeniä" "kymmeniin")) "kymmeneen" "kymmeni" "kymmeni" "kymmenien" "kymmeniä" "kymmeniin"))