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

# -*- tcl -*-
puts  [info nameofexecutable]

#
# Tiny scripted replacement of a binary xowish. 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 Tk
package require XOTcl 2.0
package require nx::shell

namespace import -force ::xotcl::*

nx::shell run $argc $argv