1 files changed, 86 insertions, 0 deletions
diff --git a/mesecons_luacontroller/docmanager.lua b/mesecons_luacontroller/docmanager.lua
new file mode 100644
index 0000000..ad7b2d4
--- /dev/null
+++ b/mesecons_luacontroller/docmanager.lua
@@ -0,0 +1,86 @@
+mesecon.lc_docs = {}
+
+--Other mods can place their own examples in here.
+--The table key will be used as the name.
+mesecon.lc_docs.examples = {}
+
+minetest.register_on_mods_loaded(function()
+	--Build a list of example names so that the order will stay the same when the formspecs are redrawn
+	mesecon.lc_docs.example_order = {}
+	for k in pairs(mesecon.lc_docs.examples) do
+		table.insert(mesecon.lc_docs.example_order,k)
+	end
+	table.sort(mesecon.lc_docs.example_order)
+end)
+
+function mesecon.lc_docs.generate_example_formspec(sel_index)
+	sel_index = math.max(sel_index,1)
+	sel_index = math.min(sel_index,#mesecon.lc_docs.example_order)
+	local selected_text = mesecon.lc_docs.examples[mesecon.lc_docs.example_order[sel_index]]
+	local fs = "textlist[0.25,0.6;3,9.05;example_list;"
+	for _,i in ipairs(mesecon.lc_docs.example_order) do
+		fs = fs..minetest.formspec_escape(i)..","
+	end
+	fs = string.sub(fs,1,-2)..";"..sel_index..";false]"
+	.."textarea[3.25,0.6;11.5,8.05;;;"..minetest.formspec_escape(selected_text).."]"
+	return fs
+end
+
+local included_examples = {
+	["R/S Latch"] = "rslatch.lua",
+	["Clock"] = "clock.lua",
+	["LCD Counter"] = "counter.lua",
+}
+
+for k,v in pairs(included_examples) do
+	local f = io.open(minetest.get_modpath("mesecons_luacontroller")..DIR_DELIM.."examples"..DIR_DELIM..v,"r")
+	mesecon.lc_docs.examples[k] = f:read("*all")
+	f:close()
+end
+
+--Other mods can provide their own help pages too, but the order of these must be specified and is not automatically sorted.
+--In this table, the key is a number representing the position in the list, and the value is the description.
+mesecon.lc_docs.help_order = {}
+--In this table, the key is the description and the value in the content.
+mesecon.lc_docs.help_pages = {}
+
+function mesecon.lc_docs.generate_help_formspec(sel_index)
+	sel_index = math.max(sel_index,1)
+	sel_index = math.min(sel_index,#mesecon.lc_docs.help_order)
+	local selected_text = mesecon.lc_docs.help_pages[mesecon.lc_docs.help_order[sel_index]]
+	local fs = "textlist[0.25,0.6;3,9.05;help_list;"
+	for _,i in ipairs(mesecon.lc_docs.help_order) do
+		fs = fs..minetest.formspec_escape(i)..","
+	end
+	fs = string.sub(fs,1,-2)..";"..sel_index..";false]"
+	.."textarea[3.25,0.6;11.5,9.05;;;"..minetest.formspec_escape(selected_text).."]"
+	return fs
+end
+
+local included_help_order = {
+	"Introduction",
+	"Events",
+	"Lua Functions",
+	"Mesecons I/O",
+	"Terminal I/O",
+	"Digilines I/O",
+	"Interrupts",
+}
+
+local included_help_content = {
+	["Introduction"] = "introduction.txt",
+	["Events"] = "events.txt",
+	["Lua Functions"] = "luafunctions.txt",
+	["Mesecons I/O"] = "mesecons.txt",
+	["Terminal I/O"] = "terminal.txt",
+	["Digilines I/O"] = "digilines.txt",
+	["Interrupts"] = "interrupts.txt",
+}
+
+for _,v in ipairs(included_help_order) do
+	local filename = included_help_content[v]
+	local f = io.open(minetest.get_modpath("mesecons_luacontroller")..DIR_DELIM.."help"..DIR_DELIM..filename,"r")
+	table.insert(mesecon.lc_docs.help_order,v)
+	mesecon.lc_docs.help_pages[v] = f:read("*all")
+	f:close()
+end