emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/phps-mode eb17d8c 51/96: Improved resuming of parser-ge


From: Christian Johansson
Subject: [elpa] externals/phps-mode eb17d8c 51/96: Improved resuming of parser-generation
Date: Fri, 29 Oct 2021 11:14:45 -0400 (EDT)

branch: externals/phps-mode
commit eb17d8c06c71bcc3a490ba676bcb63e1941601af
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Improved resuming of parser-generation
---
 admin/phps-mode-automation.el | 39 ++++++++++++++++++++++++++-------------
 1 file changed, 26 insertions(+), 13 deletions(-)

diff --git a/admin/phps-mode-automation.el b/admin/phps-mode-automation.el
index 01b6729..e0fe7cd 100644
--- a/admin/phps-mode-automation.el
+++ b/admin/phps-mode-automation.el
@@ -126,15 +126,28 @@
 
           ;; Only generate LR-items, GOTO-tables and ACTION-tables if we are 
lacking it
           (if (and
-               (boundp 'parser-generator-lr--goto-tables)
-               parser-generator-lr--goto-tables
-               (boundp 'parser-generator-lr--distinct-goto-tables)
-               parser-generator-lr--distinct-goto-tables
-               (boundp 'parser-generator-lr--action-tables)
-               parser-generator-lr--action-tables
-               (boundp 'parser-generator-lr--distinct-action-tables)
-               parser-generator-lr--distinct-action-tables)
-              (message "Parser tables are defined - skipping generation")
+               (boundp 'parser-generator-lr--goto-tables-resume)
+               parser-generator-lr--goto-tables-resume
+               (boundp 'parser-generator-lr--distinct-goto-tables-resume)
+               parser-generator-lr--distinct-goto-tables-resume
+               (boundp 'parser-generator-lr--action-tables-resume)
+               parser-generator-lr--action-tables-resume
+               (boundp 'parser-generator-lr--distinct-action-tables-resume)
+               parser-generator-lr--distinct-action-tables-resume)
+              (progn
+                (setq
+                 parser-generator-lr--goto-tables
+                 parser-generator-lr--goto-tables-resume)
+                (setq
+                 parser-generator-lr--distinct-goto-tables
+                 parser-generator-lr--distinct-goto-tables-resume)
+                (setq
+                 parser-generator-lr--action-tables
+                 parser-generator-lr--action-tables-resume)
+                (setq
+                 parser-generator-lr--distinct-action-tables
+                 parser-generator-lr--distinct-action-tables-resume)
+                (message "Parser tables are defined - skipping generation"))
             (progn
               (message "Parser tables are not defined - generating..")
               (when (fboundp 'parser-generator-lr--generate-goto-tables)
@@ -145,21 +158,21 @@
                    table-lr-items)
                   (when (boundp 'parser-generator-lr--goto-tables)
                     (message
-                     "parser-generator-lr--goto-tables: %S"
+                     "(setq parser-generator-lr--goto-tables-resume %S)"
                      parser-generator-lr--goto-tables))
                   (when (boundp 'parser-generator-lr--distinct-goto-tables)
                     (message
-                     "parser-generator-lr--distinct-goto-tables: %S"
+                     "(setq parser-generator-lr--distinct-goto-tables-resume 
%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"
+                       "(setq parser-generator-lr--action-tables-resume %S)"
                        parser-generator-lr--action-tables))
                     (when (boundp 'parser-generator-lr--distinct-action-tables)
                       (message
-                       "parser-generator-lr--distinct-action-tables: %S"
+                       "(setq 
parser-generator-lr--distinct-action-tables-resume %S)"
                        parser-generator-lr--distinct-action-tables))))))))
 
         ;; NOTE This does not work if functions above are byte-compiled



reply via email to

[Prev in Thread] Current Thread [Next in Thread]