Subversion Repositories or1k

/* exp_closetcl.c - close tcl files */

/* isolated in it's own file since it has hooks into Tcl and exp_clib user */

/* might like to avoid dragging it in */

#include "expect_cf.h"

#include "tclInt.h"

void (*exp_close_in_child)() = 0;

void

exp_close_tcl_files() {

        int i;

        /* So much for close-on-exec.  Tcl doesn't mark its files that way */

        /* everything has to be closed explicitly. */

#if 0

/* Not necessary with Tcl 7.5? */

        for (i=3; i<tclNumFiles;i++) close(i);

#endif

}