/*
 * Copyright 2017, Data61
 * Commonwealth Scientific and Industrial Research Organisation (CSIRO)
 * ABN 41 687 119 230.
 *
 * This software may be distributed and modified according to the terms of
 * the BSD 2-Clause license. Note that NO WARRANTY is provided.
 * See "LICENSE_BSD2.txt" for details.
 *
 * @TAG(DATA61_BSD)
 */

#include <assert.h>
#include <sel4/sel4.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <camkes/pid.h>
#include <camkes/tls.h>
#include <utils/util.h>

static void sel4_abort(void)
{
    /* Suspend ourselves. This will cap fault if a setup routine has not saved
     * our TCB cap in the TLS region.
     */
    seL4_TCB_Suspend(camkes_get_tls()->tcb_cap);

    /* We expect to never be woken up. */
    while (1); /* Shut the compiler up about noreturn. */
}

long camkes_sys_exit(va_list ap UNUSED)
{
    abort();
    return 0;
}

long camkes_sys_gettid(va_list ap UNUSED)
{
    return (long)camkes_get_tls()->thread_index;
}

long camkes_sys_getpid(va_list ap UNUSED)
{
    return (long)camkes_pid;
}

long camkes_sys_getppid(va_list ap UNUSED)
{
    /* We consider the CapDL initialiser to have PID 1 and to be the parent of all component
     * instances.
     */
    return 1L;
}

long camkes_sys_tgkill(va_list ap UNUSED)
{
    sel4_abort();
    return 0;
}

long camkes_sys_tkill(va_list ap UNUSED)
{
    sel4_abort();
    return 0;
}