Overview
| Comment: | Thu Jul 20 00:29:39 CEST 2000 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
229374ad98604242b7b58eaf1fc60329 |
| User & Date: | johannes@zellner.org on 2000-07-19 22:33:56.000 |
| Other Links: | manifest | tags |
Context
|
2000-07-20
| ||
| 01:28 | corrected the old @..@ substitutes in tclreadilne.n.in check-in: 062447ce86 user: johannes@zellner.org tags: trunk | |
|
2000-07-19
| ||
| 22:33 | Thu Jul 20 00:29:39 CEST 2000 check-in: 229374ad98 user: johannes@zellner.org tags: trunk | |
|
2000-07-03
| ||
| 12:51 | * Makefile.am: included EXTRA_DIST so that it compiles from `dist' check-in: feba0a4c97 user: johannes@zellner.org tags: trunk | |
Changes
Modified tclreadline.c
from [9af4c77029]
to [75b74b5625].
1 2 3 |
/* ==================================================================
FILE: "/home/joze/src/tclreadline/tclreadline.c"
| | | 1 2 3 4 5 6 7 8 9 10 11 |
/* ==================================================================
FILE: "/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Sat, 08 Jul 2000 21:25:15 +0200 (joze)"
(C) 1998 - 2000 by Johannes Zellner, <johannes@zellner.org>
$Id$
---
tclreadline -- gnu readline for tcl
http://www.zellner.org/tclreadline/
Copyright (c) 1998 - 2000, Johannes Zellner <johannes@zellner.org>
This software is copyright under the BSD license.
|
| ︙ | ︙ | |||
661 662 663 664 665 666 667 |
if (tclrl_custom_completer) {
char start_s[BUFSIZ], end_s[BUFSIZ];
Tcl_Obj* obj;
Tcl_Obj** objv;
int objc;
int state;
char* quoted_text = TclReadlineQuote(text, "$[]{}\"");
| | < | 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 |
if (tclrl_custom_completer) {
char start_s[BUFSIZ], end_s[BUFSIZ];
Tcl_Obj* obj;
Tcl_Obj** objv;
int objc;
int state;
char* quoted_text = TclReadlineQuote(text, "$[]{}\"");
char* quoted_rl_line_buffer = TclReadlineQuote(rl_line_buffer, "$[]{}\"");
sprintf(start_s, "%d", start);
sprintf(end_s, "%d", end);
Tcl_ResetResult(tclrl_interp); /* clear result space */
state = Tcl_VarEval(tclrl_interp, tclrl_custom_completer,
" \"", quoted_text, "\" ", start_s, " ", end_s,
" \"", quoted_rl_line_buffer, "\"", (char*) NULL);
FREE(quoted_text);
|
| ︙ | ︙ |