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}