From 9127333575b4db850828ba9391649eeb5cb781a0 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 19 Dec 2003 16:57:48 +0000
Subject: Starting Finnish for new API

---
 src/GF/Text/Unicode.hs | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

(limited to 'src/GF/Text/Unicode.hs')

diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs
index 3c1b68c3f..4fef4a93e 100644
--- a/src/GF/Text/Unicode.hs
+++ b/src/GF/Text/Unicode.hs
@@ -10,11 +10,13 @@ import OCSCyrillic (mkOCSCyrillic)
 import LatinASupplement (mkLatinASupplement)
 import Devanagari (mkDevanagari)
 import Hiragana (mkJapanese)
+import ExtendedArabic (mkArabic0600)
 import ExtendedArabic (mkExtendedArabic)
+import ExtraDiacritics (mkExtraDiacritics)
 
 -- ad hoc Unicode conversions from different alphabets
 
--- AR 12/4/2000, 18/9/2001, 30/5/2002, HH 14/11/2003
+-- AR 12/4/2000, 18/9/2001, 30/5/2002
 
 mkUnicode s = case s of
  '/':'/':cs -> mkGreek   (remClosing cs)
@@ -22,13 +24,15 @@ mkUnicode s = case s of
  '/':'-':cs -> mkArabic  (remClosing cs)
  '/':'_':cs -> mkRussian (remClosing cs)
  '/':'*':cs -> mkRusKOI8 (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
+ '/':'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)
+ '/':'6':cs -> mkArabic0600 (remClosing cs)
+ '/':'A':cs -> mkExtendedArabic (remClosing cs)
+ '/':'X':cs -> mkExtraDiacritics (remClosing cs)
  _      -> s
 
 remClosing cs 
-- 
cgit v1.2.3