1
2
3
4
5
6
7
8
9
10
11
12
|
/* ==================================================================
FILE: "/diska/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Fri Aug 20 18:14:57 1999 (joze)"
(C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
$Id$
---
tclreadline -- gnu readline for tcl
Copyright (C) 1999 Johannes Zellner
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
|
/* ==================================================================
FILE: "/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Fri Aug 20 23:41:24 1999 (joze)"
(C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
$Id$
---
tclreadline -- gnu readline for tcl
Copyright (C) 1999 Johannes Zellner
|
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
(char *) NULL);
return TCL_ERROR;
}
void TclReadlineDataAvailableHandler (ClientData clientData, int mask)
{
#if 1
fprintf (stderr, "(TclReadlineDataAvailableHandler) mask = %d\n", mask);
#endif
if (mask & TCL_READABLE) {
rl_callback_read_char ();
rl_redisplay ();
}
}
|
|
|
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
(char *) NULL);
return TCL_ERROR;
}
void TclReadlineDataAvailableHandler (ClientData clientData, int mask)
{
#if 0
fprintf (stderr, "(TclReadlineDataAvailableHandler) mask = %d\n", mask);
#endif
if (mask & TCL_READABLE) {
rl_callback_read_char ();
rl_redisplay ();
}
}
|