1#!/usr/bin/env tclsh 2if {$argc == 0} { 3 puts "Don't use [info script] as interactive shell! Use instead:" 4 puts " tclsh" 5 puts " package require XOTcl; namespace import ::xotcl::*" 6 exit -1 7} else { 8 package require XOTcl 9 namespace import ::xotcl::* 10 set argv0 [lindex $argv 0] 11 set argv [lreplace $argv 0 0] 12 incr argc -1 13 source $argv0 14} 15