99 lines
2.8 KiB
Lua
99 lines
2.8 KiB
Lua
|
-- SPDX-FileCopyrightText: 2017 Daniel Ratcliffe
|
||
|
|
--
|
||
|
|
-- SPDX-License-Identifier: LicenseRef-CCPL
|
||
|
|
|
||
|
|
local function printUsage()
|
||
|
|
local programName = arg[0] or fs.getName(shell.getRunningProgram())
|
||
|
|
print("Usage:")
|
||
|
|
print(" " .. programName .. " <name> <program> <arguments>")
|
||
|
|
print(" " .. programName .. " scale <name> <scale>")
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
local tArgs = { ... }
|
||
|
|
if #tArgs < 2 or tArgs[1] == "scale" and #tArgs < 3 then
|
||
|
|
printUsage()
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
if tArgs[1] == "scale" then
|
||
|
|
local sName = tArgs[2]
|
||
|
|
if peripheral.getType(sName) ~= "monitor" then
|
||
|
|
print("No monitor named " .. sName)
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
local nRes = tonumber(tArgs[3])
|
||
|
|
if nRes == nil or nRes < 0.5 or nRes > 5 then
|
||
|
|
print("Invalid scale: " .. tArgs[3])
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
peripheral.call(sName, "setTextScale", nRes)
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
local sName = tArgs[1]
|
||
|
|
if peripheral.getType(sName) ~= "monitor" then
|
||
|
|
print("No monitor named " .. sName)
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
local sProgram = tArgs[2]
|
||
|
|
local sPath = shell.resolveProgram(sProgram)
|
||
|
|
if sPath == nil then
|
||
|
|
print("No such program: " .. sProgram)
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
print("Running " .. sProgram .. " on monitor " .. sName)
|
||
|
|
|
||
|
|
local monitor = peripheral.wrap(sName)
|
||
|
|
local previousTerm = term.redirect(monitor)
|
||
|
|
|
||
|
|
local co = coroutine.create(function()
|
||
|
|
(shell.execute or shell.run)(sProgram, table.unpack(tArgs, 3))
|
||
|
|
end)
|
||
|
|
|
||
|
|
local function resume(...)
|
||
|
|
local ok, param = coroutine.resume(co, ...)
|
||
|
|
if not ok then
|
||
|
|
printError(param)
|
||
|
|
end
|
||
|
|
return param
|
||
|
|
end
|
||
|
|
|
||
|
|
local timers = {}
|
||
|
|
|
||
|
|
local ok, param = pcall(function()
|
||
|
|
local sFilter = resume()
|
||
|
|
while coroutine.status(co) ~= "dead" do
|
||
|
|
local tEvent = table.pack(os.pullEventRaw())
|
||
|
|
if sFilter == nil or tEvent[1] == sFilter or tEvent[1] == "terminate" then
|
||
|
|
sFilter = resume(table.unpack(tEvent, 1, tEvent.n))
|
||
|
|
end
|
||
|
|
if coroutine.status(co) ~= "dead" and (sFilter == nil or sFilter == "mouse_click") then
|
||
|
|
if tEvent[1] == "monitor_touch" and tEvent[2] == sName then
|
||
|
|
timers[os.startTimer(0.1)] = { tEvent[3], tEvent[4] }
|
||
|
|
sFilter = resume("mouse_click", 1, table.unpack(tEvent, 3, tEvent.n))
|
||
|
|
end
|
||
|
|
end
|
||
|
|
if coroutine.status(co) ~= "dead" and (sFilter == nil or sFilter == "term_resize") then
|
||
|
|
if tEvent[1] == "monitor_resize" and tEvent[2] == sName then
|
||
|
|
sFilter = resume("term_resize")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
if coroutine.status(co) ~= "dead" and (sFilter == nil or sFilter == "mouse_up") then
|
||
|
|
if tEvent[1] == "timer" and timers[tEvent[2]] then
|
||
|
|
sFilter = resume("mouse_up", 1, table.unpack(timers[tEvent[2]], 1, 2))
|
||
|
|
timers[tEvent[2]] = nil
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end)
|
||
|
|
|
||
|
|
term.redirect(previousTerm)
|
||
|
|
if not ok then
|
||
|
|
printError(param)
|
||
|
|
end
|