#include <inttypes.h>
#include <stdio.h>

#include "tweakey.h"


#define ARRAY_NB(A) (sizeof(A)/sizeof(A[0]))
#define ARRAY_END(A) (A+ARRAY_NB(A))


#define ROUNDS 32


struct vector_input
{
    char * name;
    uint8_t key[KEY_BYTES];
    uint8_t tweak[TWEAK_BYTES];
};

typedef struct vector_input vector_input;


/* [0]: LSB */


vector_input VECTORS[] = {
    {
        .name = "full",
        .tweak = {
            0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
            0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
            0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
        },
        .key = {
            0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
            0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
        }
    },
    {
        .name = "null",
        .tweak = {
            0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
            0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
            0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
        },
        .key = {
            0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
            0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
        }
    },
    {
        .name = "order",
        .tweak = {
            0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
            0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
            0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17
        },
        .key = {
            0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
            0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f
        }
    },
    {
        .name = "random",
        .tweak = {
            0xa8, 0x43, 0xf3, 0x10, 0x81, 0x11, 0x1c, 0x84,
            0xdf, 0xf8, 0x2e, 0xfa, 0x90, 0x90, 0x26, 0x21,
            0x7d, 0x8d, 0x43, 0x12, 0x2a, 0xb3, 0xd2, 0x4d
        },
        .key = {
            0xc1, 0x96, 0xc6, 0x0a, 0x02, 0x73, 0x91, 0x68,
            0x7f, 0xf4, 0x23, 0x4d, 0x3d, 0xd5, 0xf9, 0x9b
        }
    }
};


FILE* open_dump_file(const char *folder, const char *name)
{
    char filename[128];
    snprintf(filename, sizeof(filename), "%s/tweakey_%s.txt", folder, name);
    return fopen(filename, "w");
}


int main(int argc, char const * const *argv)
{
    if (argc < 2)
    {
        fprintf(stderr, "usage: %s OUTPUT-FOLDER\n", argv[0]);
        return 1;
    }

    for (vector_input* input=VECTORS; input<ARRAY_END(VECTORS); input++) 
    {
        printf("%s\n", input->name);
        FILE* dump = open_dump_file(argv[1], input->name);

        fprintf(dump, "Building Tweakey :\n");

        tweakey_state tk;
        tweakey_state_init(&tk, input->key, input->tweak, dump);

        fprintf(dump, "Tweakey Schedule\n");

        uint8_t rtk[ROUND_TWEAKEY_BYTES];
        tweakey_state_extract(&tk, rtk, 0);

        for (uint8_t i=1; i<ROUNDS; i++)
        {
            fprintf(dump, "     Round Tweakey  %"PRIu8"\n", i);
            tweakey_state_update(&tk);
            tweakey_state_extract(&tk, rtk, i);
        }

        fclose(dump);
    }
}