branch: externals/parser-generator
commit 15dc4723ae50430eb6c7f9371d83c43464430495
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Added TODO items
---
parser.el | 7 +++++++
test/parser-test.el | 11 ++++++++++-
2 files changed, 17 insertions(+), 1 deletion(-)
diff --git a/parser.el b/parser.el
index 5c4807d..c14f199 100644
--- a/parser.el
+++ b/parser.el
@@ -643,6 +643,13 @@
(setq follow-set (parser--distinct follow-set)))
follow-set))
+;; Algorithm 5.9, p. 389
+(defun parser-test--lr-items-for-grammar ()
+ "Calculate set of valid LR(k) items for grammar."
+ (let ((lr-items))
+ ;; TODO Implement this
+ lr-items))
+
;; Algorithm 5.8, p. 386
(defun parser--lr-items-for-prefix (γ)
"Calculate valid LR-items for the viable prefix Γ."
diff --git a/test/parser-test.el b/test/parser-test.el
index bf3ccee..711d48a 100644
--- a/test/parser-test.el
+++ b/test/parser-test.el
@@ -223,6 +223,14 @@
(message "Passed tests for (parser--empty-free-first)"))
+(defun parser-test--lr-items-for-grammar ()
+ "Test `parser--lr-items-for-grammar'."
+ (message "Starting tests for (parser--lr-items-for-grammar)")
+
+ ;; TODO Do tests here
+
+ (message "Passed tests for (parser--lr-items-for-grammar)"))
+
(defun parser-test--lr-items-for-prefix ()
"Test `parser--lr-items-for-prefix'."
(message "Starting tests for (parser--lr-items-for-prefix)")
@@ -397,7 +405,8 @@
(parser-test--first)
(parser-test--e-free-first)
(parser-test--follow)
- (parser-test--lr-items-for-prefix))
+ (parser-test--lr-items-for-prefix)
+ (parser-test--lr-items-for-grammar))
(provide 'parser-test)
