#include <math.h>
#include <stdlib.h>
#include <time.h>

#include "til.h"
#include "til_fb.h"
#include "til_util.h"

/* Copyright (C) 2019 - Vito Caputo <vcaputo@pengaru.com> */

typedef struct montage_context_t {
	const til_module_t	**modules;
	void			**contexts;
	size_t			n_modules;
} montage_context_t;

static void setup_next_module(montage_context_t *ctxt);
static void * montage_create_context(unsigned ticks, unsigned num_cpus, til_setup_t *setup);
static void montage_destroy_context(void *context);
static void montage_prepare_frame(void *context, unsigned ticks, unsigned n_cpus, til_fb_fragment_t *fragment, til_fragmenter_t *res_fragmenter);
static void montage_render_fragment(void *context, unsigned ticks, unsigned cpu, til_fb_fragment_t *fragment);


til_module_t	montage_module = {
	.create_context = montage_create_context,
	.destroy_context = montage_destroy_context,
	.prepare_frame = montage_prepare_frame,
	.render_fragment = montage_render_fragment,
	.name = "montage",
	.description = "Rototiller montage (threaded)",
};


static void * montage_create_context(unsigned ticks, unsigned num_cpus, til_setup_t *setup)
{
	const til_module_t	**modules, *rtv_module, *compose_module;
	size_t			n_modules;
	montage_context_t	*ctxt;

	ctxt = calloc(1, sizeof(montage_context_t));
	if (!ctxt)
		return NULL;

	til_get_modules(&modules, &n_modules);

	ctxt->modules = calloc(n_modules, sizeof(til_module_t *));
	if (!ctxt->modules) {
		free(ctxt);

		return NULL;
	}

	rtv_module = til_lookup_module("rtv");
	compose_module = til_lookup_module("compose");

	for (size_t i = 0; i < n_modules; i++) {
		const til_module_t	*module = modules[i];

		if (module == &montage_module ||	/* prevents recursion */
		    module == rtv_module ||		/* also prevents recursion, rtv can run montage */
		    module == compose_module)		/* also prevents recursion, compose can run montage */
			continue;

							/* XXX FIXME: there's another recursive problem WRT threaded
							 * rendering; even if rtv or compose don't run montage, they
							 * render threaded modules in a threaded fashion, while montage
							 * is already performing a threaded render, and the threaded
							 * rendering api isn't reentrant like that so things get hung
							 * when montage runs e.g. compose with a layer using a threaded
							 * module.  It's something to fix eventually, maybe just make
							 * the rototiler_module_render() function detect nested renders
							 * and turn nested threaded renders into synchronous renders.
							 * For now montage will just skip nested rendering modules.
							 */

		ctxt->modules[ctxt->n_modules++] = module;
	}

	ctxt->contexts = calloc(ctxt->n_modules, sizeof(void *));
	if (!ctxt->contexts) {
		free(ctxt);

		return NULL;
	}

	for (size_t i = 0; i < ctxt->n_modules; i++) {
		const til_module_t	*module = ctxt->modules[i];
		til_setup_t		*setup = NULL;

		(void) til_module_randomize_setup(module, &setup, NULL);

		if (module->create_context)	/* FIXME errors */
			ctxt->contexts[i] = module->create_context(ticks, 1, setup);

		til_setup_free(setup);
	}

	return ctxt;
}


static void montage_destroy_context(void *context)
{
	montage_context_t	*ctxt = context;

	for (int i = 0; i < ctxt->n_modules; i++)
		til_module_destroy_context(ctxt->modules[i], ctxt->contexts[i]);

	free(ctxt->contexts);
	free(ctxt->modules);
	free(ctxt);
}



