# -*- make -*-
# FILE: "/krispc6/home/joze/src/tclreadline/Makefile.in"
# LAST MODIFICATION: "Sat May  8 15:10:15 1999 (joze)"
# LAST MODIFICATION: "Mon May 10 13:10:22 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999  Johannes Zellner
#

    configure.in \
    tclreadline.c \
    tclreadline.h.in \
    tclreadlineConfig.sh.in \
    tclreadlineInit.tcl.in \
    tclreadlineSetup.tcl.in \
    tclreadline.n.in \
    pkgIndex.tcl \
    sample.tclshrc

AUXILIARY = \
    aux/config.guess \
    aux/config.sub \
    aux/install-sh \
    aux/mkinstalldirs \

# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# by a "package unknown" script.  It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands.  When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.

package ifneeded tclreadline 0.8 [list tclPkgSetup $dir tclreadline 0.8 {{tclreadlineInit.tcl source ::tclreadline::Init} {tclreadlineSetup.tcl source {::tclreadline::Glob ::tclreadline::InitCmds ::tclreadline::InitTclCmds ::tclreadline::InitTkCmds ::tclreadline::Loop ::tclreadline::Print ::tclreadline::Setup}}}]

#!/usr/local/bin/tclsh
# FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
# LAST MODIFICATION: "Sat May  8 14:03:47 1999 (joze)"
# LAST MODIFICATION: "Mon May 10 13:01:16 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999  Johannes Zellner
#

        set replace [glob -nocomplain -- $name]
        if {$replace == ""} {
            lappend commandstring $name
        } else {
            lappend commandstring $replace
        }
    }
    return $commandstring
    # return $commandstring
    # Christian Krone <krischan@sql.de> proposed
    return [eval concat $commandstring]
}



proc ::tclreadline::Loop {} {

    ::tclreadline::Setup