TCL C API Создать и зарегистрировать новый канал

Question

Я использую Tcl 8,6 (окна) и я не могу зарегистрировать и использовать новые каналы

std::ofstream file("1.txt"); 

Tcl_Channel kanal = Tcl_CreateChannel(Type, "myChann", file, TCL_WRITABLE); 
Tcl_RegisterChannel(interp, kanal); 

file.close(); 

и тип является

Tcl_ChannelType* Type = new Tcl_ChannelType(); 
Type->closeProc = closeProc; 
Type->inputProc = inputProc; 
Type->outputProc = outputProc; 
Type->typeName = "My own chann"; 
Type->version = TCL_CHANNEL_VERSION_2; 

функции просто, они имеют только зЬй :: COUT

я запустить интерпретатор с помощью сценария

"chan puts myChan whatever" 

и ничего не случилось, никаких ошибок от интерпретатора, нет вывода (консоль, файл). Я не знаю, как укусить это, это первая цель, создать новую шанель и использовать ее, второй - заменить TCL_STDOUT моим собственным каналом (это может быть std :: ofstream), , чтобы при запуске интерпретатора с

"puts WhatEver" 

что строка перейти к станд :: ofstream

Answer 1

Вероятно, вы не промывать выход.

Это может быть сделано с

flush myChan 

Вы также можете настроить свой канал, чтобы смывать в конце строки или всякий раз, когда что-то написано на него:

chan configure myChan -buffering line 

(или none). стандартный вывод по умолчанию настроен -buffering line