pico8-0hh1/utils.lua

local oldprint = print
function print(t,x,y,col1,col2)
	if col2 then
		for i=-1,1 do
			for j=-1,1 do
				oldprint(t, x+i, y+j, col2)
			end
		end
	end
	return oldprint(t, x, y, col1)
end

function str_width(str)
	return print(str,0,-8)
end

function print_shade(t,x,y,col1,col2)
	print(t,x,y+1,col2)
	print(t,x+1,y+1,col2)
	print(t,x,y,col1)
end

function set_state(state, ...)
	local args = {...}
	if gs and gs._leave then gs._leave() end
	gs = state
	if gs and gs._enter then gs._enter(unpack(args)) end
end


--
-- Returns the indices of found occurences of `o` within `tbl`
--
function find(tbl, o)
	local indices = {}
	for k,v in ipairs(tbl) do
		if v == o then add(indices, k) end
	end
	return indices
end

function contains(tbl, o)
	for v in all(tbl) do
		if v == o then return true end
	end
	return false
end
--
-- Makes a shallow table copy
--
function copy(tbl)
	return map(tbl, function (o) return o end)
end

--
-- Table equality - shallow comparison
--
function equal(tbl1, tbl2)
	for k, _ in ipairs(tbl1) do
		if tbl1[k] ~= tbl2[k] then return false end
	end
	return true
end