61 lines
1.7 KiB
Lua
61 lines
1.7 KiB
Lua
local expect = dofile("rom/modules/main/cc/expect.lua").expect
|
|
|
|
local native = (term.native and term.native()) or term
|
|
local redirectTarget = native
|
|
|
|
local function wrap( _sFunction )
|
|
return function( ... )
|
|
return redirectTarget[ _sFunction ]( ... )
|
|
end
|
|
end
|
|
|
|
local term = {}
|
|
|
|
term.redirect = function( target )
|
|
expect(1, target, "table")
|
|
if target == term or target == _G.term then
|
|
error( "term is not a recommended redirect target, try term.current() instead", 2 )
|
|
end
|
|
for k,v in pairs( native ) do
|
|
if type( k ) == "string" and type( v ) == "function" then
|
|
if type( target[k] ) ~= "function" then
|
|
target[k] = function()
|
|
error( "Redirect object is missing method "..k..".", 2 )
|
|
end
|
|
end
|
|
end
|
|
end
|
|
local oldRedirectTarget = redirectTarget
|
|
redirectTarget = target
|
|
return oldRedirectTarget
|
|
end
|
|
|
|
term.current = function()
|
|
return redirectTarget
|
|
end
|
|
|
|
term.native = function()
|
|
-- NOTE: please don't use this function unless you have to.
|
|
-- If you're running in a redirected or multitasked enviorment, term.native() will NOT be
|
|
-- the current terminal when your program starts up. It is far better to use term.current()
|
|
return native
|
|
end
|
|
|
|
-- Some methods shouldn't go through redirects, so we move them to the main
|
|
-- term API.
|
|
for _, method in ipairs { "nativePaletteColor", "nativePaletteColour"} do
|
|
term[method] = native[method]
|
|
native[method] = nil
|
|
end
|
|
|
|
for k,v in pairs( native ) do
|
|
if type( k ) == "string" and type( v ) == "function" and term[k] == nil then
|
|
term[k] = wrap( k )
|
|
end
|
|
end
|
|
|
|
local env = _ENV
|
|
for k,v in pairs( term ) do
|
|
env[k] = v
|
|
end
|