/*
 * Copyright (C) 2022 - 2026, Stephan Mueller <smueller@chronox.de>
 *
 * License: see LICENSE file in root directory
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, ALL OF
 * WHICH ARE HEREBY DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
 * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
 * USE OF THIS SOFTWARE, EVEN IF NOT ADVISED OF THE POSSIBILITY OF SUCH
 * DAMAGE.
 */

#include "ext_headers_internal.h"
#include "lc_dilithium.h"
#include "lc_sha3.h"
#include "ret_checkers.h"
#include "small_stack_support.h"
#include "visibility.h"

#ifdef LC_DILITHIUM_TYPE_65
#define DILITHIUM_TYPE LC_DILITHIUM_65
#elif defined(LC_DILITHIUM_TYPE_44)
#define DILITHIUM_TYPE LC_DILITHIUM_44
#else
#define DILITHIUM_TYPE LC_DILITHIUM_87
#endif

static int dilithium_iuf_tester_official(struct lc_dilithium_ed25519_ctx *ctx)
{
	struct workspace {
		struct lc_dilithium_ed25519_sk sk;
		struct lc_dilithium_ed25519_pk pk;
		struct lc_dilithium_ed25519_sig sig;
		uint8_t msg[10];
	};

	LC_DECLARE_MEM(ws, struct workspace, sizeof(uint64_t));
	int ret = 0;

	CKINT(lc_dilithium_ed25519_keypair(&ws->pk, &ws->sk, lc_seeded_rng,
					   DILITHIUM_TYPE));

	/* Stream operation */
	CKINT_LOG(lc_dilithium_ed25519_sign_init(ctx, &ws->sk),
		  "Sign init failed - ret %d\n", ret);
	CKINT_LOG(lc_dilithium_ed25519_sign_update(ctx, ws->msg,
						   sizeof(ws->msg)),
		  "Sign update failed - ret %d\n", ret);
	CKINT_LOG(lc_dilithium_ed25519_sign_final(&ws->sig, ctx, &ws->sk,
						  lc_seeded_rng),
		  "Sign final failed - ret %d\n", ret);

	CKINT_LOG(lc_dilithium_ed25519_verify_init(ctx, &ws->pk),
		  "Verify init failed - ret %d\n", ret);
	CKINT_LOG(lc_dilithium_ed25519_verify_update(ctx, ws->msg,
						     sizeof(ws->msg)),
		  "Verify update failed - ret %d\n", ret);
	CKINT_LOG(lc_dilithium_ed25519_verify_final(&ws->sig, ctx, &ws->pk),
		  "Signature verification stream operation fialed - ret: %d\n",
		  ret);

out:
	LC_RELEASE_MEM(ws);
	return ret;
}

static int dilithium_tester_official(void)
{
	struct workspace {
		struct lc_dilithium_ed25519_sk sk;
		struct lc_dilithium_ed25519_pk pk;
		struct lc_dilithium_ed25519_sig sig;
		uint8_t msg[10];
	};
	LC_DECLARE_MEM(ws, struct workspace, sizeof(uint64_t));
	int ret = 0;

	/* One-shot */
	CKINT(lc_dilithium_ed25519_keypair(&ws->pk, &ws->sk, lc_seeded_rng,
					   DILITHIUM_TYPE));
	CKINT(lc_dilithium_ed25519_sign(&ws->sig, ws->msg, sizeof(ws->msg),
					&ws->sk, lc_seeded_rng));
	CKINT(lc_dilithium_ed25519_verify(&ws->sig, ws->msg, sizeof(ws->msg),
					  &ws->pk));

out:
	LC_RELEASE_MEM(ws);
	return ret;
}

LC_TEST_FUNC(int, main, int argc, char *argv[])
{
	struct lc_dilithium_ed25519_ctx *ctx_heap = NULL;
	int ret;
	LC_DILITHIUM_ED25519_CTX_ON_STACK(ctx);

	(void)argc;
	(void)argv;

	CKINT(lc_dilithium_ed25519_ctx_alloc(&ctx_heap));

	CKINT_LOG(dilithium_tester_official(), "Official stack\n");
	CKINT_LOG(dilithium_iuf_tester_official(ctx), "Official IUT\n");
	CKINT_LOG(dilithium_iuf_tester_official(ctx_heap), "Official heap\n");

out:
	lc_dilithium_ed25519_ctx_zero(ctx);
	lc_dilithium_ed25519_ctx_zero_free(ctx_heap);
	return -ret;
}
