GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-27 03:46:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

added pot5art and fixed inflection for large numerals

Browse Source
This commit is contained in:
Krasimir Angelov
2023-08-30 21:03:37 +02:00
parent b72ea1e2f1
commit 28afb4d0dc
4 changed files with 31 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/swedish/NumeralSwe.gf
+19 -2
View File
@@ -52,7 +52,12 @@ lin
pot41 = numPl (cardOrd "miljon" "miljonde") ;
pot4 n =
numPl (\\g => n.s ! NCard Utr ++ cardOrd "miljon" "miljonde" ! g) ;
numPl (\\g => n.s ! NCard Utr ++
cardOrd (case n.n of {
Sg => "miljon" ;
Pl => "miljoner"
})
"miljonde" ! g) ;
pot4plus n m =
{s = \\g => n.s ! NCard Utr ++ BIND ++ "miljon" ++ m.s ! g ; n = Pl} ;
pot4as5 n = n ;
@@ -60,8 +65,20 @@ lin
numPl (\\g => d.s ! NCard Utr ++ cardOrd "miljoner" "miljonde" ! g) ;
pot51 = numPl (cardOrd "miljard" "miljarde") ;
pot5art = {
s = table {
NCard g => case g of {Neutr => "ett" ; _ => "en"} ;
_ => "första"
} ;
n = Sg
} ;
pot5 n =
numPl (\\g => n.s ! NCard Utr ++ cardOrd "miljard" "miljarde" ! g) ;
numPl (\\g => n.s ! NCard Utr ++
cardOrd (case n.n of {
Sg => "miljard" ;
Pl => "miljarder"
})
"miljarde" ! g) ;
pot5plus n m =
{s = \\g => n.s ! NCard Utr ++ BIND ++ "miljard" ++ m.s ! g ; n = Pl} ;
pot5decimal d =