Overview
| Comment: | Thu Jul 20 00:29:39 CEST 2000 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 229374ad98604242b7b58eaf1fc60329d74cb540 |
| User & Date: | johannes@zellner.org on 2000-07-19 22:33:56 |
| 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
4
5
6
7
8
9
10
11
...
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
|
/* ==================================================================
FILE: "/home/joze/src/tclreadline/tclreadline.c"
LAST MODIFICATION: "Sat, 01 Jul 2000 23:47:30 +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.
................................................................................
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);
|
|
<
|
|
1
2
3
4
5
6
7
8
9
10
11
...
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
|
/* ==================================================================
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.
................................................................................
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);
|