# HG changeset patch
# User jbe
# Date 1502823651 -7200
# Node ID b53dee61a930e0cb08af3942c771ab545c3ea555
# Parent  cf948f21905676beb150dc61a5787e4692ca70e3
Keccak initialization in separate function (to allow for variable size output)

diff -r cf948f219056 -r b53dee61a930 libraries/moonhash/moonhash_sha3.c
--- a/libraries/moonhash/moonhash_sha3.c	Tue Aug 15 20:47:55 2017 +0200
+++ b/libraries/moonhash/moonhash_sha3.c	Tue Aug 15 21:00:51 2017 +0200
@@ -40,10 +40,13 @@
         /*ι*/ FOR(j,7) if (LFSR86540(&R)) XL(0,0,(u64)1<<((1<<j)-1));
     }
 }
+static void KeccakF1600Init(u8 *s, ui R, const u8 *in, u64 inLen, u8 sfx) {
+    /*initialize*/ ui i,b=0; FOR(i,200) s[i]=0;
+    /*absorb*/ while(inLen>0) { b=(inLen<R)?inLen:R; FOR(i,b) s[i]^=in[i]; in+=b; inLen-=b; if (b==R) { KeccakF1600(s); b=0; } }
+    /*pad*/ s[b]^=sfx; if((sfx&0x80)&&(b==(R-1))) KeccakF1600(s); s[R-1]^=0x80; KeccakF1600(s);
+}
 static void Keccak(ui r, ui c, const u8 *in, u64 inLen, u8 sfx, u8 *out, u64 outLen)
 {
-    /*initialize*/ u8 s[200]; ui R=r/8; ui i,b=0; FOR(i,200) s[i]=0;
-    /*absorb*/ while(inLen>0) { b=(inLen<R)?inLen:R; FOR(i,b) s[i]^=in[i]; in+=b; inLen-=b; if (b==R) { KeccakF1600(s); b=0; } }
-    /*pad*/ s[b]^=sfx; if((sfx&0x80)&&(b==(R-1))) KeccakF1600(s); s[R-1]^=0x80; KeccakF1600(s);
+    /*initialize*/ u8 s[200]; ui R=r/8; ui i,b; KeccakF1600Init(s, R, in, inLen, sfx);
     /*squeeze*/ while(outLen>0) { b=(outLen<R)?outLen:R; FOR(i,b) out[i]=s[i]; out+=b; outLen-=b; if(outLen>0) KeccakF1600(s); }
 }