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

refinements

Browse Source
This commit is contained in:
virk.shafqat
2012-03-05 09:33:23 +00:00
parent b6736ae159
commit 2617a29867
36 changed files with 223 additions and 207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/src/hindi/NumeralHin.gf
View File

@@ -49,13 +49,13 @@ oper mkR : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> DSize
r4 => a4 + "ालीस" ;
r5 => a5 + "न" ;
r6 => a6 + "सठ" ;
r7 => a7 + "ततर" ;
r7 => a7 + "त्तर" ;
r8 => a8 + "ासी" ;
r9 => a9 + "ानwवे"
} ;
oper rows : DSize => DSize => Str = table {
sg => mkR "गयार" "इककी" "इकत" "इकत" "इकयाव" "इक" "इकह" "इकय" "इकय" ;
sg => mkR "ग्यार" "इककी" "इकत" "इकत" "इकयाव" "इक" "इकह" "इकय" "इकय" ;
r2 => mkR "बार" "बाई" "बत" "बैत" "बाव" "बा" "बह" "बय" "ब" ;
r3 => mkR "तेर" "तेई" "तैं" "तैंत" "तिरप" "तिर" "तिह" "तिर" "तिर" ;
r4 => mkR "चौद" "चौबी" "चौं" "चौव" "चww" "चौँ" "चौह" "चw+र" "चौर" ;
@@ -75,28 +75,28 @@ lin pot01 = {s = table {unit => "एक" ; _ => "दमी" } ; size = sg ; n =
lin pot0 d = d ;
lin pot110 = {s = "दस" ; size = less100 ; n = Pl} ;
lin pot111 = {s = rows ! sg ! sg ; size = less100 ; n = Pl} ;
lin pot1to19 d = {s = rows ! d.size ! sg ; size = less100 ; n = d.n} ;
lin pot1to19 d = {s = rows ! d.size ! sg ; size = less100 ; n = Pl} ;
lin pot0as1 n = {s = n.s ! unit ; size = table {sg => singl ; _ => less100} ! n.size ; n = n.n } ;
lin pot1 d = {s = d.s ! ten ; size = less100 ; n = d.n} ;
lin pot1plus d e = {s = rows ! e.size ! d.size ; size = less100 ; n = d.n} ;
lin pot1 d = {s = d.s ! ten ; size = less100 ; n = Pl} ;
lin pot1plus d e = {s = rows ! e.size ! d.size ; size = less100 ; n = Pl} ;
lin pot1as2 n = {s = n.s ; s2 = "दमी" ; size = n.size ; n = n.n} ;
lin pot2 d = {s = (mksau (d.s ! unit) d.size) ;
s2 = d.s ! unit ++ "लाख" ; size = more100 ; n = d.n} ;
s2 = d.s ! unit ++ "लाख" ; size = more100 ; n = Pl} ;
lin pot2plus d e =
{s = (mksau (d.s ! unit) d.size) ++ e.s ;
s2 = (d.s ! unit) ++ "लाख" ++ (mkhazar e.s e.size) ;
size = more100 ; n = d.n} ;
size = more100 ; n = Pl} ;
lin pot2as3 n = {s = n.s ; n = n.n} ;
lin pot3 n = {s = table { singl => ekhazar ;
less100 => n.s ++ "हज़ार" ;
more100 => n.s2 } ! n.size ; n = n.n} ;
more100 => n.s2 } ! n.size ; n = Pl} ;
lin pot3plus n m =
{s = table {singl => ekhazar ;
less100 => n.s ++ "हज़ार" ;
more100 => n.s2 } ! n.size ++ m.s ; n = n.n} ;
more100 => n.s2 } ! n.size ++ m.s ; n = Pl} ;
lin D_0 = { s = "०" ; n = Sg};
lin D_1 = { s = "१" ; n = Sg};