RethrowExceptionNested + new string methods + lexer fixes

xanathar · xanathar · commit 41d53e8bbf6b · 2016-05-16T14:01:14.000+02:00
diff --git a/src/MoonSharp.Interpreter.Tests/EndToEnd/CollectionsBaseGenRegisteredTests.cs b/src/MoonSharp.Interpreter.Tests/EndToEnd/CollectionsBaseGenRegisteredTests.cs
@@ -83,6 +83,7 @@ void Do(string code, Action<DynValue, RegCollMethods> asserts)
 			catch (ScriptRuntimeException ex)
 			{
 				Debug.WriteLine(ex.DecoratedMessage);
+				ex.Rethrow();
 				throw;
 			}
 			finally
diff --git a/src/MoonSharp.Interpreter.Tests/EndToEnd/CollectionsBaseInterfGenRegisteredTests.cs b/src/MoonSharp.Interpreter.Tests/EndToEnd/CollectionsBaseInterfGenRegisteredTests.cs
@@ -83,6 +83,7 @@ void Do(string code, Action<DynValue, RegCollMethods> asserts)
 			catch (ScriptRuntimeException ex)
 			{
 				Debug.WriteLine(ex.DecoratedMessage);
+				ex.Rethrow();
 				throw;
 			}
 			finally
diff --git a/src/MoonSharp.Interpreter.Tests/EndToEnd/CollectionsRegisteredTests.cs b/src/MoonSharp.Interpreter.Tests/EndToEnd/CollectionsRegisteredTests.cs
@@ -83,6 +83,7 @@ void Do(string code, Action<DynValue, RegCollMethods> asserts)
 			catch (ScriptRuntimeException ex)
 			{
 				Debug.WriteLine(ex.DecoratedMessage);
+				ex.Rethrow();
 				throw;
 			}
 			finally
diff --git a/src/MoonSharp.Interpreter.Tests/EndToEnd/CoroutineTests.cs b/src/MoonSharp.Interpreter.Tests/EndToEnd/CoroutineTests.cs
@@ -118,7 +118,7 @@ function b()
 			Assert.AreEqual(DataType.Boolean, ret.Tuple[0].Type);
 			Assert.AreEqual(false, ret.Tuple[0].Boolean);
 			Assert.AreEqual(DataType.String, ret.Tuple[1].Type);
-			Assert.AreEqual("attempt to yield across a CLR-call boundary", ret.Tuple[1].String);
+			Assert.IsTrue(ret.Tuple[1].String.EndsWith("attempt to yield across a CLR-call boundary"));
 		}
 
 		[Test]
@@ -131,7 +131,7 @@ function checkresume(step, ex, ey)
 	local x, y = coroutine.resume(c)
 	
 	assert(x == ex, 'Step ' .. step .. ': ' .. tostring(ex) .. ' was expected, got ' .. tostring(x));
-	assert(y == ey, 'Step ' .. step .. ': ' .. tostring(ey) .. ' was expected, got ' .. tostring(y));
+	assert(y:endsWith(ey), 'Step ' .. step .. ': ' .. tostring(ey) .. ' was expected, got ' .. tostring(y));
 end
 
 
diff --git a/src/MoonSharp.Interpreter.Tests/TapRunner.cs b/src/MoonSharp.Interpreter.Tests/TapRunner.cs
@@ -32,8 +32,14 @@ public class TapRunner
 	{
 		string m_File;
 
+		/// <summary>
+		/// Prints the specified string.
+		/// </summary>
+		/// <param name="str">The string.</param>
 		public void Print(string str)
 		{
+			// System.Diagnostics.Debug.WriteLine(str);
+
 			Assert.IsFalse(str.Trim().StartsWith("not ok"), string.Format("TAP fail ({0}) : {1}", m_File, str));
 		}
 
diff --git a/src/MoonSharp.Interpreter/CoreLib/BasicModule.cs b/src/MoonSharp.Interpreter/CoreLib/BasicModule.cs
@@ -42,9 +42,9 @@ public static DynValue assert(ScriptExecutionContext executionContext, CallbackA
 			if (!v.CastToBool())
 			{
 				if (message.IsNil())
-					throw new ScriptRuntimeException("assertion failed!") { DoNotDecorateMessage = true };
+					throw new ScriptRuntimeException("assertion failed!"); // { DoNotDecorateMessage = true };
 				else
-					throw new ScriptRuntimeException(message.ToPrintString()) { DoNotDecorateMessage = true };
+					throw new ScriptRuntimeException(message.ToPrintString()); // { DoNotDecorateMessage = true };
 			}
 
 			return DynValue.NewTupleNested(args.GetArray());
@@ -84,7 +84,7 @@ public static DynValue collectgarbage(ScriptExecutionContext executionContext, C
 		public static DynValue error(ScriptExecutionContext executionContext, CallbackArguments args)
 		{
 			DynValue message = args.AsType(0, "error", DataType.String, false);
-			throw new ScriptRuntimeException(message.String) { DoNotDecorateMessage = true };
+			throw new ScriptRuntimeException(message.String); // { DoNotDecorateMessage = true };
 		}
 
 
diff --git a/src/MoonSharp.Interpreter/CoreLib/IO/FileUserDataBase.cs b/src/MoonSharp.Interpreter/CoreLib/IO/FileUserDataBase.cs
@@ -119,7 +119,7 @@ public DynValue write(ScriptExecutionContext executionContext, CallbackArguments
 
 				return UserData.Create(this);
 			}
-			catch (ScriptRuntimeException)
+			catch (ScriptRuntimeException sre)
 			{
 				throw;
 			}
@@ -139,7 +139,7 @@ public DynValue close(ScriptExecutionContext executionContext, CallbackArguments
 				else
 					return DynValue.NewTuple(DynValue.Nil, DynValue.NewString(msg));
 			}
-			catch (ScriptRuntimeException)
+			catch (ScriptRuntimeException sre)
 			{
 				throw;
 			}
diff --git a/src/MoonSharp.Interpreter/CoreLib/StringModule.cs b/src/MoonSharp.Interpreter/CoreLib/StringModule.cs
@@ -255,6 +255,43 @@ public static DynValue sub(ScriptExecutionContext executionContext, CallbackArgu
 
             return DynValue.NewString(s);
         }
+
+		[MoonSharpModuleMethod]
+		public static DynValue startsWith(ScriptExecutionContext executionContext, CallbackArguments args)
+		{
+			DynValue arg_s1 = args.AsType(0, "startsWith", DataType.String, true);
+			DynValue arg_s2 = args.AsType(1, "startsWith", DataType.String, true);
+
+			if (arg_s1.IsNil() || arg_s2.IsNil())
+				return DynValue.False;
+
+			return DynValue.NewBoolean(arg_s1.String.StartsWith(arg_s2.String));
+		}
+
+		[MoonSharpModuleMethod]
+		public static DynValue endsWith(ScriptExecutionContext executionContext, CallbackArguments args)
+		{
+			DynValue arg_s1 = args.AsType(0, "endsWith", DataType.String, true);
+			DynValue arg_s2 = args.AsType(1, "endsWith", DataType.String, true);
+
+			if (arg_s1.IsNil() || arg_s2.IsNil())
+				return DynValue.False;
+
+			return DynValue.NewBoolean(arg_s1.String.EndsWith(arg_s2.String));
+		}
+
+		[MoonSharpModuleMethod]
+		public static DynValue contains(ScriptExecutionContext executionContext, CallbackArguments args)
+		{
+			DynValue arg_s1 = args.AsType(0, "contains", DataType.String, true);
+			DynValue arg_s2 = args.AsType(1, "contains", DataType.String, true);
+
+			if (arg_s1.IsNil() || arg_s2.IsNil())
+				return DynValue.False;
+
+			return DynValue.NewBoolean(arg_s1.String.Contains(arg_s2.String));
+		}
+
 	}
 
 
diff --git a/src/MoonSharp.Interpreter/Errors/InterpreterException.cs b/src/MoonSharp.Interpreter/Errors/InterpreterException.cs
@@ -9,6 +9,16 @@ namespace MoonSharp.Interpreter
 	/// </summary>
 	public class InterpreterException : Exception 
 	{
+		/// <summary>
+		/// Initializes a new instance of the <see cref="InterpreterException"/> class.
+		/// </summary>
+		/// <param name="ex">The ex.</param>
+		protected InterpreterException(Exception ex, string message)
+			: base(message, ex)
+		{
+
+		}
+
 		/// <summary>
 		/// Initializes a new instance of the <see cref="InterpreterException"/> class.
 		/// </summary>
@@ -55,19 +65,39 @@ protected InterpreterException(string format, params object[] args)
 		/// </summary>
 		public string DecoratedMessage { get; internal set; }
 
+
+		/// <summary>
+		/// Gets or sets a value indicating whether the message should not be decorated
+		/// </summary>
+		public bool DoNotDecorateMessage { get; set; }
+
+
 		internal void DecorateMessage(Script script, SourceRef sref, int ip = -1)
 		{
-			if (sref != null)
+			if (DoNotDecorateMessage)
+			{
+				this.DecoratedMessage = this.Message;
+			}
+			else if (sref != null)
 			{
 				this.DecoratedMessage = string.Format("{0}: {1}", sref.FormatLocation(script), this.Message);
 			}
 			else
 			{
 				this.DecoratedMessage = string.Format("bytecode:{0}: {1}", ip, this.Message);
 			}
+		}
 
+
+		/// <summary>
+		/// Rethrows this instance if 
+		/// </summary>
+		/// <returns></returns>
+		public virtual void Rethrow()
+		{
 		}
 
 
+
 	}
 }
diff --git a/src/MoonSharp.Interpreter/Errors/ScriptRuntimeException.cs b/src/MoonSharp.Interpreter/Errors/ScriptRuntimeException.cs
@@ -18,8 +18,20 @@ public class ScriptRuntimeException : InterpreterException
 		public ScriptRuntimeException(Exception ex)
 			: base(ex)
 		{
+		}       
+
+		/// <summary>
+		/// Initializes a new instance of the <see cref="ScriptRuntimeException"/> class.
+		/// </summary>
+		/// <param name="ex">The ex.</param>
+		public ScriptRuntimeException(ScriptRuntimeException ex)
+			: base(ex, ex.DecoratedMessage)
+		{
+			this.DecoratedMessage = Message;
+			this.DoNotDecorateMessage = true;
 		}
 
+
 		/// <summary>
 		/// Initializes a new instance of the <see cref="ScriptRuntimeException"/> class.
 		/// </summary>
@@ -41,11 +53,6 @@ public ScriptRuntimeException(string format, params object[] args)
 
 		}
 
