{-# LANGUAGE ForeignFunctionInterface #-} #include #include module Bindings.Nettle.Cipher.Twofish where #strict_import #num TWOFISH_BLOCK_SIZE #num TWOFISH_MIN_KEY_SIZE #num TWOFISH_MAX_KEY_SIZE #num TWOFISH_KEY_SIZE #starttype struct twofish_ctx #stoptype #ccall twofish_set_key , Ptr -> CUInt -> Ptr CUChar -> IO () #ccall twofish_encrypt , Ptr -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO () #ccall twofish_decrypt , Ptr -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO ()