/*
 * Copyright (C) 2017 OTA keys S.A.
 *               2021 Otto-von-Guericke-Universität Magdeburg
 *
 * This file is subject to the terms and conditions of the GNU Lesser
 * General Public License v2.1. See the file LICENSE in the top level
 * directory for more details.
 */

/**
 * @ingroup tests
 * @{
 *
 * @file
 * @brief Thread test application
 *
 * @author Vincent Dupont <vincent@otakeys.com>
 * @author Marian Buschsieweke <marian.buschsieweke@ovgu.de>
 *
 * @}
 */

#include <stdio.h>
#include <string.h>

#include "board.h"
#include "clk.h"
#include "macros/units.h"
#include "msg.h"
#include "periph_conf.h"
#include "thread.h"
#include "time_units.h"
#include "ztimer.h"

static char t1_stack[THREAD_STACKSIZE_MAIN];
static char t2_stack[THREAD_STACKSIZE_MAIN];
static char t3_stack[THREAD_STACKSIZE_MAIN];

static kernel_pid_t p1, p2, p3;

static ztimer_t timer;

static mutex_t lock = MUTEX_INIT;

static void timer_cb(void *arg)
{
    uint32_t *timeout = arg;
    thread_yield();
    ztimer_set(ZTIMER_USEC, &timer, *timeout);
}

static void *thread_1_2_3(void *_arg)
{
    const char *arg = _arg;
    float f, init;

    mutex_lock(&lock);
    printf("THREAD %s start\n", arg);
    mutex_unlock(&lock);

    /* Use number at end of thread name, e.g. 3 for "t3", to seed the calculation */
    init = 1.0 * (arg[strlen(arg) - 1] - '0');
    f = init;

    while (1) {
        for (unsigned long i = 0; i < 10000ul; i++) {
            f = f + 1.0 / f;
        }
        /* only t1 and t3 should print */
        if (strcmp("t2", arg) != 0) {
            mutex_lock(&lock);
            printf("%s: %f\n", arg, (double)f);
            mutex_unlock(&lock);
        }
        f = init;
    }
    return NULL;
}

int main(void)
{
    const char *t1_name = "t1";
    const char *t2_name = "t2";
    const char *t3_name = "t3";

    /* Let's not overwhelm boards by firing IRQs faster than they can handle and
     * give them 50 billion CPU cycles per timeout.
     *
     * (Note: The `static` is required as this variable will be accessed from
     * the ISR, which will occur even after the main thread has exited.) */
    static uint32_t timeout = 0;
    /* Note: It must be initialized dynamically, as coreclk() is not
     * constant. */
    timeout = 50000000000U / coreclk();

    p1 = thread_create(t1_stack, sizeof(t1_stack), THREAD_PRIORITY_MAIN + 1,
                       THREAD_CREATE_WOUT_YIELD | THREAD_CREATE_STACKTEST,
                       thread_1_2_3, (void *)t1_name, t1_name);
    p2 = thread_create(t2_stack, sizeof(t2_stack), THREAD_PRIORITY_MAIN + 1,
                       THREAD_CREATE_WOUT_YIELD | THREAD_CREATE_STACKTEST,
                       thread_1_2_3, (void *)t2_name, t2_name);
    p3 = thread_create(t3_stack, sizeof(t3_stack), THREAD_PRIORITY_MAIN + 1,
                       THREAD_CREATE_WOUT_YIELD | THREAD_CREATE_STACKTEST,
                       thread_1_2_3, (void *)t3_name, t3_name);
    puts("THREADS CREATED\n");

    printf("Context switch every %" PRIu32 " µs\n", timeout);

    timer.callback = timer_cb;
    timer.arg = &timeout;
    ztimer_set(ZTIMER_USEC, &timer, timeout);

    return 0;
}