diff options
Diffstat (limited to 'src/GF/Text/Unicode.hs')
| -rw-r--r-- | src/GF/Text/Unicode.hs | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs index f24019b47..9039fbef0 100644 --- a/src/GF/Text/Unicode.hs +++ b/src/GF/Text/Unicode.hs @@ -9,10 +9,11 @@ -- > CVS $Author $ -- > CVS $Revision $ -- --- (Description of the module) +-- ad hoc Unicode conversions from different alphabets +-- AR 12/4/2000, 18/9/2001, 30/5/2002, 26/1/2004 ----------------------------------------------------------------------------- -module Unicode where +module Unicode (mkUnicode, treat) where import Greek (mkGreek) import Arabic (mkArabic) @@ -30,10 +31,6 @@ import ExtraDiacritics (mkExtraDiacritics) import Char --- ad hoc Unicode conversions from different alphabets - --- AR 12/4/2000, 18/9/2001, 30/5/2002, 26/1/2004 - mkUnicode s = case s of '/':'/':cs -> treat [] mkGreek unic ++ mkUnicode rest '/':'+':cs -> mkHebrew unic ++ mkUnicode rest @@ -58,7 +55,7 @@ mkUnicode s = case s of c:cs -> remClosing (c:u) cs _ -> (reverse u,[]) -- forgiving missing end --- don't convert XML tags --- assumes <> always means XML tags +-- | don't convert XML tags --- assumes \<\> always means XML tags treat :: String -> (String -> String) -> String -> String treat old mk s = case s of '<':cs -> mk (reverse old) ++ '<':noTreat cs |