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

use BIND to glue the digits in IIDig for the Bulgarian, English and Swedish grammmars

Browse Source
This commit is contained in:
kr.angelov
2013-11-12 10:28:46 +00:00
parent d6f73f175f
commit 6449bbad9c
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -95,7 +95,7 @@ lin pot3plus n m = {
IDig d = d ** {tail = T1} ;
IIDig d i = {
s = \\o => d.s ! NCard (CFMasc Indef NonHuman) ++ commaIf i.tail ++ i.s ! o ;
s = \\o => d.s ! NCard (CFMasc Indef NonHuman) ++ spaceIf i.tail ++ i.s ! o ;
n = Pl ;
tail = inc i.tail
} ;
@@ -112,9 +112,9 @@ lin pot3plus n m = {
D_9 = mk3Dig "9" "9èìà" "9òè" Pl ;
oper
commaIf : DTail -> Str = \t -> case t of {
T3 => comma ;
_ => []
spaceIf : DTail -> Str = \t -> case t of {
T3 => SOFT_BIND ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {