1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
/* interact (with only one process) - give user keyboard control
Written by: Don Libes, NIST, 2/6/90
Design and implementation of this program was paid for by U.S. tax
dollars. Therefore it is public domain. However, the author and NIST
would appreciate credit if this program or parts of it are used.
*/
/* This file exists for deficient versions of UNIX that lack select,
poll, or some other multiplexing hook. Instead, this code uses two
processes per spawned process. One sends characters from the spawnee
to the spawner; a second send chars the other way.
This will work on any UNIX system. The only sacrifice is that it
doesn't support multiple processes. Eventually, it should catch
SIGCHLD on dead processes and do the right thing. But it is pretty
gruesome to imagine so many processes to do all this. If you change
it successfully, please mail back the changes to me. - Don
*/
#include "expect_cf.h"
#include <stdio.h>
#include <sys/types.h>
#include <sys/time.h>
#ifdef HAVE_SYS_WAIT_H
#include <sys/wait.h>
#endif
#include "tcl.h"
#include "exp_prog.h"
#include "exp_command.h" /* for struct exp_f defs */
#include "exp_event.h"
/*ARGSUSED*/
void
exp_arm_background_filehandler(m)
int m;
{
}
/*ARGSUSED*/
void
exp_disarm_background_filehandler(m)
int m;
{
}
/*ARGSUSED*/
void
exp_disarm_background_filehandler_force(m)
int m;
{
}
/*ARGSUSED*/
void
exp_unblock_background_filehandler(m)
int m;
{
}
/*ARGSUSED*/
void
exp_block_background_filehandler(m)
int m;
{
}
/*ARGSUSED*/
void
exp_event_disarm(fd)
int fd;
{
}
/* returns status, one of EOF, TIMEOUT, ERROR or DATA */
/*ARGSUSED*/
int
exp_get_next_event(interp,masters, n,master_out,timeout,key)
Tcl_Interp *interp;
int *masters;
int n; /* # of masters */
int *master_out; /* 1st event master, not set if none */
int timeout; /* seconds */
int key;
{
int m;
struct exp_f *f;
if (n > 1) {
exp_error(interp,"expect not compiled with multiprocess support");
/* select a different INTERACT_TYPE in Makefile */
return(TCL_ERROR);
}
m = *master_out = masters[0];
f = exp_fs + m;
if (f->key != key) {
f->key = key;
f->force_read = FALSE;
return(EXP_DATA_OLD);
} else if ((!f->force_read) && (f->size != 0)) {
return(EXP_DATA_OLD);
}
return(EXP_DATA_NEW);
}
/*ARGSUSED*/
int
exp_get_next_event_info(interp,fd,ready_mask)
Tcl_Interp *interp;
int fd;
int ready_mask;
{
}
/* There is no portable way to do sub-second sleeps on such a system, so */
/* do the next best thing (without a busy loop) and fake it: sleep the right */
/* amount of time over the long run. Note that while "subtotal" isn't */
/* reinitialized, it really doesn't matter for such a gross hack as random */
/* scheduling pauses will easily introduce occasional one second delays. */
int /* returns TCL_XXX */
exp_dsleep(interp,sec)
Tcl_Interp *interp;
double sec;
{
static double subtotal = 0;
int seconds;
subtotal += sec;
if (subtotal < 1) return TCL_OK;
seconds = subtotal;
subtotal -= seconds;
restart:
if (tcl_AsyncReady) {
int rc = Tcl_AsyncInvoke(interp,TCL_OK);
if (rc != TCL_OK) return(rc);
}
sleep(seconds);
return TCL_OK;
}
#if 0
/* There is no portable way to do sub-second sleeps on such a system, so */
/* do the next best thing (without a busy loop) and fake it: sleep the right */
/* amount of time over the long run. Note that while "subtotal" isn't */
/* reinitialized, it really doesn't matter for such a gross hack as random */
/* scheduling pauses will easily introduce occasional one second delays. */
int /* returns TCL_XXX */
exp_usleep(interp,usec)
Tcl_Interp *interp;
long usec; /* microseconds */
{
static subtotal = 0;
int seconds;
subtotal += usec;
if (subtotal < 1000000) return TCL_OK;
seconds = subtotal/1000000;
subtotal = subtotal%1000000;
restart:
if (tcl_AsyncReady) {
int rc = Tcl_AsyncInvoke(interp,TCL_OK);
if (rc != TCL_OK) return(exp_tcl2_returnvalue(rc));
}
sleep(seconds);
return TCL_OK;
}
#endif /*0*/
/* set things up for later calls to event handler */
void
exp_init_event()
{
exp_event_exit = 0;
}
void
exp_background_error(interp)
Tcl_Interp *interp;
{
exp_background_error_default(interp);
}
|