Jellyfin.Plugin.SmartPlaylist/Lisp/Compiler/Parser.cs

@@ -40,19 +40,6 @@ namespace Jellyfin.Plugin.SmartPlaylist.Lisp.Compiler {
             return new String(r);
         }
 
-        Expression parse_comment(GroupingToken start, GroupingToken? end) {
-            Debug.Assert(end != null);
-            Debug.Assert(";".Contains(start.value));
-            while (_sts.Available() > 0) {
-                Token<string> t = _sts.Get();
-                if (t.value == end.value) {
-                    break;
-                }
-            }
-            _sts.Commit();
-            return parse();
-        }
-
         Expression parse_quote(GroupingToken start, GroupingToken? end) {
             Debug.Assert(end == null);
             Debug.Assert("'".Contains(start.value));
@@ -66,9 +53,6 @@ namespace Jellyfin.Plugin.SmartPlaylist.Lisp.Compiler {
             if ("'".Contains(start.value)) {
                 return parse_quote(start, end);
             }
-            if (";".Contains(start.value)) {
-                return parse_comment(start, end);
-            }
             Debug.Assert(end != null);
             IList<Expression> expressions = new List<Expression>();
             while (_sts.Available() > 0) {
@@ -77,13 +61,6 @@ namespace Jellyfin.Plugin.SmartPlaylist.Lisp.Compiler {
                     _sts.Commit();
                     break;
                 }
-                if (t is SpaceToken) {
-                    // need this here because those tokens can never
-                    // return an expression and trying to parse the last
-                    // expression will not work if its only spaces and a
-                    // closing parentheses.
-                    continue;
-                }
                 _sts.Rewind(1);
                 expressions.Add(parse());
             }

Jellyfin.Plugin.SmartPlaylist/Lisp/Compiler/TokenStream.cs

@@ -43,7 +43,7 @@ namespace Jellyfin.Plugin.SmartPlaylist.Lisp.Compiler {
                 return null;
             }
             char t = program.Get();
-            if ("()\"';".Contains(t)) {
+            if ("()\"'".Contains(t)) {
                 return new GroupingToken(t.ToString());
             }
             return null;
@@ -55,8 +55,6 @@ namespace Jellyfin.Plugin.SmartPlaylist.Lisp.Compiler {
                 return null;
             } else if (_value == "'") {
                 return null;
-            } else if (_value == ";") {
-                return new GroupingToken("\n");
             }
             return new GroupingToken(_value);
         }

Tests/Tests.cs

@@ -76,16 +76,6 @@ namespace Tests
             sts = StringTokenStream.generate(program);
             p = new Parser(sts);
             Assert.Equal(program, string.Format("{0}", p.parse()));
-
-            program = """
-                (begin ;this too
-                  ;;; this is a comment
-                  t
-                  )
-            """;
-            sts = StringTokenStream.generate(program);
-            p = new Parser(sts);
-            Assert.Equal("(begin t)", string.Format("{0}", p.parse()));
         }
 
         [Fact]