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

fix the digits in NumberalBul

Browse Source
This commit is contained in:
kr.angelov
2013-10-07 18:50:58 +00:00
parent 2780ea839b
commit b0a6e22c53
2 changed files with 27 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/src/bulgarian/NumeralBul.gf
View File

@@ -100,16 +100,16 @@ lin pot3plus n m = {
tail = inc i.tail
} ;
D_0 = mk2Dig "0" "0â" ;
D_1 = mk3Dig "1" "1âè" Sg ;
D_0 = mk3Dig "0" "0" "0åâ" Pl ;
D_1 = mk3Dig "1" "1" "1âè" Sg ;
D_2 = mk2Dig "2" "2ðè" ;
D_3 = mkDig "3" ;
D_4 = mkDig "4" ;
D_5 = mkDig "5" ;
D_6 = mkDig "6" ;
D_7 = mk2Dig "7" "7ìè" ;
D_8 = mk2Dig "8" "8ìè" ;
D_9 = mkDig "9" ;
D_7 = mk3Dig "7" "7íà" "7ìè" Pl ;
D_8 = mk3Dig "8" "8íà" "8ìè" Pl ;
D_9 = mk3Dig "9" "9èìà" "9òè" Pl ;
oper
commaIf : DTail -> Str = \t -> case t of {
@@ -123,11 +123,11 @@ lin pot3plus n m = {
T3 => T1
} ;
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c (c+"ìà") o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "òè") ;
mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> {
s = table {NCard _ => c ; NOrd aform => regAdjective o ! aform} ;
mk3Dig : Str -> Str -> Str -> Number -> TDigit = \c1,c2,o,n -> {
s = mkCardOrd c1 c2 c1 o ;
n = n
} ;