#ifdef INTELLISENSE_DIRECTIVES
#pragma once
#include "gen/etoktype.hpp"
#include "interface.upfront.cpp"
#include "lexer.cpp"
#include "parser.cpp"
#endif

// Publically Exposed Interface

ParseInfo wip_parse_str(LexedInfo lexed, ParseOpts* opts)
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	ParseInfo info = struct_zero(ParseInfo);

	if (lexed.tokens.num == 0 && lexed.tokens.ptr == nullptr) {
		ctx->parser = struct_zero(ParseContext);
		if (check_parse_args(lexed.text) == false) {
			info.messages = ctx->parser.messages;
			goto done;
		}
		lexed = lex(ctx, lexed.text);
	}
	info.lexed = lexed;

	// TODO(Ed): ParseInfo should be set to the parser context.

	ctx->parser = struct_zero(ParseContext);
	ctx->parser.tokens = lexed.tokens;

	{
	ParseStackNode scope = NullScope;
	parser_push(& ctx->parser, & scope);

	CodeBody result = parse_global_nspace(ctx,CT_Global_Body);
	(void)result;

	parser_pop(& ctx->parser);
	}
done:
	return info;
}

CodeClass parse_class( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeClass result = InvalidCode;
	LexedInfo lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	{
	ParseStackNode scope = NullScope;
	parser_push(& ctx->parser, & scope);
	result = (CodeClass) parse_class_struct( ctx, Tok_Decl_Class, parser_not_inplace_def );
	parser_pop(& ctx->parser);
	}
done:
	return result;
}

CodeConstructor parse_constructor(Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeConstructor result = InvalidCode;
	LexedInfo lexed = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	{
	ParseStackNode scope = NullScope;
	parser_push(& ctx->parser, & scope);

	// TODO(Ed): Constructors can have prefix attributes

	CodeSpecifiers specifiers = NullCode;
	Specifier      specs_found[ 16 ] = { Spec_NumSpecifiers };
	s32            NumSpecifiers = 0;

	while ( left && tok_is_specifier(currtok) )
	{
		Specifier spec = str_to_specifier( currtok.Text );

		b32 ignore_spec = false;

		switch ( spec )
		{
			case Spec_Constexpr :
			case Spec_Explicit:
			case Spec_Inline :
			case Spec_ForceInline :
			case Spec_NeverInline :
				break;

			case Spec_Const :
				ignore_spec = true;
				break;

			default :
				log_failure( "Invalid specifier %s for variable\n%S", spec_to_str( spec ), parser_to_strbuilder(& ctx->parser, ctx->Allocator_Temp) );
				parser_pop(& ctx->parser);
				goto done;
		}

		// Every specifier after would be considered part of the type type signature
		if (ignore_spec)
			break;

		specs_found[ NumSpecifiers ] = spec;
		NumSpecifiers++;
		eat( currtok.Type );
	}

	if ( NumSpecifiers ) {
		specifiers = def_specifiers_arr( NumSpecifiers, specs_found );
		// <specifiers> ...
	}

	result = parser_parse_constructor(ctx, specifiers);
	parser_pop(& ctx->parser);
	}
done:
	return result;
}

CodeDefine parse_define( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeDefine result = InvalidCode;
	LexedInfo  lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	{
	ParseStackNode scope = NullScope;
	parser_push(& ctx->parser, & scope);
	result = parser_parse_define(ctx);
	parser_pop(& ctx->parser);
	}
done:
	return result;
}

CodeDestructor parse_destructor( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeDestructor result = InvalidCode;
	LexedInfo      lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	// TODO(Ed): Destructors can have prefix attributes
	// TODO(Ed): Destructors can have virtual

	result = parser_parse_destructor(ctx, NullCode);
done:
	return result;
}

CodeEnum parse_enum( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeEnum result = InvalidCode;
	LexedInfo lexed = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_enum(ctx, parser_not_inplace_def);
done:
	return result;
}

CodeBody parse_export_body( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeBody result = InvalidCode;
	LexedInfo lexed = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_export_body(ctx);
done:
	return result;
}

CodeExtern parse_extern_link( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeExtern result = InvalidCode;
	LexedInfo  lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_extern_link(ctx);
done:
	return result;
}

CodeFriend parse_friend( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeFriend result = InvalidCode;
	LexedInfo  lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_friend(ctx);
done:
	return result;
}

CodeFn parse_function( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeFn    result = InvalidCode;
	LexedInfo lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = (CodeFn) parser_parse_function(ctx);
done:
	return result;
}

void parse_global_body_base( Context* ctx, Str def, ParseInfo* info )
{
	LexedInfo lexed;
	CodeBody  body;

	if ( ctx == nullptr || info == nullptr )
		GEN_FATAL( "parse_global_body_base: null context or info" );

	info[0] = struct_zero( ParseInfo );
	lexed   = struct_zero( LexedInfo );
	body    = (CodeBody) make_code();
	body->Type = CT_Global_Body;

	ctx->parser = struct_zero( ParseContext );
	if ( check_parse_args( def ) == false ) {
		info->result   = cast( Code, body );
		info->messages = ctx->parser.messages;
		return;
	}

	lexed       = lex( ctx, def );
	info->lexed = lexed;
	if ( lexed.tokens.num == 0 ) {
		info->result   = cast( Code, body );
		info->messages = ctx->parser.messages;
		return;
	}

	ctx->parser.tokens = lexed.tokens; {
		ParseStackNode scope = NullScope;
		parser_push( & ctx->parser, & scope );
		body = parse_global_nspace( ctx, CT_Global_Body );
		parser_pop( & ctx->parser );
	}
	info->result   = cast( Code, body );
	info->messages = ctx->parser.messages;
}

CodeBody parse_global_body( Str def, Opts_parse_global_body opts ) {
	Opts_parse_global_body resolved = get_optional( opts );
	Context*               ctx      = resolved.ctx;
	ParseInfo*             info;

	if ( ctx == nullptr ) ctx = _ctx;
	if ( ctx == nullptr ) GEN_FATAL( "parse_global_body: no context" );
	info = resolved.info; if ( info == nullptr ) info = & ctx->parse_info;

	parse_global_body_base( ctx, def, info );
	return cast( CodeBody, info->result );
}

CodeNS parse_namespace( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeNS    result = InvalidCode;
	LexedInfo lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_namespace(ctx);
done:
	return result;
}

CodeOperator parse_operator( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeOperator result = InvalidCode;
	LexedInfo    lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = (CodeOperator) parser_parse_operator(ctx);
done:
	return result;
}

CodeOpCast parse_operator_cast( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeOpCast result = InvalidCode;
	LexedInfo  lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_operator_cast(ctx, NullCode);
done:
	return result;
}

CodeStruct parse_struct( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeStruct result = InvalidCode;
	LexedInfo  lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	{
	ParseStackNode scope = NullScope;
	parser_push(& ctx->parser, & scope);
	result = (CodeStruct) parse_class_struct( ctx, Tok_Decl_Struct, parser_not_inplace_def );
	parser_pop(& ctx->parser);
	}
done:
	return result;
}

CodeTemplate parse_template( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeTemplate result = InvalidCode;
	LexedInfo    lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_template(ctx);
done:
	return result;
}

CodeTypename parse_type( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeTypename result = InvalidCode;
	LexedInfo    lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_type( ctx, parser_not_from_template, nullptr);
done:
	return result;
}

CodeTypedef parse_typedef( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeTypedef result = InvalidCode;
	LexedInfo   lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_typedef(ctx);
done:
	return result;
}

CodeUnion parse_union( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeUnion result = InvalidCode;
	LexedInfo lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_union(ctx, parser_not_inplace_def);
done:
	return result;
}

CodeUsing parse_using( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeUsing result = InvalidCode;
	LexedInfo lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}

	result = parser_parse_using(ctx);
done:
	return result;
}

CodeVar parse_variable( Str def )
{
	// TODO(Ed): Lift this.
	Context* ctx = _ctx;
	CodeVar   result = InvalidCode;
	LexedInfo lexed  = struct_zero(LexedInfo);

	ctx->parser = struct_zero(ParseContext);
	if (check_parse_args(def) == false)
		goto done;

	lexed = lex(ctx, def);
	ctx->parser.tokens = lexed.tokens;
	if (lexed.messages != nullptr || ctx->parser.tokens.num == 0) {
		if (lexed.messages != nullptr && lexed.messages->content.Ptr != nullptr)
			parser_record_failure(ctx, lexed.messages->content);
		else
			parser_record_failure(ctx, txt("parse: lex produced no tokens"));
		goto done;
	}
	if (parser_slice_is_formatting_only(&ctx->parser)) {
		parser_record_failure(ctx, txt("parse_variable: only formatting tokens"));
		goto done;
	}

	result = parser_parse_variable(ctx);
done:
	return result;
}

// Undef helper macros
#undef check_parse_args
#undef currtok_noskip
#undef currtok
#undef peektok
#undef prevtok
#undef nexttok
#undef nexttok_noskip
#undef eat
#undef left
#undef check
#undef push_scope
#undef NullScope
#undef def_assign

// Here for C Variant
#undef lex_dont_skip_formatting
#undef lex_skip_formatting

#undef parser_inplace_def
#undef parser_not_inplace_def
#undef parser_dont_consume_braces
#undef parser_consume_braces
#undef parser_not_from_template
#undef parser_use_parenthesis
#undef parser_strip_formatting_dont_preserve_newlines