URL
https://opencores.org/ocsvn/or1k/or1k/trunk
[/] [or1k/] [trunk/] [insight/] [expect/] [exp_closetcl.c] - Diff between revs 578 and 1765
Only display areas with differences |
Details |
Blame |
View Log
| Rev 578 |
Rev 1765 |
/* exp_closetcl.c - close tcl files */
|
/* exp_closetcl.c - close tcl files */
|
|
|
/* isolated in it's own file since it has hooks into Tcl and exp_clib user */
|
/* isolated in it's own file since it has hooks into Tcl and exp_clib user */
|
/* might like to avoid dragging it in */
|
/* might like to avoid dragging it in */
|
|
|
#include "expect_cf.h"
|
#include "expect_cf.h"
|
#include "tclInt.h"
|
#include "tclInt.h"
|
|
|
void (*exp_close_in_child)() = 0;
|
void (*exp_close_in_child)() = 0;
|
|
|
void
|
void
|
exp_close_tcl_files() {
|
exp_close_tcl_files() {
|
int i;
|
int i;
|
|
|
/* So much for close-on-exec. Tcl doesn't mark its files that way */
|
/* So much for close-on-exec. Tcl doesn't mark its files that way */
|
/* everything has to be closed explicitly. */
|
/* everything has to be closed explicitly. */
|
|
|
#if 0
|
#if 0
|
/* Not necessary with Tcl 7.5? */
|
/* Not necessary with Tcl 7.5? */
|
for (i=3; i<tclNumFiles;i++) close(i);
|
for (i=3; i<tclNumFiles;i++) close(i);
|
#endif
|
#endif
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.