branch: externals/parser-generator
commit e56bcffe1a1fbeda9bb8e8dddf5034f645ad8ede
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Improved output of productions and action-tables
---
parser-generator-lr.el | 2 +-
parser-generator.el | 11 +++--------
2 files changed, 4 insertions(+), 9 deletions(-)
diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index 5dda227..38cbba7 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -471,7 +471,7 @@
(message "%s actions %s" goto-index action-table))
(when action-table
(message
- "ACTION-TABLE (%d): %s\n"
+ "ACTION-TABLE (%d): %S\n"
goto-index
action-table)
(push
diff --git a/parser-generator.el b/parser-generator.el
index b397aec..28cefce 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -491,14 +491,9 @@
lhs
(reverse new-rhs)))
(message
- "Production %s: %s"
+ "Production %s: %S"
production-index
production)
- (parser-generator--debug
- (message
- "Production %s: %s"
- production-index
- production))
(push
(reverse new-rhs)
new-value)
@@ -1036,14 +1031,14 @@
production-lhs)
(parser-generator--debug
(message
- "Production '%s' unexpanded due to
self-reference, ignore flag."
+ "Production '%S' unexpanded due to
self-reference, ignore flag."
production-lhs)))
((gethash
unexpanded-non-terminal
f-set)
(parser-generator--debug
(message
- "Production '%s' is un-expanded due to
reference to previously processed production '%s', ignore flag."
+ "Production '%S' is un-expanded due to
reference to previously processed production '%S', ignore flag."
production-lhs
unexpanded-non-terminal
)))
