ScriptRuntimeException.cs

using System;
using System.Text;
using Waher.Events;
using Waher.Script.Model;
 
namespace Waher.Script.Exceptions
{
    public class ScriptRuntimeException : ScriptException, IEventObject
    {
        private readonly ScriptNode node;
 
        public ScriptRuntimeException(string Message, ScriptNode Node)
            : base(Join(Message, Node))
        {
            this.node = Node;
        }
 
        public ScriptRuntimeException(string Message, ScriptNode Node, Exception InnerException)
            : base(Join(Message, Node), InnerException)
        {
            this.node = Node;
        }
 
        public ScriptRuntimeException(string Message, ScriptNode Node, bool RawMessage)
            : base(RawMessage ? Message : Join(Message, Node))
        {
            this.node = Node;
        }
 
        public ScriptRuntimeException(string Message, ScriptNode Node, Exception InnerException, bool RawMessage)
            : base(RawMessage ? Message : Join(Message, Node), InnerException)
        {
            this.node = Node;
        }
 
        private static string Join(string Message, ScriptNode Node)
        {
            if (Node is null)
                return Message;
 
            StringBuilder sb = new StringBuilder(Message);
 
            if (!string.IsNullOrEmpty(Node.Expression.Source))
            {
                sb.Append(" (Source: ");
                sb.Append(Node.Expression.Source);
                sb.Append(')');
            }
 
            string s = Node.SubExpression;
            if (s.Length > 1000)
                s = s.Substring(0, 1000) + "...";
 
            sb.Append("\r\n\r\n");
            sb.Append(s);
 
            return sb.ToString();
        }
 
        public ScriptNode Node => this.node;
 
        public string Object => this.node?.Expression?.Source ?? string.Empty;
    }
}