#! /bin/sh
# Lookup a Tcl interpreter \
    INTERP="tclsh8.6"; \
    INTERPS="/ucrt64/bin/tclsh86.exe /ucrt64/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 xotclsh. 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 shells during development. For installed
# versions, it should be sufficient to remove the first line.
#

package require XOTcl 2
package require nx::shell 1.1

namespace import -force ::xotcl::*

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