chiark
/
gitweb
/
~mdw
/
rocl
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b496a5c
)
Late fix for new interface.
author
mdw
<mdw>
Mon, 10 Mar 2003 23:38:06 +0000
(23:38 +0000)
committer
mdw
<mdw>
Mon, 10 Mar 2003 23:38:06 +0000
(23:38 +0000)
elite-find
patch
|
blob
|
blame
|
history
diff --git
a/elite-find
b/elite-find
index 13a0f21f605a33924df97f06f2cbf72b3dcb043a..f760f5ec0ae4a2fbda444c281776a38798a57a5f 100755
(executable)
--- a/
elite-find
+++ b/
elite-find
@@
-1,6
+1,6
@@
#! /usr/bin/tclsh
#
#! /usr/bin/tclsh
#
-# $Id: elite-find,v 1.
3 2003/03/07 00:41:4
6 mdw Exp $
+# $Id: elite-find,v 1.
4 2003/03/10 23:38:0
6 mdw Exp $
package require "elite" "1.0.1"
package require "elite" "1.0.1"
@@
-65,7
+65,7
@@
if {$i == [llength $argv] - 1} {
puts stderr "usage: $argv0 \[-g GALAXY\] \[EXPR\]"
exit 1
}
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]
foreach {s x y} $ww {
if {[string equal $expr ""] || [ok $s {} $expr]} {
puts [world-summary $s]