// 12 january 2020
#include "uipriv_haiku.hpp"

uiprivApplication *uiprivApp;

// TODO add format string warning detection to all these functions, where available
// TODO also see if we can convert this to a string, or use a known type for status_t instead of assuming it's int(32_t)
#define uiprivInitReturnStatus(err, msg, status) uiprivInitReturnErrorf(err, "%s: %ld", msg, status)

static thread_id mainThread;

bool uiprivSysInit(void *options, uiInitError *err)
{
	status_t status;

	uiprivApp = new uiprivApplication("application/libui.TODO", &status);
	if (status != B_OK)
		return uiprivInitReturnStatus(err, "error creating BApplication", status);
	mainThread = find_thread(NULL);
	return true;
}

void uiMain(void)
{
	if (!uiprivCheckInitializedAndThread())
		return;
	uiprivApp->Run();
}

// TODO if this is called beofre uiMain(), uiprivApp will be deleted; either ban doing this outright or catch this scenario
void uiQuit(void)
{
	if (!uiprivCheckInitializedAndThread())
		return;
	uiprivApp->Quit();
}

struct queueMainArgs {
	void (*f)(void *data);
	void *data;
};

void uiprivApplication::MessageReceived(BMessage *msg)
{
	const void *data;
	const struct queueMainArgs *args;
	ssize_t size;
	status_t status;

	switch (msg->what) {
	case uiprivMsgQueueMain:
		status = msg->FindData("args", B_ANY_TYPE,
			&data, &size);
		if (status != B_OK)
			uiprivInternalError("BMessage::FindData() failed in uiprivApplication::MessageReceived() for uiQueueMain(): %ld", status);
		args = (const struct queueMainArgs *) data;
		(*(args->f))(args->data);
		delete msg;
		return;
	}
	BApplication::MessageReceived(msg);
}

void uiprivSysQueueMain(void (*f)(void *data), void *data)
{
	BMessage *msg;
	struct queueMainArgs args;
	status_t status;

	args.f = f;
	args.data = data;
	msg = new BMessage(uiprivMsgQueueMain);
	status = msg->AddData("args", B_RAW_TYPE,
		&args, sizeof (struct queueMainArgs), true, 1);
	if (status != B_OK)
		// TODO decide if we should just give up in this case like we do with user errors
		uiprivInternalError("BMessage::AddData() failed in uiQueueMain(): %ld", status);
	status = uiprivApp->PostMessage(msg);
	if (status != B_OK)
		uiprivInternalError("BApplication::PostMessage() failed in uiQueueMain(): %ld", status);
}

bool uiprivSysCheckThread(void)
{
	return find_thread(NULL) == mainThread;
}

void uiprivReportError(const char *prefix, const char *msg, const char *suffix, bool internal)
{
	fprintf(stderr, "*** %s: %s. %s\n", prefix, msg, suffix);
	debugger("TODO");
	abort();		// we shouldn't reach here
}