OSDN Git Service

2013.10.24
[uclinux-h8/uClinux-dist.git] / user / expect / exp_closetcl.c
1 #if OBSOLETE
2 /* exp_closetcl.c - close tcl files */
3
4 /* isolated in it's own file since it has hooks into Tcl and exp_clib user */
5 /* might like to avoid dragging it in */
6
7 #include "expect_cf.h"
8
9 void (*exp_close_in_child)() = 0;
10
11 void
12 exp_close_tcl_files() {
13     /* I don't believe this function is used any longer, at least in
14        the Expect program.*/
15 }
16 #endif /* OBSOLETE */