# 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

    }

    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
        catch {set PRINT [expr {$args ? "yes" : "no"}]}
        }
        return $PRINT
    }


#    proc InitCmds {} {
#        # XXX
#        return