Save and Load script data from files

GlitchyEngine/src/Scripting/MonoDecimal.bf

@@ -0,0 +1,151 @@
+using System;
+using Bon.Integrated;
+using Bon;
+namespace GlitchyEngine.Scripting;
+
+/// A struct providing access to the components of a mono decimal.
+struct MonoDecimal
+{
+	[Bitfield<uint16>(.Private, .BitsAt(16, 0), "_dontUse", .Read)]
+	[Bitfield<uint8>(.Public, .BitsAt(8, 16), "Exponent")]
+	[Bitfield<uint8>(.Private, .BitsAt(7, 24), "_dontUse2")]
+	[Bitfield<bool>(.Public, .BitsAt(1, 31), "Sign")]
+	private uint32 _flags;
+
+	private uint32 _high;
+	private uint32 _low;
+	private uint32 _mid;
+
+	public uint32[3] Mantissa => .(_low, _mid, _high);
+
+	static this
+	{
+		gBonEnv.typeHandlers.Add(typeof(MonoDecimal),
+			    ((.)new => AssetSerialize, new => AssetDeserialize));
+	}
+
+	static void AssetSerialize(BonWriter writer, ValueView value, BonEnvironment environment, SerializeValueState state)
+	{
+		Log.EngineLogger.Assert(value.type == typeof(Self));
+
+		MonoDecimal decimal = value.Get<MonoDecimal>();
+
+		decimal.ToString(writer.outStr);
+	}
+
+	static Result<void> AssetDeserialize(BonReader reader, ValueView value, BonEnvironment environment, DeserializeValueState state)
+	{
+		Log.EngineLogger.Assert(value.type == typeof(Self));
+
+		return .Ok;
+	}
+
+	public override void ToString(String strBuffer)
+	{
+		uint64 d, r;
+
+		uint32[3] a = .(_high, _mid, _low);
+
+		char8[30] str = .();
+		char8* ptr = &str[29];
+
+		int digits = 0;
+
+		repeat
+		{
+		    r = a [0];
+
+		    d = r / 10;
+		    r = ((r - d * 10) << 32) + a [1];
+		    a [0] = (uint32)d;
+
+		    d = r / 10;
+		    r = ((r - d * 10) << 32) + a [2];
+		    a [1] = (uint32)d;
+
+		    d = r / 10;
+			r = r - d * 10;
+			a [2] = (uint32)d;
+
+			*ptr = '0' + (uint8)r;
+			ptr--;
+			digits++;
+			if (digits == Exponent)
+			{
+				*ptr = '.';
+				ptr--;
+				digits++;
+			}
+		}
+		while (a[0] > 0 || a[1] > 0 || a[2] > 0 || digits < (Exponent + 2));
+
+		if (Sign)
+			strBuffer.Append('-');
+
+		strBuffer.Append(StringView(&str[30 - digits], digits));
+		strBuffer.Append('m');
+	}
+
+	public static Result<MonoDecimal> Parse(StringView strBuffer)
+	{
+		var strBuffer;
+
+		MonoDecimal result = .();
+
+		if (strBuffer.StartsWith('-'))
+		{
+			strBuffer.RemoveFromStart(1);
+			result.Sign = true;
+		}
+
+		if (strBuffer.EndsWith('m'))
+		{
+			strBuffer.RemoveFromEnd(1);
+		}
+
+		int decimalPointIndex = strBuffer.IndexOf('.');
+
+		if (decimalPointIndex != -1)
+		{
+			int exponent = strBuffer.Length - decimalPointIndex - 1;
+
+			if (exponent < 0 || exponent > 28)
+				return .Err;
+
+			result.Exponent = (uint8)exponent;
+
+			if (strBuffer.IndexOf('.', decimalPointIndex + 1) != -1)
+				return .Err;
+		}
+		
+		repeat
+		{
+			if (strBuffer[0] != '.')
+			{
+				int32 digit = strBuffer[0] - '0';
+	
+				if (digit < 0 || digit > 10)
+					return .Err;
+				
+				uint64 tmp, carry;
+	
+				tmp = result._low * 10;
+				carry = (tmp + (uint64)digit) >> 32;
+				result._low = (uint32)tmp + (uint32)digit;
+				
+				tmp = result._mid * 10 + carry;
+				carry = tmp >> 32;
+				result._mid = (uint32)tmp;
+				
+				tmp = result._high * 10 + carry;
+				carry = tmp >> 32;
+				result._high = (uint32)tmp;
+			}
+
+			strBuffer.RemoveFromStart(1);
+		}
+		while (!strBuffer.IsEmpty);
+
+		return .Ok(result);
+	}
+}

GlitchyEngine/src/Scripting/ScriptGlue.bf

@@ -528,6 +528,27 @@ static class ScriptGlue
 		id = UUID.Create();
 	}
 
+	[RegisterCall("ScriptGlue::Print_Decimal")]
+	static void Print_Decimal(MonoDecimal monoDecimal)
+	{
+		Log.ClientLogger.Info(scope $"{monoDecimal}");
+	}
+
+	[RegisterCall("ScriptGlue::Get_Decimal")]
+	static void Get_Decimal(MonoString* string, out MonoDecimal monoDecimal)
+	{
+		char8* str = Mono.mono_string_to_utf8(string);
+
+		Result<MonoDecimal> decimalo = MonoDecimal.Parse(StringView(str));
+
+		if (!(decimalo case .Ok(out monoDecimal)))
+		{
+			monoDecimal = default;
+		}
+
+		Mono.mono_free(str);
+	}
+
 #region Application
 	
 	[RegisterCall("ScriptGlue::Application_IsEditor")]
@@ -590,7 +611,7 @@ static class ScriptGlue
 	}
 	
 	[RegisterCall("ScriptGlue::Serialization_DeserializeField")]
-	public static void Serialization_DeserializeField(void* internalContext, SerializationType expectedType, MonoString* fieldName, uint8* target)
+	public static void Serialization_DeserializeField(void* internalContext, SerializationType expectedType, MonoString* fieldName, uint8* target, out SerializationType actualType)
 	{
 		SerializedObject context = Internal.UnsafeCastToObject(internalContext) as SerializedObject;
 
@@ -598,7 +619,7 @@ static class ScriptGlue
 		
 		char8* name = Mono.mono_string_to_utf8(fieldName);
 
-		context.GetField(StringView(name), expectedType, target);
+		context.GetField(StringView(name), expectedType, target, out actualType);
 
 		Mono.mono_free(name);
 	}
@@ -612,6 +633,8 @@ static class ScriptGlue
 		
 		objectContext = null;
 
+		Log.EngineLogger.AssertDebug(context.AllObjects.ContainsKey(context.Id));
+
 		if (!context.AllObjects.TryGetValue(id, let foundObject))
 			return;