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

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

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

Post by tstr »

есть ли возможность из Lua писать в консольный буфер FARа без его затирания при восстановлении панелей/экрана, как это делают штатно запускаемые фаром консольные приложения (аналог вызова echo в командном интерпретаторе)?

Shmuel
Posts: 6031
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 27 times
Been thanked: 294 times

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

Post by Shmuel »

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

Code: Select all

lm:post print("dir /w") Keys("Enter")
Буду рад ошибиться.

User avatar
DrKnS
Posts: 5524
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 6 times
Been thanked: 281 times

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

Post by DrKnS »

Code: Select all

PanelControl(FCTL_GETUSERSCREEN);
print("hello, world");
PanelControl(FCTL_SETUSERSCREEN);

tstr
Posts: 533
Joined: Thu 16 Apr, 2009 16:15
Has thanked: 9 times
Been thanked: 8 times

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

Post by tstr »

спасибо, работает.
  1. function printToFARConsole(txt)
  2.   local hScr;
  3.   panel.GetUserScreen(hScr);
  4.   io.write(txt);
  5.   panel.SetUserScreen(hScr);
  6. end

Shmuel
Posts: 6031
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 27 times
Been thanked: 294 times

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

Post by Shmuel »

hScr не играет роли здесь, он игнорируется LuaFAR'ом.
  1. function printToFARConsole(...)
  2.   panel.GetUserScreen()
  3.   io.write(...)
  4.   io.write("\n")
  5.   panel.SetUserScreen()
  6. end
И вылезла попутно одна проблема: io.write не выводит правильно в консоль текст в UTF-8.

gotar
Posts: 316
Joined: Sun 06 Sep, 2009 12:34
Has thanked: 9 times

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

Post by gotar »

Почитавши форум накатал две функции
  1. function printToFARConsole(...)
  2.   panel.GetUserScreen()
  3.   io.write(...)
  4.   io.write("\n")
  5.   panel.SetUserScreen()
  6. end
  7. _G.сprint=printToFARConsole
  8.  
  9. local function checkarg (arg, argnum, reftype)
  10.   if type(arg) ~= reftype then
  11. --    error(("arg. #%d: %s expected, got %s"):format(argnum, reftype, type(arg)), 3)
  12.   end
  13. end
  14.  
  15.  
  16. function _G.сprintf (fmt, ...)
  17.   checkarg(fmt,1,"string")
  18.   return _G.сprint(fmt:format(...))
  19. end
для вывода на экран. Я, конечно слепой, но не смог найти определение функции error даже контекстным поиском по всем исходникам luamacro. Помогите найти!

User avatar
John Doe
Бюрократ
Posts: 12656
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 35 times
Been thanked: 270 times

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

Post by John Doe »

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

P.S.
Учитывайте также что основой LuaMacro является библиотека LuaFAR

tstr
Posts: 533
Joined: Thu 16 Apr, 2009 16:15
Has thanked: 9 times
Been thanked: 8 times

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

Post by tstr »

немного оффтоп, но касательно функции printToFARConsole:
создавал внешний процесс, получал от него консольный вывод, отправлял в юзерскрин этот вывод. при убиении процесса получал ошибку lua (аля должен быть параметр для io.write а получен nil), обошел введением дополнительной проверки как-то так:
  1. function printToFARConsole(...)
  2.     local parT = ...
  3.     if parT~= nil then
  4.       panel.GetUserScreen()
  5.       io.write(...)
  6.       io.write("\n")
  7.       panel.SetUserScreen()
  8.     end
  9. end

Shmuel
Posts: 6031
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 27 times
Been thanked: 294 times

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

Post by Shmuel »

Раз пошла такая пьянка, вот модификация, которая позволяет (у меня по крайней мере) выводить и русский текст, если на входе UTF-8. "Чисто юникодные" символы, естественно, таким путём не выведешь.
  1. function printToFARConsole(...)
  2.   local OemCp = win.GetOEMCP()
  3.   panel.GetUserScreen()
  4.   for k=1, select("#",...) do
  5.     local s = select(k,...)
  6.     s = win.WideCharToMultiByte(win.Utf8ToUtf16(s),OemCp)
  7.     io.write(s)
  8.   end
  9.   io.write("\n")
  10.   panel.SetUserScreen()
  11. end

gotar
Posts: 316
Joined: Sun 06 Sep, 2009 12:34
Has thanked: 9 times

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

Post by gotar »

А как выводить информациию на этот desktop из Lua макросов? Может быть у кого нибудь уже есть готовый код.

gotar
Posts: 316
Joined: Sun 06 Sep, 2009 12:34
Has thanked: 9 times

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

Post by gotar »

Многие ли пользуются функцией print? Предлагаю сделать поведение функции print более похожим на print в обычном lua, т.е. print мог бы выводить информацию на Descktop (ConsoleOutput), а не повторять функциональность Keys. Такое поведение ломает совместимость, однако я не думаю что кто-то в макросах использовал текущую версию print.

User avatar
John Doe
Бюрократ
Posts: 12656
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 35 times
Been thanked: 270 times

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

Post by John Doe »

print не повторяет функциональность Keys

User avatar
Wave
Posts: 1771
Joined: Thu 04 Aug, 2005 18:47
Has thanked: 4 times
Been thanked: 16 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: 6031
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 27 times
Been thanked: 294 times

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

Post by Shmuel »

gotar wrote:А как выводить информациию на этот desktop из Lua макросов? Может быть у кого нибудь уже есть готовый код.
Смотрите мануал LuaFAR, panel.GetUserScreen, panel.SetUserScreen. Там и пример имеется.

gotar
Posts: 316
Joined: Sun 06 Sep, 2009 12:34
Has thanked: 9 times

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

Post by gotar »

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

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

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

Post Reply

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