From 180843f9bd28b191c7404245ba0a121107992511 Mon Sep 17 00:00:00 2001
From: Robin Gareus <robin@gareus.org>
Date: Sun, 23 Feb 2020 20:48:02 +0100
Subject: Also move Lua scripts to share subfolder

---
 share/scripts/s_portengine.lua | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 share/scripts/s_portengine.lua

(limited to 'share/scripts/s_portengine.lua')

diff --git a/share/scripts/s_portengine.lua b/share/scripts/s_portengine.lua
new file mode 100644
index 0000000000..ebca9ff696
--- /dev/null
+++ b/share/scripts/s_portengine.lua
@@ -0,0 +1,35 @@
+ardour { ["type"] = "Snippet", name = "portengine" }
+function factory () return function ()
+
+	local a = Session:engine()
+	print ("----- Port objects from Ardour's engine ----");
+	_, t = a:get_ports (ARDOUR.DataType("audio"), ARDOUR.PortList())
+	-- table 't' holds argument references. t[2] is the PortList
+	for p in t[2]:iter() do
+		local lp = p:get_connected_latency_range (ARDOUR.LatencyRange(), true)
+		local lc = p:get_connected_latency_range (ARDOUR.LatencyRange(), false)
+		print (p:name(), " -- Play lat.", lp[1].min, lp[1].max, "Capt lat.", lc[1].min, lc[1].max)
+	end
+
+	print ("----- Port names queries from the backend ----");
+	_, t = a:get_backend_ports ("", ARDOUR.DataType("audio"), 0, C.StringVector())
+	-- table 't' holds argument references. t[4] is the StringVector
+	for n in t[4]:iter() do
+		print (n)
+	end
+
+	print ("----- Connections from the backend ----");
+	_, t = a:get_backend_ports ("", ARDOUR.DataType("audio"), ARDOUR.PortFlags.IsOutput, C.StringVector())
+	for n in t[4]:iter() do
+		local printed_name = false;
+		local _, ct = a:get_connections (n, C.StringVector())
+		for c in ct[2]:iter() do
+			if (not printed_name) then
+				printed_name = true;
+				print (n)
+			end
+			print (" ->", c)
+		end
+	end
+
+end end
-- 
cgit v1.2.3