Question

我很困惑我如何将Data.Vector.Storable的向量转换为ByteString。我猜我错过了一些相当明显的东西。

我需要将它转换为ByteString，因为我想通过网络使用Network.Socket.ByteString发送它，它似乎是最有效的数据结构。

如何编写代码来编写函数

writeToByteString :: Vector Int -> ByteString
writeToByteString v =

非常感谢。

Answer 1

这取决于你真正想要实现的目标。正如bheklilr所提到的，Int表示是特定于平台的。

但在幕后，一个可存储的矢量是一块记忆。要获取其内容，请使用unsafeToForeignPtr0。这是一个例子：

import qualified Data.Vector.Storable as V
import qualified Data.ByteString as BS

import Foreign

main :: IO ()
main = do
  let v = V.generate 10 id :: V.Vector Int
      (fptr, len) = V.unsafeToForeignPtr0 v
  print v
  bs <- withForeignPtr fptr $ \ptr ->
    BS.packCStringLen (castPtr ptr, len * sizeOf (undefined :: Int))
  print $ BS.unpack bs

输出：

fromList [0,1,2,3,4,5,6,7,8,9]
[0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0]

在Haskell中将Vector转换为ByteString

1 个答案: