debugger support

sys/boot/opus.boot

@@ -1,5 +1,20 @@
 local fs = _G.fs
 
+-- override bios function to include the actual filename
+function _G.loadfile(filename, env)
+    -- Support the previous `loadfile(filename, env)` form instead.
+    if type(mode) == "table" and env == nil then
+        mode, env = nil, mode
+    end
+
+    local file = fs.open(filename, "r")
+    if not file then return nil, "File not found" end
+
+    local func, err = load(file.readAll(), '@' .. filename, mode, env)
+    file.close()
+    return func, err
+end
+
 local sandboxEnv = setmetatable({ }, { __index = _G })
 for k,v in pairs(_ENV) do
 	sandboxEnv[k] = v

sys/init/3.sys.lua

@@ -42,5 +42,5 @@ end
 
 -- non-standard - will raise error instead
 os.exit = function(code)
-	error('Terminated with ' .. code)
+	error(code)
 end

sys/modules/opus/trace.lua

@@ -12,6 +12,10 @@ local function traceback(x)
 		return x
 	end
 
+	if x and x:match(':%d+: 0$') then
+		return x
+	end
+
 	if debug_traceback then
 		-- The parens are important, as they prevent a tail call occuring, meaning
 		-- the stack level is preserved. This ensures the code behaves identically
@@ -65,7 +69,7 @@ local function trim_traceback(stack)
 	local t = { }
 	for _, line in pairs(trace) do
 		if not matchesFilter(line) then
-			line = line:gsub("in function", "in")
+			line = line:gsub("in function", "in"):gsub('%w+/', '')
 			table.insert(t, line)
 		end
 	end
@@ -84,10 +88,16 @@ return function (fn, ...)
 	if not res[1] and res[2] ~= nil then
 		local err, trace = trim_traceback(res[2])
 
+		if #trace > 0 then
 			_G._syslog('\n' .. err .. '\n' .. 'stack traceback:')
 			for _, v in ipairs(trace) do
 				_G._syslog(v)
 			end
+		end
+
+		if err:match(':%d+: 0$') then
+			return true
+		end
 
 		return res[1], err, trace
 	end

sys/modules/opus/ui/components/QuickSelect.lua

@@ -0,0 +1,107 @@
+local class = require('opus.class')
+local fuzzy = require('opus.fuzzy')
+local UI    = require('opus.ui')
+
+local fs      = _G.fs
+local _insert = table.insert
+
+UI.QuickSelect = class(UI.Window)
+UI.QuickSelect.defaults = {
+	UIElement = 'QuickSelect',
+}
+function UI.QuickSelect:postInit()
+	self.filterEntry = UI.TextEntry {
+		x = 2, y = 2, ex = -2,
+		shadowText = 'File name',
+		accelerators = {
+			[ 'enter' ] = 'accept',
+			[ 'up' ] = 'grid_up',
+			[ 'down' ] = 'grid_down',
+		},
+	}
+	self.grid = UI.ScrollingGrid {
+		x = 2, y = 3, ex = -2, ey = -4,
+		disableHeader = true,
+		columns = {
+			{ key = 'name' },
+			{ key = 'dir', textColor = 'lightGray' },
+		},
+		accelerators = {
+			grid_select = 'accept',
+		},
+	}
+	self.cancel = UI.Button {
+		x = -9, y = -2,
+		text = 'Cancel',
+		event = 'select_cancel',
+	}
+end
+
+function UI.QuickSelect:draw()
+	self:fillArea(1, 1, self.width, self.height, string.rep('\127', self.width), 'black', 'gray')
+	self:drawChildren()
+end
+
+function UI.QuickSelect:applyFilter(filter)
+	if filter then
+		filter = filter:lower()
+		self.grid.sortColumn = 'score'
+
+		for _,v in pairs(self.grid.values) do
+			v.score = -fuzzy(v.lname, filter)
+		end
+	else
+		self.grid.sortColumn = 'lname'
+	end
+
+	self.grid:update()
+	self.grid:setIndex(1)
+end
+
+function UI.QuickSelect:enable()
+	self.grid.values = { }
+	local function recurse(dir)
+		local files = fs.list(dir)
+		for _,f in ipairs(files) do
+			local fullName = fs.combine(dir, f)
+			if fs.native.isDir(fullName) then -- skip virtual dirs
+				if f ~= '.git' then recurse(fullName) end
+			else
+				_insert(self.grid.values, {
+					name = f,
+					dir = dir,
+					lname = f:lower(),
+					fullName = fullName,
+				})
+			end
+		end
+	end
+	recurse('')
+	self:applyFilter()
+	self.filterEntry:reset()
+	UI.Window.enable(self)
+end
+
+function UI.QuickSelect:eventHandler(event)
+	if event.type == 'grid_up' then
+		self.grid:emit({ type = 'scroll_up' })
+		return true
+
+	elseif event.type == 'grid_down' then
+		self.grid:emit({ type = 'scroll_down' })
+		return true
+
+	elseif event.type == 'accept' then
+		local sel = self.grid:getSelected()
+		if sel then
+			self:emit({ type = 'select_file', file = sel.fullName, element = self })
+		end
+		return true
+
+	elseif event.type == 'text_change' then
+		self:applyFilter(event.text)
+		self.grid:draw()
+		return true
+
+	end
+end