1
2
3
4
5
6
7
8
9
10
11
12
|
1
2
3
4
5
6
7
8
9
10
11
12
|
-
-
+
+
|
/* ==================================================================
FILE: "/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Sun Sep 19 22:41:52 1999 (joze)"
FILE: "/disk01/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Mon Sep 20 01:23:39 1999 (joze)"
(C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
$Id$
---
tclreadline -- gnu readline for tcl
Copyright (C) 1999 Johannes Zellner
|
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
|
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
|
-
+
|
} else if (3 == argc) {
/*
* - tcl8.0 doesn't have Tcl_GetString()
* - rl_reset_terminal() might be defined
* to take no arguments. This might produce
* a compiler warning.
*/
rl_reset_terminal(Tcl_GetStringFromObj(objv[2], -1));
rl_reset_terminal(Tcl_GetStringFromObj(objv[2], (int*) NULL));
} else {
rl_cleanup_after_signal();
}
break;
default:
goto BAD_COMMAND;
|