#! /usr/bin/tclsh
#
-# $Id: elite-find,v 1.2 2003/02/25 00:25:38 mdw Exp $
+# $Id: elite-find,v 1.4 2003/03/10 23:38:06 mdw Exp $
-package require "elite" "1.0.0"
+package require "elite" "1.0.1"
proc ok {s vv expr} {
global argv0
}
default {
break
- }
+ }
}
}
puts stderr "usage: $argv0 \[-g GALAXY\] \[EXPR\]"
exit 1
}
-set ww [worldinfo $g]
+set ww [elite-galaxylist $g]
foreach {s x y} $ww {
if {[string equal $expr ""] || [ok $s {} $expr]} {
puts [world-summary $s]