Check-in [03d71d7ea8]
Not logged in
Home Timeline Files Branches Tags Tickets Wiki More... Login
Overview
Comment:*** empty log message ***
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 03d71d7ea8e4fffd595ad6c7ba0d64790a60f167
User & Date: johannes@zellner.org on 1999-08-20 09:09:43
Other Links: manifest | tags
Context
1999-08-20
09:14
Initial revision check-in: bed6fc5bcd user: johannes@zellner.org tags: trunk
09:09
*** empty log message *** check-in: 03d71d7ea8 user: johannes@zellner.org tags: trunk
1999-05-10
11:25
*** empty log message *** check-in: 9662b91269 user: johannes@zellner.org tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified tclreadline.c from [73a4a8f6a3] to [c635fda5be].

︙︙
141
142
143
144
145
146
147




148
149
150
151
152
153
154

                TclReadlineDataAvailableHandler, (ClientData) NULL);

        while (!line_complete) {
            Tcl_DoOneEvent (0);
        }

        Tcl_DeleteFileHandler (0);





        status = history_expand (line, &expansion);
        if (status == 1)
            printf ("%s\n", expansion);
        else if (status == -1)
            Tcl_AppendResult (interp, "error in history expansion\n",
                    (char *) NULL);








>
>
>
>








141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158

                TclReadlineDataAvailableHandler, (ClientData) NULL);

        while (!line_complete) {
            Tcl_DoOneEvent (0);
        }

        Tcl_DeleteFileHandler (0);

	if (line_complete < 0) {
	    Tcl_Eval(interp, "exit");
	}

        status = history_expand (line, &expansion);
        if (status == 1)
            printf ("%s\n", expansion);
        else if (status == -1)
            Tcl_AppendResult (interp, "error in history expansion\n",
                    (char *) NULL);
︙︙
210
211
212
213
214
215
216
217



218
219
220
221
222
223
224

{
    if (mask & TCL_READABLE)
        rl_callback_read_char ();
}

void TclReadlineLineCompleteHandler (char *ptr)
{
    if (ptr && *ptr) {



        line_complete = 1;
        rl_callback_handler_remove ();
        line = ptr;
    }
}










|
>
>
>








214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231

{
    if (mask & TCL_READABLE)
        rl_callback_read_char ();
}

void TclReadlineLineCompleteHandler (char *ptr)
{
    if (!ptr) {
        line_complete = -1;
        rl_callback_handler_remove ();
    } else if (*ptr) {
        line_complete = 1;
        rl_callback_handler_remove ();
        line = ptr;
    }
}
︙︙

Modified tclreadline.n.in from [6c49645fd4] to [42771656fc]. 

1
2
3
4
5
6
7
8
9
10
11
12

.TH tclreadline n "@TCLREADLINE_VERSION@" "Johannes Zellner"

.\" (C) 1999 by Johannes Zellner
.\" FILE: "/krispc6/home/joze/src/tclreadline/tclreadline.n.in"
.\" LAST MODIFICATION: "Mon May 10 13:25:22 1999 (joze)"
.\" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
.\" $Id$
.\" ---
.\"
.\" tclreadline -- gnu readline for the tcl scripting language
.\" Copyright (C) 1999  Johannes Zellner
.\"




|
|








1
2
3
4
5
6
7
8
9
10
11
12

.TH tclreadline n "@TCLREADLINE_VERSION@" "Johannes Zellner"

.\" (C) 1999 by Johannes Zellner
.\" FILE: "/diska/home/joze/src/tclreadline/tclreadline.n.in"
.\" LAST MODIFICATION: "Fri Aug 20 11:09:26 1999 (joze)"
.\" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
.\" $Id$
.\" ---
.\"
.\" tclreadline -- gnu readline for the tcl scripting language
.\" Copyright (C) 1999  Johannes Zellner
.\"
︙︙
196
197
198
199
200
201
202
203



204

205


206
207
208
209
210
211
212
213
214

http://www.zellner.org/tclreadline/
.RE


.SH AUTHOR
Johannes Zellner, <johannes@zellner.org>
.br
.SH CONTRIBUTIONS



Christian Krone <krischan@sql.de>





.SH HISTORY
This version of \fBtclreadline\fP is still a development version.
Pretty a lot of features and ideas are not implemented yet. The
reason for this is the lack of time and manpower.
So you are welcome to modify and contribute to the code.
If you have suggestions, please let me know.










|
>
>
>
|
>

>
>










196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220

http://www.zellner.org/tclreadline/
.RE


.SH AUTHOR
Johannes Zellner, <johannes@zellner.org>
.br
.SH CONTRIBUTIONS, SUGGESTIONS AND PATCHES
Magnus Eriksson <magnus.eriksson@netinsight.se>,
Les Johnson <les@infolabs.com>,
Harald Kirsch <kir@iitb.fhg.de>,
Christian Krone <krischan@sql.de>,
Larry W. Virden <lvirden@cas.org>

.SH DEBIAN PACKAGE
David Engel <dlengel@home.com>, <david@debian.org>

.SH HISTORY
This version of \fBtclreadline\fP is still a development version.
Pretty a lot of features and ideas are not implemented yet. The
reason for this is the lack of time and manpower.
So you are welcome to modify and contribute to the code.
If you have suggestions, please let me know.

Generated in 0.017s
Fossil v2.24 [8be0372c10]