From 60c2d054ee2e34014b081f331ced46b102d2fdbc Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 27 Jun 2008 10:33:46 +0000 Subject: the shell now supports cp1251 coding with se command. works with the word completion as well --- src/GF/Text/Lexing.hs | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'src/GF/Text/Lexing.hs') diff --git a/src/GF/Text/Lexing.hs b/src/GF/Text/Lexing.hs index 2c6b417b8..38018ff54 100644 --- a/src/GF/Text/Lexing.hs +++ b/src/GF/Text/Lexing.hs @@ -2,6 +2,7 @@ module GF.Text.Lexing (stringOp) where import GF.Text.Transliterations import GF.Text.UTF8 +import GF.Text.CP1251 import Data.Char import Data.List (intersperse) @@ -98,18 +99,3 @@ unlexMixed = concat . alternate False where isPunct = flip elem ".?!,:;" isParen = flip elem "()[]{}" isClosing = flip elem ")]}" - - --- might be in a file of its own: Windows Cyrillic, used in Bulgarian resource - -decodeCP1251 = map convert where - convert c - | c >= '\192' && c <= '\255' = chr (ord c + 848) - | otherwise = c - -encodeCP1251 = map convert where - convert c - | oc >= 1040 && oc <= 1103 = chr (oc - 848) - | otherwise = c - where oc = ord c - -- cgit v1.2.3