// Copyright (c) 2023 - 2026 kio@little-bat.de
// BSD-2-Clause license
// https://opensource.org/licenses/BSD-2-Clause

#include "glue.h"
#include "common/cdefs.h"
#include "common/malloc.h"
#include "common/trace.h"
#ifdef PICO
  #include <stdio.h>
#else
  #include "pico_hw/Interp.h"
  #include "usb_host/hid_handler.h"
  #include <cstdarg>
  #include <cstdio>
  #include <ctime>
  #include <unistd.h>
#endif


namespace kilipili
{
volatile int  hot_row = 0;						  // Sprite
SpinLock	  sprites_spinlock(SpinLock::UNUSED); // Sprite
bool		  hotlist_overflow = false;			  // MultiSpritesPlane
uint		  scanlines_missed = 0;				  // VideoController
volatile bool locked_out	   = false;			  // VideoController
} // namespace kilipili


// ========================================================
//					SpinLock
// ========================================================

#ifdef PICO
  #if defined KILIPILI_SPINLOCK_NUMBER

static struct OnInit
{
	OnInit()
	{
		spin_lock_claim(KILIPILI_SPINLOCK_NUMBER);
		spin_lock_init(KILIPILI_SPINLOCK_NUMBER);
	}
} init;

  #endif
#else
SpinLock kilipili_spinlock;
#endif


// ========================================================
//					panic(fmt,…)
// ========================================================

extern char __scratch_x_end__; // set by linker
extern char __scratch_y_end__; // set by linker

namespace kilipili
{
void __noreturn __printflike(1, 2) panic(const char* fmt, ...)
{
	printf("\n*** <PANIC> ***\ncore: %u\n", get_core_num());

	if (fmt)
	{
		va_list args;
		va_start(args, fmt);
		vprintf(fmt, args);
		va_end(args);
		putchar('\n');
	}

#ifdef PICO
	char tmp;
	ptr	 stack_bottom = get_core_num() ? &__scratch_x_end__ : &__scratch_y_end__;

	print_trace();
	printf("stack free = %i\n", int(&tmp) - int(stack_bottom));
	cstr s = check_heap();
	printf("heap: %s\n", s ? s : "valid");
	dump_heap();
	for (;;); //_exit(1); --> HARDFAULT_EXCEPTION
#else
	print_trace();
	abort();
#endif
}
} // namespace kilipili


// ========================================================
//					malloc.c stubs
// ========================================================

__weak_symbol bool	 mresize(void* mem, size_t size) { return false; }
__weak_symbol cstr	 check_heap() { return NO_ERROR; }
__weak_symbol void	 dump_heap() {}
__weak_symbol void	 dump_heap_to_fu(dump_heap_print_fu*, void* data) {}
__weak_symbol size_t heap_total_size() { return 99000000; }
__weak_symbol size_t heap_largest_free_block() { return 99000000; }
__weak_symbol bool	 heap_cut_exception_block() { return false; }


// ========================================================
//					other stubs
// ========================================================

#ifndef PICO

thread_local uint		 core_num;
thread_local interp_hw_t interp_hw_array[2];

// overridden by emulator:
void __weak_symbol stdio_init_all() {}
int __weak_symbol  stdio_getchar_timeout_us(uint32) { return -1; }


namespace kilipili::USB
{
void initUSBHost() noexcept {}
int	 pollUSB(void*) noexcept { return 0; }
bool keyboardPresent() noexcept { return false; }
bool mousePresent() noexcept { return false; }
// for unknown reason the linker insists on these symbols:
void setHidMouseEventHandler(HidMouseEventHandler* handler) noexcept { IERR(); }
void setHidKeyboardEventHandler(HidKeyboardEventHandler* handler) noexcept { IERR(); }
} // namespace kilipili::USB

// these are also in unit_test/Mock/MockFlash.cpp:
void __weak_symbol flash_range_erase(uint32 flash_offs, uint32 count) { TODO(); }
void __weak_symbol flash_range_program(uint32 flash_offs, const uint8* data, uint32 count) { TODO(); }


#endif