From 3ce5e0217f236fa6d2ac681bb3526a6c9331bcb7 Mon Sep 17 00:00:00 2001
From: Robin Gareus <robin@gareus.org>
Date: Sun, 30 Dec 2018 22:39:20 +0100
Subject: [PATCH] Add a script to list all plugins in the session

---
 scripts/_dump_plugins.lua | 44 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 scripts/_dump_plugins.lua

diff --git a/scripts/_dump_plugins.lua b/scripts/_dump_plugins.lua
new file mode 100644
index 0000000000..5d265b2da2
--- /dev/null
+++ b/scripts/_dump_plugins.lua
@@ -0,0 +1,44 @@
+ardour { ["type"] = "Snippet", name = "Dump Plugins",
+	license     = "MIT",
+	author      = "Ardour Team",
+}
+
+function factory () return function ()
+	local all_plugs = {}
+
+	for r in Session:get_routes ():iter () do
+		if r:is_monitor () or r:is_auditioner () then goto nextroute end -- skip special routes
+		local i = 0
+		while true do
+			local proc = r:nth_plugin (i)
+			if proc:isnil () then break end
+			local pi = proc:to_insert () -- we know it's a plugin-insert (we asked for nth_plugin)
+			local pp = pi:plugin (0)
+			local id = pi:type() .. "-" .. pp:unique_id()
+			local cnt = 0
+			if all_plugs[id] then cnt = all_plugs[id]['cnt'] end
+			all_plugs[id] = { name = proc:name(), ["type"] = pi:type(), id = pp:unique_id(), cnt = (cnt + 1) }
+			i = i + 1
+		end
+		::nextroute::
+	end
+
+	function plugintypestr (t)
+		if (t == ARDOUR.PluginType.LADSPA) then  return "LADSPA" end
+		if (t == ARDOUR.PluginType.LV2) then return "LV2" end
+		if (t == ARDOUR.PluginType.AudioUnit) then return "AU" end
+		if (t == ARDOUR.PluginType.Windows_VST) then return "VST" end
+		if (t == ARDOUR.PluginType.LXVST) then return "VST" end
+		if (t == ARDOUR.PluginType.MacVST) then return "VST" end
+		if (t == ARDOUR.PluginType.Lua) then return "Lua" end
+		return "??"
+	end
+
+	for k,v in pairs (all_plugs) do
+		print (string.format ("%2d * %-6s %-30s (%s)", v['cnt'], plugintypestr(v['type']), v['name'], v['id']))
+	end
+
+	all_plugs = nil
+	collectgarbage ();
+
+end end