возможность из Lua писать в консольный буфер FARа

Здесь обсуждается всё, что касается макросов.
tstr
Posts: 559
Joined: Thu 16 Apr, 2009 16:15
Has thanked: 20 times
Been thanked: 9 times

возможность из Lua писать в консольный буфер FARа

Post by tstr »

есть ли возможность из Lua писать в консольный буфер FARа без его затирания при восстановлении панелей/экрана, как это делают штатно запускаемые фаром консольные приложения (аналог вызова echo в командном интерпретаторе)?
Shmuel
Posts: 6834
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

Re: LuaMacro — Lua как язык макросов

Post by Shmuel »

Похоже, что такой возможности нет (и не только из Lua, а вообще из плагинов), если не считать макросы типа

Code: Select all

lm:post print("dir /w") Keys("Enter")
Буду рад ошибиться.
User avatar
DrKnS
Posts: 6114
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 12 times
Been thanked: 426 times

Re: LuaMacro — Lua как язык макросов

Post by DrKnS »

Code: Select all

PanelControl(FCTL_GETUSERSCREEN);
print("hello, world");
PanelControl(FCTL_SETUSERSCREEN);
tstr
Posts: 559
Joined: Thu 16 Apr, 2009 16:15
Has thanked: 20 times
Been thanked: 9 times

Re: LuaMacro — Lua как язык макросов

Post by tstr »

спасибо, работает.
  1. function printToFARConsole(txt)
  2.  
  3.   local hScr;
  4.  
  5.   panel.GetUserScreen(hScr);
  6.  
  7.   io.write(txt);
  8.  
  9.   panel.SetUserScreen(hScr);
  10.  
  11. end
Shmuel
Posts: 6834
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

Re: LuaMacro — Lua как язык макросов

Post by Shmuel »

hScr не играет роли здесь, он игнорируется LuaFAR'ом.
  1. function printToFARConsole(...)
  2.  
  3.   panel.GetUserScreen()
  4.  
  5.   io.write(...)
  6.  
  7.   io.write("\n")
  8.  
  9.   panel.SetUserScreen()
  10.  
  11. end
И вылезла попутно одна проблема: io.write не выводит правильно в консоль текст в UTF-8.
gotar
Posts: 420
Joined: Sun 06 Sep, 2009 12:34
Has thanked: 17 times
Been thanked: 3 times

Не могу найти определение функции error из checkarg

Post by gotar »

Почитавши форум накатал две функции
  1. function printToFARConsole(...)
  2.  
  3.   panel.GetUserScreen()
  4.  
  5.   io.write(...)
  6.  
  7.   io.write("\n")
  8.  
  9.   panel.SetUserScreen()
  10.  
  11. end
  12.  
  13. _G.сprint=printToFARConsole
  14.  
  15.  
  16.  
  17. local function checkarg (arg, argnum, reftype)
  18.  
  19.   if type(arg) ~= reftype then
  20.  
  21. --    error(("arg. #%d: %s expected, got %s"):format(argnum, reftype, type(arg)), 3)
  22.  
  23.   end
  24.  
  25. end
  26.  
  27.  
  28.  
  29.  
  30.  
  31. function _G.сprintf (fmt, ...)
  32.  
  33.   checkarg(fmt,1,"string")
  34.  
  35.   return _G.сprint(fmt:format(...))
  36.  
  37. end
для вывода на экран. Я, конечно слепой, но не смог найти определение функции error даже контекстным поиском по всем исходникам luamacro. Помогите найти!
User avatar
John Doe
Бюрократ
Posts: 13853
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 428 times
Contact:

Re: Не могу найти определение функции error из checkarg

Post by John Doe »

http://www.lua.org/manual/5.1/manual.html#pdf-error

P.S.
Учитывайте также что основой LuaMacro является библиотека LuaFAR
tstr
Posts: 559
Joined: Thu 16 Apr, 2009 16:15
Has thanked: 20 times
Been thanked: 9 times

Re: Не могу найти определение функции error из checkarg

Post by tstr »

немного оффтоп, но касательно функции printToFARConsole:
создавал внешний процесс, получал от него консольный вывод, отправлял в юзерскрин этот вывод. при убиении процесса получал ошибку lua (аля должен быть параметр для io.write а получен nil), обошел введением дополнительной проверки как-то так:
  1. function printToFARConsole(...)
  2.  
  3.     local parT = ...
  4.  
  5.     if parT~= nil then
  6.  
  7.       panel.GetUserScreen()
  8.  
  9.       io.write(...)
  10.  
  11.       io.write("\n")
  12.  
  13.       panel.SetUserScreen()
  14.  
  15.     end
  16.  
  17. end
