local function deepcopy(orig, copies)
    copies = copies or {}

    if type(orig) ~= 'table' then
        return orig
    elseif copies[orig] then
        return copies[orig]
    end

    local copy = {}
    copies[orig] = copy

    for k, v in next, orig, nil do
        local copied_key = deepcopy(k, copies)
        local copied_val = deepcopy(v, copies)
        copy[copied_key] = copied_val
    end

    return copy
end
local _VG = deepcopy(_G)
_VG._G=_VG
_G.deepcopy=deepcopy
function string.split(str, delim, maxResultCountOrNil)
    assert(#delim == 1, "only delim len 1 supported for now")
    maxResultCountOrNil = (maxResultCountOrNil or 0)-1
    local rv = {}
    local buf = ""
    for i = 1, #str do
        local c = string.sub(str,i,i)
        if #rv ~= maxResultCountOrNil and c == delim then
            table.insert(rv, buf)
            buf = ""
        else
            buf = buf..c
        end
    end
    table.insert(rv, buf)
    return rv
end

INTERNAL_DISKS={}
INTERNAL_SCREENS={}
INTERNAL_NET={}
INTERNAL_EVENT_QUEUE={}
INTERNAL_COMPONENT_REGESTRY={}
INTERNAL_RUNTIME_FUNCTIONS={}
BIOS_CORO=nil

function addEventRaw(...)
    INTERNAL_EVENT_QUEUE[#INTERNAL_EVENT_QUEUE+1] = {...}
end

function newComponent(type, object)
    local id = tostring(#INTERNAL_COMPONENT_REGESTRY+1)
    INTERNAL_COMPONENT_REGESTRY[id] = {type=type, object=object}
    addEventRaw("componentAdded", type, object)
    return {
        remove=function()
            INTERNAL_COMPONENT_REGESTRY[id]=nil
            addEventRaw("componentRemoved", type)
        end
    }
end

function addRuntimeFunction(func)
    INTERNAL_RUNTIME_FUNCTIONS[#INTERNAL_RUNTIME_FUNCTIONS+1] = func
end

_VG.component={}

function _VG.component.list()
    local i = 0
    return function()
        i=i+1
        return INTERNAL_COMPONENT_REGESTRY[tostring(i)].type, INTERNAL_COMPONENT_REGESTRY[tostring(i)].object
    end
end

function _VG.component.getFirst(type)
    local object={}
    for i,v in pairs(INTERNAL_COMPONENT_REGESTRY) do
        if INTERNAL_COMPONENT_REGESTRY[tostring(i)].type == type then
            object=INTERNAL_COMPONENT_REGESTRY[tostring(i)]
            break
        end
    end
    return object.object
end

for i,v in ipairs(fs.list("/AceVM/components/")) do
    local file = fs.open("/AceVM/components/"..v, "r")
    local code = file.readAll()
    file.close()
    load(code)()
end

local file=fs.open("/computers/0/bios.lua","r")
local bios=file.readAll()
file.close()
file=nil
load(bios,"@bios",nil,_VG)()