-		/// <summary>
-		/// Gets or sets a value indicating whether the message should not be decorated
-		/// </summary>
-		public bool DoNotDecorateMessage { get; set; }
-
 		/// <summary>
 		/// Creates a ScriptRuntimeException with a predefined error message specifying that
 		/// an arithmetic operation was attempted on non-numbers
@@ -496,5 +503,16 @@ public static ScriptRuntimeException AccessInstanceMemberOnStatics(IUserDataDesc
 		{
 			return new ScriptRuntimeException("attempt to access instance member {0}.{1} from a static userdata", typeDescr.Name, desc.Name);
 		}
+
+		/// <summary>
+		/// Rethrows this instance if 
+		/// </summary>
+		/// <returns></returns>
+		public override void Rethrow()
+		{
+			if (Script.GlobalOptions.RethrowExceptionNested)
+				throw new ScriptRuntimeException(this);
+		}
+
 	}
 }
diff --git a/src/MoonSharp.Interpreter/Errors/SyntaxErrorException.cs b/src/MoonSharp.Interpreter/Errors/SyntaxErrorException.cs
@@ -42,12 +42,30 @@ internal SyntaxErrorException(Script script, SourceRef sref, string message)
 			DecorateMessage(script, sref);
 		}
 
+		private SyntaxErrorException(SyntaxErrorException syntaxErrorException)
+			: base(syntaxErrorException, syntaxErrorException.DecoratedMessage)
+		{
+			this.Token = syntaxErrorException.Token;
+			this.DecoratedMessage = Message;
+		}
+
 		internal void DecorateMessage(Script script)
 		{
 			if (Token != null)
 			{
 				DecorateMessage(script, Token.GetSourceRef(false));
 			}
 		}
+
+		/// <summary>
+		/// Rethrows this instance if 
+		/// </summary>
+		/// <returns></returns>
+		public override void Rethrow()
+		{
+			if (Script.GlobalOptions.RethrowExceptionNested)
+				throw new SyntaxErrorException(this);
+		}
+
 	}
 }
diff --git a/src/MoonSharp.Interpreter/Execution/ScriptExecutionContext.cs b/src/MoonSharp.Interpreter/Execution/ScriptExecutionContext.cs
@@ -264,5 +264,6 @@ public Script OwnerScript
 		{
 			get { return this.GetScript(); }
 		}
