module System.Win32.WindowsString.String
( LPSTR, LPCSTR, LPWSTR, LPCWSTR
, TCHAR, LPTSTR, LPCTSTR, LPCTSTR_
, withTString, withTStringLen, peekTString, peekTStringLen
, newTString
, withTStringBuffer, withTStringBufferLen
) where
import System.Win32.String hiding
( withTStringBuffer
, withTStringBufferLen
, withTString
, withTStringLen
, peekTString
, peekTStringLen
, newTString
)
import System.Win32.WindowsString.Types
import System.OsString.Internal.Types
import qualified System.OsPath.Data.ByteString.Short as SBS
import Data.Word (Word8)
withTStringBuffer :: Int -> (LPTSTR -> IO a) -> IO a
withTStringBuffer :: forall a. Int -> (LPTSTR -> IO a) -> IO a
withTStringBuffer Int
maxLength
= let dummyBuffer :: WindowsString
dummyBuffer = ShortByteString -> WindowsString
WindowsString (ShortByteString -> WindowsString)
-> ShortByteString -> WindowsString
forall a b. (a -> b) -> a -> b
$ [Word8] -> ShortByteString
SBS.pack ([Word8] -> ShortByteString) -> [Word8] -> ShortByteString
forall a b. (a -> b) -> a -> b
$ Int -> Word8 -> [Word8]
forall a. Int -> a -> [a]
replicate (if Int -> Bool
forall a. Integral a => a -> Bool
even Int
maxLength then Int
maxLength else Int
maxLength Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) Word8
_nul
in WindowsString -> (LPTSTR -> IO a) -> IO a
forall a. WindowsString -> (LPTSTR -> IO a) -> IO a
withTString WindowsString
dummyBuffer
withTStringBufferLen :: Int -> ((LPTSTR, Int) -> IO a) -> IO a
withTStringBufferLen :: forall a. Int -> ((LPTSTR, Int) -> IO a) -> IO a
withTStringBufferLen Int
maxLength
= let dummyBuffer :: WindowsString
dummyBuffer = ShortByteString -> WindowsString
WindowsString (ShortByteString -> WindowsString)
-> ShortByteString -> WindowsString
forall a b. (a -> b) -> a -> b
$ [Word8] -> ShortByteString
SBS.pack ([Word8] -> ShortByteString) -> [Word8] -> ShortByteString
forall a b. (a -> b) -> a -> b
$ Int -> Word8 -> [Word8]
forall a. Int -> a -> [a]
replicate (if Int -> Bool
forall a. Integral a => a -> Bool
even Int
maxLength then Int
maxLength else Int
maxLength Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) Word8
_nul
in WindowsString -> ((LPTSTR, Int) -> IO a) -> IO a
forall a. WindowsString -> ((LPTSTR, Int) -> IO a) -> IO a
withTStringLen WindowsString
dummyBuffer
_nul :: Word8
_nul :: Word8
_nul = Word8
0x00