BansheeEngine/BansheeMono/Include/BsMonoUtil.h

#pragma once

#include "BsMonoPrerequisites.h"
#include "BsException.h"
#include "BsDebug.h"
#include <mono/jit/jit.h>

namespace BansheeEngine
{
	/**
	 * @brief	Utility class containing methods for various common Mono/Script related
	 *			operations.
	 */
	class BS_MONO_EXPORT MonoUtil
	{
	public:
		/**
		 * @brief	Converts a Mono (i.e. managed) string to a native wide string.
		 */
		static WString monoToWString(MonoString* str)
		{
			if(str == nullptr)
				return StringUtil::WBLANK;

			int len = mono_string_length(str);
			mono_unichar2* monoChars = mono_string_chars(str);

			WString ret(len, '0');
			for(int i = 0; i < len; i++)
				ret[i] = monoChars[i];

			return ret;
		}

		/**
		 * @brief	Converts a Mono (i.e. managed) string to a native narrow string.
		 */
		static String monoToString(MonoString* str)
		{
			if(str == nullptr)
				return StringUtil::BLANK;

			int len = mono_string_length(str);
			mono_unichar2* monoChars = mono_string_chars(str);

			String ret(len, '0');
			for(int i = 0; i < len; i++)
				ret[i] = (char)monoChars[i];

			return ret;
		}

		/**
		 * @brief	Converts a native wide string to a Mono (i.e. managed) string.
		 */
		static MonoString* wstringToMono(MonoDomain* domain, const WString& str)
		{
			return mono_string_from_utf16((mono_unichar2*)str.c_str());
		}

		/**
		 * @brief	Converts a native narrow string to a Mono (i.e. managed) string.
		 */
		static MonoString* stringToMono(MonoDomain* domain, const String& str)
		{
			return wstringToMono(domain, toWString(str));
		}

		/**
		 * @copydoc	throwIfException
		 */
		static void throwIfException(MonoException* exception)
		{
			throwIfException(reinterpret_cast<MonoObject*>(exception));
		}

		/**
		 * @brief	Throws a native exception if the provided object is a valid managed exception.
		 */
		static void throwIfException(MonoObject* exception)
		{
			if(exception != nullptr)
			{
				::MonoClass* exceptionClass = mono_object_get_class(exception);
				::MonoProperty* exceptionMsgProp = mono_class_get_property_from_name(exceptionClass, "Message");
				::MonoMethod* exceptionMsgGetter = mono_property_get_get_method(exceptionMsgProp);
				MonoString* exceptionMsg = (MonoString*)mono_runtime_invoke(exceptionMsgGetter, exception, nullptr, nullptr);

				::MonoProperty* exceptionStackProp = mono_class_get_property_from_name(exceptionClass, "StackTrace");
				::MonoMethod* exceptionStackGetter = mono_property_get_get_method(exceptionStackProp);
				MonoString* exceptionStackTrace = (MonoString*)mono_runtime_invoke(exceptionStackGetter, exception, nullptr, nullptr);

				String msg =  "Managed exception: " + toString(monoToWString(exceptionMsg)) + "\n" + toString(monoToWString(exceptionStackTrace));

				LOGERR(msg);
				BS_EXCEPT(InternalErrorException, msg);
			}
		}
	};
}