[elpa] externals/phps-mode 0f355f6f4d 05/15: Formatted automation output as elisp comments

[Christian Johansson]

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

    Formatted automation output as elisp comments
---
 admin/phps-mode-automation.el            | 22 +++++++++++-----------
 phps-mode-automation-parser-generator.el |  4 ++--
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/admin/phps-mode-automation.el b/admin/phps-mode-automation.el
index 86c6d1b487..44b2afd769 100644
--- a/admin/phps-mode-automation.el
+++ b/admin/phps-mode-automation.el
@@ -37,7 +37,7 @@
                (grammar (phps-mode-automation-parser-generator--grammar))
                (context-sensitive-attributes 
phps-mode-automation-parser-generator--context-sensitive-attributes))
 
-          (message "Generated Grammar:\n%S" grammar)
+          (message ";; Generated Grammar:\n%S" grammar)
 
           ;; Prepare export
           (when (fboundp 'parser-generator-set-grammar)
@@ -48,19 +48,19 @@
             (setq
              parser-generator--context-sensitive-attributes
              context-sensitive-attributes)
-            (message "parser-generator--context-sensitive-attributes: %S" 
parser-generator--context-sensitive-attributes))
+            (message "(setq parser-generator--context-sensitive-attributes 
%S)" parser-generator--context-sensitive-attributes))
 
           (when (boundp 
'parser-generator-lr--context-sensitive-precedence-attribute)
             (setq
              parser-generator-lr--context-sensitive-precedence-attribute
              (car context-sensitive-attributes))
-            (message 
"parser-generator-lr--context-sensitive-precedence-attribute: %S" 
parser-generator-lr--context-sensitive-precedence-attribute))
+            (message "(setq 
parser-generator-lr--context-sensitive-precedence-attribute %S)" 
parser-generator-lr--context-sensitive-precedence-attribute))
 
           (when (boundp 'parser-generator--global-declaration)
             (setq
              parser-generator--global-declaration
              global-declaration)
-            (message "parser-generator--global-declaration: %S" 
parser-generator--global-declaration))
+            (message "(setq parser-generator--global-declaration %S)" 
parser-generator--global-declaration))
 
           (when (boundp 'parser-generator--global-attributes)
             (setq
@@ -71,7 +71,7 @@
             (setq
              parser-generator-lr--global-precedence-attributes
              attributes)
-            (message "parser-generator-lr--global-precedence-attributes: %S" 
parser-generator-lr--global-precedence-attributes)))
+            (message "(setq parser-generator-lr--global-precedence-attributes 
%S)" parser-generator-lr--global-precedence-attributes)))
 
         (when (fboundp 'parser-generator-set-look-ahead-number)
           (parser-generator-set-look-ahead-number
@@ -117,7 +117,7 @@
 
         (when (fboundp 'parser-generator-lr--generate-precedence-tables)
           (parser-generator-lr--generate-precedence-tables)
-          (message "Precedence Tables")
+          (message ";; Precedence Tables")
           (when (boundp 'parser-generator-lr--symbol-precedence-value)
             (message
              "(setq parser-generator-lr--symbol-precedence-value %S)"
@@ -162,14 +162,14 @@
                 (setq
                  parser-generator-lr--distinct-action-tables
                  parser-generator-lr--distinct-action-tables-resume)
-                (message "Parser tables are defined - skipping generation"))
+                (message ";; Parser tables are defined - skipping generation"))
             (progn
-              (message "Parser tables are not defined - generating..")
+              (message ";; Parser tables are not defined - generating..")
               (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: %S"
                    table-lr-items)
                   (when (boundp 'parser-generator-lr--goto-tables)
                     (message
@@ -202,9 +202,9 @@
           (insert export)
           (write-file parser-file-name)
           (kill-buffer)
-          (message "export: %s" export))
+          (message ";; export: %s" export))
 
-        (message "Automation completed"))
+        (message ";; Automation completed"))
     (error "Emacs parser generator must be available!")))
 
 (provide 'phps-mode-automation)
diff --git a/phps-mode-automation-parser-generator.el 
b/phps-mode-automation-parser-generator.el
index d752ce93e3..1cbbff0e22 100644
--- a/phps-mode-automation-parser-generator.el
+++ b/phps-mode-automation-parser-generator.el
@@ -63,11 +63,11 @@
     ;; Download YACC if not available (seems to now work in batch mode for 
some reason)
     (unless (file-exists-p php-yacc-file)
       (message
-       "Downloading PHP 8.1 YACC grammar.. since %S does not exists" 
php-yacc-file)
+       ";; Downloading PHP 8.1 YACC grammar.. since %S does not exists" 
php-yacc-file)
       (with-current-buffer (url-retrieve-synchronously php-yacc-url)
         (write-file php-yacc-file))
       (message
-       "Download of PHP 8.1 YACC grammar completed"))
+       ";; Download of PHP 8.1 YACC grammar completed"))
 
     (unless (file-exists-p php-yacc-file)
       (error "Missing PHP YACC grammar at %s!" php-yacc-file))))