From e17f71f9f01a429664caf120d9ac159ed9f5283f Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Fri, 27 Mar 2015 13:28:03 +0000
Subject:  - added sha512 (buggy, need to commit to test somewhere else)  -
 version bump (not a rc yet)  - bugfix: buffer_get returned -1 EPIPE on short
 reads w/o EOF

---
 src/libstdcrypto/sha512_update.c | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/libstdcrypto/sha512_update.c

(limited to 'src/libstdcrypto/sha512_update.c')

diff --git a/src/libstdcrypto/sha512_update.c b/src/libstdcrypto/sha512_update.c
new file mode 100644
index 0000000..4f66622
--- /dev/null
+++ b/src/libstdcrypto/sha512_update.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/sha512.h>
+#include "sha512-internal.h"
+
+void sha512_update (SHA512Schedule *ctx, char const *buf, unsigned int len)
+{
+  register unsigned int pad = ctx->len & 0x7fu ;
+  ctx->len += len ;
+  if (pad && len >= 128 - pad)
+  {
+    byte_copy(ctx->buf + pad, 128 - pad, buf) ;
+    buf += 128 - pad ; len -= 128 - pad ; pad = 0 ;
+    sha512_transform(ctx, ctx->buf) ;
+  }
+
+  while (len >= 128)
+  {
+    sha512_transform(ctx, (unsigned char const *)buf) ;
+    buf += 128 ; len -= 128 ;
+  }
+  byte_copy(ctx->buf + pad, len, buf) ;
+}
-- 
cgit v1.2.3