1 files changed, 87 insertions, 0 deletions
diff --git a/DTScopedVars.c b/DTScopedVars.c
new file mode 100644
index 0000000..f64ccdc
--- /dev/null
+++ b/DTScopedVars.c
@@ -0,0 +1,87 @@
+#strict 2
+
+// TODO: ScopedVars with temporary target (like a reference to a function local var)
+
+static const ScopedVar_Global = 1;
+static const ScopedVar_Local = 2;
+static const ScopedVar_ArrayIndex = 3;
+
+global func GlobalVar(name) { return [ScopedVar_Global, name]; }
+global func LocalVar(name, object target) { return [ScopedVar_Local, name, target || this]; }
+global func ArrayVar(index, array scopedVar) { return [ScopedVar_ArrayIndex, scopedVar, index]; }
+
+global func &ScopedVar(array variable)
+{
+	if(!variable)
+	{
+		return 0;
+	}
+	if(variable[0] == ScopedVar_Global)
+	{
+		if(GetType(variable[1]) == C4V_String)
+		{
+			return GlobalN(variable[1]);
+		}
+		else
+		{
+			return Global(variable[1]);
+		}
+	}
+	else if(variable[0] == ScopedVar_Local)
+	{
+		if(GetType(variable[1]) == C4V_String)
+		{
+			return LocalN(variable[1], variable[2]);
+		}
+		else
+		{
+			return Local(variable[1], variable[2]);
+		}
+	}
+	else if(variable[0] == ScopedVar_ArrayIndex)
+	{
+		var index = variable[2];
+		if(GetType(index) != C4V_Int && GetType(index) != C4V_Any)
+		{
+			index = ScopedVar(index);
+		}
+		return ScopedVar(variable[1])[index];
+	}
+	else
+	{
+		return ScopedVar(CustomScopedVar(variable));
+	}
+}
+
+global func &CustomScopedVar() { return _inherited(...); } // this allows "overloading" this function even if the "overloading" function is loaded before
+
+global func CheckScopedVar(array variable)
+{
+	if(!variable)
+	{
+		return false;
+	}
+
+	if(GetType(variable[0]) == C4V_Int)
+	{
+		if(variable[0] == ScopedVar_Global || variable[0] == ScopedVar_Local)
+		{
+			if(!variable[1] || GetType(variable[1]) == C4V_Int || (GetType(variable[1]) == C4V_String && variable[1] != ""))
+			{
+				return true;
+			}
+		}
+
+		if(variable[0] == ScopedVar_ArrayIndex)
+		{
+			if(CheckScopedVar(variable[1]) && !variable[2] || (GetType(variable[2]) == C4V_Int && variable[2] >= 0))
+			{
+				return true;
+			}
+		}
+	}
+
+	return CheckCustomScopedVar(variable);
+}
+
+global func CheckCustomScopedVar() { return _inherited(...); }