branch: externals/parser-generator commit 4297a9b43e9f2ecf475360fb9e90c04f6eae21d8 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
Added another failing test for FIRST(x) were first symbol can be %empty --- parser-generator-lr.el | 2 +- parser-generator.el | 2 +- test/parser-generator-lr-test.el | 7 +++++++ 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/parser-generator-lr.el b/parser-generator-lr.el index 1c79e0162e..3718857c28 100644 --- a/parser-generator-lr.el +++ b/parser-generator-lr.el @@ -1558,7 +1558,7 @@ lr-item-suffix-first lr-item-suffix) (message - "lr-item-suffix-rest: %s from %s + %s" + "lr-item-suffix-rest: %s from %s + %s\n" lr-item-suffix-rest (cdr lr-item-suffix) (nth 3 lr-item))) diff --git a/parser-generator.el b/parser-generator.el index 9c42cb114e..77e5ba28c8 100644 --- a/parser-generator.el +++ b/parser-generator.el @@ -45,7 +45,7 @@ (defvar parser-generator--debug - t + nil "Whether to print debug messages or not.") (defvar diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el index c5c06870b9..6a65c9ee8f 100644 --- a/test/parser-generator-lr-test.el +++ b/test/parser-generator-lr-test.el @@ -1215,6 +1215,13 @@ (parser-generator-set-look-ahead-number 1) (parser-generator-process-grammar) (parser-generator-lr-generate-parser-tables) + + ;; TODO Make this test pass + (should + (equal + (parser-generator--first '(inner_statement_list T_CASE)) + '((T_CASE) (T_ECHO) (T_SWITCH)))) + (setq parser-generator-lex-analyzer--function (lambda (index)