Monc 2.0 BETA

--[[
    Monc 2.1 - Monitor/Computer mirror program Beta
     Now with multi-monitor support
      and safe disabling

    pastebin get GdscC2Jv monc2b
    std PB GdscC2Jv monc2b
    std ld monc2 monc
    wget http://pastebin.com/raw/GdscC2Jv

    This is a beta release. You fool!
    Working on:
    + implementing settings API for basic options
    + borders --working on right now
    + fixing term.redirect
--]]

local centerMonc = true

local getTableSize = function(tbl)
    local out = 0
    if type(tbl) == "table" then
        for k,v in pairs(tbl) do
            out = out + 1
        end
    end
    return out
end

local copyTable = function(tbl)
    local output = {}
    for k,v in pairs(tbl) do
        output[k] = v
    end
    return output
end

if not monc then
    monc = {}
    monc.monitors = (type(monc.monitors) == "table" and #monc.monitors > 0) and monc.monitors or {}
    if not monc.oldterm then monc.oldterm = copyTable(term) end
    if not monc.origterm then monc.origterm = term.current() end
    if monc.active == nil then monc.active = false end
    monc.addMonitor = function(object,position)
        local pos = position or (#monc.monitors+1)
        monc.monitors[pos] = object
        if object then
            object.setBackgroundColor(monc.oldterm.getBackgroundColor())
            object.setTextColor(monc.oldterm.getTextColor())
            object.clear()
            object.setCursorPos(monc.oldterm.getCursorPos())
        end
    end
    monc.removeMonitor = function(position)
        monc.monitors[position] = nil
    end

    monc.beforeFunc = function(v) --executed before all functions that alter the screen
        --screen X, Y sizes
        local scX,scY = v.getSize()
         --native terminal X, Y sizes
        local ntX,ntY = monc.oldterm.getSize()
        --adjust X, Y
        local adjX,adjY = (centerMonc and (scX>ntX)) and (math.floor(scX-ntX)/2) or 0,(centerMonc and (scY>ntY)) and (math.floor(scX-ntX)/2) or 0
        --native terminal cursor X, Y
        local ntCX,ntCY = monc.oldterm.getCursorPos()
        v.setCursorPos(ntCX+adjX,ntCY+adjY)
    end
    monc.afterFunc = function(v) --executed after all functions that alter the screen
        return nil --unused as of now
    end

    monc.term = {}
    monc.term.getSize = function()
        return monc.oldterm.getSize()
    end
    monc.term.getCursorPos = function()
        return monc.oldterm.getCursorPos()
    end
    monc.term.setCursorPos = function(x,y)
        monc.oldterm.setCursorPos(x,y)
        for k,v in pairs(monc.monitors) do
            local scX,scY = v.getSize()
            local ntX,ntY = monc.oldterm.getSize()
            local adjX,adjY = (centerMonc and (sxX)) and (scX) or 0
            local ntCX,ntCY = monc.oldterm.getCursorPos()
            if v.getSize() then
                v.setCursorPos(ntCX+adjX,ntCY+adjY)
            end
        end
    end
    monc.term.setVisible = function(...)
        --monitors do not have a setVisible function, for some reason
        monc.oldterm.setVisible(...)
    end
    monc.term.write = function(text)
        monc.oldterm.write(text)
        local sx,sy = monc.oldterm.getSize()
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                local cx,cy = v.getCursorPos()
                if cy > sy then
                    --v.setCursorPos(cx,sy)
                    break
                else
                    v.write(tostring(text):sub(1,(sx-cx)+1))
                end
            end
        end
    end
    monc.term.clearLine = function()
        monc.oldterm.clearLine()
        local sx,sy = monc.oldterm.getSize()
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                local cx,cy = v.getCursorPos()
                if cy > sy then
                    break
                else
                    v.setCursorPos(1,cy)
                    v.write((" "):rep(sx))
                    v.setCursorPos(cx,cy)
                end
            end
        end
    end
    monc.term.clear = function()
        monc.oldterm.clear()
        local sx,sy = monc.oldterm.getSize()
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                local cx,cy = v.getCursorPos()
                for y = 1, sy do
                    v.setCursorPos(1,y)
                    v.write((" "):rep(sx))
                end
                v.setCursorPos(cx,cy)
            end
        end
    end
    monc.term.blit = function(text,tx,bg)
        monc.oldterm.blit(text,tx,bg)
        local sx,sy = monc.oldterm.getSize()
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                local cx,cy = v.getCursorPos()
                if cy > sy then
                    break
                else
                    v.blit(tostring(text):sub(1,1+sx-cx), tostring(tx):sub(1,1+sx-cx), tostring(bg):sub(1,1+sx-cx))
                end
            end
        end
    end
    monc.term.setCursorBlink = function(...)
        monc.oldterm.setCursorBlink(...)
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                v.setCursorBlink(...)
            end
        end
    end
    monc.term.isColor = function()
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                if not v.isColor() then
                    return false
                end
            end
        end
        return monc.oldterm.isColor()
    end
    monc.term.scroll = function(amount)
        monc.oldterm.scroll(amount)
        local sx,sy = monc.oldterm.getSize()
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                local lastbg = monc.oldterm.getBackgroundColor()
                if amount > 0 then v.setBackgroundColor(colors.black) end
                v.scroll(amount)
                v.setBackgroundColor(lastbg)
                if amount > 0 then
                    local bg = v.getBackgroundColor()
                    local cx,cy = v.getCursorPos()
                    for a = 1, math.abs(amount) do
                        v.setCursorPos(1,sy-(a-1))
                        v.clearLine()
                    end
                    v.setCursorPos(cx,cy)
                    v.setBackgroundColor(bg)
                else
                    for a = 1, math.abs(amount) do
                        v.setBackgroundColor(colors.black)
                        v.setCursorPos(1,sy+a)
                        v.clearLine()
                    end
                end
            end
            v.setCursorPos(monc.oldterm.getCursorPos())
        end
    end
    monc.term.setTextColor = function(...)
        monc.oldterm.setTextColor(...)
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                v.setTextColor(...)
            end
        end
    end
    monc.term.setBackgroundColor = function(...)
        monc.oldterm.setBackgroundColor(...)
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                v.setBackgroundColor(...)
            end
        end
    end
    monc.term.getTextColor = function()
        return monc.oldterm.getTextColor()
    end
    monc.term.getBackgroundColor = function()
        return monc.oldterm.getBackgroundColor()
    end
    monc.term.setTextScale = function(...)
        for k,v in pairs(monc.monitors) do
            if v.getSize() then
                v.setTextScale(...)
            end
        end
    end
    --[[
    monc.term.redirect = function(target)
        --local old = monc.oldterm
        --monc.oldterm = target
        --return old
        monc.oldterm = term.current()
        return term.current() -- ehhhh
    end
    --]]
    monc.term.native = function()
        return monc.origterm
    end
    monc.term.setTextColour = monc.term.setTextColor
    monc.term.setBackgroundColour = monc.term.setBackgroundColor
    monc.term.getTextColour = monc.term.getTextColor
    monc.term.getBackgroundColour = monc.term.getBackgroundColor
    monc.term.isColour = monc.term.isColor

end

local displayHelp = function()
    local helpdata = [[
Monc 2.0 - Computer/Monitor mirror
 [optional argument] <required argument>
Monitor list is stored in memory only.
>monc add/remove <monitor1> [monitor2] ...
>monc list
>monc help
>monc setsize <size> [monitor]
>monc [on/off]
>monc ... -p <program> [argument1] ...]]
    print(helpdata)
end

local tArg = {...}
if tArg[1] == "help" then
    displayHelp()
end

local eugh = 4
if tArg[1] == "add" then
    local newmons = {}
    for a = 2, #tArg do
        if tArg[a] == "-p" then
            break
        else
            newmons[#newmons+1] = tArg[a]
        end
    end
    for a = 1, #newmons do
        monname = newmons[a]
        newmon = peripheral.wrap(monname)
        if not newmon then
            return print("'"..monname.."' doesn't exist.")
        elseif peripheral.getType(monname) ~= "monitor" then
            return print("'"..monname.."' is not a monitor.") --idiot
        end
        monc.addMonitor(newmon,monname)
    end
    write("Monitor")
    if #newmons ~= 1 then write("s") end
    print(" added to list.")
elseif tArg[1] == "delete" or tArg[1] == "remove" then
    local delmons = {}
    for a = 2, #tArg do
        if tArg[a] == "-p" then
            break
        else
            delmons[#delmons+1] = tArg[a]
        end
    end
    for a = 1, #delmons do
        local delname = delmons[a]
        if monc.monitors[delname] then
            monc.removeMonitor(delname)
        else
            print("Skipping nonexistant '"..delname.."'.")
        end
    end
    write("Deleted monitor")
    if #delmons > 1 then write("s") end
    print(" from list.")
elseif tArg[1] == "list" then
    local allperiphs = peripheral.getNames()
    local allmons = {}
    for a = 1, #allperiphs do
        if peripheral.getType(allperiphs[a]) == "monitor" then
            allmons[#allmons+1] = allperiphs[a]
        end
    end
    if #allmons == 0 then
        print("No monitors found.")
    else
        for a = 1, #allmons do
            if monc.monitors[allmons[a]] then
                write(" ON ")
            else
                write("OFF ")
            end
            print("\""..allmons[a].."\"")
        end
    end
    local good = false --checks for any monitors on the list that were disconnected
    for k,v in pairs(monc.monitors) do
        for a = 1, #allmons do
            if allmons[a] == k then
                good = true
                break
            end
        end
        if not good then
            write("DIS ")
            print("\""..k.."\"")
        end
    end
elseif tArg[1] == "setsize" then
    if not tonumber(tArg[2]) then
        print("Size must be a number.")
    elseif tonumber(tArg[2]) < 0.5 or tonumber(tArg[2]) > 5 then
        print("Size must be between 0.5 and 5 inclusive.")
    end
    if tArg[3] then
        if not monc.monitors[tArg[3]] then
            print("No such monitor.")
        else
            monc.monitors[tArg[3]].setTextScale(tonumber(tArg[2]) or 1)
        end
    else
        for k,v in pairs(monc.monitors) do
            v.setTextScale(tonumber(tArg[2]) or 1)
        end
    end
    write("Resized monitor")
    if not tArg[3] then
        if getTableSize(monc.monitors) ~= 1 then
            write("s")
        end
    end
    print(".")
elseif tArg[1] == "on" then
    if monc.active then eugh = 3 else eugh = 1 end
elseif tArg[1] == "off" then
    if not monc.active then eugh = 3 else eugh = 1 end
elseif tArg[1] == "toggle" then
    eugh = 1
elseif tArg[1] == "moo" then
    local mooMsgs = {
        "There are no Easter Eggs in this program.",
        "There really are no Easter Eggs in this program.",
        "Didn't I already tell you there are no easter eggs in this program?",
        "Stop it!",
        "Okay, okay, if I give you an Easter Egg, will you go away?",
        [[Alright, you win.

                               /----\
                       -------/      \
                      /               \
                     /                |
   -----------------/                  --------\
   ----------------------------------------------]],
        "What is it?  It's an elephant being eaten by a snake, of course.",
    }
    local mooLvl = 1
    for a = 1, #tArg do
        if tArg[a]:sub(1,1) == "-" and tArg[a]:gsub("v","") == "-" then
            mooLvl = mooLvl + #tArg[a]:sub(2)
        end
    end
    print(mooMsgs[mooLvl < #mooMsgs and mooLvl or #mooMsgs])
elseif not tArg[1] then
    eugh = 2
end

local setTheTerm = function(newterm)
    for k,v in pairs(newterm) do
        term[k] = v
    end
end

local toggleMonc = function(active)
    if not monc.active then
        monc.active = true
        setTheTerm(monc.term)
    else
        monc.active = false
        setTheTerm(monc.oldterm)
    end
end
--time for the craaaaaazy stuff
if eugh == 1 then
    toggleMonc()
    print("Monc "..(monc.active and "activated!" or "deactivated."))
elseif eugh == 2 then
    print("Do 'monc toggle/on/off' to use, or 'monc help' for more info.")
elseif eugh == 3 then
    print("It's already in that state.")
end

for a = 1, #tArg do
    if tArg[a] == "-p" then
        local filerunname = {}
        for b = a+1, #tArg do
            filerunname[#filerunname+1] = tArg[b]
        end
        if shell then
            shell.run(unpack(filerunname))
        else
            dofile(unpack(filerunname))
        end
        break
    end
end