#!@NSF_COMPATIBLE_TCLSH@
#!/bin/env tclsh
puts  @NSF_COMPATIBLE_TCLSH@
#
# 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 shells during development. For installed
# versions, it should be sufficient to remove the first line.
#
package require nx
namespace import ::nx::*

if {$argc == 0} {
  set prefix ""
  set line ""
  while {1} {
    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
  if {[catch [list source $argv0] errorMsg]} {
    return -code error -level 1 $errorMsg
  } 
}