{-# LANGUAGE ForeignFunctionInterface #-}

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

module Bindings.Nettle.Cipher.ArcFour where
#strict_import

#num ARCFOUR_MIN_KEY_SIZE
#num ARCFOUR_MAX_KEY_SIZE
#num ARCFOUR_KEY_SIZE

#starttype struct arcfour_ctx
#stoptype

#ccall arcfour_set_key , Ptr <struct arcfour_ctx> -> CUInt -> Ptr CUChar -> IO ()
#ccall arcfour_crypt , Ptr <struct arcfour_ctx> -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO ()