Check-in [03d71d7ea8]
Not logged in
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 Side-by-Side Diffs Ignore Whitespace Patch

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

   141    141                   TclReadlineDataAvailableHandler, (ClientData) NULL);
   142    142   
   143    143           while (!line_complete) {
   144    144               Tcl_DoOneEvent (0);
   145    145           }
   146    146   
   147    147           Tcl_DeleteFileHandler (0);
          148  +
          149  +	if (line_complete < 0) {
          150  +	    Tcl_Eval(interp, "exit");
          151  +	}
   148    152   
   149    153           status = history_expand (line, &expansion);
   150    154           if (status == 1)
   151    155               printf ("%s\n", expansion);
   152    156           else if (status == -1)
   153    157               Tcl_AppendResult (interp, "error in history expansion\n",
   154    158                       (char *) NULL);
................................................................................
   210    214   {
   211    215       if (mask & TCL_READABLE)
   212    216           rl_callback_read_char ();
   213    217   }
   214    218   
   215    219   void TclReadlineLineCompleteHandler (char *ptr)
   216    220   {
   217         -    if (ptr && *ptr) {
          221  +    if (!ptr) {
          222  +        line_complete = -1;
          223  +        rl_callback_handler_remove ();
          224  +    } else if (*ptr) {
   218    225           line_complete = 1;
   219    226           rl_callback_handler_remove ();
   220    227           line = ptr;
   221    228       }
   222    229   }
   223    230   
   224    231   

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

     1      1   .TH tclreadline n "@TCLREADLINE_VERSION@" "Johannes Zellner"
     2      2   
     3      3   .\" (C) 1999 by Johannes Zellner
     4         -.\" FILE: "/krispc6/home/joze/src/tclreadline/tclreadline.n.in"
     5         -.\" LAST MODIFICATION: "Mon May 10 13:25:22 1999 (joze)"
            4  +.\" FILE: "/diska/home/joze/src/tclreadline/tclreadline.n.in"
            5  +.\" LAST MODIFICATION: "Fri Aug 20 11:09:26 1999 (joze)"
     6      6   .\" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     7      7   .\" $Id$
     8      8   .\" ---
     9      9   .\"
    10     10   .\" tclreadline -- gnu readline for the tcl scripting language
    11     11   .\" Copyright (C) 1999  Johannes Zellner
    12     12   .\"
................................................................................
   196    196   http://www.zellner.org/tclreadline/
   197    197   .RE
   198    198   
   199    199   
   200    200   .SH AUTHOR
   201    201   Johannes Zellner, <johannes@zellner.org>
   202    202   .br
   203         -.SH CONTRIBUTIONS
   204         -Christian Krone <krischan@sql.de>
          203  +.SH CONTRIBUTIONS, SUGGESTIONS AND PATCHES
          204  +Magnus Eriksson <magnus.eriksson@netinsight.se>,
          205  +Les Johnson <les@infolabs.com>,
          206  +Harald Kirsch <kir@iitb.fhg.de>,
          207  +Christian Krone <krischan@sql.de>,
          208  +Larry W. Virden <lvirden@cas.org>
   205    209   
          210  +.SH DEBIAN PACKAGE
          211  +David Engel <dlengel@home.com>, <david@debian.org>
   206    212   
   207    213   .SH HISTORY
   208    214   This version of \fBtclreadline\fP is still a development version.
   209    215   Pretty a lot of features and ideas are not implemented yet. The
   210    216   reason for this is the lack of time and manpower.
   211    217   So you are welcome to modify and contribute to the code.
   212    218   If you have suggestions, please let me know.
   213    219   
   214    220