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: |
229374ad98604242b7b58eaf1fc60329 |
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); |