Traceback.lua

local args = {...}
local file = shell.resolve(assert(args[1], "Must enter a path"))

local routine = coroutine.create(function()
        xpcall(loadfile(file), function(msg)
                printError(msg)
                for i = 3, 15, 1 do
                        local _, err = pcall(error, "", i)
                        if err:match("xpcall:") or err == "" then break end
                        printError("  ", err)
                end
        end)
end)

local filter = nil
while true do
        local ok, param = coroutine.resume(routine, os.pullEventRaw(filter))
        if ok then
                filter = param
        else
                printError("Could not catch")
                printError("  ", param)
                break
        end

        if coroutine.status(cmd.command) == "dead" then
                print("Exited OK. I think.")
                break
        end

        print("Resume")
end