~mdw
/
rocl
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
f78dd4d
)
Optionally provide full information about matching pairs.
author
mdw
<mdw>
Wed, 26 Feb 2003 00:02:51 +0000
(
00:02
+0000)
committer
mdw
<mdw>
Wed, 26 Feb 2003 00:02:51 +0000
(
00:02
+0000)
elite-pairs
patch
|
blob
|
blame
|
history
diff --git
a/elite-pairs
b/elite-pairs
index
006583b
..
d4ce23a
100755
(executable)
--- a/
elite-pairs
+++ b/
elite-pairs
@@
-1,6
+1,6
@@
#! /usr/bin/tclsh
#
#! /usr/bin/tclsh
#
-# $Id: elite-pairs,v 1.
2 2003/02/25 00:25:38
mdw Exp $
+# $Id: elite-pairs,v 1.
3 2003/02/26 00:02:51
mdw Exp $
package require "elite" "1.0.0"
package require "elite" "1.0.0"
@@
-31,6
+31,7
@@
proc ok {s vv expr} {
set g $galaxy1
set d 70
set g $galaxy1
set d 70
+set v 0
for {set i 0} {$i < [llength $argv]} {incr i} {
set a [lindex $argv $i]
switch -glob -- $a {
for {set i 0} {$i < [llength $argv]} {incr i} {
set a [lindex $argv $i]
switch -glob -- $a {
@@
-48,12
+49,18
@@
for {set i 0} {$i < [llength $argv]} {incr i} {
incr i
set d [expr {[lindex $argv $i] * 10}]
}
incr i
set d [expr {[lindex $argv $i] * 10}]
}
+ "-v" {
+ incr v
+ }
+ "-q" {
+ incr v -1
+ }
"--" {
incr i
break
}
"-*" {
"--" {
incr i
break
}
"-*" {
- puts stderr "usage: $argv0 \[-g GALAXY\] \[-d DIST\] AEXPR BEXPR"
+ puts stderr "usage: $argv0 \[-
qv\] \[-
g GALAXY\] \[-d DIST\] AEXPR BEXPR"
exit 1
}
default {
exit 1
}
default {
@@
-79,8
+86,14
@@
foreach {s x y} $ww {
foreach {ss xx yy} $adj($s) {
set d [world-distance $x $y $xx $yy]
if {[ok $ss {a d} $bexpr]} {
foreach {ss xx yy} $adj($s) {
set d [world-distance $x $y $xx $yy]
if {[ok $ss {a d} $bexpr]} {
- puts [format "%-11s %-11s (%.1f LY)" $a(name) [worldname $ss] \
- [expr {[world-distance $x $y $xx $yy]/10.0}]]
+ set d [expr {[world-distance $x $y $xx $yy]/10.0}]
+ if {$v} {
+ puts [format "%s (%.1f LY)" [world-summary $s] $d]
+ puts [world-summary $ss]
+ puts ""
+ } else {
+ puts [format "%-11s %-11s (%.1f LY)" $a(name) [worldname $ss] $d]
+ }
}
}
}
}
}
}