blob: e6498648420ac55eda63c66af0f80d583ee45c51 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{-# LANGUAGE CPP #-}
#if defined(i386_HOST_ARCH)
# define WINDOWS_CCONV stdcall
#elif defined(x86_64_HOST_ARCH)
# define WINDOWS_CCONV ccall
#else
# error Unknown mingw32 arch
#endif
import Foreign.C.String
foreign import WINDOWS_CCONV "_strdup" strdup :: CString -> IO CString
foreign import WINDOWS_CCONV "strdup" strdup2 :: CString -> IO CString
dupString :: String -> IO String
dupString str = newCString str >>= strdup >>= peekCString
dupString2 :: String -> IO String
dupString2 str = newCString str >>= strdup2 >>= peekCString
main =
do print =<< dupString "Hello World!"
print =<< dupString2 "Hello Again World!"
|
