Tcl C API: przekierowuje standardowe wyjście wbudowanego Tcl do pliku bez wpływu na cały program

#include <tcl.h>
int main(int argc, char** argv)
{
    Tcl_Interp *interp = Tcl_CreateInterp();

    Tcl_Channel stdoutChannel = Tcl_GetChannel(interp, "stdout", NULL);
    Tcl_UnregisterChannel(interp, stdoutChannel);

    Tcl_Channel myChannel = Tcl_OpenFileChannel(interp, "/home/aminasya/nlb_rundir/imfile", "w", 0744);

    Tcl_RegisterChannel(interp, myChannel);
    Tcl_Eval(interp, "puts hello");
}

W tym kodzie próbowałem zamknąć kanał stdout i przekierować go do pliku. (Jak w opisieUzyskaj dane wyjściowe z procedur Tcl C.). Po uruchomieniu „imfile” jest tworzony, ale pusty. Co robię źle?

widziałemJak mogę przekierować stdout do pliku w tcl też, ale muszę to zrobić używając API Tcl C.

Próbowałem również w ten sposób, ale bez rezultatu.

FILE *myfile = fopen("myfile", "W+");
Tcl_Interp *interp = Tcl_CreateInterp(); 
Tcl_Channel myChannel = Tcl_MakeFileChannel(myfile, TCL_WRITABLE);
Tcl_SetStdChannel(myChannel, TCL_STDOUT);

questionAnswers(3)

yourAnswerToTheQuestion