Upload from upload_mods.ps1

Scripts/Utilities/ExpressionParser/Sprache/Parse.Sequence.cs

@@ -0,0 +1,158 @@
+namespace Sprache
+{
+    using System;
+    using System.Collections.Generic;
+    using UniLinq;
+
+    partial class Parse
+    {
+        /// <summary>
+        /// 
+        /// </summary>
+        /// <param name="parser"></param>
+        /// <param name="delimiter"></param>
+        /// <typeparam name="T"></typeparam>
+        /// <typeparam name="U"></typeparam>
+        /// <returns></returns>
+        /// <exception cref="ArgumentNullException"></exception>
+        public static Parser<IEnumerable<T>> DelimitedBy<T, U>(this Parser<T> parser, Parser<U> delimiter)
+        {
+            return DelimitedBy(parser, delimiter, null, null);
+        }
+
+        /// <summary>
+        /// 
+        /// </summary>
+        /// <param name="parser"></param>
+        /// <param name="delimiter"></param>
+        /// <param name="minimumCount"></param>
+        /// <param name="maximumCount"></param>
+        /// <typeparam name="T"></typeparam>
+        /// <typeparam name="U"></typeparam>
+        /// <returns></returns>
+        /// <exception cref="ArgumentNullException"></exception>
+        public static Parser<IEnumerable<T>> DelimitedBy<T, U>(this Parser<T> parser, Parser<U> delimiter, int? minimumCount, int? maximumCount)
+        {
+            if (parser == null) throw new ArgumentNullException(nameof(parser));
+            if (delimiter == null) throw new ArgumentNullException(nameof(delimiter));
+
+            return from head in parser.Once()
+                   from tail in
+                       (from separator in delimiter
+                        from item in parser
+                        select item).Repeat(minimumCount - 1, maximumCount - 1)
+                   select head.Concat(tail);
+        }
+
+        /// <summary>
+        /// Fails on the first itemParser failure, if it reads at least one character.
+        /// </summary>
+        /// <param name="itemParser"></param>
+        /// <param name="delimiter"></param>
+        /// <typeparam name="T"></typeparam>
+        /// <typeparam name="U"></typeparam>
+        /// <returns></returns>
+        /// <exception cref="ArgumentNullException"></exception>
+        public static Parser<IEnumerable<T>> XDelimitedBy<T, U>(this Parser<T> itemParser, Parser<U> delimiter)
+        {
+            if (itemParser == null) throw new ArgumentNullException(nameof(itemParser));
+            if (delimiter == null) throw new ArgumentNullException(nameof(delimiter));
+
+            return from head in itemParser.Once()
+                   from tail in
+                       (from separator in delimiter
+                        from item in itemParser
+                        select item).XMany()
+                   select head.Concat(tail);
+        }
+
+        /// <summary>
+        /// 
+        /// </summary>
+        /// <param name="parser"></param>
+        /// <param name="count"></param>
+        /// <typeparam name="T"></typeparam>
+        /// <returns></returns>
+        /// <exception cref="ArgumentNullException"></exception>
+        public static Parser<IEnumerable<T>> Repeat<T>(this Parser<T> parser, int count)
+        {
+            return Repeat(parser, count, count);
+        }
+
+        /// <summary>
+        /// 
+        /// </summary>
+        /// <param name="parser"></param>
+        /// <param name="minimumCount"></param>
+        /// <param name="maximumCount"></param>
+        /// <typeparam name="T"></typeparam>
+        /// <returns></returns>
+        /// <exception cref="ArgumentNullException"></exception>
+        public static Parser<IEnumerable<T>> Repeat<T>(this Parser<T> parser, int? minimumCount, int? maximumCount)
+        {
+            if (parser == null) throw new ArgumentNullException(nameof(parser));
+
+            return i =>
+            {
+                var remainder = i;
+                var result = new List<T>();
+
+                var count = 0;
+
+                var r = parser(remainder);
+                while (r.WasSuccessful && (maximumCount == null || count < maximumCount.Value))
+                {
+                    count++;
+
+                    result.Add(r.Value);
+
+                    remainder = r.Remainder;
+                    r = parser(remainder);
+                }
+
+                if (minimumCount.HasValue && count < minimumCount.Value)
+                {
+                    var what = r.Remainder.AtEnd
+                        ? "end of input"
+                        : r.Remainder.Current.ToString();
+
+                    var msg = $"Unexpected '{what}'";
+                    string exp;
+                    if (minimumCount == maximumCount)
+                        exp = $"'{StringExtensions.Join(", ", r.Expectations)}' {minimumCount.Value} times, but found {count}";
+                    else if (maximumCount == null)
+                        exp = $"'{StringExtensions.Join(", ", r.Expectations)}' minimum {minimumCount.Value} times, but found {count}";
+                    else
+                        exp = $"'{StringExtensions.Join(", ", r.Expectations)}' between {minimumCount.Value} and {maximumCount.Value} times, but found {count}";
+
+                    return Result.Failure<IEnumerable<T>>(i, msg, new[] { exp });
+                }
+
+                return Result.Success<IEnumerable<T>>(result, remainder);
+            };
+        }
+
+        /// <summary>
+        /// 
+        /// </summary>
+        /// <param name="parser"></param>
+        /// <param name="open"></param>
+        /// <param name="close"></param>
+        /// <typeparam name="T"></typeparam>
+        /// <typeparam name="U"></typeparam>
+        /// <typeparam name="V"></typeparam>
+        /// <returns></returns>
+        /// <exception cref="ArgumentNullException"></exception>
+        public static Parser<T> Contained<T, U, V>(this Parser<T> parser, Parser<U> open, Parser<V> close)
+        {
+            if (parser == null) throw new ArgumentNullException(nameof(parser));
+            if (open == null) throw new ArgumentNullException(nameof(open));
+            if (close == null) throw new ArgumentNullException(nameof(close));
+
+            return from o in open
+                   from item in parser
+                   from c in close
+                   select item;
+        }
+    }
+}