3 package require "elite" "1.0.0"
10 if {[array exists var]} {
11 foreach {k d} [array get var] {
12 $ip eval [list set ${v}($k) $d]
15 $ip eval [list set $v $var]
19 foreach {k v} [array get p] {
20 $ip eval [list set $k $v]
22 if {[catch { $ip eval [list expr $expr] } rc]} {
23 puts stderr "$argv0: error in expression: $rc"
32 for {set i 0} {$i < [llength $argv]} {incr i} {
33 set a [lindex $argv $i]
37 set a [lindex $argv $i]
38 set g [parse-galaxy-spec $a]
39 if {[string equal $g ""]} {
40 puts stderr "$argv0: bad galaxy string `$a'"
50 puts stderr "usage: $argv0 \[-g GALAXY\] \[EXPR\]"
60 if {$i == [llength $argv] - 1} {
61 set expr [lindex $argv $i]
62 } elseif {$i != [llength $argv]} {
63 puts stderr "usage: $argv0 \[-g GALAXY\] \[EXPR\]"
68 if {[string equal $expr ""] || [ok $s {} $expr]} {
69 puts [world-summary $s]