From 3daf76c5599576fb715f4bb9123e4df9396b91a4 Mon Sep 17 00:00:00 2001 From: "virk.shafqat" Date: Thu, 23 Feb 2012 14:32:55 +0000 Subject: [PATCH] code-cleaning-hindi --- lib/src/hindi/ResHin.gf | 2 +- lib/src/hindi/src/DiffHin.gf | 12 +----------- lib/src/hindi/translit.gfs | 1 - 3 files changed, 2 insertions(+), 13 deletions(-) diff --git a/lib/src/hindi/ResHin.gf b/lib/src/hindi/ResHin.gf index 4f36d560b..ee7a45c00 100644 --- a/lib/src/hindi/ResHin.gf +++ b/lib/src/hindi/ResHin.gf @@ -1,2 +1,2 @@ -instance ResHin of ResHindustani = DiffHin ** open CommonHindustani,StringsHin, Prelude, Predef in { +instance ResHin of ResHindustani = DiffHin ** open CommonHindustani, Prelude, Predef in { } ; diff --git a/lib/src/hindi/src/DiffHin.gf b/lib/src/hindi/src/DiffHin.gf index 15bfaa880..a32a64e63 100644 --- a/lib/src/hindi/src/DiffHin.gf +++ b/lib/src/hindi/src/DiffHin.gf @@ -237,16 +237,6 @@ Clause : Type = {s : VPHTense => Polarity => Order => Str} ; x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) - }; -IrregAdjective : Str -> Adjective; -IrregAdjective x = mkAdjective x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) - x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) - x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) - x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) x ("bahut" ++ x) ("sab se:" ++ x) ; - + }; - - - - } \ No newline at end of file diff --git a/lib/src/hindi/translit.gfs b/lib/src/hindi/translit.gfs index d6b165c06..c0d67a591 100644 --- a/lib/src/hindi/translit.gfs +++ b/lib/src/hindi/translit.gfs @@ -8,6 +8,5 @@ rf -file=src/IdiomHin.gf | ps -env=quotes -to_devanagari | wf -file=IdiomHin.gf rf -file=src/LexiconHin.gf | ps -env=quotes -to_devanagari | wf -file=LexiconHin.gf rf -file=src/MorphoHin.gf | ps -env=quotes -to_devanagari | wf -file=MorphoHin.gf rf -file=src/StructuralHin.gf | ps -env=quotes -to_devanagari | wf -file=StructuralHin.gf -rf -file=src/StringsHin.gf | ps -env=quotes -to_devanagari | wf -file=StringsHin.gf rf -file=src/NumeralHin.gf | ps -env=quotes -to_devanagari | wf -file=NumeralHin.gf