如何在 Haskell 中調用 Ptr GLubyte -> IO() 類型的 function

Question

在 OpenGL 原始庫中是以下 function：

glPolygonStipple :: Ptr GLubyte -> IO ()

The C counterpart to this function accepts a pointer to an array, but how can I call this function with an array/list in a Haskell program?

Answer 1

您將使用 mallocArray 分配 memory 和 pokeArray 將您的列表放入其中：

http://hackage.haskell.org/packages/archive/base/latest/doc/html/Foreign-Marshal-Array.html#v:mallocArray

就像是：

do
  arrayOfGLuBytes <- (mallocArray 15) :: IO (Ptr GLubyte)
  pokeArray arrayOfGLuBytes [1,2,3,4]
  glPolygonStipple arrayOfGLuBytes
  free arrayOfGLuBytes -- free from Foreign.Marshall.Alloc

Answer 2

Probably best way to go in this situation is storable vectors in the vector package [http://hackage.haskell.org/packages/archive/vector/0.7.1/doc/html/Data-Vector-Storable.html][1 ]。 Package 為不可變和可變向量提供了豐富的接口，因此不必在 IO monad 中創建向量。 除了列表是鏈表和轉換為 arrays inovlve 復制

您的特定示例可能看起來像

let myVector = fromList [1,2,3,4] 
in unsafeWith myVector glPolygonStipple