local main
local i = 1
while arg[i] do
    if arg[i] == '-E' then
    elseif arg[i] == '-e' then
        i = i + 1
        local expr = assert(arg[i], "'-e' needs argument")
        assert(load(expr, "=(command line)"))()
        -- exit after the executing
        return
    elseif not main and arg[i]:sub(1, 1) ~= '-' then
        main = i
    end
    i = i + 1
end

if main then
    for i = -1, -999, -1 do
        if not arg[i] then
            for j = i + 1, -1 do
                arg[j - main + 1] = arg[j]
            end
            break
        end
    end
    for j = 1, #arg do
        arg[j - main] = arg[j]
    end
    for j = #arg - main + 1, #arg do
        arg[j] = nil
    end
end

local root; do
    if main then
        local fs = require 'bee.filesystem'
        local mainPath = fs.path(arg[0])
        root = mainPath:parent_path():string()
        if root == '' then
            root = '.'
        end
    else
        local sep = package.config:sub(1,1)
        if sep == '\\' then
            sep = '/\\'
        end
        local pattern = "["..sep.."][^"..sep.."]+"
        root = package.cpath:match("([^;]+)"..pattern..pattern..pattern.."$")
        arg[0] = root .. package.config:sub(1,1) .. 'main.lua'
    end
end

package.path = table.concat({
    root .. "/script/?.lua",
    root .. "/script/?/init.lua",
}, ";"):gsub('/', package.config:sub(1,1))

package.searchers[2] = function (name)
    local filename, err = package.searchpath(name, package.path)
    if not filename then
        return err
    end
    local f = io.open(filename)
    local buf = f:read '*a'
    f:close()
    local relative = filename:sub(#root + 2)
    local init, err = load(buf, '@' .. relative)
    if not init then
        return err
    end
    return init, filename
end

assert(loadfile(arg[0]))(table.unpack(arg))