1#!/usr/bin/env wish
2if {$argc && [string equal -length \
3      [string length [lindex $argv 0]] [lindex $argv 0] "-file"]} {
4  set argv  [lreplace $argv 0 0]
5  incr argc -1
6}
7if {$argc == 0 || [string index [lindex $argv 0] 0] eq "-" )} {
8  puts "Don't use [info script] as interactive shell! Use instead:"
9  puts "   wish"
10  puts "   package require XOTcl; namespace import ::xotcl::*"
11  exit -1
12} else {
13  package require XOTcl
14  namespace import ::xotcl::*
15  set argv0 [lindex $argv 0]
16  set argv  [lreplace $argv 0 0]
17  incr argc -1
18  source $argv0
19}
20###catch {vwait forever}