Check-in [5f4b6d99ea]
Not logged in
Home Timeline Files Branches Tags Tickets Wiki More... Login
Overview
Comment: Modified Files: Makefile.in tclreadline.c
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5f4b6d99ea043ddc824accbc71480211e2fb4ef5
User & Date: johannes@zellner.org on 1999-08-25 15:55:03.000
Other Links: manifest | tags
Context
1999-08-27
15:48
Modified Files: .login Modified Files: Exception.h StdMatrix.h StdVector.h Modified Files: tclreadline.c tclreadlineSetup.tcl.in check-in: be5c9f0d5b user: johannes@zellner.org tags: trunk
1999-08-25
15:55
Modified Files: Makefile.in tclreadline.c check-in: 5f4b6d99ea user: johannes@zellner.org tags: trunk
14:43
Modified Files: Makefile.in configure.in tclreadline.h.in tclreadline.n.in tclreadlineConfig.sh.in tclreadlineInit.tcl.in tclreadlineSetup.tcl.in check-in: 405bab1b22 user: johannes@zellner.org tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified Makefile.in from [0c48681c79] to [be38010fae]. 
1
2
3


4
5
6
7
8
9
10

1


2
3
4
5
6
7
8
9
10


-
-
+
+








# -*- make -*-
# FILE: "/diska/home/joze/src/tclreadline/Makefile.in"
# LAST MODIFICATION: "Wed Aug 25 16:41:11 1999 (joze)"
# FILE: "/krispc6/diska/home/joze/src/tclreadline/Makefile.in"
# LAST MODIFICATION: "Wed Aug 25 17:03:17 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999  Johannes Zellner
#
︙
Modified tclreadline.c from [1f128a2ff8] to [9d0bf6d478]. 
1
2
3
4
5


6
7
8
9
10
11
12

1
2
3


4
5
6
7
8
9
10
11
12




-
-
+
+









 /* ==================================================================

    FILE: "/home/joze/src/tclreadline/tclreadline.c"
    LAST MODIFICATION: "Tue Aug 24 03:11:24 1999 (joze)"
    FILE: "/diska/home/joze/src/tclreadline/tclreadline.c"
    LAST MODIFICATION: "Wed Aug 25 16:53:28 1999 (joze)"
    (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
    $Id$
    ---

    tclreadline -- gnu readline for tcl
    Copyright (C) 1999  Johannes Zellner
︙
490
491
492
493
494
495
496

497


498
499
500
501
502
503
504
505
506
507

490
491
492
493
494
495
496
497

498
499
500
501

502
503
504
505
506
507
508








+
-
+
+


-








            break;


        case _CMD_GET:

            local_line = strdup(rl_line_buffer);
            sub = TclReadlineParse(args, sizeof(args), local_line);
            /*
            // fprintf (stderr, "(TclReadlineKnownCommands) state=%d\n", state);
             * fprintf (stderr, "(TclReadlineKnownCommands) state=%d\n", state);
             */

            if (0 == sub || (1 == sub && '\0' != text[0])) {
            // if (0 == state) {
                if (!state) {
                    new = cmds;
                    len = strlen(text);
                }
                while (new && (name = new->cmd)) {
                    new = new->next;
                    if (!strncmp(name[0], text, len))
︙
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540

524
525
526
527
528
529
530

531
532

533
534
535
536
537
538
539








-


-








                    stripright(local_line);
                    */

#if 0
                    if (len != strlen(local_line)) {
#endif
#if 0
                        // fprintf (stderr, "(TclReadlineKnownCommands) len !=\n");
                    } else {
                        sub = TclReadlineParse(args, sizeof(args), local_line) - 1;
                        // fprintf (stderr, "(TclReadlineKnownCommands) len ==\n");
                    }
#endif
#if 0
                    {
                        int i;
                        fprintf (stderr, "\n");
                        for (i = 0; i < sub; i++)
︙
Generated in 0.018s
Fossil v2.26 [1205ec86cb]