diff options
| author | krasimir <krasimir@chalmers.se> | 2010-04-19 09:38:36 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-04-19 09:38:36 +0000 |
| commit | 6313244eacf992fb10a5091bee28582e84540809 (patch) | |
| tree | 8208fb18a5e1ab9447bd060cf08a3d78ed0a8c0a /src/compiler/GF/Text/CP1254.hs | |
| parent | 8b5827fc892c2f395ae26f1811da2d4cc3b1669d (diff) | |
use the native unicode support from GHC 6.12
Diffstat (limited to 'src/compiler/GF/Text/CP1254.hs')
| -rw-r--r-- | src/compiler/GF/Text/CP1254.hs | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/src/compiler/GF/Text/CP1254.hs b/src/compiler/GF/Text/CP1254.hs deleted file mode 100644 index 488359d70..000000000 --- a/src/compiler/GF/Text/CP1254.hs +++ /dev/null @@ -1,84 +0,0 @@ ------------------------------------------------------------------------------
--- |
--- Module : GF.Text.CP1254
--- Maintainer : Krasimir Angelov
---
--- cp1254 is a code page used under Microsoft Windows to write Turkish.
--- Characters with codepoints A0 through FF are compatible with ISO 8859-9.
---
------------------------------------------------------------------------------
-
-module GF.Text.CP1254 where
-
-import Data.Char
-
-decodeCP1254 = map convert where
- convert c
- | c == '\x80' = chr 0x20AC
- | c == '\x82' = chr 0x201A
- | c == '\x83' = chr 0x192
- | c == '\x84' = chr 0x201E
- | c == '\x85' = chr 0x2026
- | c == '\x86' = chr 0x2020
- | c == '\x87' = chr 0x2021
- | c == '\x88' = chr 0x2C6
- | c == '\x89' = chr 0x2030
- | c == '\x8A' = chr 0x160
- | c == '\x8B' = chr 0x2039
- | c == '\x8C' = chr 0x152
- | c == '\x91' = chr 0x2018
- | c == '\x92' = chr 0x2019
- | c == '\x93' = chr 0x201C
- | c == '\x94' = chr 0x201D
- | c == '\x95' = chr 0x2022
- | c == '\x96' = chr 0x2013
- | c == '\x97' = chr 0x2014
- | c == '\x98' = chr 0x2DC
- | c == '\x99' = chr 0x2122
- | c == '\x9A' = chr 0x161
- | c == '\x9B' = chr 0x203A
- | c == '\x9C' = chr 0x153
- | c == '\x9F' = chr 0x178
- | c == '\xD0' = chr 0x11E
- | c == '\xDD' = chr 0x130
- | c == '\xDE' = chr 0x15E
- | c == '\xF0' = chr 0x11F
- | c == '\xFD' = chr 0x131
- | c == '\xFE' = chr 0x15F
- | otherwise = c
-
-encodeCP1254 = map convert where
- convert c
- | oc == 0x20AC = '\x80'
- | oc == 0x201A = '\x82'
- | oc == 0x192 = '\x83'
- | oc == 0x201E = '\x84'
- | oc == 0x2026 = '\x85'
- | oc == 0x2020 = '\x86'
- | oc == 0x2021 = '\x87'
- | oc == 0x2C6 = '\x88'
- | oc == 0x2030 = '\x89'
- | oc == 0x160 = '\x8A'
- | oc == 0x2039 = '\x8B'
- | oc == 0x152 = '\x8C'
- | oc == 0x2018 = '\x91'
- | oc == 0x2019 = '\x92'
- | oc == 0x201C = '\x93'
- | oc == 0x201D = '\x94'
- | oc == 0x2022 = '\x95'
- | oc == 0x2013 = '\x96'
- | oc == 0x2014 = '\x97'
- | oc == 0x2DC = '\x98'
- | oc == 0x2122 = '\x99'
- | oc == 0x161 = '\x9A'
- | oc == 0x203A = '\x9B'
- | oc == 0x153 = '\x9C'
- | oc == 0x178 = '\x9F'
- | oc == 0x11E = '\xD0'
- | oc == 0x130 = '\xDD'
- | oc == 0x15E = '\xDE'
- | oc == 0x11F = '\xF0'
- | oc == 0x131 = '\xFD'
- | oc == 0x15F = '\xFE'
- | otherwise = c
- where oc = ord c
|