1  function deprecate(o,name,instead)
   2  	local msg = "%sWarning, deprecated feature "..(name and ("'"..name.."' ") or "").."in use."..(instead and ("  Use '"..instead.."' instead.") or "")
   3  	if(type(o) == "table") then
   4  		return setmetatable({},{__index = function (t,k)
   5  				local _,callpoint = pcall(function() error("",4) end)
   6  				print(string.format(msg,string.gsub(callpoint,"(^w%*%.%w*%:%d+)","%1")))
   7  				return o[k]
   8  			end,
   9  			__newindex = function (t,k,v)
  10                 	local _,callpoint = pcall(function() error("",4) end)
  11  				print(string.format(msg,string.gsub(callpoint,"(^w%*%.%w*%:%d+)","%1")))
  12  				o[k] = v
  13  				return o[k]
  14  			end
  15  		})
  16  	elseif(type(o) == "function") then
  17  		return function(...)
  18  			local _,callpoint = pcall(function() error("",4) end)
  19  			print(string.format(msg,string.gsub(callpoint,"(^w%*%.%w*%:%d+)","%1")))
  20  			return o(unpack(arg))
  21  		end
  22  	end
  23  end

   1  Ace = {}
   2  
   3  function Ace:print(msg)
   4  	print(msg)
   5  end
   6  
   7  function foo()
   8  	print("FOO!")
   9  end
  10  ace = deprecate(Ace,"ace","Ace")
  11  FOO = deprecate(foo,"FOO","foo")
  12  
  13  FOO()
  14  ace:print("moo")

   1  
   2  ./deprecate.lua:38: Warning, deprecated feature 'FOO' in use.  Use 'foo' instead.
   3  FOO!
   4  ./deprecate.lua:39: Warning, deprecated feature 'ace' in use.  Use 'Ace' instead.
   5  moo