minetest_x_bows/bin/lua-language-server-3.5.6-l.../script/file-uri.lua

116 lines
2.6 KiB
Lua
Raw Normal View History

2022-11-03 10:37:33 -05:00
local platform = require 'bee.platform'
---@alias uri string
local escPatt = '[^%w%-%.%_%~%/]'
local function esc(c)
return ('%%%02X'):format(c:byte())
end
local function normalize(str)
return str:gsub('%%(%x%x)', function (n)
return string.char(tonumber(n, 16))
end)
end
local m = {}
-- c:\my\files --> file:///c%3A/my/files
-- /usr/home --> file:///usr/home
-- \\server\share\some\path --> file://server/share/some/path
--- path -> uri
---@param path string
---@return uri uri
function m.encode(path)
local authority = ''
if platform.OS == 'Windows' then
path = path:gsub('\\', '/')
end
if path:sub(1, 2) == '//' then
local idx = path:find('/', 3)
if idx then
authority = path:sub(3, idx)
path = path:sub(idx + 1)
if path == '' then
path = '/'
end
else
authority = path:sub(3)
path = '/'
end
end
if path:sub(1, 1) ~= '/' then
path = '/' .. path
end
--lower-case windows drive letters in /C:/fff or C:/fff
local start, finish, drive = path:find '/(%u):'
if drive then
path = path:sub(1, start) .. drive:lower() .. path:sub(finish, -1)
end
local uri = 'file://'
.. authority:gsub(escPatt, esc)
.. path:gsub(escPatt, esc)
return uri
end
-- file:///c%3A/my/files --> c:\my\files
-- file:///usr/home --> /usr/home
-- file://server/share/some/path --> \\server\share\some\path
--- uri -> path
---@param uri uri
---@return string path
function m.decode(uri)
local scheme, authority, path = uri:match('([^:]*):?/?/?([^/]*)(.*)')
if not scheme then
return ''
end
scheme = normalize(scheme)
authority = normalize(authority)
path = normalize(path)
local value
if scheme == 'file' and #authority > 0 and #path > 1 then
value = '//' .. authority .. path
elseif path:match '/%a:' then
value = path:sub(2, 2):upper() .. path:sub(3)
else
value = path
end
if platform.OS == 'Windows' then
value = value:gsub('/', '\\')
end
return value
end
function m.split(uri)
return uri:match('([^:]*):/?/?([^/]*)(.*)')
end
---@param uri string
---@return boolean
function m.isValid(uri)
local scheme, authority, path = m.split(uri)
if not scheme or scheme == '' then
return false
end
if path == '' then
return false
end
return true
end
function m.normalize(uri)
if uri == '' then
return uri
end
return m.encode(m.decode(uri))
end
return m