Check-in [5f4b6d99ea]
Not logged in
Overview
Comment: Modified Files: Makefile.in tclreadline.c
Downloads: Tarball | ZIP archive | SQL 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
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

Modified Makefile.in from [0c48681c79] to [be38010fae].

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)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999  Johannes Zellner
#

|
|







1
2
3
4
5
6
7
8
9
10
# -*- make -*-
# 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

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

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

    tclreadline -- gnu readline for tcl
    Copyright (C) 1999  Johannes Zellner




|
|







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

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

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


        case _CMD_GET:

            local_line = strdup(rl_line_buffer);
            sub = TclReadlineParse(args, sizeof(args), local_line);

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







>
|
>


<







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

            if (0 == sub || (1 == sub && '\0' != text[0])) {

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







<


<







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

                    } else {
                        sub = TclReadlineParse(args, sizeof(args), local_line) - 1;

                    }
#endif
#if 0
                    {
                        int i;
                        fprintf (stderr, "\n");
                        for (i = 0; i < sub; i++)