first commit

mpv/scripts/file-browser/addons/powershell.lua

@@ -0,0 +1,81 @@
+--[[
+    An addon for mpv-file-browser which uses powershell commands to parse native directories
+
+    This is slower than the default parser for local drives, but faster for network drives
+    The drive_letters array below is used to list the drives to use this parser for
+]]--
+
+--list the drive letters to use here (case sensitive)
+local drive_letters = {
+    "Y", "Z"
+}
+
+local mp = require "mp"
+local msg = require "mp.msg"
+local fb = require "file-browser"
+
+local wn = {
+    priority = 109,
+    api_version = "1.1.0",
+    name = "powershell",
+    keybind_name = "file"
+}
+
+local drives = {}
+for _, letter in ipairs(drive_letters) do
+    drives[letter] = true
+end
+
+local function command(args, parse_state)
+    local _, cmd = parse_state:yield(
+        mp.command_native_async({
+            name = "subprocess",
+            playback_only = false,
+            capture_stdout = true,
+            capture_stderr = true,
+            args = args
+        }, fb.coroutine.callback())
+    )
+
+    return cmd.status == 0 and cmd.stdout or nil, cmd.stderr
+end
+
+function wn:can_parse(directory)
+    return directory ~= '' and not self.get_protocol(directory) and drives[ directory:sub(1,1) ]
+end
+
+function wn:parse(directory, parse_state)
+    local list = {}
+    local files, err = command({"powershell", "-noprofile", "-command", [[
+        $dirs = Get-ChildItem -LiteralPath ]]..string.format("%q", directory)..[[ -Directory
+        $files = Get-ChildItem -LiteralPath ]]..string.format("%q", directory)..[[ -File
+
+        foreach ($n in $dirs.Name) {
+            $n += "/"
+            $u8clip = [System.Text.Encoding]::UTF8.GetBytes($n)
+            [Console]::OpenStandardOutput().Write($u8clip, 0, $u8clip.Length)
+            Write-Host ""
+        }
+
+        foreach ($n in $files.Name) {
+            $u8clip = [System.Text.Encoding]::UTF8.GetBytes($n)
+            [Console]::OpenStandardOutput().Write($u8clip, 0, $u8clip.Length)
+            Write-Host ""
+        }
+    ]]}, parse_state)
+
+    if not files then msg.debug(err) ; return nil end
+
+    for str in files:gmatch("[^\n\r]+") do
+        local is_dir = str:sub(-1) == "/"
+        if is_dir and self.valid_dir(str) then
+            table.insert(list, {name = str, type = "dir"})
+        elseif self.valid_file(str) then
+            table.insert(list, {name = str, type = "file"})
+        end
+    end
+
+    return self.sort(list), {filtered = true, sorted = true}
+end
+
+return wn