如何使用Haskell的mmap庫讀取共享內存？

Question

在C，我可以創建一個共享內存對象：

int fd = shm_open("/object", O_RDWR | O_CREAT, 0777); 

我也可以使用mmap內存讀：

int* addr = mmap(0, sizeof(*addr), PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0); 

但我如何訪問從哈斯克爾的數據？

import System.Posix.SharedMem 
import System.IO.MMap 

main = do 
    fd <- shmOpen "/bolts" (ShmOpenFlags False False False False) 0777 

    -- Obviously doesn't make sense, mmapFileByteString 
    -- requires a file path that I don't have! 
    addr <- mmapFileByteString "/bolts" Nothing 

    print addr 

Answer 1

看來您正在使用的mmap包不支持此功能。然而，好消息是你想要的並不是很難實現。一種方法是爲mmap創建一個原始FFI綁定，自己調用mmap，然後使用packCStringLen將指針轉換爲ByteString。

foreign import ccall "mmap" mmap 
    :: Ptr() -> CSize -> CInt -> CInt-> CInt-> Int64 -> IO (Ptr()) 

作爲另一個選項，如果你不想讓自己的FFI綁定，bindings-posix包會爲你提供這作爲c'mmap。