{-# LINE 1 "src/Botan/Bindings/Utility.hsc" #-}
{-# LANGUAGE CApiFFI #-}
module Botan.Bindings.Utility where
import Botan.Bindings.Prelude
foreign import capi safe "botan/ffi.h botan_constant_time_compare"
botan_constant_time_compare
:: ConstPtr Word8
-> ConstPtr Word8
-> CSize
-> IO CInt
foreign import capi safe "botan/ffi.h botan_scrub_mem"
botan_scrub_mem
:: Ptr a
-> CSize
-> IO CInt
pattern BOTAN_FFI_HEX_UPPER_CASE
, BOTAN_FFI_HEX_LOWER_CASE
:: (Eq a, Num a) => a
pattern $mBOTAN_FFI_HEX_UPPER_CASE :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bBOTAN_FFI_HEX_UPPER_CASE :: forall a. (Eq a, Num a) => a
BOTAN_FFI_HEX_UPPER_CASE = 0
pattern $mBOTAN_FFI_HEX_LOWER_CASE :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bBOTAN_FFI_HEX_LOWER_CASE :: forall a. (Eq a, Num a) => a
BOTAN_FFI_HEX_LOWER_CASE = 1
{-# LINE 39 "src/Botan/Bindings/Utility.hsc" #-}
foreign import capi safe "botan/ffi.h botan_hex_encode"
botan_hex_encode
:: ConstPtr Word8
-> CSize
-> Ptr CChar
-> Word32
-> IO CInt
foreign import capi safe "botan/ffi.h botan_hex_decode"
botan_hex_decode
:: ConstPtr CChar
-> CSize
-> Ptr Word8
-> Ptr CSize
-> IO CInt
foreign import capi safe "botan/ffi.h botan_base64_encode"
botan_base64_encode
:: ConstPtr Word8
-> CSize
-> Ptr CChar
-> Ptr CSize
-> IO CInt
foreign import capi safe "botan/ffi.h botan_base64_decode"
botan_base64_decode
:: ConstPtr CChar
-> CSize
-> Ptr Word8
-> Ptr CSize
-> IO CInt