bin/ansible-inventory: Smash `-' to `_' in dictionary key keywords.

diff --git a/bin/ansible-inventory b/bin/ansible-inventory
index 25ad96183ec46a7e9eb9a18f182dd71709dae88d..6964d2ebeea2d3c2c48a65955e7561ea64e9b6ff 100755 (executable)
--- a/bin/ansible-inventory
+++ b/bin/ansible-inventory
@@ -61,7 +61,15 @@
   (print-json-itemstart)
   (pprint-logical-block (*standard-output* nil)
     (let ((*print-json-comma* nil))
   (print-json-itemstart)
   (pprint-logical-block (*standard-output* nil)
     (let ((*print-json-comma* nil))

-      (print-json-simple label))
+      (print-json-simple (if (not (keywordp label))
+                            label
+                            (with-output-to-string (out)
+                              (let ((labname (symbol-name label)))
+                                (dotimes (i (length labname))
+                                  (let ((ch (char labname i)))
+                                    (write-char (if (char= ch #\-) #\_
+                                                    (char-downcase ch))
+                                                out))))))))

     (princ ": ")
     (pprint-newline :miser)
     (let ((*print-json-comma* nil))
     (princ ": ")
     (pprint-newline :miser)
     (let ((*print-json-comma* nil))