If the node has an inventory, show it!

init.lua

@@ -1,17 +1,156 @@
 --[[
-	--	Metadata Tools
+--  Metadata Tools
 --
---	A mod providing write and read access to a nodes' metadata using commands
+--  A mod providing write and read access to a nodes' metadata using commands
---	ßÿ Lymkwi/LeMagnesium/Mg ; 2015-2016
+--  ßÿ Lymkwi/LeMagnesium/Mg ; 2015-2016
---	License: WTFPL
+--  License: WTFPL
---	Contributors :
+--  Contributors :
---		- Lymkwi/LeMagnesium
+--  - Lymkwi/LeMagnesium
---		- Paly2
+--  - Paly2
+--  - Poikilos
 --
---	Version: 1.2.2
+--  Version: Poikilos fork of 1.2.2
 --
 ]]--
 
+local function token_indices(haystack, needle)
+	local results = {}
+	for i = 1, #haystack do
+		local try = haystack:sub(i,i + needle:len() - 1)
+		if try == needle then
+			table.insert(results, i)
+		end
+	end
+	return results
+end
+
+local function split_and_keep_token(s, needle)
+	local results = {}
+	local indices = token_indices(s, needle)
+	local start = 1
+	for k, v in pairs(indices) do
+		table.insert(results, s:sub(start, v))
+		start = v + 1
+	end
+	if start < #s then
+		table.insert(results, s:sub(start))
+	end
+	return results
+end
+
+local function delimit(table, tab, delimiter)
+	if not tab then
+		tab = ""
+	end
+	if not table then
+		return tab .. "nil"
+	end
+	if not delimiter then
+		delimiter = " "
+	end
+	local ret = ""
+	if delimiter ~= "\n" then
+		ret = tab
+	end
+	for k, v in pairs(table) do
+		if delimiter == "\n" then
+			ret = ret .. tab .. k .. ":" .. v .. "\n"
+		else
+			ret = ret .. k .. ":" .. v .. "\n"
+		end
+	end
+return ret
+end
+
+local function delimit_sequence(table, tab, delimiter)
+	if not tab then
+		tab = ""
+	end
+	if not table then
+		return tab .. "nil"
+	end
+	if not delimiter then
+		delimiter = " "
+	end
+	local ret = ""
+	if delimiter ~= "\n" then
+		ret = tab
+	end
+	for k, v in pairs(table) do
+		if delimiter == "\n" then
+			ret = ret .. tab .. v .. delimiter
+		else
+			ret = ret .. v .. delimiter
+		end
+	end
+	return ret
+end
+
+local function send_messages_sequence(username, table, tab)
+	if not tab then
+		tab = ""
+	end
+	if not table then
+		minetest.chat_send_player(username, tab .. "nil")
+		return
+	end
+	for k, v in pairs(table) do
+		minetest.chat_send_player(username, tab .. v .. ",")
+	end
+
+end
+
+local function inv_to_tables(inv)
+	-- see bones mod
+	results = {}
+	for i = 1, inv:get_size("main") do
+		local stk = inv:get_stack("main", i)
+		table.insert(results, stk:to_table())
+		-- to_table shows everything:
+		--   meta:
+		--   metadata: ""
+		--   count:1
+		--   name:"default:sapling"
+		--   wear:0
+	end
+	return results
+end
+
+local function inv_to_table(inv, blank)
+	-- see bones mod
+	results = {}
+	for i = 1, inv:get_size("main") do
+		local stk = inv:get_stack("main", i)
+		local stk_s = stk:to_string()
+		if #stk_s > 0 or blank then
+			table.insert(results, stk_s)
+		end
+	end
+	return results
+end
+
+local function send_messages(username, table, tab)
+	if not tab then
+		tab = ""
+	end
+	if not table then
+		minetest.chat_send_player(username, tab .. "nil")
+		return
+	end
+	for k, v in pairs(table) do
+		if type(v) == "table" then
+			minetest.chat_send_player(username, tab .. k .. ":")
+			send_messages(username, v, tab.."\t")
+		elseif k == "formspec" then
+			minetest.chat_send_player(username, tab .. k .. ":")
+			local chunks = split_and_keep_token(v, "]")
+			send_messages_sequence(username, chunks, tab.."\t")
+		else
+			minetest.chat_send_player(username, tab..k..":"..dump(v))
+		end
+	end
+end
+
 local function get_nodedef_field(nodename, fieldname)
 	if not minetest.registered_nodes[nodename] then
 		-- print("metatools.get_nodedef_field: no registered node named " .. nodename)
@@ -41,8 +180,8 @@ minetest.register_craftitem("metatools:stick",{
 		local nodepos  = pointed_thing.under
 		if not nodepos or not minetest.get_node(nodepos) then return end
 		local nodename = minetest.get_node(nodepos).name
-		local node	   = minetest.registered_nodes[nodename]
+		local node = minetest.registered_nodes[nodename]
-		local meta	   = minetest.get_meta(nodepos)
+		local meta = minetest.get_meta(nodepos)
 		local metalist = meta:to_table()
 
 		minetest.chat_send_player(
@@ -69,8 +208,26 @@ minetest.register_craftitem("metatools:stick",{
 		minetest.chat_send_player(
 			username,
 			"[metatools::stick]   metadata: "
-			.. dump(meta:to_table()["fields"]):gsub('\n', "")
+			--.. delimit(meta:to_table()["fields"], "", "\n")
 		)
+		-- send_messages(username, meta:to_table()["fields"])
+		send_messages(username, meta:to_table())
+		minetest.chat_send_player(
+			username,
+			"[metatools::stick]   inventory: "
+			--.. delimit(meta:to_table()["fields"], "", "\n")
+		)
+		if meta["get_inventory"] then
+			local inventory = meta:get_inventory()
+			minetest.chat_send_player(username, "get_inventory():")
+			if inventory then  -- this is never true for some reason
+				send_messages(username, inv_to_table(inventory))
+			else
+				minetest.chat_send_player(username, "\tnil")
+			end
+		else
+			minetest.chat_send_player(username, "get_inventory():")
+		end
 		local airname = minetest.get_name_from_content_id(minetest.CONTENT_AIR)
 		-- local litnode = nil
 		local litpos = nil
@@ -107,8 +264,8 @@ minetest.register_craftitem("metatools:stick",{
 				tryname = trynode.name
 				tryid = minetest.get_content_id(tryname)
 
-				print("tryname:" .. tryname)
+				-- print("tryname:" .. tryname)
-				print("trynode.name:" .. trynode.name)
+				-- print("trynode.name:" .. trynode.name)
 				-- if (tryid == minetest.CONTENT_AIR) then
 				if trynode.name == airname then
 					-- found: