модуль для запуска консольных программ и получения их вывода

Здесь выкладываются готовые к использованию макросы и скрипты.
buniak_a_h
Posts: 3205
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 169 times
Been thanked: 468 times
Contact:

модуль для запуска консольных программ и получения их вывода

Post by buniak_a_h »

Latest post of the previous page:

John Doe wrote: Thu 12 Oct, 2017 19:06Это не будет работать, если предварительно не определить прототип.
Я не определял... Может, в каком-то другом макросе определяется?
Указанная последовательность у меня повешена на компилятор Харбора (язык такой, на xBase и интерпретацию заточенный...).
Код возврата анализируется; 0 - всё ок, окно компиляции закрывается. НЕ 0 - ошибка разного уровня; перехваченные сообщения об ошибках открываются в новом окне; по <Enter> происходи переход на ошибку (если файл не открыт, он открывается). Практически IDE на базе FARа. Естественно, т.к. делалось для себя, то никаких "красот" типа настроек нету. Если кого интересует - могу макрос приложить. В принципе, перенастроить его для запуска другого компилятора, наверно, несложно.
User avatar
John Doe
Бюрократ
Posts: 13387
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 54 times
Been thanked: 350 times

модуль для запуска консольных программ и получения их вывода

Post by John Doe »

buniak_a_h wrote: Fri 13 Oct, 2017 07:14Я не определял... Может, в каком-то другом макросе определяется?
Очевидно.
buniak_a_h wrote: Fri 13 Oct, 2017 07:14Код возврата анализируется
В вашем случае всё работает (и я подозреваю что в большинстве других случаев тоже будет), но если код возврата важен, то надо всё-таки следовать документации.
buniak_a_h wrote: Fri 13 Oct, 2017 07:14Если кого интересует - могу макрос приложить.
Если будете выкладывать, то не в этой теме.
User avatar
Smitis
Posts: 1665
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 22 times
Been thanked: 47 times

модуль для запуска консольных программ и получения их вывода

Post by Smitis »

John Doe wrote: Fri 13 Oct, 2017 07:05У меня ваш код работает.
Разумеется он работает, я его использую. Только строка c WaitForSingleObject у меня закомментирована. Насколько я помню, я так и не разобрался тогда, нужна ли эта проверка для консольных программ или нет.
Разум когда-нибудь победит.
User avatar
John Doe
Бюрократ
Posts: 13387
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 54 times
Been thanked: 350 times

модуль для запуска консольных программ и получения их вывода

Post by John Doe »

Code: Select all

if C.CreatePipe --...
Небольшой баг.
Функция в случае ошибки возвращает 0, который в условиях является истинным значением.
https://t.me/FarManager — Telegram чат
User avatar
John Doe
Бюрократ
Posts: 13387
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 54 times
Been thanked: 350 times

модуль для запуска консольных программ и получения их вывода

Post by John Doe »

Пытаюсь организовать не только получение вывода, но и передачу ввода, ориентируясь на пример https://docs.microsoft.com/en-us/window ... and-output


Пишется в пайп успешно, а чтение виснет (прервать можно по Ctrl-Break).
Помогите найти ошибку в коде.
Last edited by HaRT on Wed 04 Aug, 2021 17:57, edited 1 time in total.
Reason: [spoiler]
https://t.me/FarManager — Telegram чат
User avatar
HaRT
Moderator
Posts: 9936
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 141 times
Been thanked: 280 times

модуль для запуска консольных программ и получения их вывода

Post by HaRT »

John Doe wrote: Wed 04 Aug, 2021 16:55 Помогите найти ошибку в коде.
Не знаю, этим ли вызвано зависание, но, как я погляжу, выход из цикла происходит только при условии, что ф-я ReadFile отрапортовала, что прочитала 0 байтов. Это неправильная проверка — надо в первую очередь проверять возвращаемое значение функции (в строгом соответствии с её документацией) и, только если события развиваются по ожидаемому сценарию, проверять размер прочитанного (кстати, в случае с пайпами 0 может означать, что на стороне отправителя было записано 0 байтов).
Фар есть инструмент, а не нянька. © 2009 DrKnS
User avatar
DrKnS
Posts: 6040
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 11 times
Been thanked: 401 times

модуль для запуска консольных программ и получения их вывода

Post by DrKnS »

John Doe, если заказывать чтение 4096 байт, то ReadFile в синхронном режиме вернет управление тогда, когда в пайп запишут ровно 4096 байт, ну или когда его закроют (и вернет что есть).
Так как more не выходит и ждет нового ввода, управление ReadFile не вернет никогда.
Можно например, читать и обрабатывать по одному символу.
Можно работать в асинхронном режиме, но это несколько сложее.
User avatar
John Doe
Бюрократ
Posts: 13387
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 54 times
Been thanked: 350 times

