# -*- 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 \

#!/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