From 4d761dce0e675d30f8b8f48d4fb07afa654dc5db Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 14 Nov 2003 12:57:36 +0000 Subject: Haralds (c) started. --- src/GF/Text/Ethiopic.hs | 3 +++ src/GF/Text/Unicode.hs | 16 ++++++++-------- 2 files changed, 11 insertions(+), 8 deletions(-) (limited to 'src/GF') 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 -- cgit v1.2.3