{-# LINE 1 "Bindings/Nettle/Cipher/ArcFour.hsc" #-} {-# LANGUAGE ForeignFunctionInterface #-} module Bindings.Nettle.Cipher.ArcFour where import Foreign.Ptr (Ptr,FunPtr,plusPtr) import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr) import Foreign.Storable import Foreign.C.Types import Foreign.C.String (CString,CStringLen,CWString,CWStringLen) import Foreign.Marshal.Alloc (alloca) import Foreign.Marshal.Array (peekArray,pokeArray) import Data.Int import Data.Word {-# LINE 8 "Bindings/Nettle/Cipher/ArcFour.hsc" #-} c'ARCFOUR_MIN_KEY_SIZE = 1 c'ARCFOUR_MIN_KEY_SIZE :: (Num a) => a {-# LINE 10 "Bindings/Nettle/Cipher/ArcFour.hsc" #-} c'ARCFOUR_MAX_KEY_SIZE = 256 c'ARCFOUR_MAX_KEY_SIZE :: (Num a) => a {-# LINE 11 "Bindings/Nettle/Cipher/ArcFour.hsc" #-} c'ARCFOUR_KEY_SIZE = 16 c'ARCFOUR_KEY_SIZE :: (Num a) => a {-# LINE 12 "Bindings/Nettle/Cipher/ArcFour.hsc" #-} {-# LINE 14 "Bindings/Nettle/Cipher/ArcFour.hsc" #-} data C'arcfour_ctx = C'arcfour_ctx{ } deriving (Eq,Show) instance Storable C'arcfour_ctx where sizeOf _ = 258 alignment _ = 1 peek _p = do return $ C'arcfour_ctx poke _p (C'arcfour_ctx) = do return () {-# LINE 15 "Bindings/Nettle/Cipher/ArcFour.hsc" #-} foreign import ccall "nettle_arcfour_set_key" c'nettle_arcfour_set_key :: Ptr C'arcfour_ctx -> CUInt -> Ptr CUChar -> IO () foreign import ccall "&nettle_arcfour_set_key" p'nettle_arcfour_set_key :: FunPtr (Ptr C'arcfour_ctx -> CUInt -> Ptr CUChar -> IO ()) {-# LINE 17 "Bindings/Nettle/Cipher/ArcFour.hsc" #-} foreign import ccall "nettle_arcfour_crypt" c'nettle_arcfour_crypt :: Ptr C'arcfour_ctx -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO () foreign import ccall "&nettle_arcfour_crypt" p'nettle_arcfour_crypt :: FunPtr (Ptr C'arcfour_ctx -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO ()) {-# LINE 18 "Bindings/Nettle/Cipher/ArcFour.hsc" #-}