#pragma once

#if GEN_TIME
#include "gen.hpp"
#include "Buffer.Upfront.hpp"

using namespace gen;

Code gen__ring( StrC type )
{
	static CodeType t_allocator_info = def_type( name(AllocatorInfo) );

	String name;
	{
		char const* name_str = str_fmt_buf( "Ring_%s\0", type.Ptr );
		s32         name_len = str_len( name_str );

		name = get_cached_string({ name_len, name_str });
	};

	CodeType t_ring_type     = def_type( name );
	CodeType t_ring_type_ptr = def_type( name, __, spec_ptr );

	CodeType t_type       = def_type( type );
	CodeType t_type_ptr   = def_type( type, __, spec_ptr );
	CodeType t_type_ref   = def_type( type, __, spec_ref );

	CodeType t_buffer_type;
	{
		char const* name_str = str_fmt_buf( "Buffer_%s\0", type.Ptr );
		s32         len      = str_len( name_str );

		t_buffer_type = def_type( { len, name_str } );
	}

	CodeStruct ring = {0};
	{
		CodeUsing using_type = def_using( name(Type), t_type );

		CodeVar backing  = def_variable( t_allocator_info, name(Backing) );
		CodeVar capacity = def_variable( t_uw, name(Capacity) );
		CodeVar head     = def_variable( t_uw, name(Head) );
		CodeVar tail     = def_variable( t_uw, name(Tail) );
		CodeVar buffer   = def_variable( t_buffer_type, name(Buffer) );

		CodeFn init;
		{
			CodeParam params = def_params( args(
				  def_param( t_allocator_info, name(allocator) )
				, def_param( t_uw,             name(max_size) )
			));

			char const* tmpl = stringize(
				<type> result = { 0 };

				result.Backing = allocator;

				result.Buffer = Buffer_<data_type>::init( allocator, max_size + 1 );

				if ( result.Buffer == nullptr )
					return { nullptr };

				result.Capacity = max_size + 1;

				return result;
			);
			Code body = def_execution( token_fmt( "type", (StrC)name, "data_type", type, tmpl ));

			init = def_function( name(init), params, t_ring_type, body, spec_static_member );
		}

		CodeFn append = def_function( name(append), def_param( t_type, name(value)), t_void
			, def_execution( code(
				Buffer[ Head ] = value;
				Head = ( Head + 1 ) % Capacity;

			if ( Head == Tail )
					Tail = ( Tail + 1 ) % Capacity;
			))
		);

		CodeFn appendv;
		{
			CodeParam params = def_params( 2
				, def_param( t_type_ptr, name(values))
				, def_param( t_sw,       name(num))
			);

			Code body = def_execution( code(
				for ( ssize idx = 0; idx < num; idx++ )
					append( values[ idx ] );
			));

			appendv = def_function( name(append), params, t_void, body, spec_inline );
		}

		CodeFn empty = def_function( name(empty), __, t_bool
			, def_execution( code(
				return Head == Tail;
			))
		);

		CodeFn free = def_function( name(free), __, t_void
			, def_execution( code(
				Buffer.free();
			))
		);

		CodeFn full = def_function( name(full), __, t_bool
			, def_execution( code(
				return (Head + 1) % Capacity == Tail;
			))
		);

		CodeFn get = def_function( name(get), __, t_type_ref
			, def_execution( code(
				Type& data = Buffer[ Tail ];
				Tail = ( Tail + 1 ) % Capacity;

				return data;
			))
		);

		CodeFn wipe = def_function( name(wipe), __, t_void
			, def_execution( code(
				Head = 0;
				Tail = 0;
				Buffer.wipe();
			))
		);

		ring = def_struct( name, def_struct_body( args(
			using_type,

			init,

			append,
			appendv,
			empty,
			free,
			full,
			get,
			wipe,

			backing,
			capacity,
			head,
			tail,
			buffer
		)));
	}

	return ring;
}

struct GenRingRequest
{
	StrC Dependency;
	StrC Type;
};
Array<GenRingRequest> GenRingRequests;

void gen__ring_request( StrC type, StrC dep = {} )
{
	do_once_start
		GenRingRequests = Array<GenRingRequest>::init( GlobalAllocator );
	do_once_end

	// Make sure we don't already have a request for the type.
	for ( ssize idx = 0; idx < GenRingRequests.num(); ++idx )
	{
		StrC const reqest_type = GenRingRequests[ idx ].Type;

		if ( reqest_type.Len != type.Len )
			continue;

		if ( str_compare( reqest_type.Ptr, type.Ptr, reqest_type.Len ) == 0 )
			return;
	}

	// Ring definition depends on a array and buffer definition.
	gen__buffer_request( type, dep );

	GenRingRequest request = { dep, type };
	GenRingRequests.append( request );
}
#define gen_ring( type ) gen__ring_request( code(type) )

u32 gen_ring_file()
{
	Builder
	gen_ring_file;
	gen_ring_file.open( "ring.Upfront.gen.hpp" );

	gen_ring_file.print( def_include( txt("gen.hpp")) );
	gen_ring_file.print( def_include( txt("buffer.Upfront.gen.hpp")) );

	gen_ring_file.print( def_using_namespace( name(gen)));

	GenRingRequest* current = GenRingRequests;
	s32 left = GenRingRequests.num();
	while (left--)
	{
		GenRingRequest const& request = * current;

		Code generated_ring = gen__ring( current->Type );

		if ( request.Dependency )
		{
			char const* cmt_str = str_fmt_buf( "// Dependency for %s type", request.Type );
			s32         cmt_len = str_len( cmt_str );

			Code cmt     = def_comment( { cmt_len, cmt_str } );
			Code include = def_include( request.Dependency );

			gen_ring_file.print( cmt );
			gen_ring_file.print( include );
		}

		gen_ring_file.print( generated_ring );
		current++;
	}

	gen_ring_file.write();
	return 0;
}

#endif // GEN_TIME