+
 	}
 }
diff --git a/src/MoonSharp.Interpreter/Execution/VM/Processor/Processor_InstructionLoop.cs b/src/MoonSharp.Interpreter/Execution/VM/Processor/Processor_InstructionLoop.cs
@@ -250,7 +250,11 @@ private DynValue Processing_Loop(int instructionPtr)
 			{
 				FillDebugData(ex, instructionPtr);
 
-				if (!(ex is ScriptRuntimeException)) throw;
+				if (!(ex is ScriptRuntimeException))
+				{
+					ex.Rethrow();
+					throw;
+				}
 
 				if (m_Debug.DebuggerAttached != null)
 				{
@@ -296,10 +300,12 @@ private DynValue Processing_Loop(int instructionPtr)
 					}
 					else if ((csi.Flags & CallStackItemFlags.EntryPoint) != 0)
 					{
+						ex.Rethrow();
 						throw;
 					}
 				}
 
+				ex.Rethrow();
 				throw;
 			}
 
diff --git a/src/MoonSharp.Interpreter/Interop/UserDataRegistries/ExtensionMethodsRegistry.cs b/src/MoonSharp.Interpreter/Interop/UserDataRegistries/ExtensionMethodsRegistry.cs
@@ -153,13 +153,16 @@ private static MethodInfo InstantiateMethodInfo(MethodInfo mi, Type extensionTyp
 
 		private static Type GetGenericMatch(Type extensionType, Type extendedType)
 		{
-			extensionType = extensionType.GetGenericTypeDefinition();
-
-			foreach (Type t in extendedType.GetAllImplementedTypes())
+			if (!extensionType.IsGenericParameter)
 			{
-				if (t.IsGenericType && t.GetGenericTypeDefinition() == extensionType)
+				extensionType = extensionType.GetGenericTypeDefinition();
+
+				foreach (Type t in extendedType.GetAllImplementedTypes())
 				{
-					return t;
+					if (t.IsGenericType && t.GetGenericTypeDefinition() == extensionType)
+					{
+						return t;
+					}
 				}
 			}
 
diff --git a/src/MoonSharp.Interpreter/REPL/ReplInterpreter.cs b/src/MoonSharp.Interpreter/REPL/ReplInterpreter.cs
@@ -95,16 +95,18 @@ public virtual DynValue Evaluate(string input)
 				if (forced || !ex.IsPrematureStreamTermination)
 				{
 					m_CurrentCommand = "";
+					ex.Rethrow();
 					throw;
 				}
 				else
 				{
 					return null;
 				}
 			}
-			catch (ScriptRuntimeException)
+			catch (ScriptRuntimeException sre)
 			{
 				m_CurrentCommand = "";
+				sre.Rethrow();
 				throw;
 			}
 			catch (Exception)
diff --git a/src/MoonSharp.Interpreter/ScriptGlobalOptions.cs b/src/MoonSharp.Interpreter/ScriptGlobalOptions.cs
@@ -28,6 +28,10 @@ internal ScriptGlobalOptions()
 		/// </value>
 		public IPlatformAccessor Platform { get; set; }
 
-
+		/// <summary>
+		/// Gets or sets a value indicating whether interpreter exceptions should be 
+		/// re-thrown as nested exceptions.
+		/// </summary>
+		public bool RethrowExceptionNested { get; set; }
 	}
 }
diff --git a/src/MoonSharp.Interpreter/Tree/Fast_Interface/Loader_Fast.cs b/src/MoonSharp.Interpreter/Tree/Fast_Interface/Loader_Fast.cs
@@ -26,6 +26,7 @@ internal static DynamicExprExpression LoadDynamicExpr(Script script, SourceCode
 			catch (SyntaxErrorException ex)
 			{
 				ex.DecorateMessage(script);
+				ex.Rethrow();
 				throw;
 			}
 		}
@@ -70,6 +71,7 @@ internal static int LoadChunk(Script script, SourceCode source, ByteCode bytecod
 			catch (SyntaxErrorException ex)
 			{
 				ex.DecorateMessage(script);
+				ex.Rethrow();
 				throw;
 			}
 		}
