{-# LANGUAGE CApiFFI #-}
module Botan.Bindings.View where
import Botan.Bindings.Prelude
type BotanViewContext a = Ptr a
type BotanViewBinFn ctx
= BotanViewContext ctx
-> ConstPtr Word8
-> CSize
-> CInt
type BotanViewBinCallback ctx = FunPtr (BotanViewBinFn ctx)
foreign import ccall "wrapper"
mallocBotanViewBinCallback
:: BotanViewBinFn ctx
-> IO (BotanViewBinCallback ctx)
freeBotanViewBinCallback :: BotanViewBinCallback ctx -> IO ()
freeBotanViewBinCallback :: forall ctx. BotanViewBinCallback ctx -> IO ()
freeBotanViewBinCallback = FunPtr (BotanViewBinFn ctx) -> IO ()
forall a. FunPtr a -> IO ()
freeHaskellFunPtr
type BotanViewStrFn ctx
= BotanViewContext ctx
-> ConstPtr CChar
-> CSize
-> CInt
type BotanViewStrCallback ctx = FunPtr (BotanViewStrFn ctx)
foreign import ccall "wrapper"
mallocBotanViewStrCallback
:: BotanViewStrFn ctx
-> IO (BotanViewStrCallback ctx)
freeBotanViewStrCallback :: BotanViewStrCallback ctx -> IO ()
freeBotanViewStrCallback :: forall ctx. BotanViewStrCallback ctx -> IO ()
freeBotanViewStrCallback = FunPtr (BotanViewStrFn ctx) -> IO ()
forall a. FunPtr a -> IO ()
freeHaskellFunPtr