From d661d45b1e3860bef2388b419e45fc3a800a9931 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 31 Jan 2011 08:06:42 +0000 Subject: [PATCH] corrections to ancientgreek encoding by Hans Leiss --- src/compiler/GF/Text/Transliterations.hs | 48 ++++++++++++------------ 1 file changed, 23 insertions(+), 25 deletions(-) diff --git a/src/compiler/GF/Text/Transliterations.hs b/src/compiler/GF/Text/Transliterations.hs index ec153c309..0cdd4fb0a 100644 --- a/src/compiler/GF/Text/Transliterations.hs +++ b/src/compiler/GF/Text/Transliterations.hs @@ -189,31 +189,29 @@ transGreek = mkTransliteration "modern Greek" allTrans allCodes where transAncientGreek :: Transliteration transAncientGreek = mkTransliteration "ancient Greek" allTrans allCodes where - allTrans = words $ - "- - - - - - - - - - - - - - - - " ++ - "i= A B G D E Z H V I K L M N X O " ++ - "P R - S T Y F C Q W I- Y- - - - - " ++ - "y= a b g d e z h v i k l m n x o " ++ - "p r s* s t y f c q w i- y- - - - - " ++ - "a) a( a)` a(` a)' a(' a)~ a(~ A) A( A)` A(` A)' A(' A)~ A(~ " ++ - "e) e( e)` e(` e)' e(' - - E) E( E)` E(` E)' E(' - - " ++ - "h) h( h)` h(` h)' h(' h)~ h(~ H) H( H)` H(` H)' H(' H)~ H(~ " ++ - "i) i( i)` i(` i)' i(' i)~ i(~ I) I( I)` I(` I)' I(' I)~ I(~ " ++ - "o) o( o)` o(` o)' o(' - - O) O( O)` O(` O)' O(' - - " ++ - "y) y( y)` y(` y)' y(' y)~ y(~ - Y( - Y(` - Y(' - Y(~ " ++ - "w) w( w)` w(` w)' w(' w)~ w(~ W) W( W)` W(` W)' W(' W)~ W(~ " ++ - "a` a' e` e' h` h' i` i' o` o' y` y' w` w' - - " ++ - "a|( a|) a|)` a|(` a|)' a|(' a|)~ a|(~ - - - - - - - - " ++ -- 1f80- - "h|( h|) h|)` h|(` h|)' h|(' h|)~ h|(~ - - - - - - - - " ++ -- 1f90- - "w|( w|) w|)` w|(` w|)' w|(' w|)~ w|(~ - - - - - - - - " ++ -- 1fa0- - "a. a_ a|` a| a|' - a~ a|~ - - - - - - - - " ++ -- 1fb0- - "- - h|` h| h|' - h~ h|~ - - - - - - - - " ++ -- 1fc0- - "i. i_ i=` i=' - - i~ i=~ - - - - - - - - " ++ -- 1fd0- - "y. y_ y=` y=' r) r( y~ y|~ - - - - - - - - " ++ -- 1fe0- - "- - w|` w| w|' - w~ w|~ - - - - - - - - " -- 1ff0- - allCodes = [0x0380 .. 0x03cf] ++ [0x1f00 .. 0x1fff] - - + allTrans = words $ + "- - - - - - - - - - - - - - - - " ++ + "i= A B G D E Z H V I K L M N X O " ++ + "P R - S T Y F C Q W I- Y- - - - - " ++ + "y= a b g d e z h v i k l m n x o " ++ + "p r s* s t y f c q w i- y- - - - - " ++ + "a) a( a)` a(` a)' a(' a)~ a(~ A) A( A)` A(` A)' A(' A)~ A(~ " ++ + "e) e( e)` e(` e)' e(' - - E) E( E)` E(` E)' E(' - - " ++ + "h) h( h)` h(` h)' h(' h)~ h(~ H) H( H)` H(` H)' H(' H)~ H(~ " ++ + "i) i( i)` i(` i)' i(' i)~ i(~ I) I( I)` I(` I)' I(' I)~ I(~ " ++ + "o) o( o)` o(` o)' o(' - - O) O( O)` O(` O)' O(' - - " ++ + "y) y( y)` y(` y)' y(' y)~ y(~ - Y( - Y(` - Y(' - Y(~ " ++ + "w) w( w)` w(` w)' w(' w)~ w(~ W) W( W)` W(` W)' W(' W)~ W(~ " ++ + "a` a' e` e' h` h' i` i' o` o' y` y' w` w' - - " ++ + "a|) a|( a|)` a|(` a|)' a|(' a|)~ a|(~ - - - - - - - - " ++ -- 1f80- -- HL: a|) a|( for a|( a|) + "h|) h|( h|)` h|(` h|)' h|(' h|)~ h|(~ - - - - - - - - " ++ -- 1f90- -- HL: h|) h|( for h|( h|) + "w|) w|( w|)` w|(` w|)' w|(' w|)~ w|(~ - - - - - - - - " ++ -- 1fa0- -- HL: w|) w|( for w|( w|) + "a. a_ a|` a| a|' - a~ a|~ - - - - - - - - " ++ -- 1fb0- + "- - h|` h| h|' - h~ h|~ - - - - - - - - " ++ -- 1fc0- + "i. i_ i=` i=' - - i~ i=~ - - - - - - - - " ++ -- 1fd0- + "y. y_ y=` y=' r) r( y~ y=~ - - - - - - - - " ++ -- 1fe0- -- HL: y=~ for y|~ + "- - w|` w| w|' - w~ w|~ - - - - - - - - " -- 1ff0- + allCodes = [0x0380 .. 0x03cf] ++ [0x1f00 .. 0x1fff] transAmharic :: Transliteration