/usr/bin/xotclsh is in nsf-shells 2.0.0-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | #! /bin/sh
# Lookup a Tcl interpreter \
INTERP="tclsh8.6"; \
INTERPS="/usr/bin/tclsh8.6 /usr/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 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 XOTcl 2.0
namespace import -force ::xotcl::*
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
source $argv0
}
|