From d0efa15b983f7a0a96e1a7abcdad713715dfeeeb Mon Sep 17 00:00:00 2001
From: Zefram <zefram@fysh.org>
Date: Mon, 18 Aug 2014 16:14:15 +0200
Subject: [PATCH] In quarry, skip past undiggable nodes

---
 technic/helpers.lua |   23 +++++++++++++++++------
 1 files changed, 17 insertions(+), 6 deletions(-)

diff --git a/technic/helpers.lua b/technic/helpers.lua
index 624a8a7..c07937a 100644
--- a/technic/helpers.lua
+++ b/technic/helpers.lua
@@ -1,9 +1,3 @@
-minetest.swap_node = minetest.swap_node or function(pos, node)
-	local oldmeta = minetest.get_meta(pos):to_table()
-	minetest.set_node(pos, node)
-	minetest.get_meta(pos):from_table(oldmeta)
-end
-
 -- Only changes name, keeps other params
 function technic.swap_node(pos, name)
 	local node = minetest.get_node(pos)
@@ -25,3 +19,20 @@
 	stack:set_metadata(minetest.serialize(meta))
 	return stack
 end
+
+local function resolve_name(function_name)
+	local a = _G
+	for key in string.gmatch(function_name, "([^%.]+)(%.?)") do
+		if a[key] then
+			a = a[key]
+		else
+			return nil
+		end
+	end
+	return a
+end
+
+function technic.function_exists(function_name)
+	return type(resolve_name(function_name)) == 'function'
+end
+

--
Gitblit v1.8.0