diff options
| author | aarne <unknown> | 2003-11-14 12:36:23 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-14 12:36:23 +0000 |
| commit | 5a7d6e542d7fc0c01bec9163e4be732ac1c6d217 (patch) | |
| tree | 7e7899236393081209aa494b391d3409d087fcc3 /src/GF/Text/Unicode.hs | |
| parent | 37384dbe06913a0352d4459050c1382874a45a62 (diff) | |
New unicodings.
New unicodings.
Module with works.
Better compilation of old GF.
Diffstat (limited to 'src/GF/Text/Unicode.hs')
| -rw-r--r-- | src/GF/Text/Unicode.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs index 78aba0461..734879e70 100644 --- a/src/GF/Text/Unicode.hs +++ b/src/GF/Text/Unicode.hs @@ -4,6 +4,13 @@ import Greek (mkGreek) import Arabic (mkArabic) import Hebrew (mkHebrew) import Russian (mkRussian, mkRusKOI8) +import Ethiopic (mkEthiopic) +import Tamil (mkTamil) +import OCSCyrillic (mkOCSCyrillic) +import LatinASupplement (mkLatinASupplement) +import Devanagari (mkDevanagari) +import Hiragana (mkJapanese) +import ExtendedArabic (mkExtendedArabic) -- ad hoc Unicode conversions from different alphabets @@ -15,6 +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) _ -> s remClosing cs |
