From 2ac96a76437733456a3c2cdcbc2d38e2749ff046 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 22 Mar 2010 09:29:43 +0000
Subject: [PATCH] transliteration for Urdu

---
 src/compiler/GF/Text/Transliterations.hs | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/src/compiler/GF/Text/Transliterations.hs b/src/compiler/GF/Text/Transliterations.hs
index e2747f506..05e7cf42b 100644
--- a/src/compiler/GF/Text/Transliterations.hs
+++ b/src/compiler/GF/Text/Transliterations.hs
@@ -40,8 +40,8 @@ allTransliterations = Map.fromAscList [
   ("hebrew", transHebrew),
   ("persian", transPersian),
   ("telugu", transTelugu),
-  ("thai", transThai)
-  ----  "urdu", transUrdu
+  ("thai", transThai),
+  ("urdu", transUrdu)
   ]
 
 -- used in command options and help
@@ -121,8 +121,16 @@ allTransUrduHindi = words $
 
 transUrdu :: Transliteration
 transUrdu = 
-  (mkTransliteration "Urdu" allTransUrduHindi allCodes){invisible_chars = ["a"]} where
-    allCodes = [0x0900 .. 0x095f] ---- TODO: this is devanagari
+  (mkTransliteration "Urdu" allTrans allCodes) where
+    allCodes = [0x0622 .. 0x0670] ++ [0x0679 .. 0x0698] ++ [0x062a .. 0x062f] ++ [0x063a,0x06a9,0x06af,0x06ba,0x06c1,0x06be,0x06c3,0x06cc,0x06d2]
+    allTrans = words $
+      "A  - w^ - y^ a b - Z r z s X S Z- " ++  -- 0622 - 0636
+      "t- z- e - f q - l m n - w - i - "   ++  -- 0637 - 0651
+      "- - $ - i- u - - - - - - - - - - - - a: "    ++  -- 0652 - 0670
+      "T - - - - - - c - D - - R - - - - - - x"   ++  -- 0679 -- 0698
+      "t C j H K d  " ++                               -- 062a -- 062f
+      "G k g N h h- t: y E"
+    
 
 transArabic :: Transliteration
 transArabic = mkTransliteration "Arabic" allTrans allCodes where