opus/sys/modules/opus/fs/urlfs.lua

--local rttp = require('rttp')
local Util = require('opus.util')

local fs = _G.fs

local urlfs = { }

function urlfs.mount(_, url)
	if not url then
		error('URL is required')
	end
	return {
		url = url,
		created = os.epoch('utc'),
		modification = os.epoch('utc'),
	}
end

function urlfs.attributes(node)
	return {
		created = node.created,
		isDir = false,
		modification = node.modification,
		size = node.size or 0,
	}
end

function urlfs.delete(_, dir)
	fs.unmount(dir)
end

function urlfs.exists()
	return true
end

function urlfs.getSize(node)
	return node.size or 0
end

function urlfs.isReadOnly()
	return true
end

function urlfs.isDir()
	return false
end

function urlfs.getDrive()
	return 'url'
end

function urlfs.open(node, fn, fl)
	if fl == 'w' or fl == 'wb' then
		fs.delete(fn)
		return fs.open(fn, fl)
	end

	if fl ~= 'r' and fl ~= 'rb' then
		error('Unsupported mode')
	end

	local c = node.cache
	if not c then
		--[[
		if node.url:match("^(rttps?:)") then
			local s, response = rttp.get(node.url)
			c = s and response.statusCode == 200 and response.data
		else
			c = Util.httpGet(node.url)
		end
		]]--
		c = Util.httpGet(node.url)
		if c then
			node.cache = c
			node.size = #c
		end
	end

	if not c then
		return
	end

	local ctr = 0
	local lines

	if fl == 'r' then
		return {
			read = function()
                ctr = ctr + 1
                return c:sub(ctr, ctr)
			end,
			readLine = function()
				if not lines then
					lines = Util.split(c)
				end
				ctr = ctr + 1
				return lines[ctr]
			end,
			readAll = function()
				return c
			end,
			close = function()
				lines = nil
			end,
		}
	end
	return {
		read = function()
			ctr = ctr + 1
			return c:sub(ctr, ctr):byte()
		end,
		close = function()
			ctr = 0
		end,
	}
end

return urlfs