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

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

[elpa] externals/phps-mode a449b5b 42/96: Improved formatting of generat


From: Christian Johansson
Subject: [elpa] externals/phps-mode a449b5b 42/96: Improved formatting of generated productions
Date: Fri, 29 Oct 2021 11:14:43 -0400 (EDT)

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

    Improved formatting of generated productions
---
 admin/phps-mode-grammar-parser-generator.el | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/admin/phps-mode-grammar-parser-generator.el 
b/admin/phps-mode-grammar-parser-generator.el
index b78a6af..a641a05 100644
--- a/admin/phps-mode-grammar-parser-generator.el
+++ b/admin/phps-mode-grammar-parser-generator.el
@@ -55,7 +55,7 @@
        Productions-Block)
       (Productions-Block
        (Productions-Delimiter Productions Productions-Delimiter
-                              (lambda(args) (format "'(\n%s\n)" (nth 1 args))))
+                              (lambda(args) (format "'(\n\n%s\n\n)" (nth 1 
args))))
        )
       (Productions-Delimiter
        (productions-delimiter
@@ -79,26 +79,31 @@
        )
       (RHSS
        (RHS
-        (lambda(args) (format "%s" args)))
+        (lambda(args) (format "(%s)" args)))
        (RHSS "|" RHS
-             (lambda(args) (format "%s\n  %s" (nth 0 args) (nth 2 args))))
+             (lambda(args) (format "%s\n  (%s)" (nth 0 args) (nth 2 args))))
        )
       (RHS
        (RHS-Symbol
         (lambda(args) (format "%s" args)))
        (RHS
         RHS-Symbol
-        (lambda (args) (format "%s %s" (nth 0 args) (nth 1 args))))
+        (lambda (args) (if (string= (nth 1 args) "") (format "%s" (nth 0 
args))(format "%s %s" (nth 0 args) (nth 1 args)))))
        )
-      (RHS-Symbol Comment Logic Symbol)
-      (Comment (comment (lambda(args) "")))
+      (RHS-Symbol
+       Comment
+       Logic
+       Symbol)
+      (Comment
+       (comment
+        (lambda(args) "")))
       (Logic
        (logic
         (lambda(args) ""))
        )
       (Symbol
        (symbol
-       (lambda(args) (format "%s" args)))
+        (lambda(args) (format "%s" args)))
        (literal
         (lambda(args) (format "%S" (substring args 1 2))))
        )



reply via email to

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