opdoc_source

require "UIButton"
require "UIContainer"
require "UITabs"
require "UIText"

local function quit()
    application:stop() term.clear() term.setCursorPos(1,1)
end

application.view:createShortcut("terminate","ctrl-t",quit)
local close = application.view:addChild(UIButton(application.view.width-1,0,1,1,"X"))
close.colour = colors.red
close.textColour = colors.black
close.onClick = quit

local peripherals = peripheral.getNames()

for i,v in ipairs(peripherals) do
    local p = peripheral.wrap(v)
    if not p.listMethods then
        table.remove(peripherals,i)
    end
end

local tabs = application.view:addChild(UITabs(1,1,application.view.width-2,peripherals))

local m_cont = application.view:addChild(UIContainer(1,3,application.view.width-2,application.view.height-4))

local text_cont = UIContainer(1,3,application.view.width-2,application.view.height-4)
local back_btn = text_cont:addChild(UIButton(0,0,text_cont.width-1,1,"Back"))
back_btn.textColour = colors.red

local m_texts = {}

local function display_method(pname,mname)
    m_cont:remove()
    text_cont:remove()
    application.view:addChild(text_cont)
    for _,text in ipairs(m_texts) do
        text:remove()
    end
    local p = peripheral.wrap(pname)
    local m = p.getAdvancedMethodsData(mname)
    local y = 1
    local header = "@tb" .. mname .. "("
    for i,v in ipairs(m.args) do
        if m.args[i+1] then
            header = header .. ((v.optional and "@t9[") or "@t9") .. v.name .. ((v.optional and "]@t7, ") or "@t7, ")
        else
            header = header .. ((v.optional and "@t9[") or "@t9") .. v.name .. ((v.optional and "]") or "")
        end
    end
    header = header .. "@tb)"
    local header_text = text_cont:addChild(UIText(0,y,text_cont.width-1,1,header))
    header_text.internalWidth = header_text.width - 1
    header_text.height = header_text:getContentHeight()
    table.insert(m_texts,header_text)
    y = y + header_text.height + 1

    local desc = ((m.description ~= "" and m.description) or "@t8<No description found>")
    local desc_text = text_cont:addChild(UIText(1,y,text_cont.width-2,1,desc))
    desc_text.internalWidth = desc_text.width - 1
    desc_text.height = desc_text:getContentHeight()
    table.insert(m_texts,desc_text)
    y = y + desc_text.height + 1

    if #m.args > 0 then
        local args_text = text_cont:addChild(UIText(0,y,text_cont.width-1,1,"Arguments"))
        args_text.internalWidth = args_text.width - 1
        args_text.height = args_text:getContentHeight()
        table.insert(m_texts,args_text)
        y = y + args_text.height + 1

        for i,v in ipairs(m.args) do
            local arg = "@t9"..v.name.."@t7: " .. ((v.description ~= "" and v.description) or "@t8<No description found>")
            local arg_text = text_cont:addChild(UIText(1,y,text_cont.width-2,1,arg))
            arg_text.internalWidth = arg_text.width - 1
            arg_text.height = arg_text:getContentHeight()
            table.insert(m_texts,arg_text)
            y = y + arg_text.height
        end
        y = y + 1
    end
    if m.returnTypes ~= "()" then
        local ret = "Returns @t9" .. m.returnTypes
        local ret_text = text_cont:addChild(UIText(0,y,text_cont.width-1,1,ret))
        ret_text.internalWidth = ret_text.width - 1
        ret_text.height = ret_text:getContentHeight()
        table.insert(m_texts,ret_text)
        y = y + ret_text.height
    end
    text_cont:setVerticalOffset(0)
end

local m_btns = {}

local function show_method_buttons(pname)
    m_cont:remove()
    text_cont:remove()
    application.view:addChild(m_cont)
    local p = peripheral.wrap(pname)
    local m = (p.getAdvancedMethodsData and p.getAdvancedMethodsData()) or {}
    -- remove old children
    for _,btn in ipairs(m_btns) do
        btn:remove()
    end
    m_btns = {}
    -- add new buttons
    local ypos = 0
    for name,data in pairs(m) do
        local b = m_cont:addChild(UIButton(0,ypos,m_cont.width-1,1,name))
        function b:onClick()
            display_method(pname,name)
        end
        table.insert(m_btns,b)
        ypos = ypos + 1
    end
    m_cont:setVerticalOffset(0)
end

function back_btn:onClick()
    show_method_buttons(peripherals[tabs.selected])
end

function tabs:onSelect()
    show_method_buttons(peripherals[self.selected])
end