[Haskell-cafe] Re: Wrapping FTGL in FFI calls

[Jules Bean]

Jefferson Heard wrote:
> Oh, and I should say the function I want to implement is
> 
> getFontBBox :: Font -> String -> IO [Float]
> 
> I do know how to marhsal/unmarshal the String.  Just not the CFloat 
> array to Haskell [Float]

import Foreign.C
import Foreign.Ptr
import Foreign.Marshal.Array

import Control.Applicative((<$>))

oneway :: Ptr CFloat -> IO [Float]
oneway p = map real2Frac <$> peekArray 4 p

the other way you would probably want withArray, but I think this is the 
way you need?