On Fri, Jun 20, 2008 at 4:26 PM, Jules Bean <jules@jellybean.co.uk> wrote:

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?