3 # $Id: elite-find,v 1.4 2003/03/10 23:38:06 mdw Exp $
5 package require "elite" "1.0.1"
12 if {[array exists var]} {
13 foreach {k d} [array get var] {
14 $ip eval [list set ${v}($k) $d]
17 $ip eval [list set $v $var]
21 foreach {k v} [array get p] {
22 $ip eval [list set $k $v]
24 if {[catch { $ip eval [list expr $expr] } rc]} {
25 puts stderr "$argv0: error in expression: $rc"
34 for {set i 0} {$i < [llength $argv]} {incr i} {
35 set a [lindex $argv $i]
39 set a [lindex $argv $i]
40 set g [parse-galaxy-spec $a]
41 if {[string equal $g ""]} {
42 puts stderr "$argv0: bad galaxy string `$a'"
52 puts stderr "usage: $argv0 \[-g GALAXY\] \[EXPR\]"
62 if {$i == [llength $argv] - 1} {
63 set expr [lindex $argv $i]
64 } elseif {$i != [llength $argv]} {
65 puts stderr "usage: $argv0 \[-g GALAXY\] \[EXPR\]"
68 set ww [elite-galaxylist $g]
70 if {[string equal $expr ""] || [ok $s {} $expr]} {
71 puts [world-summary $s]