branch: externals/parser-generator
commit 79c06fdac557da6da25714bacdd2fe01f7623aad
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
Added error signal if no parser action or LR-item set is found
---
parser-lr.el | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/parser-lr.el b/parser-lr.el
index c79e4b3..e62300c 100644
--- a/parser-lr.el
+++ b/parser-lr.el
@@ -66,7 +66,7 @@
(cond
((eq state 'shift)
- ;; TODO (a) f(u) = shift if [A -> B . C, v] is in
LR-items, C != e and u is in EFF(Cv)
+ ;; (a) f(u) = shift if [A -> B . C, v] is in LR-items, C
!= e and u is in EFF(Cv)
(when (nth 2 lr-item)
(let ((C (nth 2 lr-item))
(v (nth 3 lr-item)))
@@ -139,13 +139,8 @@
((eq state 'error)
(unless found-action
- (message "%s -> 'error" lr-item)
- ;; TODO Save error action here?
- ;; TODO (d) f(u) = error otherwise
- )
- (setq continue-loop nil))
-
- )
+ (error (format "Failed to find any action in set %s"
lr-items)))
+ (setq continue-loop nil)))
(setq lr-item-index (1+ lr-item-index)))))))
(parser--debug
(message "%s actions %s" goto-index action-table))
