globals: Add LIST_MACROS debugging macro

globals.cfg

@@ -359,3 +359,51 @@ gcode:
     {% endif %}
   {% endfor %}
   { action_respond_info(output|join("\n")) }
+
+[gcode_macro list_macros]
+description: Lists registered macros (and optionally show variable state).
+  Usage: LISTVARS SEARCH=<search_string> VARS=<0|1>
+variable_macros: {}
+gcode:
+  {% set SEARCH = params.SEARCH | default(params.S) | default("") | lower %}
+  {% set VARS = params.VARS | default(params.V) | default(0) | int != 0 %}
+
+  # Load the config state once and save it.
+  {% if not macros %}
+    {% set renames = {} %}
+    {% for k in printer.configfile.config %}
+      {% if k.lower().startswith("gcode_macro") and
+            printer.configfile.config[k].rename_existing %}
+          {% set name = k.split(None, 1)[1] | lower %}
+          {% set dummy = renames.__setitem__(name,
+                          [printer.configfile.config[k].rename_existing] +
+                          (renames[name] if name in renames else [])) %}
+      {% endif %}
+    {% endfor %}
+    {% for k in printer %}
+      {% if k.lower().startswith("gcode_macro") %}
+        {% set name = k.split(None, 1)[1] | lower %}
+        {% set dummy = macros.__setitem__(k, renames[name] if renames[name] else
+                                          []) %}
+      {% endif %}
+    {% endfor %}
+  {% endif %}
+
+  {% set output = [] %}
+  {% for k in macros %}
+    {% if SEARCH in k | lower %}
+      {% set line = k.split(None, 1)[1] %}
+      {% if macros[k] %}
+        {% set line = "%s (renames: %s)" % (line, macros[k] | join(",")) %}
+      {% endif %}
+      {% set outvars = [] %}
+      {% if VARS %}
+        {% for v in printer[k] | sort %}
+          {% set dummy = outvars.append(
+                           "\n* %s: %s" % (v, printer[k][v]|string)) %}
+        {% endfor %}
+      {% endif %}
+      {% set dummy = output.append(line + outvars | join("")) %}
+    {% endif %}
+  {% endfor %}
+  { action_respond_info(output | sort | join("\n")) }