ArcTwo.hsc

{-# LANGUAGE ForeignFunctionInterface #-}

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

module Bindings.Nettle.Cipher.ArcTwo where
#strict_import

#num ARCTWO_BLOCK_SIZE
#num ARCTWO_MIN_KEY_SIZE
#num ARCTWO_MAX_KEY_SIZE
#num ARCTWO_KEY_SIZE

#starttype struct arctwo_ctx
#stoptype

#ccall arctwo_set_key_ekb , Ptr <struct arctwo_ctx> -> CUInt -> Ptr CUChar -> CUInt -> IO ()
#ccall arctwo_set_key , Ptr <struct arctwo_ctx> -> CUInt -> Ptr CUChar -> IO ()
#ccall arctwo_set_key_gutmann , Ptr <struct arctwo_ctx> -> CUInt -> Ptr CUChar -> IO ()
#ccall arctwo_encrypt , Ptr <struct arctwo_ctx> -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO ()
#ccall arctwo_decrypt , Ptr <struct arctwo_ctx> -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO ()