// Copyright (c) 2019 Christoffer Lerno. All rights reserved.
// Use of this source code is governed by the GNU LGPLv3.0 license
// a copy of which can be found in the LICENSE file.

#include "llvm_codegen_internal.h"



static inline LLVMTypeRef gencontext_create_basic_llvm_type(GenContext *context, Type *type)
{
	switch (type->type_kind)
	{
		case TYPE_BOOL:
			return LLVMInt1TypeInContext(context->context);
		case TYPE_I8:
		case TYPE_U8:
			return LLVMInt8TypeInContext(context->context);
		case TYPE_I16:
		case TYPE_U16:
			return LLVMInt16TypeInContext(context->context);
		case TYPE_I32:
		case TYPE_U32:
			return LLVMInt32TypeInContext(context->context);
		case TYPE_I64:
		case TYPE_U64:
			return LLVMInt64TypeInContext(context->context);
		case TYPE_F32:
			return LLVMFloatTypeInContext(context->context);
		case TYPE_F64:
			return LLVMDoubleTypeInContext(context->context);
		case TYPE_VOID:
			return LLVMVoidTypeInContext(context->context);
		default:
			UNREACHABLE
	}
}

void gencontext_begin_module(GenContext *context)
{
	assert(!context->module && "Expected no module");
	const char *full_path = context->ast_context->file->full_path;
	char *mangled_module_name = strformat("%s-%s", context->ast_context->module->name->module, context->ast_context->file->name);
	context->module = LLVMModuleCreateWithNameInContext(mangled_module_name, context->context);
	LLVMSetModuleDataLayout(context->module, target_data_layout());
	LLVMSetSourceFileName(context->module, full_path, strlen(context->ast_context->file->full_path));

	LLVMSetTarget(context->module, build_options.target);
	if (build_options.debug_info)
	{
		const char *filename = context->ast_context->file->name;
		const char *dir_path = context->ast_context->file->dir_path;
		context->debug.builder = LLVMCreateDIBuilder(context->module);
		context->debug.file = LLVMDIBuilderCreateFile(context->debug.builder, filename, strlen(filename), dir_path, strlen(dir_path));

		bool is_optimized = false;
		const char *dwarf_flags = "";
		unsigned runtime_version = 1;
		LLVMDWARFEmissionKind emission_kind = LLVMDWARFEmissionFull;
		context->debug.compile_unit = LLVMDIBuilderCreateCompileUnit(context->debug.builder, LLVMDWARFSourceLanguageC,
		                                                             context->debug.file, DWARF_PRODUCER_NAME,
		                                                             strlen(DWARF_PRODUCER_NAME), is_optimized,
		                                                             dwarf_flags, strlen(dwarf_flags),
		                                                             runtime_version, "" /* split name */, 0 /* len */,
		                                                             emission_kind, /* dwo */0, /* inlining */0,
		                                                             /* debug for profiling */0);
	}
	// Setup all types. Not thread-safe, but at this point in time we can assume a single context.
	// We need to remove the context from the cache after this.
	// This would seem to indicate that we should change Type / actual type.

	context->pointer_alignment = LLVMPointerSizeForAS(target_data_layout(), 0);

	context->block_global_unique_count = 0;
	context->ast_alloca_addr_space = target_alloca_addr_space();

	VECEACH(compiler.type, i)
	{
		compiler.type[i]->backend_type = NULL;
	}
/*
	SizeSizeInBytes =
			C.toCharUnitsFromBits(C.getTargetInfo().getMaxPointerWidth()).getQuantity();
	IntAlignInBytes =
			C.toCharUnitsFromBits(C.getTargetInfo().getIntAlign()).getQuantity();
	IntTy = llvm::IntegerType::get(LLVMContext, C.getTargetInfo().getIntWidth());
	IntPtrTy = llvm::IntegerType::get(LLVMContext,
	                                  C.getTargetInfo().getMaxPointerWidth());
	Int8PtrTy = Int8Ty->getPointerTo(0);
	Int8PtrPtrTy = Int8PtrTy->getPointerTo(0);
	AllocaInt8PtrTy = Int8Ty->getPointerTo(
			M.getDataLayout().getAllocaAddrSpace());
	ASTAllocaAddressSpace = getTargetCodeGenInfo().getASTAllocaAddressSpace();
*/

}


void gencontext_end_module(GenContext *context)
{
	if (context->debug.builder)
	{
		LLVMDIBuilderFinalize(context->debug.builder);
	}
	LLVMDisposeModule(context->module);
}