feat: Grammar Parser (#3)

Reviewed-on: https://git.bupt-hpc.cn/jackfiled/CanonSharp/pulls/3
Co-authored-by: jackfiled <xcrenchangjun@outlook.com>
Co-committed-by: jackfiled <xcrenchangjun@outlook.com>

CanonSharp.Combinator/Parsers/Bases/AlternativeParser.cs

@@ -10,11 +10,12 @@ namespace CanonSharp.Combinator.Parsers.Bases;
 /// <param name="second">第二个解析器</param>
 /// <typeparam name="TToken">输入流类型</typeparam>
 /// <typeparam name="T">解析器结果类型</typeparam>
-internal sealed class AlternativeParser<TToken, T>(Parser<TToken, T> first, Parser<TToken, T> second)
-    : Parser<TToken, T>
+internal sealed class AlternativeParser<TToken, T>(IParser<TToken, T> first, IParser<TToken, T> second)
+    : IParser<TToken, T>
 {
-    internal override ParseResult<TToken, TResult> Run<TState, TResult>(TState state,
-        Func<ParseResult<TToken, T>, ParseResult<TToken, TResult>> continuation)
+    public IParseResult<TToken, TResult> Run<TState, TResult>(TState state,
+        Func<IParseResult<TToken, T>, IParseResult<TToken, TResult>> continuation)
+        where TState : IReadState<TToken, TState>
     {
         return first.Run(state, result => result.CaseOf(continuation, _ => second.Run(state, continuation)));
     }

CanonSharp.Combinator/Parsers/Bases/BindParser.cs

@@ -11,10 +11,11 @@ namespace CanonSharp.Combinator.Parsers.Bases;
 /// <typeparam name="TIntermediate">上游解析器结果类型</typeparam>
 /// <typeparam name="T">下游解析器结果类型</typeparam>
 internal sealed class BindParser<TToken, TIntermediate, T>(
-    Parser<TToken, TIntermediate> parser,
-    Func<TIntermediate, Parser<TToken, T>> next) : Parser<TToken, T>
+    IParser<TToken, TIntermediate> parser,
+    Func<TIntermediate, IParser<TToken, T>> next) : IParser<TToken, T>
 {
-    internal override ParseResult<TToken, TResult> Run<TState, TResult>(TState state,
-        Func<ParseResult<TToken, T>, ParseResult<TToken, TResult>> continuation)
+    public IParseResult<TToken, TResult> Run<TState, TResult>(TState state,
+        Func<IParseResult<TToken, T>, IParseResult<TToken, TResult>> continuation)
+        where TState : IReadState<TToken, TState>
         => parser.Run(state, result => result.Next(next, continuation));
 }

CanonSharp.Combinator/Parsers/Bases/FixParser.cs

@@ -9,25 +9,17 @@ namespace CanonSharp.Combinator.Parsers.Bases;
 /// </summary>
 /// <typeparam name="TToken"></typeparam>
 /// <typeparam name="T"></typeparam>
-internal sealed class FixParser<TToken, T> : Parser<TToken, T>
+internal sealed class FixParser<TToken, T> : IParser<TToken, T>
 {
-    private readonly Parser<TToken, T> _parser;
+    private readonly IParser<TToken, T> _parser;
 
-    public FixParser(Func<Parser<TToken, T>, Parser<TToken, T>> func)
+    public FixParser(Func<IParser<TToken, T>, IParser<TToken, T>> func)
     {
         _parser = func(this);
     }
 
-    internal override ParseResult<TToken, TResult> Run<TState, TResult>(TState state,
-        Func<ParseResult<TToken, T>, ParseResult<TToken, TResult>> continuation)
+    public IParseResult<TToken, TResult> Run<TState, TResult>(TState state,
+        Func<IParseResult<TToken, T>, IParseResult<TToken, TResult>> continuation)
+        where TState : IReadState<TToken, TState>
         => _parser.Run(state, continuation);
 }
-
-internal sealed class FixParser<TToken, TParameter, T>(
-    Func<Func<TParameter, Parser<TToken, T>>, TParameter, Parser<TToken, T>> func,
-    TParameter parameter) : Parser<TToken, T>
-{
-    internal override ParseResult<TToken, TResult> Run<TState, TResult>(TState state,
-        Func<ParseResult<TToken, T>, ParseResult<TToken, TResult>> continuation)
-        => func(p => new FixParser<TToken, TParameter, T>(func, p), parameter).Run(state, continuation);
-}

CanonSharp.Combinator/Parsers/Bases/MapParser.cs

@@ -12,10 +12,11 @@ namespace CanonSharp.Combinator.Parsers.Bases;
 /// <typeparam name="TIntermediate"></typeparam>
 /// <typeparam name="T"></typeparam>
 internal sealed class MapParser<TToken, TIntermediate, T>(
-    Parser<TToken, TIntermediate> parser,
-    Func<TIntermediate, T> func) : Parser<TToken, T>
+    IParser<TToken, TIntermediate> parser,
+    Func<TIntermediate, T> func) : IParser<TToken, T>
 {
-    internal override ParseResult<TToken, TResult> Run<TState, TResult>(TState state,
-        Func<ParseResult<TToken, T>, ParseResult<TToken, TResult>> continuation)
+    public IParseResult<TToken, TResult> Run<TState, TResult>(TState state,
+        Func<IParseResult<TToken, T>, IParseResult<TToken, TResult>> continuation)
+        where TState : IReadState<TToken, TState>
         => parser.Run(state, result => continuation(result.Map(func)));
 }

