branch: externals/phps-mode
commit 60344ea5d342372b25b198e86f82ce9d7ff67745
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Improved recovery in automation by dumping generated data
---
admin/phps-mode-automation.el | 46 +++++++++++++++++++++++++++++++++++++++++--
1 file changed, 44 insertions(+), 2 deletions(-)
diff --git a/admin/phps-mode-automation.el b/admin/phps-mode-automation.el
index b76528d..a2b2ebf 100644
--- a/admin/phps-mode-automation.el
+++ b/admin/phps-mode-automation.el
@@ -115,8 +115,50 @@
(when (fboundp 'parser-generator-process-grammar)
(parser-generator-process-grammar))
- (when (fboundp 'parser-generator-lr-generate-parser-tables)
- (parser-generator-lr-generate-parser-tables))
+ (when (fboundp 'parser-generator-lr--generate-precedence-tables)
+ (parser-generator-lr--generate-precedence-tables)
+ (message "Precedence Tables")
+ (when (boundp 'parser-generator-lr--symbol-precedence-value)
+ (message
+ "parser-generator-lr--symbol-precedence-value: %S"
+ parser-generator-lr--symbol-precedence-value))
+ (when (boundp 'parser-generator-lr--symbol-precedence-type)
+ (message
+ "parser-generator-lr--symbol-precedence-type: %S"
+ parser-generator-lr--symbol-precedence-type))
+ (when (boundp 'parser-generator-lr--production-number-precedence-value)
+ (message
+ "parser-generator-lr--production-number-precedence-value: %S"
+ parser-generator-lr--production-number-precedence-value))
+ (when (boundp 'parser-generator-lr--production-number-precedence-type)
+ (message
+ "parser-generator-lr--production-number-precedence-type: %S"
+ parser-generator-lr--production-number-precedence-type))
+
+ (when (fboundp 'parser-generator-lr--generate-goto-tables)
+ (let ((table-lr-items
+ (parser-generator-lr--generate-goto-tables)))
+ (message
+ "table-lr-items: %S"
+ table-lr-items)
+ (when (boundp 'parser-generator-lr--goto-tables)
+ (message
+ "parser-generator-lr--goto-tables: %S"
+ parser-generator-lr--goto-tables))
+ (when (boundp 'parser-generator-lr--distinct-goto-tables)
+ (message
+ "parser-generator-lr--distinct-goto-tables: %S"
+ parser-generator-lr--distinct-goto-tables))
+ (when (fboundp 'parser-generator-lr--generate-action-tables)
+ (parser-generator-lr--generate-action-tables table-lr-items)
+ (when (boundp 'parser-generator-lr--action-tables)
+ (message
+ "parser-generator-lr--action-tables: %S"
+ parser-generator-lr--action-tables))
+ (when (boundp 'parser-generator-lr--distinct-action-tables)
+ (message
+ "parser-generator-lr--distinct-action-tables: %S"
+ parser-generator-lr--distinct-action-tables))))))
;; Export
(let ((export (parser-generator-lr-export-to-elisp "phps-mode-parser")))
