haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implemented CP932 and ShiftJIS encodings

Browse Source 
Ignore-this: 67153b679dabd226a7b1fab3ff501453

darcs-hash:20160725070504-fb088-842c21423d713a81a8ada591dffdfbb9cd08b68c
This commit is contained in:
endhrk 2016-07-25 00:05:04 -07:00
parent de78ca5f34
commit 63e17e9a22
4 changed files with 15042 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Data/Encoding.hs
View File

@ -76,6 +76,7 @@ import Data.Encoding.MacOSRoman
import Data.Encoding.JISX0201 import Data.Encoding.JISX0201
import Data.Encoding.JISX0208 import Data.Encoding.JISX0208
import Data.Encoding.ISO2022JP import Data.Encoding.ISO2022JP
import Data.Encoding.ShiftJIS
import Data.Encoding.CP437 import Data.Encoding.CP437
import Data.Encoding.CP737 import Data.Encoding.CP737
import Data.Encoding.CP775 import Data.Encoding.CP775
@ -92,6 +93,7 @@ import Data.Encoding.CP865
import Data.Encoding.CP866 import Data.Encoding.CP866
import Data.Encoding.CP869 import Data.Encoding.CP869
import Data.Encoding.CP874 import Data.Encoding.CP874
import Data.Encoding.CP932
import Data.Char import Data.Char
import Text.Regex import Text.Regex
@ -327,6 +329,9 @@ encodingFromStringExplicit codeName = case (normalizeEncoding codeName) of
"jis_x_0208" -> Just $ DynEncoding JISX0208 "jis_x_0208" -> Just $ DynEncoding JISX0208
-- ISO 2022-JP -- ISO 2022-JP
"iso_2022_jp" -> Just $ DynEncoding ISO2022JP "iso_2022_jp" -> Just $ DynEncoding ISO2022JP
-- Shift JIS
"shift_jis" -> Just $ DynEncoding ShiftJIS
"sjis" -> Just $ DynEncoding ShiftJIS
-- MSDOS codepages -- MSDOS codepages
"cp437" -> Just $ DynEncoding CP437 "cp437" -> Just $ DynEncoding CP437
"cp737" -> Just $ DynEncoding CP737 "cp737" -> Just $ DynEncoding CP737
@ -344,6 +349,7 @@ encodingFromStringExplicit codeName = case (normalizeEncoding codeName) of
"cp866" -> Just $ DynEncoding CP866 "cp866" -> Just $ DynEncoding CP866
"cp869" -> Just $ DynEncoding CP869 "cp869" -> Just $ DynEncoding CP869
"cp874" -> Just $ DynEncoding CP874 "cp874" -> Just $ DynEncoding CP874
"cp932" -> Just $ DynEncoding CP932
-- defaults to nothing -- defaults to nothing
_ -> Nothing _ -> Nothing
where where

7941
Data/Encoding/CP932.xml Normal file
View File

File diff suppressed because it is too large Load Diff

7093
Data/Encoding/ShiftJIS.xml Normal file
View File

File diff suppressed because it is too large Load Diff

2
encoding.cabal
View File

@ -91,6 +91,7 @@ Library
Data.Encoding.JISX0212 Data.Encoding.JISX0212
Data.Encoding.ISO2022 Data.Encoding.ISO2022
Data.Encoding.ISO2022JP Data.Encoding.ISO2022JP
Data.Encoding.ShiftJIS
Data.Encoding.CP437 Data.Encoding.CP437
Data.Encoding.CP737 Data.Encoding.CP737
Data.Encoding.CP775 Data.Encoding.CP775
@ -107,6 +108,7 @@ Library
Data.Encoding.CP866 Data.Encoding.CP866
Data.Encoding.CP869 Data.Encoding.CP869
Data.Encoding.CP874 Data.Encoding.CP874
Data.Encoding.CP932
System.IO.Encoding System.IO.Encoding
Other-Modules: Other-Modules:
Data.Encoding.Base Data.Encoding.Base