tcl-hacks

Check-in [446ba418f4]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:resolve callback
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:446ba418f4b13c16d651beba77adc7b89b40d195
User & Date: aspect 2018-05-24 10:55:28
Context
2018-05-24
11:05
make [exec stty] use a bit more portable check-in: 3256e23b42 user: aspect tags: trunk
10:55
resolve callback check-in: 446ba418f4 user: aspect tags: trunk
10:22
update README check-in: f326ddc011 user: aspect tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to bin/tclish.

55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
        finally {exec stty -raw echo <@ stdin}
        atexit  {exec stty -raw echo <@ stdin}  ;# finally might not be enough!

        set prompt "\[[info patch]\]% "

        Getline create getline \
                            -prompt $prompt \
                            -completer complete-word \
        ;#

        finally [callback getline destroy]

        while 1 {
            set input [getline getline]             ;# can return -code break/continue
            try {







|







55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
        finally {exec stty -raw echo <@ stdin}
        atexit  {exec stty -raw echo <@ stdin}  ;# finally might not be enough!

        set prompt "\[[info patch]\]% "

        Getline create getline \
                            -prompt $prompt \
                            -completer [callback complete-word] \
        ;#

        finally [callback getline destroy]

        while 1 {
            set input [getline getline]             ;# can return -code break/continue
            try {