Event { description="PanelChangeDir: Listen to key events"; group="ConsoleInput";
action=function()
local f = io.open('R:\\pcd.txt', 'a')
f:write('.')
f:close()
end;
}
Попробовал для теста вот такой код. Файл pcd.txt живо наполняется точками (скажем, 40 в секунду), даже если никакие клавиши не нажимать. От такого эвента проку ноль... Или помимо group="ConsoleInput" ещё какие-то условия надо указать?
Запуск макроса по событию смены директории
Posted: Wed 09 Nov, 2016 14:15
by zg
там не только клавиатура, там весь консольный ввод, включая мышь. всё, кроме нажатий на кнопки клавиатуры и мыши можно точно фильтровать.
ещё можно проверять текущее окно, если не панели, то тоже фильтровать, хотя тут не 100%.
Запуск макроса по событию смены директории
Posted: Wed 09 Nov, 2016 14:37
by Shmuel
zg, есть ли какие-то принципиальные сложности реализовать нормальное событие смены директории в панели (экспортируемую функцию для плагинов), или просто ни у кого руки не доходят?
Запуск макроса по событию смены директории
Posted: Wed 09 Nov, 2016 15:10
by zg
Shmuel wrote:zg, есть ли какие-то принципиальные сложности реализовать нормальное событие смены директории в панели (экспортируемую функцию для плагинов), или просто ни у кого руки не доходят?
Что надо добавить в Event { group="ConsoleInput";, чтобы события приходили только на клавиатуру?
А по-моему, было бы здорово иметь событие о смене директории. В хелпе о нём написать предупреждение, чего нельзя делать и о чём не писать на багтрекер.
Вообще я мечтаю о какой-нибудь стандартной ф-ции навроде trace(message) (actionscript), console.log(message) (javascript) и т.д. Чтоб при разработке макросов писать дебаг инфу в какой-то стандартный дебаг лог, который в другом окошке можно удобно `tail -f`-ить. Если есть уже такая фича, то извиняюсь, и буду оч рад о ней узнать.
Запуск макроса по событию смены директории
Posted: Wed 09 Nov, 2016 16:01
by John Doe
gene.pavlovsky wrote: Вообще я мечтаю о какой-нибудь стандартной ф-ции
win.OutputDebugString
gene.pavlovsky wrote: Что надо добавить в Event { group="ConsoleInput";, чтобы события приходили только на клавиатуру?
Проверку аргументов
Запуск макроса по событию смены директории
Posted: Wed 09 Nov, 2016 16:17
by zg
gene.pavlovsky wrote:А по-моему, было бы здорово иметь событие о смене директории. В хелпе о нём написать предупреждение, чего нельзя делать и о чём не писать на багтрекер.
смена директории на панели происходит много где в фаре: собственно навигация по панелям, история, фолдер шоткатс, ctrl-f10 в редакторе. но это не так страшно. плагин/макрос могут сменить директорию в любой момент. например во время таскания диалога по экрану. что там нельзя вызывать, что можно — я лично не знаю.
можно конечно разрешить только безопасные функции, но слова надо подкреплять делом, так как хелп никто не читает и особо продвинутые модераторы будут использовать сверх того, что разрешено, а потом возмущаться, что в каком-то билде это перестало работать. а стандартного механизма ограничить вызов части апи в какой-то момент — нет.
Запуск макроса по событию смены директории
Posted: Wed 09 Nov, 2016 18:22
by gene.pavlovsky
John Doe wrote:
win.OutputDebugString
Проверку аргументов
И куда идёт вывод OutputDebugString? В хелпе это ни разу не развёрнуто...
Не затруднит ли вас дать пример кода (проверку документоваргументов)
Запуск макроса по событию смены директории
Posted: Wed 09 Nov, 2016 18:22
by gene.pavlovsky
zg, вас понял.
Запуск макроса по событию смены директории
Posted: Wed 09 Nov, 2016 18:40
by John Doe
gene.pavlovsky wrote: И куда идёт вывод OutputDebugString? В хелпе это ни разу не развёрнуто...
zg wrote: есть. все сразу начнут показывать мессаджбоксы из этого события и писать об этом на багтрекер
Имхо, на багтрекере не так много подобных примеров, а те что всё-таки есть (и будут) не должно быть сложно закрыть, с соответствующей формулировкой.
Особенно если в Энциклопедии действительно будет сказано о недопустимости или нежелательности тех или иных действий.
Запуск макроса по событию смены директории
Posted: Thu 10 Nov, 2016 02:48
by gene.pavlovsky
Модуль для отладки чрезвычайно полезная вещь, большое спасибо за наводку.
В MacroEx подсмотрел на тему эвентов, и наваял вот что.
При отсутствии эвентов клавиатуры или мыши таймер проверяет панели раз в 5 секунд.
При нажатии на клавиши / кнопки мыши таймер ставится на 250 мс после эвента. Если подряд идёт много эвентов, таймер каждый раз
запускается заново, то есть если зажать и держать вверх/вниз/ввод, панели проверяться не будут. Через 250 мс после последнего эвента панели проверяются. Если состояние изменилось - запускается второй таймер на 250 мс, если за это время не пришло новых эвентов, изменения коммитятся в localconfig.db.
По идее скрипт стал более оптимизирован, на практие разницы никакой не чувствуется )
-- Poll timer interval in milliseconds.
local POLL_INTERVAL = 5000
-- Poll timer interval in milliseconds (on input event).
local POLL_BOOST_INTERVAL = 250
-- Commit delay in millisconds.
local COMMIT_DELAY = 250
--local SQLITE = 'C:\\cygwin\\bin\\setsid.exe C:\\cygwin\\bin\\sqlite3.exe' -- Run sqlite3 in background (returns immediately, best performance).
local SQLITE = 'C:\\cygwin\\bin\\sqlite3.exe' -- Run sqlite3 directly (blocks execution until transaction has finished).
local LOCALCONFIG_DB = win.GetEnv('FARPROFILE') .. '\\localconfig.db'
local function CommitPanelState()
local leftPanel = APanel.Left and APanel or PPanel
local rightPanel = APanel.Left and PPanel or APanel
local sql = "BEGIN TRANSACTION; DELETE FROM 'general_config'; " ..
"INSERT INTO 'general_config' VALUES('Panel.Left','CurFile','" .. leftPanel.Current:gsub("'", "''") .. "'); " ..
"INSERT INTO 'general_config' VALUES('Panel.Left','Folder','" .. leftPanel.Path0:gsub("'", "''") .. "'); " ..
"INSERT INTO 'general_config' VALUES('Panel.Right','CurFile','" .. rightPanel.Current:gsub("'", "''") .. "'); " ..
"INSERT INTO 'general_config' VALUES('Panel.Right','Folder','" .. rightPanel.Path0:gsub("'", "''") .. "'); " ..
"INSERT INTO 'general_config' VALUES('Panel','LeftFocus'," .. (APanel.Left and 1 or 0) .. "); " ..
"COMMIT;"
os.execute(SQLITE .. ' "' .. LOCALCONFIG_DB .. '" "' .. sql .. '"')
end
--local dbg = require "dbgprint".filter("FAR:"," ")
local pollTimer
local commitTimer = far.Timer(COMMIT_DELAY, function(timer)
timer.Enabled = false
pollTimer.Enabled = false
-- dbg.print('commit')
CommitPanelState()
pollTimer.Interval = POLL_INTERVAL
pollTimer.Enabled = true
end)
commitTimer.Enabled = false
local lastActiveLeft = APanel.Left
local lastLeftPath = APanel.Left and APanel.Path0 or PPanel.Path0
local lastLeftCurrent = APanel.Left and APanel.Current or PPanel.Current
local lastRightPath = APanel.Left and PPanel.Path0 or APanel.Path0
local lastRightCurrent = APanel.Left and PPanel.Current or APanel.Current
local function UpdatePanelState()
local leftPanel = APanel.Left and APanel or PPanel
local rightPanel = APanel.Left and PPanel or APanel
local modified = false
if APanel.Left ~= lastActiveLeft then
lastActiveLeft = APanel.Left
modified = true
end
if (leftPanel.Type == 0) and ((leftPanel.Path0 ~= lastLeftPath) or (leftPanel.Current ~= lastLeftCurrent)) then
lastLeftPath = leftPanel.Path0
lastLeftCurrent = leftPanel.Current
modified = true
end
if (rightPanel.Type == 0) and ((rightPanel.Path0 ~= lastRightPath) or (rightPanel.Current ~= lastRightCurrent)) then
lastRightPath = rightPanel.Path0
lastRightCurrent = rightPanel.Current
modified = true
end
if modified then
-- dbg.print('modified')
commitTimer.Interval = COMMIT_DELAY
commitTimer.Enabled = true
end
end
pollTimer = far.Timer(POLL_INTERVAL, function(timer)
timer.Enabled = false
UpdatePanelState()
timer.Interval = POLL_INTERVAL
timer.Enabled = true
end)
Event { description="PanelChangeDir: Clean up timers on exit"; group="ExitFAR";
uid="351F4780-2799-47BF-984A-EB429E8B431E";
action=function()
pollTimer:Close()
commitTimer:Close()
end;
}
Event { description="PanelChangeDir: Listen to input events"; group="ConsoleInput";
action=function(Rec)
if ((Rec.EventType == far.Flags.KEY_EVENT) and (Rec.VirtualKeyCode ~= 0)) or
((Rec.EventType == far.Flags.MOUSE_EVENT) and (Rec.EventFlags ~= far.Flags.MOUSE_MOVED)) then
commitTimer.Enabled = false
pollTimer.Interval = POLL_BOOST_INTERVAL
end
end;
}
Запуск макроса по событию смены директории
Posted: Thu 10 Nov, 2016 11:53
by John Doe
gene.pavlovsky wrote: При отсутствии эвентов клавиатуры или мыши таймер проверяет панели раз в 5 секунд.
Перестраховка?
gene.pavlovsky wrote:Через 250 мс после последнего эвента панели проверяются. Если состояние изменилось - запускается второй таймер на 250 мс, если за это время не пришло новых эвентов, изменения коммитятся в localconfig.db.
А просто проверять (и сразу записывать) через 500 мс после последнего события не то же самое будет?
P.S.
Вместо sqlite можно попробовать far.exe /import
Запуск макроса по событию смены директории
Posted: Thu 10 Nov, 2016 15:52
by gene.pavlovsky
John Doe wrote:Перестраховка?
Ага.
John Doe wrote:А просто проверять (и сразу записывать) через 500 мс после последнего события не то же самое будет?
-- Timer poll interval in milliseconds.
local POLL_INTERVAL = 5000
-- Timer boost on input event interval in milliseconds.
local BOOST_INTERVAL = 500
--local SQLITE = 'C:\\cygwin\\bin\\setsid.exe C:\\cygwin\\bin\\sqlite3.exe' -- Run sqlite3 in background (returns immediately, best performance).
local SQLITE = 'C:\\cygwin\\bin\\sqlite3.exe' -- Run sqlite3 directly (blocks execution until transaction has finished).
local LOCALCONFIG_DB = win.GetEnv('FARPROFILE') .. '\\localconfig.db'
--local dbg = require "dbgprint".filter("FAR:"," ")
local function CommitPanelState()
-- dbg.print('commit')
local leftPanel = APanel.Left and APanel or PPanel
local rightPanel = APanel.Left and PPanel or APanel
local sql = "BEGIN TRANSACTION; DELETE FROM 'general_config'; " ..
"INSERT INTO 'general_config' VALUES('Panel.Left','CurFile','" .. leftPanel.Current:gsub("'", "''") .. "'); " ..
"INSERT INTO 'general_config' VALUES('Panel.Left','Folder','" .. leftPanel.Path0:gsub("'", "''") .. "'); " ..
"INSERT INTO 'general_config' VALUES('Panel.Right','CurFile','" .. rightPanel.Current:gsub("'", "''") .. "'); " ..
"INSERT INTO 'general_config' VALUES('Panel.Right','Folder','" .. rightPanel.Path0:gsub("'", "''") .. "'); " ..
"INSERT INTO 'general_config' VALUES('Panel','LeftFocus'," .. (APanel.Left and 1 or 0) .. "); " ..
"COMMIT;"
os.execute(SQLITE .. ' "' .. LOCALCONFIG_DB .. '" "' .. sql .. '"')
end
local lastActiveLeft = APanel.Left
local lastLeftPath = APanel.Left and APanel.Path0 or PPanel.Path0
local lastLeftCurrent = APanel.Left and APanel.Current or PPanel.Current
local lastRightPath = APanel.Left and PPanel.Path0 or APanel.Path0
local lastRightCurrent = APanel.Left and PPanel.Current or APanel.Current
local function UpdatePanelState()
local leftPanel = APanel.Left and APanel or PPanel
local rightPanel = APanel.Left and PPanel or APanel
local modified = false
if APanel.Left ~= lastActiveLeft then
lastActiveLeft = APanel.Left
modified = true
end
if (leftPanel.Type == 0) and ((leftPanel.Path0 ~= lastLeftPath) or (leftPanel.Current ~= lastLeftCurrent)) then
lastLeftPath = leftPanel.Path0
lastLeftCurrent = leftPanel.Current
modified = true
end
if (rightPanel.Type == 0) and ((rightPanel.Path0 ~= lastRightPath) or (rightPanel.Current ~= lastRightCurrent)) then
lastRightPath = rightPanel.Path0
lastRightCurrent = rightPanel.Current
modified = true
end
if modified then
CommitPanelState()
end
end
timer = far.Timer(POLL_INTERVAL, function(timer)
timer.Enabled = false
UpdatePanelState()
timer.Interval = POLL_INTERVAL
timer.Enabled = true
end)
Event { description="PanelChangeDir: Clean up timer on exit"; group="ExitFAR";
uid="351F4780-2799-47BF-984A-EB429E8B431E";
action=function()
timer:Close()
end;
}
Event { description="PanelChangeDir: Listen to input events"; group="ConsoleInput";
action=function(Rec)
if ((Rec.EventType == far.Flags.KEY_EVENT) and (Rec.VirtualKeyCode ~= 0)) or
((Rec.EventType == far.Flags.MOUSE_EVENT) and (Rec.EventFlags ~= far.Flags.MOUSE_MOVED)) then
timer.Interval = BOOST_INTERVAL
end
end;
}
John Doe wrote:Вместо sqlite можно попробовать far.exe /import
Никогда этим не пользовался, и что ему давать на вход? И будет ли оно быстрее отрабатывать?