/*
 * Copyright 2004, Axel Dörfler, axeld@pinc-software.de.
 * Copyright 2010 Andreas Färber <andreas.faerber@web.de>
 * All rights reserved. Distributed under the terms of the MIT License.
 */


#include <boot/platform.h>
#include <boot/stage2.h>
#include <boot/platform/generic/text_console.h>
#include <boot/platform/generic/video.h>
#include <edid.h>
#include <platform/openfirmware/openfirmware.h>


//#define TRACE_VIDEO


static intptr_t sScreen;


void
platform_blit4(addr_t frameBuffer, const uint8 *data,
	uint16 width, uint16 height, uint16 imageWidth, uint16 left, uint16 top)
{
	panic("platform_blit4(): not implemented\n");
}


extern "C" void
platform_set_palette(const uint8 *palette)
{
	switch (gKernelArgs.frame_buffer.depth) {
		case 8:
			if (of_call_method(sScreen, "set-colors", 3, 0,
					256, 0, palette) == OF_FAILED) {
				for (int index = 0; index < 256; index++) {
					of_call_method(sScreen, "color!", 4, 0, index,
						palette[index * 3 + 2],
						palette[index * 3 + 1],
						palette[index * 3 + 0]);
				}
			}
			break;
		default:
			break;
	}
}


extern "C" void
platform_switch_to_logo(void)
{
	// in debug mode, we'll never show the logo
	if ((platform_boot_options() & BOOT_OPTION_DEBUG_OUTPUT) != 0)
		return;

	sScreen = of_open("screen");
	if (sScreen == OF_FAILED)
		return;

	intptr_t package = of_instance_to_package(sScreen);
	if (package == OF_FAILED)
		return;
	uintptr_t width, height;
	if (of_call_method(sScreen, "dimensions", 0, 2, &height, &width)
			== OF_FAILED) {
		if (of_getprop(package, "width", &width, sizeof(int32)) == OF_FAILED)
			return;
		if (of_getprop(package, "height", &height, sizeof(int32)) == OF_FAILED)
			return;
	}
	uint32 depth;
	if (of_getprop(package, "depth", &depth, sizeof(uint32)) == OF_FAILED)
		return;
	uint32 lineBytes;
	if (of_getprop(package, "linebytes", &lineBytes, sizeof(uint32))
			== OF_FAILED)
		return;
	uint32 address;
		// address is always 32 bit
	if (of_getprop(package, "address", &address, sizeof(uint32)) == OF_FAILED)
		return;
	gKernelArgs.frame_buffer.physical_buffer.start = address;
	gKernelArgs.frame_buffer.physical_buffer.size = lineBytes * height;
	gKernelArgs.frame_buffer.width = width;
	gKernelArgs.frame_buffer.height = height;
	gKernelArgs.frame_buffer.depth = depth;
	gKernelArgs.frame_buffer.bytes_per_row = lineBytes;

	// Move text to top of display so we don't scroll the boot logo out as soon
	// as we display some text
	console_set_cursor(0, 0);

	dprintf("video mode: %ux%ux%u\n", gKernelArgs.frame_buffer.width,
		gKernelArgs.frame_buffer.height, gKernelArgs.frame_buffer.depth);

	gKernelArgs.frame_buffer.enabled = true;

	// the memory will be identity-mapped already
	video_display_splash(gKernelArgs.frame_buffer.physical_buffer.start);
}


extern "C" void
platform_switch_to_text_mode(void)
{
	// nothing to do if we're in text mode
	if (!gKernelArgs.frame_buffer.enabled)
		return;

	// ToDo: implement me

	gKernelArgs.frame_buffer.enabled = false;
}


extern "C" status_t
platform_init_video(void)
{
	gKernelArgs.frame_buffer.enabled = false;

	intptr_t screen = of_finddevice("screen");
	if (screen == OF_FAILED)
		return B_NO_INIT;
	edid1_raw edidRaw;
	if (of_getprop(screen, "EDID", &edidRaw, sizeof(edidRaw)) != OF_FAILED) {
		edid1_info info;
		edid_decode(&info, &edidRaw);
#ifdef TRACE_VIDEO
		edid_dump(&info);
#endif
		gKernelArgs.edid_info = kernel_args_malloc(sizeof(edid1_info));
		if (gKernelArgs.edid_info != NULL)
			memcpy(gKernelArgs.edid_info, &info, sizeof(edid1_info));
	}

	return B_OK;
}