#include <stdint.h>
#include <string.h>

#include "address.h"
#include "hash_state.h"
#include "params.h"
#include "thash.h"

#include "haraka.h"

/**
 * Takes an array of inblocks concatenated arrays of PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N bytes.
 */
static void PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash(
    unsigned char *out, unsigned char *buf,
    const unsigned char *in, unsigned int inblocks,
    const unsigned char *pub_seed, uint32_t addr[8],
    const hash_state *hash_state_seeded) {

    unsigned char *bitmask = buf + PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES;
    unsigned char outbuf[32];
    unsigned char buf_tmp[64];
    unsigned int i;

    (void)pub_seed; /* Suppress an 'unused parameter' warning. */

    if (inblocks == 1) {
        /* F function */
        /* Since PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N may be smaller than 32, we need a temporary buffer. */
        memset(buf_tmp, 0, 64);
        PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_addr_to_bytes(buf_tmp, addr);

        PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_haraka256(outbuf, buf_tmp, hash_state_seeded);
        for (i = 0; i < inblocks * PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N; i++) {
            buf_tmp[PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES + i] = in[i] ^ outbuf[i];
        }
        PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_haraka512(outbuf, buf_tmp, hash_state_seeded);
        memcpy(out, outbuf, PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N);
    } else {
        /* All other tweakable hashes*/
        PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_addr_to_bytes(buf, addr);
        PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_haraka_S(
            bitmask, inblocks * PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N, buf, PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES, hash_state_seeded);

        for (i = 0; i < inblocks * PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N; i++) {
            buf[PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES + i] = in[i] ^ bitmask[i];
        }

        PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_haraka_S(
            out, PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N, buf, PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES + inblocks * PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N, hash_state_seeded);
    }
}

/* The wrappers below ensure that we use fixed-size buffers on the stack */

void PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash_1(
    unsigned char *out, const unsigned char *in,
    const unsigned char *pub_seed, uint32_t addr[8],
    const hash_state *hash_state_seeded) {

    unsigned char buf[PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES + 1 * PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N];
    PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash(
        out, buf, in, 1, pub_seed, addr, hash_state_seeded);
}

void PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash_2(
    unsigned char *out, const unsigned char *in,
    const unsigned char *pub_seed, uint32_t addr[8],
    const hash_state *hash_state_seeded) {

    unsigned char buf[PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES + 2 * PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N];
    PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash(
        out, buf, in, 2, pub_seed, addr, hash_state_seeded);
}

void PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash_WOTS_LEN(
    unsigned char *out, const unsigned char *in,
    const unsigned char *pub_seed, uint32_t addr[8],
    const hash_state *hash_state_seeded) {

    unsigned char buf[PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES + PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_WOTS_LEN * PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N];
    PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash(
        out, buf, in, PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_WOTS_LEN, pub_seed, addr, hash_state_seeded);
}

void PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash_FORS_TREES(
    unsigned char *out, const unsigned char *in,
    const unsigned char *pub_seed, uint32_t addr[8],
    const hash_state *hash_state_seeded) {

    unsigned char buf[PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_ADDR_BYTES + PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_FORS_TREES * PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_N];
    PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_thash(
        out, buf, in, PQCLEAN_SPHINCSHARAKA192SROBUST_CLEAN_FORS_TREES, pub_seed, addr, hash_state_seeded);
}
