// Built-in utility functions

#pragma once

#include <assert.h>
#include <err.h>
#include <stdbool.h>
#include <string.h>

#define streq(a, b) (((a) == NULL && (b) == NULL) || (((a) == NULL) == ((b) == NULL) && strcmp(a, b) == 0))
#define starts_with(line, prefix) (strncmp(line, prefix, strlen(prefix)) == 0)
#define ends_with(line, suffix)                                                                                        \
    (strlen(line) >= strlen(suffix) && strcmp(line + strlen(line) - strlen(suffix), suffix) == 0)
#define check_initialized(var, init_var, name)                                                                         \
    *({                                                                                                                \
        if (!init_var) fail("The variable " name " is being accessed before it has been initialized!");                \
        &var;                                                                                                          \
    })

#define WHEN(type, subj, var, body)                                                                                    \
    {                                                                                                                  \
        type var = subj;                                                                                               \
        switch (var.$tag)                                                                                              \
            body                                                                                                       \
    }

#ifndef public
#define public __attribute__((visibility("default")))
#endif

#ifndef PUREFUNC
#define PUREFUNC __attribute__((pure))
#endif

#ifndef CONSTFUNC
#define CONSTFUNC __attribute__((const))
#endif

#ifndef INLINE
#define INLINE inline __attribute__((always_inline))
#endif

#ifndef likely
#define likely(x) (__builtin_expect(!!(x), 1))
#endif

#ifndef unlikely
#define unlikely(x) (__builtin_expect(!!(x), 0))
#endif

// GCC lets you define macro-like functions which are always inlined and never
// compiled using this combination of flags. See: https://gcc.gnu.org/onlinedocs/gcc/Inline.html
#ifndef MACROLIKE
#ifdef __TINYC__
#define MACROLIKE static inline __attribute__((gnu_inline, always_inline))
#else
#define MACROLIKE extern inline __attribute__((gnu_inline, always_inline))
#endif
#endif

#ifndef GC_MALLOC
extern void *GC_malloc(size_t);
#define GC_MALLOC GC_malloc
#define heap(x) (__typeof(x) *)memcpy(GC_malloc(sizeof(x)), (__typeof(x)[1]){x}, sizeof(x))
#define stack(x) (__typeof(x) *)((__typeof(x)[1]){x})
#endif