CanonSharp.Combinator/Parsers/Bases/NextParser.cs

@@ -12,12 +12,13 @@ namespace CanonSharp.Combinator.Parsers.Bases;
 /// <typeparam name="TIntermediate">上游解析器结果类型</typeparam>
 /// <typeparam name="T">最终解析结果类型</typeparam>
 internal sealed class NextParser<TToken, TIntermediate, T>(
-    Parser<TToken, TIntermediate> parser,
-    Func<TIntermediate, Parser<TToken, T>> successfulParser,
-    Func<FailedResult<TToken, TIntermediate>, Parser<TToken, T>> failedParser) : Parser<TToken, T>
+    IParser<TToken, TIntermediate> parser,
+    Func<TIntermediate, IParser<TToken, T>> successfulParser,
+    Func<IFailedResult<TToken, TIntermediate>, IParser<TToken, T>> failedParser) : IParser<TToken, T>
 {
-    internal override ParseResult<TToken, TResult> Run<TState, TResult>(TState state,
-        Func<ParseResult<TToken, T>, ParseResult<TToken, TResult>> continuation)
+    public IParseResult<TToken, TResult> Run<TState, TResult>(TState state,
+        Func<IParseResult<TToken, T>, IParseResult<TToken, TResult>> continuation)
+        where TState : IReadState<TToken, TState>
     {
         return parser.Run(state, result => result.CaseOf(
             successfulResult => successfulResult.Next(successfulParser, continuation),

CanonSharp.Combinator/Parsers/Bases/ResumeParser.cs

@@ -11,11 +11,12 @@ namespace CanonSharp.Combinator.Parsers.Bases;
 /// <typeparam name="TToken">输入令牌类型</typeparam>
 /// <typeparam name="T">解析结果类型</typeparam>
 internal sealed class ResumeParser<TToken, T>(
-    Parser<TToken, T> parser,
-    Func<FailedResult<TToken, T>, Parser<TToken, T>> failedHandler) : Parser<TToken, T>
+    IParser<TToken, T> parser,
+    Func<IFailedResult<TToken, T>, IParser<TToken, T>> failedHandler) : IParser<TToken, T>
 {
-    internal override ParseResult<TToken, TResult> Run<TState, TResult>(TState state,
-        Func<ParseResult<TToken, T>, ParseResult<TToken, TResult>> continuation)
+    public IParseResult<TToken, TResult> Run<TState, TResult>(TState state,
+        Func<IParseResult<TToken, T>, IParseResult<TToken, TResult>> continuation)
+        where TState : IReadState<TToken, TState>
     {
         return parser.Run(state,
             result => result.CaseOf(continuation,