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

change ta to eta

Browse Source
This commit is contained in:
Inari Listenmaa
2017-12-28 13:08:27 +02:00
parent 9597118c85
commit 9cdc92c552
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/basque/NumeralEus.gf
View File

@@ -60,14 +60,14 @@ lin pot1 d =
n = Pl} ; n = Pl} ;
lin pot1plus d e = lin pot1plus d e =
{s = case d.even20 of { {s = case d.even20 of {
Even => d.s ! Twenty ++ "ta" ++ e.s ! Unit ; Even => d.s ! Twenty ++ "eta" ++ e.s ! Unit ;
Ten => d.s ! Twenty ++ "ta" ++ e.s ! Teen } ; Ten => d.s ! Twenty ++ "eta" ++ e.s ! Teen } ;
n = Pl} ; n = Pl} ;
lin pot1as2 n = n ** { isHundred = False } ; lin pot1as2 n = n ** { isHundred = False } ;
lin pot2 d = {s = d.s ! Hund ; n = Pl ; isHundred = True } ; lin pot2 d = {s = d.s ! Hund ; n = Pl ; isHundred = True } ;
lin pot2plus d e = lin pot2plus d e =
{ s = d.s ! Hund ++ "ta" ++ e.s ; { s = d.s ! Hund ++ "eta" ++ e.s ;
n = Pl ; n = Pl ;
isHundred = True } ; isHundred = True } ;
lin pot2as3 n = n ; lin pot2as3 n = n ;
@@ -77,7 +77,7 @@ lin pot3 n =
lin pot3plus n m = lin pot3plus n m =
let ta = if_then_Str m.isHundred [] "ta" ; --no `ta' between 1000 and 100 let ta = if_then_Str m.isHundred [] "eta" ; --no `ta' between 1000 and 100
in in
{ s = table {Sg => [] ; Pl => n.s } ! n.n ++ "mila" ++ ta ++ m.s ; { s = table {Sg => [] ; Pl => n.s } ! n.n ++ "mila" ++ ta ++ m.s ;
n = n.n } ; n = n.n } ;