local fs = _G.fs

local function get(path)
	while not fs.exists(path) do
		path = fs.getDir(path)
	end

	if fs.exists(path) then
		local proxy = {
			getLabel = function() return fs.getDrive(path) end,
			isReadOnly = function() return fs.isReadOnly(path) end,
			spaceTotal = function() return fs.getSize(path, true) + fs.getFreeSpace(path) end,
			spaceUsed = function() return fs.getSize(path, true) end,
		}
		return proxy, path
	end
end

local function mounts()
	local t = {
		[ fs.getDrive('/') ] = '/'
	}
	for _,path in pairs(fs.list('/')) do
		local label = fs.getDrive(path)
		if not t[label] then
			t[label] = path
		end
	end

	return function()
		local label, path = next(t)
		if label then
			t[label] = nil
			return get(path)
		end
	end
end

local function list(path)
	local success, set = pcall(fs.list, path)
	if success then
		return function()
			local key, value = next(set)
			set[key or false] = nil
			return value
		end
	end
	return success, set
end

return {
	canonical = function(...) return ... end,
	concat = fs.combine,
	copy = function(...) fs.copy(...) return true end,
	exists = fs.exists,
	get = get,
	isDirectory = fs.isDir,
	isLink = function() return false end,
	link = function(s, t) return fs.mount(t, 'linkfs', s) end,
	list = list,
	makeDirectory = fs.makeDir,
	mounts = mounts,
	name = fs.getName,
	open = function(n, m) return fs.open(n, m or 'r') end,
	realPath = function(...) return ... end,
	remove = function(a) fs.delete(a) return true end,
	size = fs.getSize,
	attributes = function(f)
		local s, m = pcall(fs.attributes, f)
		if s then
			return m
		end
	end
}