#! /bin/sh
# Lookup a Tcl interpreter \
    INTERP="tclsh8.5"; \
    INTERPS="/usr/local/ns/bin/tclsh8.5 /usr/local/ns/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 nxwish (former 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 nx
namespace import ::nx::*

if {$argc == 0} {
  set prefix ""
  set line ""
  while {1} {
    update
    if {$line eq ""} {
       puts -nonewline "% "
       flush stdout
    }
    append line [gets stdin]
    if {[info complete $line]} {
      if {[catch $line result]} {
	puts $::errorInfo
      } else {
	puts $result
      }
      set line ""
      continue
    }
    append line \n 
  }
} else {
  set argv0 [lindex $argv 0]
  set argv  [lreplace $argv 0 0]
  incr argc -1
  source $argv0
}
