VPP-243 - Coding style changes - updated emacs LISP styleify

[vpp.git] / build-root / emacs-lisp / fix-coding-style.el

diff --git a/build-root/emacs-lisp/fix-coding-style.el b/build-root/emacs-lisp/fix-coding-style.el
index 6010ac2..3b5ff56 100755 (executable)
--- a/build-root/emacs-lisp/fix-coding-style.el
+++ b/build-root/emacs-lisp/fix-coding-style.el
@@ -41,6 +41,9 @@
 (defun fix-pool-foreach () (interactive)
        (fix-initializer "pool_foreach *("))
 
+(defun fix-pool-foreach-index () (interactive)
+       (fix-initializer "pool_foreach_index *("))
+
 (defun fix-hash-foreach () (interactive)
        (fix-initializer "hash_foreach *("))
 
@@ -68,12 +71,15 @@
 (defun fix-vlib-register-node () (interactive)
        (fix-initializer "VLIB_REGISTER_NODE *("))
 
+(defun fix-reply-macro2 () (interactive)
+       (fix-initializer "REPLY_MACRO2 *("))
 
 ;; Driver routine which runs the set of functions
 ;; defined above, as well as the bottom boilerplate function
 
 (defun fd-io-styleify () (interactive)
        (fix-pool-foreach)
+       (fix-pool-foreach-index)
        (fix-hash-foreach)
        (fix-hash-foreach-pair)
        (fix-hash-foreach-mem)
@@ -83,6 +89,7 @@
        (fix-vlib-register-thread)
        (fix-vlib-cli-command)
        (fix-vlib-register-node)
+       (fix-reply-macro2)
        (insert-style-boilerplate))
 
 
@@ -99,5 +106,8 @@
         (message "Processing %s..." (elt argv index))
         (find-file (elt argv index))
         (fd-io-styleify)
-        (setq index (1+ index))
-        (save-buffers-kill-emacs t))))
+        (setq index (1+ index))))
+  (if (> index 0)
+      (save-buffers-kill-emacs t)))
+  
+