Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

61 lines (43 sloc) 1.397 kB
module OpenSSL.Stack
( STACK
, mapStack
, withStack
, withForeignStack
)
where
import Control.Exception
import Foreign
import Foreign.C
data STACK
foreign import ccall unsafe "sk_new_null"
skNewNull :: IO (Ptr STACK)
foreign import ccall unsafe "sk_free"
skFree :: Ptr STACK -> IO ()
foreign import ccall unsafe "sk_push"
skPush :: Ptr STACK -> Ptr () -> IO ()
foreign import ccall unsafe "sk_num"
skNum :: Ptr STACK -> IO CInt
foreign import ccall unsafe "sk_value"
skValue :: Ptr STACK -> CInt -> IO (Ptr ())
mapStack :: (Ptr a -> IO b) -> Ptr STACK -> IO [b]
mapStack m st
= do num <- skNum st
mapM (\ i -> skValue st i >>= return . castPtr >>= m)
$ take (fromIntegral num) [0..]
newStack :: [Ptr a] -> IO (Ptr STACK)
newStack values
= do st <- skNewNull
mapM_ (skPush st . castPtr) values
return st
withStack :: [Ptr a] -> (Ptr STACK -> IO b) -> IO b
withStack values f
= bracket (newStack values) skFree f
withForeignStack :: (fp -> Ptr obj)
-> (fp -> IO ())
-> [fp]
-> (Ptr STACK -> IO ret)
-> IO ret
withForeignStack unsafeFpToPtr touchFp fps action
= do ret <- withStack (map unsafeFpToPtr fps) action
mapM_ touchFp fps
return ret
Jump to Line
Something went wrong with that request. Please try again.