diff options
| author | aarne <unknown> | 2003-11-14 12:57:36 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-14 12:57:36 +0000 |
| commit | 4d761dce0e675d30f8b8f48d4fb07afa654dc5db (patch) | |
| tree | 4c4610dbe6f3e15be95fa0c07484c18956d47db8 /src/GF | |
| parent | 33c6309c43734f112e1bda2a960d3263fd3dfa40 (diff) | |
Haralds (c) started.
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Text/Ethiopic.hs | 3 | ||||
| -rw-r--r-- | src/GF/Text/Unicode.hs | 16 |
2 files changed, 11 insertions, 8 deletions
diff --git a/src/GF/Text/Ethiopic.hs b/src/GF/Text/Ethiopic.hs index 32d420fd4..67ac43f58 100644 --- a/src/GF/Text/Ethiopic.hs +++ b/src/GF/Text/Ethiopic.hs @@ -1,5 +1,8 @@ module Ethiopic where +-- Ascii-Unicode decoding for Ethiopian +-- Copyright (c) Harald Hammarström 2003 under Gnu General Public License + mkEthiopic :: String -> String mkEthiopic = digraphWordToUnicode . adHocToDigraphWord diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs index 734879e70..3c1b68c3f 100644 --- a/src/GF/Text/Unicode.hs +++ b/src/GF/Text/Unicode.hs @@ -14,7 +14,7 @@ import ExtendedArabic (mkExtendedArabic) -- ad hoc Unicode conversions from different alphabets --- AR 12/4/2000, 18/9/2001, 30/5/2002 +-- AR 12/4/2000, 18/9/2001, 30/5/2002, HH 14/11/2003 mkUnicode s = case s of '/':'/':cs -> mkGreek (remClosing cs) @@ -22,13 +22,13 @@ mkUnicode s = case s of '/':'-':cs -> mkArabic (remClosing cs) '/':'_':cs -> mkRussian (remClosing cs) '/':'*':cs -> mkRusKOI8 (remClosing cs) - '/':'E':cs -> mkEthiopic (remClosing cs) - '/':'T':cs -> mkTamil (remClosing cs) - '/':'C':cs -> mkOCSCyrillic (remClosing cs) - '/':'&':cs -> mkDevanagari (remClosing cs) - '/':'L':cs -> mkLatinASupplement (remClosing cs) - '/':'J':cs -> mkJapanese (remClosing cs) - '/':'A':cs -> mkExtendedArabic (remClosing cs) + '/':'E':cs -> mkEthiopic (remClosing cs) -- HH + '/':'T':cs -> mkTamil (remClosing cs) -- HH + '/':'C':cs -> mkOCSCyrillic (remClosing cs) -- HH + '/':'&':cs -> mkDevanagari (remClosing cs) -- HH + '/':'L':cs -> mkLatinASupplement (remClosing cs) -- HH + '/':'J':cs -> mkJapanese (remClosing cs) -- HH + '/':'A':cs -> mkExtendedArabic (remClosing cs) -- HH _ -> s remClosing cs |