opus/sys/extensions/6.packages.lua

_G.requireInjector(_ENV)

local Packages = require('packages')
local Util     = require('util')

local shell = _ENV.shell
local fs = _G.fs

local appPaths = Util.split(shell.path(), '(.-);')
local luaPaths = Util.split(_G.LUA_PATH, '(.-);')

local function addPath(t, path)
	local function addEntry(e)
		for _,v in ipairs(t) do
			if v == e then
				return true
			end
		end
		table.insert(t, 1, e)
	end
	addEntry(string.format('/%s/?', path))
	addEntry(string.format('/%s/?.lua', path))
	addEntry(string.format('/%s/?/init.lua', path))
end

-- dependency graph
-- https://github.com/mpeterv/depgraph/blob/master/src/depgraph/init.lua

for name in pairs(Packages:installed()) do
	local packageDir = fs.combine('packages', name)
	if fs.exists(fs.combine(packageDir, '.install')) then
		local install = Util.readTable(fs.combine(packageDir, '.install'))
		if install and install.mount then
			fs.mount(table.unpack(Util.matches(install.mount)))
		end
	end

	addPath(appPaths, packageDir)
	local apiPath = fs.combine(fs.combine('packages', name), 'apis')
	if fs.exists(apiPath) then
		addPath(luaPaths, apiPath)
	end
end

shell.setPath(table.concat(appPaths, ':'))
_G.LUA_PATH = table.concat(luaPaths, ';')