1
2
3
4
5
6
7
8
9
10
11
12
|
/* ==================================================================
FILE: "/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Fri Sep 17 23:34:52 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: "Sun Sep 19 22:41:52 1999 (joze)"
(C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
$Id$
---
tclreadline -- gnu readline for tcl
Copyright (C) 1999 Johannes Zellner
|
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
|
case TCLRL_RESET_TERMINAL:
/* TODO: add this to the completer */
if (argc > 3) {
Tcl_WrongNumArgs(interp, 2, objv, "?terminal-name?");
return TCL_ERROR;
} else if (3 == argc) {
rl_reset_terminal(Tcl_GetString(objv[2]));
} else {
rl_cleanup_after_signal();
}
break;
default:
goto BAD_COMMAND;
|
>
>
>
>
>
>
|
|
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
|
case TCLRL_RESET_TERMINAL:
/* TODO: add this to the completer */
if (argc > 3) {
Tcl_WrongNumArgs(interp, 2, objv, "?terminal-name?");
return TCL_ERROR;
} 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));
} else {
rl_cleanup_after_signal();
}
break;
default:
goto BAD_COMMAND;
|