package.path = "/?;/?.lua;"..package.path

-- _G.ERRLOG = {}
-- if not _G.oldprint then
-- 	_G.oldprint = print
-- 	_G.print = function(...)
-- 		o = {}
-- 		for ix = 1,select('#',...) do
-- 			o[ix] = tostring(select(ix,...))
-- 		end
-- 		table.insert(_G.ERRLOG,table.concat(o,"\t"))
-- 		--_G.oldprint(...)
-- 	end
-- 	_G.rpr = function() _G.print = _G.oldprint _G.oldprint = nil end
-- end

--print("uu")
local load_pnm = require("load_pnm").load
--print("uu")
local better_disp = require("better_disp")
--print("uu")
local disp_common = require("disp_common")
local perr = require("util").perr
--print("uu")

local function msgh(e)
	local tb = debug.traceback()
	return e.."\n"..tb
end


local file,err = io.open(arg[1],"rb")
perr(err,"io.open")
local ff = file:read("a")
local img = load_pnm(ff)
--local W = window.create(term.current(),20,10,20,20)
term.clear()
--print("the")
xpcall(function() better_disp.disp(term.current(),img,1,1) end,msgh)
--print("endthe")
os.pullEvent("key")
disp_common.reset_palette(term.current())