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

refinementsTextUrd11-19-05

Browse Source
This commit is contained in:
virk.shafqat
2011-05-19 18:19:34 +00:00
parent 64b449826c
commit ea869ed80b
5 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/hindustani/CommonHindustani.gf
View File

@@ -163,10 +163,11 @@ resource CommonHindustani = ParamX ** open Prelude,Predef in {
(acch +"E") ("bht" ++ acch + "E") ("sb sE" ++ acch + "E") (acch + "E") ("bht" ++ acch + "E") ("sb sE" ++ acch + "E") (acch + "E") ("bht" ++ acch + "E") ("sb sE" ++ acch + "E") (acch +"E") ("bht" ++ acch + "E") ("sb sE" ++ acch + "E") (acch + "E") ("bht" ++ acch + "E") ("sb sE" ++ acch + "E") (acch + "E") ("bht" ++ acch + "E") ("sb sE" ++ acch + "E")
(acch + "y") ("bht" ++ acch + "y") ("sb sE" ++ acch + "y") (acch + "y") ("bht" ++ acch + "y") ("sb sE" ++ acch + "y") (acch + "y") ("bht" ++ acch + "y") ("sb sE" ++ acch + "y"); (acch + "y") ("bht" ++ acch + "y") ("sb sE" ++ acch + "y") (acch + "y") ("bht" ++ acch + "y") ("sb sE" ++ acch + "y") (acch + "y") ("bht" ++ acch + "y") ("sb sE" ++ acch + "y");
_ => mkAdjective x x x x x x x x x _ => mkAdjective x ("bht" ++ x) ("sb sE" ++ x) x ("bht" ++ x) ("sb sE" ++ x) x ("bht" ++ x) ("sb sE" ++ x)
x x x x x x x x x x ("bht" ++ x) ("sb sE" ++ x) x ("bht" ++ x) ("sb sE" ++ x) x ("bht" ++ x) ("sb sE" ++ x)
x x x x x x x x x x ("bht" ++ x) ("sb sE" ++ x) x ("bht" ++ x) ("sb sE" ++ x) x ("bht" ++ x) ("sb sE" ++ x)
x x x x x x x x x x ("bht" ++ x) ("sb sE" ++ x) x ("bht" ++ x) ("sb sE" ++ x) x ("bht" ++ x) ("sb sE" ++ x)
}; };

9
src/urdu/CommonHindustani.gf
View File

@@ -163,10 +163,11 @@ resource CommonHindustani = ParamX ** open Prelude,Predef in {
(acch +"ے") ("بہت" ++ acch + "ے") ("سب سے" ++ acch + "ے") (acch + "ے") ("بہت" ++ acch + "ے") ("سب سے" ++ acch + "ے") (acch + "ے") ("بہت" ++ acch + "ے") ("سب سے" ++ acch + "ے") (acch +"ے") ("بہت" ++ acch + "ے") ("سب سے" ++ acch + "ے") (acch + "ے") ("بہت" ++ acch + "ے") ("سب سے" ++ acch + "ے") (acch + "ے") ("بہت" ++ acch + "ے") ("سب سے" ++ acch + "ے")
(acch + "ی") ("بہت" ++ acch + "ی") ("سب سے" ++ acch + "ی") (acch + "ی") ("بہت" ++ acch + "ی") ("سب سے" ++ acch + "ی") (acch + "ی") ("بہت" ++ acch + "ی") ("سب سے" ++ acch + "ی"); (acch + "ی") ("بہت" ++ acch + "ی") ("سب سے" ++ acch + "ی") (acch + "ی") ("بہت" ++ acch + "ی") ("سب سے" ++ acch + "ی") (acch + "ی") ("بہت" ++ acch + "ی") ("سب سے" ++ acch + "ی");
_ => mkAdjective x x x x x x x x x _ => mkAdjective x ("بہت" ++ x) ("سب سے" ++ x) x ("بہت" ++ x) ("سب سے" ++ x) x ("بہت" ++ x) ("سب سے" ++ x)
x x x x x x x x x x ("بہت" ++ x) ("سب سے" ++ x) x ("بہت" ++ x) ("سب سے" ++ x) x ("بہت" ++ x) ("سب سے" ++ x)
x x x x x x x x x x ("بہت" ++ x) ("سب سے" ++ x) x ("بہت" ++ x) ("سب سے" ++ x) x ("بہت" ++ x) ("سب سے" ++ x)
x x x x x x x x x x ("بہت" ++ x) ("سب سے" ++ x) x ("بہت" ++ x) ("سب سے" ++ x) x ("بہت" ++ x) ("سب سے" ++ x)
}; };

2
src/urdu/LexiconUrd.gf
View File

@@ -234,7 +234,7 @@ concrete LexiconUrd of Lexicon = CatUrd **
dull_A = mkA "نالایق" ; dull_A = mkA "نالایق" ;
full_A = mkA "مكمل" ; full_A = mkA "مكمل" ;
heavy_A = mkA "بھاری" ; heavy_A = mkA "بھاری" ;
near_A = mkA "قریب" ; near_A = mkA "قریبی" ;
rotten_A = mkA "خراب" ; rotten_A = mkA "خراب" ;
round_A = mkA "گول" ; round_A = mkA "گول" ;
sharp_A = mkA "تیز" ; sharp_A = mkA "تیز" ;

2
src/urdu/src/LexiconUrd.gf
View File

@@ -234,7 +234,7 @@ concrete LexiconUrd of Lexicon = CatUrd **
dull_A = mkA "nalayq" ; dull_A = mkA "nalayq" ;
full_A = mkA "mkml" ; full_A = mkA "mkml" ;
heavy_A = mkA "bh'ary" ; heavy_A = mkA "bh'ary" ;
near_A = mkA "qryb" ; near_A = mkA "qryby" ;
rotten_A = mkA "Krab" ; rotten_A = mkA "Krab" ;
round_A = mkA "gwl" ; round_A = mkA "gwl" ;
sharp_A = mkA "tyz" ; sharp_A = mkA "tyz" ;

4
src/urdu/src/TextUrd.gf
View File

@@ -4,8 +4,8 @@ concrete TextUrd of Text = CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] *
lin lin
TEmpty = {s = []} ; TEmpty = {s = []} ;
TFullStop x xs = {s = x.s ++ "." ++ xs.s} ; TFullStop x xs = {s = x.s ++ "" ++ xs.s} ;
TQuestMark x xs = {s = x.s ++ "?" ++ xs.s} ; TQuestMark x xs = {s = x.s ++ "" ++ xs.s} ;
TExclMark x xs = {s = x.s ++ "" ++ xs.s} ; TExclMark x xs = {s = x.s ++ "" ++ xs.s} ;
} }