dfhack/plugins/Dfusion/luafiles/onfunction/init.lua

onfunction=onfunction or {}
function onfunction.install()
	ModData=engine.installMod("dfusion/onfunction/functions.o","functions",4)
	modpos=ModData.pos
	modsize=ModData.size
	onfunction.pos=modpos
	trgpos=engine.getpushvalue()
	print(string.format("Function installed in:%x function to call is: %x",modpos,trgpos))
	local firstpos=modpos+engine.FindMarker(ModData,"function")
	engine.poked(firstpos,trgpos-firstpos-4) --call Lua-Onfunction
	onfunction.fpos=modpos+engine.FindMarker(ModData,"function3")
	engine.poked(modpos+engine.FindMarker(ModData,"function2"),modpos+modsize)
	engine.poked(onfunction.fpos,modpos+modsize)
	SetExecute(modpos)
	onfunction.calls={}
	onfunction.functions={}
	onfunction.names={}
	onfunction.hints={}
end
function OnFunction(values)
	--[=[print("Onfunction called!")
	print("Data:")
	for k,v in pairs(values) do
		print(string.format("%s=%x",k,v))
	end
	print("stack:")
	for i=0,3 do 
		print(string.format("%d %x",i,engine.peekd(values.esp+i*4)))
	end
	--]=]
	if onfunction.functions[values.ret] ~=nil then
		onfunction.functions[values.ret](values)
	end
	
	return  onfunction.calls[values.ret] --returns real function to call
end
function onfunction.patch(addr)
	
	if(engine.peekb(addr)~=0xe8) then
		error("Incorrect address, not a function call")
	else
		
		onfunction.calls[addr+5]=addr+engine.peekd(addr+1)+5 --adds real function to call
		engine.poked(addr+1,engine.getmod("functions")-addr-5)
	end
end
function onfunction.AddFunction(addr,name,hints)
	onfunction.patch(addr)
	onfunction.names[name]=addr+5
	if hints~=nil then
		onfunction.hints[name]=hints
	end
end
function onfunction.SetCallback(name,func)
	if onfunction.names[name]==nil then
		error("No such function:"..name)
	else
		onfunction.functions[onfunction.names[name]]=func
	end
end