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