/* this is a hacked up derivative of til_fb_fragment_tile_single() */
static int montage_fragment_tile(const til_fb_fragment_t *fragment, unsigned tile_width, unsigned tile_height, unsigned number, til_fb_fragment_t *res_fragment)
{
	unsigned	w = fragment->width / tile_width, h = fragment->height / tile_height;
	unsigned	x, y, xoff, yoff;

#if 0
	/* total coverage isn't important in montage, leave blank gaps */
	/* I'm keeping this here for posterity though and to record a TODO:
	 * it might be desirable to try center the montage when there must be gaps,
	 * rather than letting the gaps always fall on the far side.
	 */
	if (w * tile_width < fragment->width)
		w++;

	if (h * tile_height < fragment->height)
		h++;
#endif

	y = number / w;
	if (y >= h)
		return 0;

	x = number - (y * w);

	xoff = x * tile_width;
	yoff = y * tile_height;

	res_fragment->buf = fragment->buf + (yoff * fragment->pitch) + xoff;
	res_fragment->x = 0;					/* fragment is a new frame */
	res_fragment->y = 0;					/* fragment is a new frame */
	res_fragment->width = MIN(fragment->width - xoff, tile_width);
	res_fragment->height = MIN(fragment->height - yoff, tile_height);
	res_fragment->frame_width = res_fragment->width;	/* fragment is a new frame */
	res_fragment->frame_height = res_fragment->height;	/* fragment is a new frame */
	res_fragment->stride = fragment->stride + (fragment->width - res_fragment->width);
	res_fragment->pitch = fragment->pitch;
	res_fragment->number = number;
	res_fragment->cleared = fragment->cleared;

	return 1;
}


/* The fragmenter in montage is serving double-duty:
 * 1. it divides the frame into subfragments for threaded rendering
 * 2. it determines which modules will be rendered where via fragment->number
 */
static int montage_fragmenter(void *context, unsigned n_cpus, const til_fb_fragment_t *fragment, unsigned number, til_fb_fragment_t *res_fragment)
{
	montage_context_t	*ctxt = context;
	float			root = sqrtf(ctxt->n_modules);
	unsigned		tile_width = fragment->frame_width / ceilf(root);	/* screens are wide, always give excess to the width */
	unsigned		tile_height = fragment->frame_height / rintf(root);	/* only give to the height when fraction is >= .5f */
	int			ret;

	/* XXX: this could all be more clever and make some tiles bigger than others to deal with fractional square roots,
	 * but this is good enough for now considering the simplicity.
	 */
	ret = montage_fragment_tile(fragment, tile_width, tile_height, number, res_fragment);
	if (!ret)
		return 0;

	return ret;
}



static void montage_prepare_frame(void *context, unsigned ticks, unsigned n_cpus, til_fb_fragment_t *fragment, til_fragmenter_t *res_fragmenter)
{
	montage_context_t	*ctxt = context;

	*res_fragmenter = montage_fragmenter;
}


static void montage_render_fragment(void *context, unsigned ticks, unsigned cpu, til_fb_fragment_t *fragment)
{
	montage_context_t	*ctxt = context;
	const til_module_t	*module = ctxt->modules[fragment->number];

	if (fragment->number >= ctxt->n_modules) {
		til_fb_fragment_clear(fragment);

		return;
	}

	/* since we're *already* in a threaded render of tiles, no further
	 * threading within the montage tiles is desirable, so the per-module
	 * render is done explicitly serially here in an open-coded ad-hoc
	 * fashion for now. FIXME TODO: move this into rototiller.c
	 */
	if (module->prepare_frame) {
		til_fragmenter_t	fragmenter;
		unsigned		fragnum = 0;
		til_fb_fragment_t	frag;

		module->prepare_frame(ctxt->contexts[fragment->number], ticks, 1, fragment, &fragmenter);

		while (fragmenter(ctxt->contexts[fragment->number], 1, fragment, fragnum++, &frag))
			module->render_fragment(ctxt->contexts[fragment->number], ticks, fragnum, &frag);
	} else if (module->render_fragment)
			module->render_fragment(ctxt->contexts[fragment->number], ticks, 0, fragment);
}