#pragma option -zCM4_RENDER_TEXT

#include <stddef.h>
#include "libs/master.lib/master.hpp"
#include "th04/resident.hpp"
#include "th04/formats/dialog.hpp"

void pascal near dialog_load(const char *fn)
{
	size_t size;

	// While hmem_free() isn't specified to perform a nullptr check, it does in
	// practice. So while this is *technically* fine, it's not the cleanest
	// solution. Fixed in TH05.
	// PORTERS: See the note in dialog_free() – and maybe just call that
	// function instead, then.
	hmem_free(reinterpret_cast<void __seg *>(dialog_p));

	file_ropen(fn);
	size = file_size();
	dialog_p = reinterpret_cast<unsigned char far *>(hmem_allocbyte(size));
	file_read(dialog_p, size);
	file_close();
}

void near dialog_load(void)
{
	#define fn dialog_fn
	extern char *fn;
	dialog_fn[3] = resident->playchar_ascii;
	dialog_fn[4] = resident->stage_ascii;
	dialog_load(dialog_fn);
	#undef fn
}

void dialog_load_yuuka5_defeat_bad(void)
{
	#define fn dialog_fn_yuuka5_defeat_bad
	extern char *fn;
	fn[3] = resident->playchar_ascii;
	dialog_load(fn);
	#undef fn
}

void near dialog_free(void)
{
	if(dialog_p) {
		// PORTERS: Relies on `far` pointer semantics, specifically on the
		// segment part still being identical to what hmem_allocbyte()
		// returned. You'll need to introduce a separate "dialog buffer base
		// pointer" when porting to flat memory models.
		hmem_free(reinterpret_cast<void __seg *>(dialog_p));
		dialog_p = nullptr;
	}
}