add ParseTranslation

RicardoLuis0 · Dec 10, 2023 · 41d8535 · 41d8535
1 parent 42ab7dd
commit 41d8535
Show file tree

Hide file tree

Showing 3 changed files with 41 additions and 0 deletions.
diff --git a/src/r_data/r_translate.cpp b/src/r_data/r_translate.cpp
@@ -840,3 +840,41 @@ DEFINE_ACTION_FUNCTION(_Translation, AddTranslation)
 	ACTION_RETURN_INT(trans.index());
 }
 
+int _ParseTranslation(VMVa_List &args)
+{
+	FRemapTable NewTranslation;
+	NewTranslation.MakeIdentity();
+
+	while (args.curindex < args.numargs)
+	{
+		if (args.reginfo[args.curindex] != REGT_STRING)
+		{
+			ThrowAbortException(X_OTHER, "Non-string argument passed to ParseTranslation");
+		}
+		FString &s = args.args[args.curindex++].s();
+		NewTranslation.AddToTranslation(s.GetChars());
+	}
+
+	auto trans = GPalette.StoreTranslation(TRANSLATION_User, &NewTranslation);
+	return trans.index();
+}
+
+DEFINE_ACTION_FUNCTION(_Translation, ParseTranslation)
+{
+	PARAM_PROLOGUE;
+	PARAM_VA_POINTER(va_reginfo);
+
+	VMVa_List args = { param, 0, numparam - 1, va_reginfo };
+
+	ACTION_RETURN_INT(_ParseTranslation(args));
+}
+
+DEFINE_ACTION_FUNCTION(_Translate, ParseTranslation)
+{
+	PARAM_PROLOGUE;
+	PARAM_VA_POINTER(va_reginfo);
+
+	VMVa_List args = { param, 0, numparam - 1, va_reginfo };
+
+	ACTION_RETURN_INT(_ParseTranslation(args));
+}
diff --git a/wadsrc/static/zscript/doombase.zs b/wadsrc/static/zscript/doombase.zs
@@ -69,6 +69,8 @@ struct Translate version("4.5")
 	{
 		return Translation.GetID(transname);
 	}
+
+	native static TranslationID ParseTranslation(String trns, ...);
 }
 
 struct DamageTypeDefinition native

diff --git a/wadsrc/static/zscript/engine/base.zs b/wadsrc/static/zscript/engine/base.zs
@@ -924,6 +924,7 @@ struct Translation version("2.4")
 	native TranslationID AddTranslation();
 	native static TranslationID MakeID(int group, int num);
 	native static TranslationID GetID(Name transname);
+	native static TranslationID ParseTranslation(String trns, ...);
 }
 
 // Convenient way to attach functions to Quat