snark13
8e389c03f8
Реализовать двухпанельный Commander от платформенного PoC до этапов P6-P20: EMM-каталог, сортировку и выбор, операции с файлами и деревьями, транзакционное копирование, метаданные, политику конфликтов и предварительную проверку свободного места. Добавить проектную документацию, HDD/MAME-сценарии и проверенные артефакты. Расширить libc операцией bank_write_page, исправлением режима O_RDONLY и связанными регрессионными проверками.
138 lines
4.3 KiB
Lua
138 lines
4.3 KiB
Lua
-- Автоматический MAME-сценарий P3: настоящие каталоги и две панели.
|
|
|
|
local KB = ":kbd:ms_naturl:"
|
|
local HOLD = 0.06
|
|
local events = {}
|
|
|
|
local function add(t, tag, mask, value)
|
|
events[#events + 1] = {t, KB .. tag, mask, value}
|
|
end
|
|
|
|
local function key(t, tag, mask)
|
|
add(t, tag, mask, 1)
|
|
add(t + HOLD, tag, mask, 0)
|
|
end
|
|
|
|
local function chord(t, mod_tag, mod_mask, key_tag, key_mask)
|
|
add(t, mod_tag, mod_mask, 1)
|
|
add(t + 0.02, key_tag, key_mask, 1)
|
|
add(t + 0.08, key_tag, key_mask, 0)
|
|
add(t + 0.10, mod_tag, mod_mask, 0)
|
|
end
|
|
|
|
local chars = {
|
|
a={"P1.6",0x04}, c={"P1.4",0x08}, d={"P1.4",0x04},
|
|
e={"P1.4",0x20}, m={"P2.0",0x10}, p={"P2.3",0x20},
|
|
r={"P1.5",0x01}, s={"P1.2",0x08}, x={"P1.2",0x10},
|
|
[" "]={"P2.4",0x80}, ["."]={"P2.2",0x10},
|
|
["\\"]={"P2.1",0x04}, ["\n"]={"P2.1",0x10},
|
|
[":"]={"P2.3",0x02,true}
|
|
}
|
|
|
|
local function type_text(t, value)
|
|
for i = 1, #value do
|
|
local ch = value:sub(i, i)
|
|
local def = chars[ch]
|
|
local shifted = false
|
|
if not def then
|
|
local lower = ch:lower()
|
|
def = chars[lower]
|
|
shifted = ch ~= lower
|
|
else
|
|
shifted = def[3] or false
|
|
end
|
|
if shifted then
|
|
chord(t, "P1.7", 0x02, def[1], def[2])
|
|
else
|
|
key(t, def[1], def[2])
|
|
end
|
|
t = t + 0.14
|
|
end
|
|
end
|
|
|
|
type_text(8.0, "a:\\SPRCMD .EXE\n")
|
|
|
|
key(17.0, "P2.1", 0x10) -- Enter: левая -> TESTDIR.
|
|
key(22.0, "P2.1", 0x10) -- Enter на `..`: обратно в корень.
|
|
key(27.0, "P2.1", 0x10) -- Снова открыть TESTDIR.
|
|
key(29.0, "P2.3", 0x10) -- Выбрать INNER.TXT.
|
|
chord(31.0, "P1.1", 0x02, "P1.5", 0x01) -- Ctrl+R: сохранить выбор имени.
|
|
key(36.0, "P1.6", 0x20) -- Tab: правая панель.
|
|
key(38.0, "P2.3", 0x10) -- Выбрать P3ROOT.TXT справа.
|
|
key(43.0, "P1.6", 0x20) -- Tab: вернуться в левую.
|
|
chord(45.0, "P1.1", 0x02, "P1.2", 0x01) -- Ctrl+PgUp: левая -> корень.
|
|
key(50.0, "P2.3", 0x80) -- F10.
|
|
key(55.0, "P2.1", 0x10) -- Enter: cleanup.
|
|
|
|
-- Второй процесс проверяет освобождение EMM и повторную инициализацию темы.
|
|
type_text(61.0, "a:\\SPRCMD .EXE\n")
|
|
key(70.0, "P2.3", 0x80)
|
|
key(74.0, "P2.1", 0x10)
|
|
|
|
table.sort(events, function(a, b) return a[1] < b[1] end)
|
|
|
|
local snap_times = {
|
|
15.0, -- root/root: TESTDIR должен быть первым;
|
|
20.0, -- left TESTDIR: `..`, INNER.TXT; right root;
|
|
25.0, -- Enter на `..` вернул left в root;
|
|
34.0, -- refresh сохранил INNER.TXT и cursor=1;
|
|
41.0, -- right root cursor=1, left TESTDIR cursor=1;
|
|
48.0, -- Ctrl+PgUp изменил только left;
|
|
53.0, -- quit dialog;
|
|
58.0, -- DSS после первого cleanup;
|
|
68.0, -- второй root/root;
|
|
72.0, -- второй quit dialog;
|
|
77.0 -- DSS после второго cleanup.
|
|
}
|
|
local snaps_done = {}
|
|
local start_time = nil
|
|
local ports = nil
|
|
local index = 1
|
|
local field_cache = {}
|
|
|
|
local function now()
|
|
local t = manager.machine.time
|
|
return t.seconds + t.attoseconds / 1e18
|
|
end
|
|
|
|
local function field(tag, mask)
|
|
local cache_key = tag .. "/" .. mask
|
|
if field_cache[cache_key] then return field_cache[cache_key] end
|
|
for _, candidate in pairs(ports[tag].fields) do
|
|
if candidate.mask == mask then
|
|
field_cache[cache_key] = candidate
|
|
return candidate
|
|
end
|
|
end
|
|
error("Не найдено поле " .. cache_key)
|
|
end
|
|
|
|
emu.add_machine_reset_notifier(function()
|
|
start_time = now()
|
|
end)
|
|
|
|
emu.register_periodic(function()
|
|
if not start_time then return end
|
|
if not ports then ports = manager.machine.ioport.ports end
|
|
local elapsed = now() - start_time
|
|
|
|
while index <= #events and elapsed >= events[index][1] do
|
|
local event = events[index]
|
|
field(event[2], event[3]):set_value(event[4])
|
|
index = index + 1
|
|
end
|
|
|
|
for _, snap_time in ipairs(snap_times) do
|
|
if not snaps_done[snap_time] and elapsed >= snap_time then
|
|
snaps_done[snap_time] = true
|
|
manager.machine.video:snapshot()
|
|
print("[p3-panels] snapshot t=" .. elapsed)
|
|
end
|
|
end
|
|
|
|
if elapsed >= 79.0 then
|
|
print("[p3-panels] exit t=" .. elapsed)
|
|
manager.machine:exit()
|
|
end
|
|
end)
|