модуль для запуска консольных программ и получения их вывода

Post by John Doe »

Упрощаю задачу, пытаюсь только передать ввод, а вывод оставить стандартный.
Но на экран ничего не выводится.
Где ошибка?
https://t.me/FarManager — Telegram чат
User avatar
citRiks
Posts: 1612
Joined: Fri 25 Oct, 2019 18:18
Has thanked: 502 times
Been thanked: 95 times

модуль для запуска консольных программ и получения их вывода

Post by citRiks »

John Doe wrote: Wed 04 Aug, 2021 16:55 Пишется в пайп успешно, а чтение виснет (прервать можно по Ctrl-Break).
Помогите найти ошибку в коде.
в первом варианте так работает "на ура", что не отменяет странности происходящего:

Code: Select all

...
local str_output = Execute("cmd.exe /cmore", nil, "12345")
far.Show("Aaa!?!?")
far.Show("more:", str_output)
"Aaa!?!?" мы никогда не видим, зато видим нормальный вывод:
image.png
А кто не поверит в наше миролюбие, / Тот кровью умоется. / И будет такая борьба за мир, / Что камня на камне не останется.
User avatar
DrKnS
Posts: 6040
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 11 times
Been thanked: 401 times

модуль для запуска консольных программ и получения их вывода

Post by DrKnS »

John Doe wrote: Thu 05 Aug, 2021 09:36 на экран ничего не выводится.
Где ошибка?
https://docs.microsoft.com/en-us/window ... tion-flags
User avatar
John Doe
Бюрократ
Posts: 13387
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 54 times
Been thanked: 350 times

модуль для запуска консольных программ и получения их вывода

Post by John Doe »

Убрал CREATE_NO_WINDOW.

Но основная проблема никуда не делась.
Вот исходник emmet-cli
https://github.com/Delapouite/emmet-cli ... js#L29-L38

Событие stdin "end" не наступает никогда.
После запуска процесс остаётся ждать его вечно.

При этом код emmet однозначно рабочий, например echo !|emmet.cmd прекрасно работает.

Т.е. в моём коде всё ещё какая-то проблема.
https://t.me/FarManager — Telegram чат
User avatar
DrKnS
Posts: 6040
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 11 times
Been thanked: 401 times

модуль для запуска консольных программ и получения их вывода

Post by DrKnS »

John Doe wrote: Thu 05 Aug, 2021 12:40Событие stdin "end" не наступает никогда
https://docs.microsoft.com/en-us/window ... and-output

Code: Select all

// Ensure the write handle to the pipe for STDIN is not inherited.
User avatar
John Doe
Бюрократ
Posts: 13387
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 54 times
Been thanked: 350 times

модуль для запуска консольных программ и получения их вывода

Post by John Doe »

Вот такой модуль в итоге получился:
Executes specified command, putting specified text to it's input stream, and returns it's output/err Syntax: obj = sh.execute([directory, ]cmdline [,input]) obj fields: - all: function, returns all the output from executed app - lines: function-iterator, returns the output line by line - ExitCode: number
https://t.me/FarManager — Telegram чат
User avatar
John Doe
Бюрократ
Posts: 13387
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 54 times
Been thanked: 350 times

модуль для запуска консольных программ и получения их вывода

Post by John Doe »

https://t.me/FarManager — Telegram чат
User avatar
John Doe
Бюрократ
Posts: 13387
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 54 times
Been thanked: 350 times

модуль для запуска консольных программ и получения их вывода

Post by John Doe »

Уточнение: теперь input перекодируется в OEM.
предполагаю что это может оказаться нежелательно в некоторых случаях, но прежде чем "улучшать" хотелось бы столкнуться с реальным примером.
https://t.me/FarManager — Telegram чат
buniak_a_h
Posts: 3205
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 169 times
Been thanked: 468 times
Contact:

модуль для запуска консольных программ и получения их вывода

Post by buniak_a_h »

Извините меня, тупого, но у меня какой-то вопрос, и по примерам не могу найти ответ.
В старой версии модуля результат был код возврата. Теперь возвращает таблицу:
hProcess │cdata ˜ all │function ˜ lines │function
Как из неё получить код возврата? В самом модуле написано так, что для того, чтоб разобраться, надо изучать тонкости lua.
Post Reply

Return to “Полезные макросы и скрипты”