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);