From 8bd97f9e75166ab6242be60b3f3a824063128b44 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 8 Apr 2009 20:01:35 +0000
Subject: [PATCH] hebrew transliteration added

---
 src/GF/Command/Commands.hs      |  3 +++
 src/GF/Text/Transliterations.hs | 13 +++++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs
index 5b1801ea4..625573545 100644
--- a/src/GF/Command/Commands.hs
+++ b/src/GF/Command/Commands.hs
@@ -529,6 +529,7 @@ allCommands cod env@(pgf, mos) = Map.fromList [
          return $ fromString out,
      options = [
        ("arabic",    "Arabic"),
+       ("hebrew",    "Hebrew (unvocalized)"),
        ("greek",     "Greek (modern)"),
        ("devanagari","Devanagari"),
        ("telugu",    "Telugu"),
@@ -694,6 +695,7 @@ stringOpOptions = [
        ("from_cp1251","decode from cp1251 (Cyrillic used in Bulgarian resource)"),
        ("from_arabic","from unicode to GF Arabic transliteration"),
        ("from_devanagari","from unicode to GF Devanagari transliteration"),
+       ("from_hebrew","from unicode to GF unvocalized Hebrew transliteration"),
        ("from_greek","from unicode to GF modern Greek transliteration"),
        ("from_telugu","from unicode to GF Telugu transliteration"),
        ("from_thai","from unicode to GF Thai transliteration"),
@@ -705,6 +707,7 @@ stringOpOptions = [
        ("to_arabic","from GF Arabic transliteration to unicode"),
        ("to_devanagari","from GF Devanagari transliteration to unicode"),
        ("to_greek","from GF modern Greek transliteration to unicode"),
+       ("to_hebrew","from GF unvocalized Hebrew transliteration to unicode"),
        ("to_html","wrap in a html file with linebreaks"),
        ("to_telugu","from GF Telugu transliteration to unicode"),
        ("to_thai","from GF Thai transliteration to unicode"),
diff --git a/src/GF/Text/Transliterations.hs b/src/GF/Text/Transliterations.hs
index 190fab211..d56b9e1e0 100644
--- a/src/GF/Text/Transliterations.hs
+++ b/src/GF/Text/Transliterations.hs
@@ -29,6 +29,7 @@ transliteration s = case s of
   "arabic" -> Just transArabic
   "devanagari" -> Just transDevanagari
   "greek" -> Just transGreek
+  "hebrew" -> Just transHebrew
   "telugu" -> Just transTelugu
   "thai" -> Just transThai
 ----  "urdu" -> Just transUrdu
@@ -111,12 +112,20 @@ transArabic :: Transliteration
 transArabic = mkTransliteration allTrans allCodes where
   allTrans = words $
     "   V  A: A? w? A- y? A  b  t. t  v  g  H  K  d " ++  -- 0621 - 062f
-    "W  r  z  s  C S  D  T  Z  c  G "                ++  -- 0630 - 063a
-    "   f  q  k  l  m  n  h  w  y. y a. u. i. a  u " ++  -- 0641 - 064f
+    "W  r  z  s  C S  D  T  Z  c  G "                 ++  -- 0630 - 063a
+    "   f  q  k  l  m  n  h  w  y. y a. u. i. a  u "  ++  -- 0641 - 064f
     "i  v2 o  a: V+ V- i: a+"                             -- 0650 - 0657 
   allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++ 
              [0x0641..0x064f] ++ [0x0650..0x0657]
 
+transHebrew :: Transliteration
+transHebrew = mkTransliteration allTrans allCodes where
+  allTrans = words $
+    "A  b  g  d  h  w  z  H  T  y  K  k  l  M  m  N " ++
+    "n  S  O  P  p  Z. Z  q  r  s  t  -  -  -  -  - " ++
+    "w2 w3 y2 g1 g2"
+  allCodes = [0x05d0..0x05f4]
+
 transTelugu :: Transliteration
 transTelugu = mkTransliteration allTrans allCodes where
   allTrans = words $