branch: externals/parser-generator
commit 7e1d2fb6d764789fdb458ebe5203ff08411ad6db
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Added TODO notes
---
parser-generator-lr.el | 2 ++
test/parser-generator-lr-test.el | 4 ++--
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index 4b9d7d2..ab23621 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -994,6 +994,7 @@
(setq set-index (1+ set-index)))
valid-p))
+;; TODO Need to consider production-numbers as well
(defun parser-generator-lr--symbol-takes-precedence-p (a b)
"Return t if A takes precedence over B, otherwise nil."
(let ((takes-precedence)
@@ -1075,6 +1076,7 @@
errors)))
takes-precedence))
+;; TODO Must consider production-numbers
(defun parser-generator-lr--conflict-can-be-resolved-by-attributes (a b)
"Return whether a conflict between A and B can be resolved by attributes."
(let ((can-be-resolved))
diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el
index 5d0fc96..5620b93 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -142,7 +142,7 @@
(Sp S)
(S (A c) B)
(A (a b))
- (B (a b (c (%prec FIRST))))
+ (B (a b c %prec FIRST))
)
Sp))
(parser-generator-set-look-ahead-number 1)
@@ -1711,7 +1711,7 @@
"Run test."
;; (setq debug-on-error nil)
- (parser-generator-lr-test-infix-calculator)
+ ;; (parser-generator-lr-test-infix-calculator)
(parser-generator-lr-test--items-for-prefix)
(parser-generator-lr-test--items-valid-p)
(parser-generator-lr-test--generate-goto-tables)
