1 files changed, 34 insertions, 0 deletions
diff --git a/server/src/3rd/lua-uri/uri/file/win32.lua b/server/src/3rd/lua-uri/uri/file/win32.lua
new file mode 100644
index 00000000..bdacbe15
--- /dev/null
+++ b/server/src/3rd/lua-uri/uri/file/win32.lua
@@ -0,0 +1,34 @@
+local M = { _NAME = "uri.file.win32" }
+local URI = require "uri"
+local Util = require "uri._util"
+
+function M.filesystem_path (uri)
+    local host = uri:host()
+    local path = Util.uri_decode(uri:path())
+    if host ~= "" then path = "//" .. host .. path end
+    if path:find("^/[A-Za-z]|/") or path:find("^/[A-Za-z]|$") then
+        path = path:gsub("|", ":", 1)
+    end
+    if path:find("^/[A-Za-z]:/") then
+        path = path:sub(2)
+    elseif path:find("^/[A-Za-z]:$") then
+        path = path:sub(2) .. "/"
+    end
+    path = path:gsub("/", "\\")
+    return path
+end
+
+function M.make_file_uri (path)
+    if path:find("^[A-Za-z]:$") then path = path .. "\\" end
+    local _, _, host, hostpath = path:find("^\\\\([A-Za-z.]+)\\(.*)$")
+    host = host or ""
+    hostpath = hostpath or path
+    hostpath = hostpath:gsub("\\", "/")
+                       :gsub("//+", "/")
+    hostpath = Util.uri_encode(hostpath, "^A-Za-z0-9%-._~!$&'()*+,;=:@/")
+    if not hostpath:find("^/") then hostpath = "/" .. hostpath end
+    return assert(URI:new("file://" .. host .. hostpath))
+end
+
+return M
+-- vi:ts=4 sw=4 expandtab