|
|
ru.unix- RU.UNIX ---------------------------------------------------------------------- From : vitus@ice.ru 2:5020/400 19 Jun 2001 18:38:14 To : Max Ischenko Subject : Re: expect question -------------------------------------------------------------------------------- Max Ischenko <max@malva.com.ua> wrote: MI> Valentin Nechayev wrote: MI>У меня есть программа, которая выполняет ряд тестов. MI>Каждый тест характеризуется своим контекстом, т.е. все происходящие события MI>на протяжении теста регистрируются с помощью такой немудреной процедуры: MI>proc add-diag-context buf { MI> global diagBuffer testCase MI> MI> set value [lindex [array get diagBuffer $testCase] 1] MI> set diagBuffer($testCase) "$value\n$buf" MI>} MI>Из своего кода вызвать add-diag-context нет проблем. MI>Проблема, чтобы отправлять туда и вывод spawned process'a. Как как - один раз написать процедуру которая будет вызываться вместо родной expect и копировать выдачу процесса. Можно еще и exp_send переопределить. Есть в Tcl такая добрая команда rename MI>Expect видимо никаких хуков для перехвата не предоставляет. MI>Я же предполагал обратное. MI>PS: Может через log_file + fileevent попробовать? Hе бывает. Как упыря. В смысле fileevent на обычных файлах. fileevent-ы бывают на пайпах, сокетах и последовательных портах. MI>-- MI>Your program is sick! Shoot it and put it out of its memory. -- Victor Wagner vitus@ice.ru Chief Technical Officer Office:7-(095)-748-53-88 Communiware.Net Home: 7-(095)-135-46-61 http://www.communiware.net http://www.ice.ru/~vitus --- ifmail v.2.15dev5 * Origin: FT-center (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.unix/950938f06d58.html, оценка из 5, голосов 10
|