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

provide a flag to disable the FFI function getSystemEncoding

Browse Source 
Ignore-this: 4c6b01ddae1d86034b7d9522c188ad75
The library for querying locale isn't as easily available on Windows as it is
on Linux. This flag provides a way for people who don't need the
getSystemEncoding function to ease the build process.

darcs-hash:20121017170920-76d51-7caa5ee9897c49a46d7beeb4aca5dcedf60e3c32
This commit is contained in:
Daniel Wagner 2012-10-17 10:09:20 -07:00
parent 201eccc546
commit c06d483ef6
2 changed files with 23 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
System/IO/Encoding.hs
View File

@ -131,12 +131,19 @@ interact f = do
line <- hGetLine stdin line <- hGetLine stdin
hPutStrLn stdout (f line) hPutStrLn stdout (f line)
#ifdef SYSTEM_ENCODING
foreign import ccall "system_encoding.h get_system_encoding" foreign import ccall "system_encoding.h get_system_encoding"
get_system_encoding :: IO CString get_system_encoding :: IO CString
#endif
-- | Returns the encoding used on the current system. -- | Returns the encoding used on the current system. Currently only supported
-- on Linux-alikes.
getSystemEncoding :: IO DynEncoding getSystemEncoding :: IO DynEncoding
getSystemEncoding = do getSystemEncoding = do
#ifdef SYSTEM_ENCODING
enc <- get_system_encoding enc <- get_system_encoding
str <- peekCString enc str <- peekCString enc
return $ encodingFromString str return $ encodingFromString str
#else
error "getSystemEncoding is not supported on this platform"
#endif

20
encoding.cabal
View File

@ -18,11 +18,15 @@ Extra-Source-Files:
Data/CharMap/Builder.hs Data/CharMap/Builder.hs
Data/Array/Static/Builder.hs Data/Array/Static/Builder.hs
Data/Map/Static/Builder.hs Data/Map/Static/Builder.hs
system_encoding.h
system_encoding.c
Flag splitBase Flag splitBase
description: Choose the new smaller, split-up base package. description: Choose the new smaller, split-up base package.
Flag newGHC Flag newGHC
description: Use ghc version > 6.10 description: Use ghc version > 6.10
Flag systemEncoding
description: Provide the getSystemEncoding action to query the locale.
Library Library
Build-Depends: binary, extensible-exceptions, HaXml >= 1.22 && < 1.24 Build-Depends: binary, extensible-exceptions, HaXml >= 1.22 && < 1.24
@ -35,6 +39,8 @@ Library
else else
Build-Depends: base < 3 Build-Depends: base < 3
Extensions: CPP
Exposed-Modules: Exposed-Modules:
Data.Encoding Data.Encoding
Data.Encoding.ByteSource Data.Encoding.ByteSource
@ -102,9 +108,11 @@ Library
Data.Map.Static Data.Map.Static
Data.Static Data.Static
Data.CharMap Data.CharMap
Includes: if flag(systemEncoding)
system_encoding.h Includes:
Install-Includes: system_encoding.h
system_encoding.h Install-Includes:
C-Sources: system_encoding.h
system_encoding.c C-Sources:
system_encoding.c
CPP-Options: -DSYSTEM_ENCODING