Diff
Not logged in

Differences From Artifact [3c98c4bea3]:

To Artifact [c9b75e0523]:


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

13
14
15
16
17
18
19
# FILE: tclreadlineSetup.tcl.in
# $Id$
# ---
# tclreadline -- gnu readline for tcl
# http://www.zellner.org/tclreadline/
# Copyright (c) 1998 - 2014, Johannes Zellner <johannes@zellner.org>
# This software is copyright under the BSD license.
# ---


package provide tclreadline @VERSION@


proc unknown args {

    global auto_noexec auto_noload env unknown_pending tcl_interactive
    global errorCode errorInfo

    # Save the values of errorCode and errorInfo variables, since they
    # may get modified if caught errors occur below.  The variables will












>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# FILE: tclreadlineSetup.tcl.in
# $Id$
# ---
# tclreadline -- gnu readline for tcl
# http://www.zellner.org/tclreadline/
# Copyright (c) 1998 - 2014, Johannes Zellner <johannes@zellner.org>
# This software is copyright under the BSD license.
# ---


package provide tclreadline @VERSION@

rename unknown _unknown
proc unknown args {

    global auto_noexec auto_noload env unknown_pending tcl_interactive
    global errorCode errorInfo

    # Save the values of errorCode and errorInfo variables, since they
    # may get modified if caught errors occur below.  The variables will
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
    }

    proc Print {args} {
        variable PRINT
        if {![info exists PRINT]} {
            set PRINT yes
        }
        if [regexp -nocase \(true\|yes\|1\) $args] {
            set PRINT yes
        } elseif [regexp -nocase \(false\|no\|0\) $args] {
            set PRINT no
        }
        return $PRINT
    }


#    proc InitCmds {} {
#        # XXX
#        return







<
<
<
|
<







307
308
309
310
311
312
313



314

315
316
317
318
319
320
321
    }

    proc Print {args} {
        variable PRINT
        if {![info exists PRINT]} {
            set PRINT yes
        }



        catch {set PRINT [expr {$args ? "yes" : "no"}]}

        return $PRINT
    }


#    proc InitCmds {} {
#        # XXX
#        return