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

Improvements In Sindhi RG

Browse Source
This commit is contained in:
virk.shafqat
2013-06-15 20:02:00 +00:00
parent c3b344084f
commit 9caa9cd44e
7 changed files with 407 additions and 407 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
lib/src/sindhi/NumeralSnd.gf
View File

@@ -28,10 +28,10 @@ lin num x0 =
} ;
oper mkOrd : Str -> Str =
\s -> case s of {
"ھڪ" => "پھریون";
"ٻ" => "ٻیون";
"ٽی" => "ٽیون";
"چار" => "چواٿون";
"ھڪ" => "پھريون";
"ٻ" => "ٻيون";
"ٽي" => "ٽيون";
"چار" => "چوٿون";
_ => s ++ "وN"
};
-- {s = \\_ => x0.s ; n = x0.n} ;
@@ -42,45 +42,45 @@ oper mkNum : Str -> Str -> DSize -> LinDigit =
{s = table {unit => do ; ten => bis } ;
size = sz ; n = Pl} ;
lin n2 = mkNum "ٻ" "ویھ" r2 ;
lin n3 = mkNum "ٽی" "ٽیھ" r3 ;
lin n4 = mkNum "چار" "چاlیھ" r4 ;
lin n2 = mkNum "ٻ" "ويھ" r2 ;
lin n3 = mkNum "ٽي" "ٽيھ" r3 ;
lin n4 = mkNum "چار" "چاlيھ" r4 ;
lin n5 = mkNum "پنج" "پنجاھ" r5 ;
lin n6 = mkNum "ڇھ" "سٺھ " r6 ;
lin n7 = mkNum "ست" "ستر" r7;
lin n8 = mkNum "اٺ '" "اسی" r8;
lin n9 = mkNum "نو" "نوی" r9 ;
lin n8 = mkNum "اٺ '" "اسي" r8;
lin n9 = mkNum "نو" "نوي" r9 ;
oper mkR : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> DSize => Str = \a1 -> \a2 -> \a3 -> \a4 -> \a5 -> \a6 -> \a7 -> \a8 -> \a9 -> table {
sg => a1 + "نھن" ;
r2 => a2 + "یھ " ;
r3 => a3 + "یھ " ;
r4 => a4 + "اlیھ " ;
r2 => a2 + "يھ " ;
r3 => a3 + "يھ " ;
r4 => a4 + "اlيھ " ;
r5 => a5 + "ونجاھ " ;
r6 => a6 + "ھٺ" ;
r7 => a7 + "تر" ;
r8 => a8 + "اسی" ;
r9 => a9 + "انوی"
r8 => a8 + "اسي" ;
r9 => a9 + "انوي"
} ;
oper rows : DSize => DSize => Str = table {
sg => mkR "یار " "ایڪ " "اڪٽ" "ایڪیت " "ایڪ" "ایڪ" "ایڪ" "ایڪ" "ایڪ" ;
r2 => mkR "ٻای " "ٻاو" "ٻٽ" "ٻا۶ت" "ٻا" "ٻا" "ٻاھ " "ٻیی" "ٻیی" ;
r3 => mkR "ٽیر " "ٽیو " "ٽیٽ" "ٽیت" "ٽی" "ٽی" "ٽیھ " "ٽی" "تی" ;
sg => mkR "يار " "ايڪ " "اڪٽ" "ايڪيت " "ايڪ" "ايڪ" "ايڪ" "ايڪ" "ايڪ" ;
r2 => mkR "ٻاي " "ٻاو" "ٻٽ" "ٻا۶ت" "ٻا" "ٻا" "ٻاھ " "ٻيي" "ٻيي" ;
r3 => mkR "ٽير " "ٽيو " "ٽيٽ" "ٽيت" "ٽي" "ٽي" "ٽيھ " "ٽي" "تي" ;
r4 => mkR "چوڏ " "چوو " "چوٽ" "چو۶ت " "چو" "چو" "چوھ " "چور " "چور" ;
r5 => mkR "پنڌر " "پنجو " "پنجٽ" "پنجیت" "پنج" "پنج" "پنجھ" "پنج" "پنج" ;
r6 => mkR "سور " "ڇو" "ڇٽی" "ڇا۶ت" "ڇا" "ڇا" "ڇاھ" "ڇ" "ڇ" ;
r7 => mkR "ستر" "ستاو" "ستٽ " "ستیت" "ست" "ست" "ست" "ست" "ست" ;
r8 => mkR "ارڙ" "اٺاو " "اٺٽ" "اٺی" "اٺ" "اٺ" "اٺا" "اٺ" "اٺ" ;
r9 => table {sg => "اڻویھ " ; r2 => "اڻٽیھ " ; r3 => "اڻیتاlیھ " ;
r5 => mkR "پنڌر " "پنجو " "پنجٽ" "پنجيت" "پنج" "پنج" "پنجھ" "پنج" "پنج" ;
r6 => mkR "سور " "ڇو" "ڇٽي" "ڇا۶ت" "ڇا" "ڇا" "ڇاھ" "ڇ" "ڇ" ;
r7 => mkR "ستر" "ستاو" "ستٽ " "ستيت" "ست" "ست" "ست" "ست" "ست" ;
r8 => mkR "ارڙ" "اٺاو " "اٺٽ" "اٺي" "اٺ" "اٺ" "اٺا" "اٺ" "اٺ" ;
r9 => table {sg => "اڻويھ " ; r2 => "اڻٽيھ " ; r3 => "اڻيتاlيھ " ;
r4 => "اڻونجاھ " ; r5 => "اڻھٺ " ; r6 => "اڻتر " ;
r7 => "اڻاسی " ;
r8 => "اڻانوی " ; r9 => "نوانوی" }
r7 => "اڻاسي " ;
r8 => "اڻانوي " ; r9 => "نوانوي" }
} ;
oper ss : Str -> {s : Str} = \s -> {s = s} ;
lin pot01 = {s = table {unit => "ھڪ" ; _ => "دمی" } ; size = sg ; n = Sg} ;
lin pot01 = {s = table {unit => "ھڪ" ; _ => "دمي" } ; size = sg ; n = Sg} ;
lin pot0 d = d ;
lin pot110 = {s = "ڏھ " ; size = less100 ; n = Pl} ;
lin pot111 = {s = rows ! sg ! sg ; size = less100 ; n = Pl} ;
@@ -90,7 +90,7 @@ lin pot0as1 n = {s = n.s ! unit ; size = table {sg => singl ; _ => less100} ! 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 pot1as2 n = {s = n.s ; s2 = "دمی" ; size = n.size ; n = n.n} ;
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 ++ "lک " ; size = more100 ; n = d.n} ;
lin pot2plus d e =