#! /bin/sh
# Lookup a Tcl interpreter \
    INTERP="tclsh8.6"; \
    INTERPS="/opt/local/bin/tclsh8.6 /opt/local/bin/$INTERP"; \
    for interp in $INTERPS; \
    do if [ -x $interp ]; then INTERP=$interp; break; \
    fi;  done; \
    exec $INTERP "$0" ${1+"$@"}

# -*- tcl -*-
#
# Tiny scripted replacement of a binary nxsh. This script can be used
# as interactive shell for testing or like a regular shell with the #!
# markup in the first line of a script. It is designed to work with
# multiple installed Tcl shells during development.
#
package require nx::shell 1.1

namespace import -force ::nx::*

set exitCode [nx::shell run $argc $argv]
exit $exitCode

