Check-in [229374ad98]
Not logged in
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

 /* ==================================================================
    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.



|







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
668
669
670
671
672
673
674
675
676
    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);







|
<







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);