@@ -104,6 +106,7 @@ internal static int LoadFunction(Script script, SourceCode source, ByteCode byte
 			catch (SyntaxErrorException ex)
 			{
 				ex.DecorateMessage(script);
+				ex.Rethrow();
 				throw;
 			}
 
diff --git a/src/MoonSharp.Interpreter/Tree/Lexer/Lexer.cs b/src/MoonSharp.Interpreter/Tree/Lexer/Lexer.cs
diff --git a/src/MoonSharp.Interpreter/Tree/Lexer/LexerUtils.cs b/src/MoonSharp.Interpreter/Tree/Lexer/LexerUtils.cs
diff --git a/src/moonsharp.sln b/src/moonsharp.sln

Original file line number	Diff line number	Diff line change
`@@ -83,6 +83,7 @@ void Do(string code, Action<DynValue, RegCollMethods> asserts)`
`83`	`83`	`catch (ScriptRuntimeException ex)`
`84`	`84`	`{`
`85`	`85`	`Debug.WriteLine(ex.DecoratedMessage);`
	`86`	`+ ex.Rethrow();`
`86`	`87`	`throw;`
`87`	`88`	`}`
`88`	`89`	`finally`
Original file line number	Diff line number	Diff line change
`@@ -32,8 +32,14 @@ public class TapRunner`
`32`	`32`	`{`
`33`	`33`	`string m_File;`
`34`	`34`
	`35`	`+ /// <summary>`
	`36`	`+ /// Prints the specified string.`
	`37`	`+ /// </summary>`
	`38`	`+ /// <param name="str">The string.</param>`
`35`	`39`	`public void Print(string str)`
`36`	`40`	`{`
	`41`	`+ // System.Diagnostics.Debug.WriteLine(str);`
	`42`	`+`
`37`	`43`	`Assert.IsFalse(str.Trim().StartsWith("not ok"), string.Format("TAP fail ({0}) : {1}", m_File, str));`
`38`	`44`	`}`
`39`	`45`
Original file line number	Diff line number	Diff line change
`@@ -42,9 +42,9 @@ public static DynValue assert(ScriptExecutionContext executionContext, CallbackA`
`42`	`42`	`if (!v.CastToBool())`
`43`	`43`	`{`
`44`	`44`	`if (message.IsNil())`
`45`		`- throw new ScriptRuntimeException("assertion failed!") { DoNotDecorateMessage = true };`
	`45`	`+ throw new ScriptRuntimeException("assertion failed!"); // { DoNotDecorateMessage = true };`
`46`	`46`	`else`
`47`		`- throw new ScriptRuntimeException(message.ToPrintString()) { DoNotDecorateMessage = true };`
	`47`	`+ throw new ScriptRuntimeException(message.ToPrintString()); // { DoNotDecorateMessage = true };`
`48`	`48`	`}`
`49`	`49`
`50`	`50`	`return DynValue.NewTupleNested(args.GetArray());`
`@@ -84,7 +84,7 @@ public static DynValue collectgarbage(ScriptExecutionContext executionContext, C`
`84`	`84`	`public static DynValue error(ScriptExecutionContext executionContext, CallbackArguments args)`
`85`	`85`	`{`
`86`	`86`	`DynValue message = args.AsType(0, "error", DataType.String, false);`
`87`		`- throw new ScriptRuntimeException(message.String) { DoNotDecorateMessage = true };`
	`87`	`+ throw new ScriptRuntimeException(message.String); // { DoNotDecorateMessage = true };`
`88`	`88`	`}`
`89`	`89`
`90`	`90`
Original file line number	Diff line number	Diff line change
`@@ -119,7 +119,7 @@ public DynValue write(ScriptExecutionContext executionContext, CallbackArguments`
`119`	`119`
`120`	`120`	`return UserData.Create(this);`
`121`	`121`	`}`
`122`		`- catch (ScriptRuntimeException)`
	`122`	`+ catch (ScriptRuntimeException sre)`
`123`	`123`	`{`
`124`	`124`	`throw;`
`125`	`125`	`}`
`@@ -139,7 +139,7 @@ public DynValue close(ScriptExecutionContext executionContext, CallbackArguments`
`139`	`139`	`else`
`140`	`140`	`return DynValue.NewTuple(DynValue.Nil, DynValue.NewString(msg));`
`141`	`141`	`}`
`142`		`- catch (ScriptRuntimeException)`
	`142`	`+ catch (ScriptRuntimeException sre)`
`143`	`143`	`{`
`144`	`144`	`throw;`
`145`	`145`	`}`