ParsingException.cs

using System;
 
namespace Waher.Content.Semantic
{
    public class ParsingException : Exception
    {
        public ParsingException(string Message, string Document, int Position)
            : base(Append(Message, Position, Document))
        {
            this.Document = Document;
            this.Position = Position;
        }
 
        public ParsingException(string Message, string Document, int Position, Exception InnerException)
            : base(Append(Message, Position, Document), InnerException)
        {
            this.Document = Document;
            this.Position = Position;
        }
 
        public string Document { get; }
 
        public int Position { get; }
 
        private static string Append(string Message, int Position, string Document)
        {
            Message += "\r\n\r\n";
 
            int Start = Math.Max(0, Position - 100);
            int End = Math.Min(Document.Length, Position + 100);
 
            Message += Document.Substring(Start, Position - Start) + "^-------------" + Document.Substring(Position, End - Position);
 
            return Message;
        }
    }
}