{-# LANGUAGE ForeignFunctionInterface #-}

#include <bindings.dsl.h>
#include <nettle/serpent.h>

module Bindings.Nettle.Cipher.Serpent where
#strict_import

#num SERPENT_BLOCK_SIZE
#num SERPENT_MIN_KEY_SIZE
#num SERPENT_MAX_KEY_SIZE
#num SERPENT_KEY_SIZE

#starttype struct serpent_ctx
#stoptype

#ccall serpent_set_key , Ptr <struct serpent_ctx> -> CUInt -> Ptr CUChar -> IO ()
#ccall serpent_encrypt , Ptr <struct serpent_ctx> -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO ()
#ccall serpent_decrypt , Ptr <struct serpent_ctx> -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO ()