From 788fe8a37efc0f2831269edca3a7d7de86333a2f Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 7 May 2010 12:23:57 +0000
Subject: [PATCH] Amharic transliteration by Markos

---
 src/compiler/GF/Text/Transliterations.hs      | 36 ++++++++++++++++++-
 .../javascript/minibar/phrasebook.html        |  3 +-
 2 files changed, 37 insertions(+), 2 deletions(-)

diff --git a/src/compiler/GF/Text/Transliterations.hs b/src/compiler/GF/Text/Transliterations.hs
index cbe8baf15..26111ac8f 100644
--- a/src/compiler/GF/Text/Transliterations.hs
+++ b/src/compiler/GF/Text/Transliterations.hs
@@ -31,6 +31,7 @@ transliteration :: String -> Maybe Transliteration
 transliteration s = Map.lookup s allTransliterations 
 
 allTransliterations = Map.fromAscList [
+  ("amharic",transAmharic),
   ("ancientgreek", transAncientGreek),
   ("arabic", transArabic),
   ("devanagari", transDevanagari),
@@ -40,7 +41,7 @@ allTransliterations = Map.fromAscList [
   ("telugu", transTelugu),
   ("thai", transThai),
   ("urdu", transUrdu)
-  ]
+ ]
 
 -- used in command options and help
 transliterationPrintNames = [(t,printname p) | (t,p) <- Map.toList allTransliterations]
@@ -117,6 +118,7 @@ allTransUrduHindi = words $
     "I  u  U  R  -  -  -  e  E  o  O  -  -  -  -  -  " ++
     "-  -  -  -  -  -  -  -  -  -  -  z  r. -  -  -  "
 
+
 transUrdu :: Transliteration
 transUrdu = 
   (mkTransliteration "Urdu" allTrans allCodes) where
@@ -210,3 +212,35 @@ transAncientGreek = mkTransliteration "ancient Greek" allTrans allCodes where
     "-  -  w|` w|  w|'  -  w~ w|~ - - - - - - - - "    -- 1ff0-
   allCodes = [0x0380 .. 0x03cf] ++ [0x1f00 .. 0x1fff]
 
+
+
+ 
+transAmharic :: Transliteration
+transAmharic = mkTransliteration "Amharic" allTrans allCodes where
+ 
+allTrans = words $
+    
+  	" h.  h-  h'  h(  h)  h  h?  h*  l.  l-  l'  l(  l)  l  l?  l*  "++
+	" H.  H-  H'  H(  H)  H  H?  H*  m.  m-  m'  m(  m)  m  m?  m*  "++
+	" s.  s-  s'  s(  s)  s  s?  s*  r.  r-  r'  r(  r)  r  r?  r* "++
+	" -   -   -   -   -  -   -  -   x.  x-  x'  x(  x)  x  x?   x* "++
+	" q.  q-  q'  q(  q)  q  q?  q*  -   -   -   -   -   -  -   - "++
+	" -   -   -   -   -   -  -   -   -   -   -   -   -   -  -   - "++
+	" b.  b-  b'  b(  b)  b  b?  b*  v.  v-  v'  v(  v)  v  v?  v* "++
+	" t.  t-  t'  t(  t)  t  t?  t*  c.  c-  c'  c(  c)  c  c?  c* "++
+	" X.  X-  X'  X(  X)  X  X?  -   -   -   -   X*  -   -  -   - "++
+	" n.  n-  n'  n(  n)  n  n?  n*  N.  N-  N'  N(  N)  N  N?  N* "++
+	" a   u   i   A   E   e  o   e*  k.  k-  k'  k(  k)  k  k?  - "++
+	" -   -   -   k*  -   -  -   -   -   -   -   -   -   -  -   - "++
+	" -   -   -   -   -   -  -   -   w.  w-  w'  w(  w)  w  w?  w* "++
+	" -   -   -   -   -   -  -   -   z.  z-  z'  z(  z)  z  z?  z* "++
+	" Z.  Z-  Z'  Z(  Z)  Z  Z?  Z*  y.  y-  y'  y(  y)  y  y?  y* "++
+	" d.  d-  d'  d(  d)  d  d?  d*  -   -   -   -   -   -  -   - "++
+	" j.  j-  j'  j(  j)  j  j?  j*  g.  g-  g'  g(  g)  g  g?  - "++
+	" -   -   -   g*  -   -  -   -   -   -   -   -   -   -  -   - "++
+	" T.  T-  T'  T(  T)  T  T?  T*  C.  C-  C'  C(  C)  C  C?  C* "++
+	" P.  P-  P'  P(  P)  P  P?  P*  S.  S-  S'  S(  S)  S  S?  S* "++
+	" -   -   -   -   -   -  -   -   f.  f-  f'  f(  f)  f  f?  f*"++
+	" p.  p-  p'  p(  p)  p  p?  p*" 	
+allCodes = [0x1200..0x1357]
+ 
\ No newline at end of file
diff --git a/src/runtime/javascript/minibar/phrasebook.html b/src/runtime/javascript/minibar/phrasebook.html
index a331dc112..29321582a 100644
--- a/src/runtime/javascript/minibar/phrasebook.html
+++ b/src/runtime/javascript/minibar/phrasebook.html
@@ -6,7 +6,8 @@
 <script type="text/JavaScript" src="minibar.js"></script>
 <script type="text/JavaScript">
 var phrasebook_options={
-  server: "http://tournesol.cs.chalmers.se:41296",
+  server: "http://localhost:41296",
+//  server: "http://tournesol.cs.chalmers.se:41296",
   grammar_list: ["Phrasebook.pgf"],
   delete_button_text: "Del"
 }