[elpa] externals/parser-generator b7cc77dee3 3/4: Formatting progress output as elisp comments

[Christian Johansson]

branch: externals/parser-generator
commit b7cc77dee34686842352aee6bdc4f578622f76b6
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Formatting progress output as elisp comments
---
 parser-generator-lr-export.el |  4 ++--
 parser-generator-lr.el        | 18 +++++++++---------
 parser-generator.el           |  8 ++++----
 3 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/parser-generator-lr-export.el b/parser-generator-lr-export.el
index 0a1a6c3c82..600b68ecb3 100644
--- a/parser-generator-lr-export.el
+++ b/parser-generator-lr-export.el
@@ -13,7 +13,7 @@
 
 (defun parser-generator-lr-export-to-elisp (namespace &optional header 
copyright)
   "Export parser with NAMESPACE and a optional HEADER and COPYRIGHT."
-  (message "\nStarting generation of elips..\n")
+  (message "\n;; Starting generation of elips..\n")
 
   ;; Make sure all requisites are defined
   (unless parser-generator-lr--action-tables
@@ -1004,7 +1004,7 @@
        (buffer-substring-no-properties
         (point-min)
         (point-max))))
-    (message "\nCompleted generation of elips.\n")
+    (message "\n;; Completed generation of elips.\n")
     code))
 
 
diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index dd4e58822a..d57f691906 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -254,13 +254,13 @@
 
 (defun parser-generator-lr-generate-parser-tables ()
   "Generate parsing tables for grammar."
-  (message "\nStarting generation of parser-tables..\n")
+  (message "\n;; Starting generation of parser-tables..\n")
   (parser-generator-lr--generate-precedence-tables)
   (let ((table-lr-items
          (parser-generator-lr--generate-goto-tables)))
     (parser-generator-lr--generate-action-tables
      table-lr-items)
-    (message "\nCompleted generation of parser-tables.\n")
+    (message "\n;; Completed generation of parser-tables.\n")
     table-lr-items))
 
 (defun parser-generator-lr--get-expanded-action-tables ()
@@ -700,7 +700,7 @@
             action-table
             'parser-generator--sort-list))
           (message
-           "ACTION-TABLE (%d): %S\n"
+           ";; ACTION-TABLE (%d): %S\n"
            goto-index
            action-table)
           (push
@@ -753,12 +753,12 @@
         (setq
          table-index
          (1+ table-index)))))
-  (message "\nCompleted generation of action-tables..\n"))
+  (message "\n;; Completed generation of action-tables..\n"))
 
 ;; Algorithm 5.9, p. 389
 (defun parser-generator-lr--generate-goto-tables ()
   "Calculate set of valid LR(k) items for grammar and a GOTO-table."
-  (message "\nStarting generation of goto-tables..\n")
+  (message "\n;; Starting generation of goto-tables..\n")
   (parser-generator--debug
    (message "(parser-generator-lr--generate-goto-tables)"))
   (let ((lr-item-set-new-index 0)
@@ -936,7 +936,7 @@
                        total-count
                        (1+ total-count))
                       (message
-                       "Found new distinct set of LR-items: %d"
+                       ";; Found a new distinct set of LR-items number: %d"
                        total-count)
                       ;; (2) Mark a
                       (puthash
@@ -953,7 +953,7 @@
           goto-table-table
           'parser-generator--sort-list))
         (message
-         "GOTO-TABLE (%d): %S\n"
+         ";; GOTO-TABLE (%d): %S\n"
          lr-item-set-index
          goto-table-table)
         (push
@@ -965,7 +965,7 @@
          marked-count
          (1+ marked-count))
         (message
-         "Progress: %s / %s = %d%%\n"
+         ";; Progress: %s / %s = %d%%\n"
          marked-count
          total-count
          (* 100 (/ (float marked-count) (float total-count))))))
@@ -1019,7 +1019,7 @@
              goto-table-index
              parser-generator-lr--goto-tables))))
         (setq table-index (1+ table-index))))
-    (message "\nCompleted generation of goto-tables.\n")
+    (message "\n;; Completed generation of goto-tables.\n")
     table-lr-items))
 
 ;; Algorithm 5.10, p. 391
diff --git a/parser-generator.el b/parser-generator.el
index 4150d30bb2..498c210810 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -592,7 +592,7 @@
                     lhs
                     (reverse new-rhs)))
                   (message
-                   "Production %s: %S"
+                   ";; Production %s: %S"
                    production-index
                    production)
                   (push
@@ -676,7 +676,7 @@
 
 (defun parser-generator-process-grammar ()
   "Process grammar."
-  (message "\nStarting process of grammar..\n")
+  (message "\n;; Starting process of grammar..\n")
   (parser-generator--clear-cache)
   (unless parser-generator--look-ahead-number
     (error "No look-ahead-number defined!"))
@@ -684,7 +684,7 @@
       (parser-generator--valid-look-ahead-number-p
        parser-generator--look-ahead-number)
     (error "Invalid look-ahead number k!"))
-  (message "k = %d" parser-generator--look-ahead-number)
+  (message ";; k = %d" parser-generator--look-ahead-number)
   (unless parser-generator--grammar
     (error "No grammar defined!"))
   (unless
@@ -692,7 +692,7 @@
        parser-generator--grammar)
     (error "Invalid grammar G!"))
   (parser-generator--load-symbols)
-  (message "\nCompleted process of grammar\n"))
+  (message "\n;; Completed process of grammar\n"))
 
 (defun parser-generator--sort-list (a b)
   "Return non-nil if a element in A is greater than a element in B in 
lexicographic order."