Shmuel
Posts: 6834
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

Re: Не могу найти определение функции error из checkarg

Post by Shmuel »

Раз пошла такая пьянка, вот модификация, которая позволяет (у меня по крайней мере) выводить и русский текст, если на входе UTF-8. "Чисто юникодные" символы, естественно, таким путём не выведешь.
  1. function printToFARConsole(...)
  2.  
  3.   local OemCp = win.GetOEMCP()
  4.  
  5.   panel.GetUserScreen()
  6.  
  7.   for k=1, select("#",...) do
  8.  
  9.     local s = select(k,...)
  10.  
  11.     s = win.WideCharToMultiByte(win.Utf8ToUtf16(s),OemCp)
  12.  
  13.     io.write(s)
  14.  
  15.   end
  16.  
  17.   io.write("\n")
  18.  
  19.   panel.SetUserScreen()
  20.  
  21. end
gotar
Posts: 420
Joined: Sun 06 Sep, 2009 12:34
Has thanked: 17 times
Been thanked: 3 times

Re: userscreen под панелями — отдельное окно ("Desktop")

Post by gotar »

А как выводить информациию на этот desktop из Lua макросов? Может быть у кого нибудь уже есть готовый код.
gotar
Posts: 420
Joined: Sun 06 Sep, 2009 12:34
Has thanked: 17 times
Been thanked: 3 times

print должен выводить в Console, а не в буфер клавиатуры Far

Post by gotar »

Многие ли пользуются функцией print? Предлагаю сделать поведение функции print более похожим на print в обычном lua, т.е. print мог бы выводить информацию на Descktop (ConsoleOutput), а не повторять функциональность Keys. Такое поведение ломает совместимость, однако я не думаю что кто-то в макросах использовал текущую версию print.
User avatar
John Doe
Бюрократ
Posts: 13853
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 428 times
Contact:

Re: print должен выводить в Console, а не в буфер клавиатуры

Post by John Doe »

print не повторяет функциональность Keys
User avatar
Wave
Posts: 1886
Joined: Thu 04 Aug, 2005 18:47
Has thanked: 14 times
Been thanked: 26 times

Re: print должен выводить в Console, а не в буфер клавиатуры

Post by Wave »

Как раз очень много в макросах принта. Одно дело написать print("some command") и другое Keys("s o m e space c o m m a n d")
А уж в случае с макросами аналогами truetemplate…
Пользуюсь ФАРом больше 20 лет © собирательный.
Shmuel
Posts: 6834
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

Re: userscreen под панелями — отдельное окно ("Desktop")

Post by Shmuel »

gotar wrote:А как выводить информациию на этот desktop из Lua макросов? Может быть у кого нибудь уже есть готовый код.
Смотрите мануал LuaFAR, panel.GetUserScreen, panel.SetUserScreen. Там и пример имеется.
gotar
Posts: 420
Joined: Sun 06 Sep, 2009 12:34
Has thanked: 17 times
Been thanked: 3 times

возможность из Lua писать в консольный буфер FARа

Post by gotar »

Как что то записать на экран Desktopa?
Мой план:
1. Сохранить номер текущего окна
2. Переключиться в нулевое окно
3. Записать информацию на стандартный вывод
4. Ввостановить текущее окно

полностью провалился

На всякий случай привожу текст скрипта
  1. _G.sprint = function(...)
  2.  
  3. pos=far.AdvControl("ACTL_GETWINDOWINFO").Pos
  4.  
  5. -- if ( far.AdvControl("ACTL_GETWINDOWINFO",1).Type ~= 0) then  ErrMsg(tostring((...)),"Desktop") return end
  6.  
  7. far.AdvControl("ACTL_SETCURRENTWINDOW",1)
  8.  
  9. far.AdvControl("ACTL_COMMIT")
  10.  
  11. luaprint(...)
  12.  
  13. far.AdvControl("ACTL_SETCURRENTWINDOW",pos)
  14.  
  15. far.AdvControl("ACTL_COMMIT")
  16.  
  17. end
  18.  
  19. sprint("point 1\n")
  20.  
  21. win.Sleep(3000)
  22.  
  23. sprint("point 2\n")
COMMIT по всей видимости не нужен. Я его сделал с горя. luaprint - стандартный print до его переопределения в LuaMacro.
Post Reply

Return to “Обсуждение макросов”