GitHub/gf-rgl
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-30 10:33:18 -06:00
Code Issues Packages Projects Releases Wiki Activity

extensions by Codex

Browse Source
This commit is contained in:
Krasimir Angelov committed 2026-10-07 11:57:31 +02:00
1 parent d4b6da0687
commit 61f93263d4
8 files changed
+123 -11
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/estonian/NumeralEst.gf
+40
View File
@@ -58,6 +58,7 @@ lin
s = \\_,c => d.s ! NumAttr ! c ++ nBIND d.n ++ sataaN.s ! d.n ! c ++
e.s ! NumIndep ! c
} ;
pot21 = pot2 pot01 ;
pot2as3 n = {n = n.n ; s = n.s ! NumIndep} ;
pot3 d = {n = Pl ; s = \\c => d.s ! NumAttr ! c ++ tuhattaN.s ! d.n ! c} ;
pot3plus d e = {
@@ -65,8 +66,26 @@ lin
s = \\c => d.s ! NumAttr ! c ++ tuhattaN.s ! d.n ! c ++ e.s ! NumIndep ! c
} ;
pot31 = {n = Pl ; s = tuhatN.s} ;
pot3as4 n = n ;
pot3decimal d = {n = Pl ; s = \\_ => d.s ! NCard (NCase Sg Nom) ++ "tuhat"} ;
pot41 = {n = Pl ; s = miljonN.s} ;
pot4 d = {n = Pl ; s = \\c => d.s ! NumAttr ! NCard (NCase Sg Nom) ++ nBIND d.n ++ miljonitN.s ! d.n ! c} ;
pot4plus d e = {
n = Pl ;
s = \\c => d.s ! NumAttr ! NCard (NCase Sg Nom) ++ nBIND d.n ++ miljonitN.s ! d.n ! c ++ e.s ! c
} ;
pot4as5 n = n ;
pot4decimal d = {n = Pl ; s = \\_ => d.s ! NCard (NCase Sg Nom) ++ "miljonit"} ;
pot51 = {n = Pl ; s = miljardN.s} ;
pot5 d = {n = Pl ; s = \\c => d.s ! NumAttr ! NCard (NCase Sg Nom) ++ nBIND d.n ++ miljarditN.s ! d.n ! c} ;
pot5plus d e = {
n = Pl ;
s = \\c => d.s ! NumAttr ! NCard (NCase Sg Nom) ++ nBIND d.n ++ miljarditN.s ! d.n ! c ++ e.s ! c
} ;
pot5decimal d = {n = Pl ; s = \\_ => d.s ! NCard (NCase Sg Nom) ++ "miljardit"} ;
oper
co : (c,o : {s : NForm => Str}) -> {s : CardOrd => Str} = \c,o -> {
@@ -98,6 +117,9 @@ oper
(mkN "tuhat" "tuhande" "tuhandet" "tuhandesse" "tuhandete" "tuhandeid")
(mkN "tuhandes" "tuhandenda" "tuhandendat" "tuhandendasse" "tuhandete" "tuhandendaid") ;
miljonN = co (mkN "miljon") (mkN "miljones") ;
miljardN = co (mkN "miljard") (mkN "miljardes") ;
kymmendN =
{s = table {
NCard (NCase Sg Nom) => "kümmend" ;
@@ -123,6 +145,24 @@ oper
}
} ;
miljonitN : {s : MorphoEst.Number => CardOrd => Str} = {s = table {
Sg => miljonN.s ;
Pl => table {
NCard (NCase Sg Nom) => "miljonit" ;
k => miljonN.s ! k
}
}
} ;
miljarditN : {s : MorphoEst.Number => CardOrd => Str} = {s = table {
Sg => miljardN.s ;
Pl => table {
NCard (NCase Sg Nom) => "miljardit" ;
k => miljardN.s ! k
}
}
} ;
lincat
Dig = TDigit ;