Vanessa Ezekowitz
2015-09-12 1b1780946edebfbf1e8ec2cf095b56fa76733e2b
technic/helpers.lua
@@ -1,25 +1,14 @@
function get_item_meta (string)
   if string.find(string, "return {") then
      return minetest.deserialize(string)
   else return nil
--load config
local sepchar = nil
do
   local sepcode = technic.config:get("thousand_separator")
   --default is SI style
   sepchar = sepcode and string.char(sepcode) or " "
   baresepchar = sepchar
   --handling if sepchar is magic...
   for magic in string.gmatch("().%+-*?[^$", ".") do
      if sepchar == magic then sepchar = "%"..sepchar end
   end
end
function set_item_meta (table)
   return minetest.serialize(table)
end
function has_locked_chest_privilege(meta, player)
   if player:get_player_name() ~= meta:get_string("owner") then
      return false
   end
   return true
end
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
@@ -32,3 +21,47 @@
   return node.name
end
-- Fully charge RE chargeable item.
-- Must be defined early to reference in item definitions.
function technic.refill_RE_charge(stack)
   local max_charge = technic.power_tools[stack:get_name()]
   if not max_charge then return stack end
   technic.set_RE_wear(stack, max_charge, max_charge)
   local meta = minetest.deserialize(stack:get_metadata()) or {}
   meta.charge = max_charge
   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
-- if the node is loaded, returns it. If it isn't loaded, load it and return nil.
function technic.get_or_load_node(pos)
   local node_or_nil = minetest.get_node_or_nil(pos)
   if node_or_nil then return node_or_nil end
   local vm = VoxelManip()
   local MinEdge, MaxEdge = vm:read_from_map(pos, pos)
   return nil
end
function technic.prettynum(num)
   local str, k = tostring(num), nil
   repeat
      str, k = str:gsub("^(-?%d+)(%d%d%d)", "%1"..sepchar.."%2")
   until k == 0
   return str
end