bindings-nettle 0.0 → 0.1

raw patch · 3 files changed

+34/−2 lines, 3 filesdep +bindings-DSL

Dependencies added: bindings-DSL

Files

• Bindings/Nettle/Cipher/AES.hsc +1/−1
• Bindings/Nettle/PRNG/Yarrow.hsc +30/−0
• bindings-nettle.cabal +3/−1

@@ -16,7 +16,7 @@  #ccall aes_set_encrypt_key , Ptr <struct aes_ctx> -> CUInt -> Ptr CUChar -> IO () #ccall aes_set_decrypt_key , Ptr <struct aes_ctx> -> CUInt -> Ptr CUChar -> IO ()-#ccall aes_inver_tkey , Ptr <struct aes_ctx> -> Ptr <struct aes_ctx> -> IO ()+#ccall aes_invert_key , Ptr <struct aes_ctx> -> Ptr <struct aes_ctx> -> IO () #ccall aes_encrypt , Ptr <struct aes_ctx> -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO () #ccall aes_decrypt , Ptr <struct aes_ctx> -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO () 

@@ -0,0 +1,30 @@+{-# LANGUAGE ForeignFunctionInterface #-}++#include <bindings.dsl.h>+#include <nettle/yarrow.h>++module Bindings.Nettle.PRNG.Yarrow where+#strict_import++#num YARROW256_SEED_FILE_SIZE++#starttype struct yarrow256_ctx+#stoptype++#starttype struct yarrow_source+#stoptype++#ccall yarrow256_init , Ptr <struct yarrow256_ctx> -> CUInt -> Ptr <struct yarrow_source> -> IO ()+#ccall yarrow256_seed , Ptr <struct yarrow256_ctx> -> CUInt -> Ptr CUChar -> IO ()+#ccall yarrow256_update , Ptr <struct yarrow256_ctx> -> CUInt -> CUInt -> CUInt -> Ptr CUChar -> IO CInt+#ccall yarrow256_random , Ptr <struct yarrow256_ctx> -> CUInt -> Ptr CUChar -> IO ()+#ccall yarrow256_is_seeded , Ptr <struct yarrow256_ctx> -> IO CInt+#ccall yarrow256_needed_sources , Ptr <struct yarrow256_ctx> -> IO CUInt+#ccall yarrow256_fast_reseed , Ptr <struct yarrow256_ctx> -> IO ()+#ccall yarrow256_slow_reseed , Ptr <struct yarrow256_ctx> -> IO ()++#starttype struct yarrow_key_event_ctx+#stoptype++#ccall yarrow_key_event_init , Ptr <struct yarrow_key_event_ctx> -> IO ()+#ccall yarrow_key_event_estimate , Ptr <struct yarrow_key_event_ctx> -> CUInt -> CUInt -> IO CUInt

@@ -1,5 +1,5 @@ name:                bindings-nettle-version:             0.0+version:             0.1 synopsis:            bindings to nettle crypto library description:         partial bindings to nettle crypto library homepage:            http://floss.scru.org/bindings-nettle@@ -25,7 +25,9 @@                  ,     Bindings.Nettle.Cipher.Twofish                  ,     Bindings.Nettle.Hash.SHA2                  ,     Bindings.Nettle.Hash.SHA3+                 ,     Bindings.Nettle.PRNG.Yarrow   build-depends:       base    > 4  && < 5+               ,       bindings-DSL   pkgconfig-depends:   nettle   build-tools:         hsc2hs   default-language:    Haskell2010