Print seed -- it's useful.

[rocl] / elite-path

diff --git a/elite-path b/elite-path
index c5891aa008889c7967fca35fc8af940723748791..3f117e002a0b035648c3de69c84aef826465957f 100755 (executable)
--- a/elite-path
+++ b/elite-path
@@ -1,12 +1,14 @@
 #! /usr/bin/tclsh
 #
 #! /usr/bin/tclsh
 #

-# $Id: elite-path,v 1.2 2003/02/25 00:25:38 mdw Exp $
+# $Id: elite-path,v 1.4 2003/03/07 00:42:10 mdw Exp $

 
 

-package require "elite" "1.0.0"
+package require "elite" "1.0.1"

 
 set g $galaxy1
 set ng 1
 set weight weight-hops
 
 set g $galaxy1
 set ng 1
 set weight weight-hops

+set d 70
+set acc distance

 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 {


@@ -20,6 +22,10 @@ for {set i 0} {$i < [llength $argv]} {incr i} {
       }
       destructure {ng g} $g
     }
       }
       destructure {ng g} $g
     }

+    "-d" {
+      incr i
+      set d [expr {int([lindex $argv $i] * 10)}]
+    }

     "-w" {
       incr i
       set a [lindex $argv $i]
     "-w" {
       incr i
       set a [lindex $argv $i]


@@ -30,6 +36,17 @@ for {set i 0} {$i < [llength $argv]} {incr i} {
        exit 1
       }
     }
        exit 1
       }
     }

+    "-a" {
+      incr i
+      set a [lindex $argv $i]
+      switch -exact -- $a {
+       "none" - "distance" - "weight" { set acc $a }
+       default {
+         puts stderr "$argv0: unknown accumulation `$a'"
+         puts stderr "$argv0: I know `none', `distance' and `weight'"
+       }
+      }
+    }

     "--" {
       incr i
       break
     "--" {
       incr i
       break


@@ -45,7 +62,7 @@ for {set i 0} {$i < [llength $argv]} {incr i} {
 }
 
 set r {}
 }
 
 set r {}

-set ww [worldinfo $g]
+set ww [elite-galaxylist $g]

 foreach-world $g ii {
   set px($ii(seed)) 1
 }
 foreach-world $g ii {
   set px($ii(seed)) 1
 }


@@ -62,27 +79,66 @@ foreach a [lrange $argv $i end] {
   lappend r $s
 }
 if {[llength $r] < 2} {
   lappend r $s
 }
 if {[llength $r] < 2} {

-  puts stderr "usage: $argv0 \[-g GALAXY\] \[-w WEIGHT\] PLANET PLANET ..."
+  puts stderr "usage: $argv0 \[-g GAL\] \[-d DIST\] \[-w WEIGHT\] \[-a ACC\] PLANET PLANET ..."

   exit 1
 }
   exit 1
 }

-puts -nonewline stderr "\[computing adjacency table..."
-adjacency $ww adj
-puts stderr " done\]"
+elite-adjacency adj $ww $d

 set home [lindex $r 0]
 set home [lindex $r 0]

+set start $home

 set rt {}
 set rt {}

+set tm 0

 foreach w [lrange $r 1 end] {
 foreach w [lrange $r 1 end] {

-  destructure {p .} [shortest-path adj $home $w $weight]
+  destructure {p m} [shortest-path adj $home $w $weight]

   if {![llength $p]} {
   if {![llength $p]} {

-    puts -stderr "$argv0: no route from [worldinfo $home] to [worldinfo $w]"
+    puts stderr "$argv0: no route from [worldname $home] to [worldname $w]"

     exit 1
   }
     exit 1
   }

+  set tm [expr {$tm + $m}]

   eval lappend rt $p
   set home $w
 }
   eval lappend rt $p
   set home $w
 }

-set last x
+puts [format "  1 %s" [world-summary $start]]
+set last $start
+unset p
+elite-worldinfo p $start
+destructure {x y} [list $p(x) $p(y)]
+set h 1
+set td 0
+set tw 0

 foreach s $rt {
   if {![string equal $s $last]} {
 foreach s $rt {
   if {![string equal $s $last]} {

-    puts [world-summary $s]
+    elite-worldinfo p $s
+    set d [expr {[elite-distance $x $y $p(x) $p(y)]/10.0}]
+    incr h
+    set td [expr {$td + $d}]
+    set summ [format "%3d %s" $h [world-summary $s]]
+    set w [eval $weight [list $last $s]]
+    set tw [expr {$tw + $w}]
+    switch -- $acc {
+      "none" { }
+      "distance" {
+       append summ [format " (+ %.1f = %.1f LY)" $d $td]
+      }
+      "weight" {
+       append summ [format " (+ %s = %s)" $w $tw]
+      }
+    }
+    puts $summ
+    destructure {x y} [list $p(x) $p(y)]

     set last $s
   }
 }
     set last $s
   }
 }

+if {$tw != $tm} { error "inconsistent metric ($tw != $tm)" }
+set summ "# ("
+set sep ""
+if {![string equal $acc "distance"]} {
+  append summ [format "%stotal distance = %.1f LY" $sep $td]
+  set sep "; "
+}
+if {![string equal $weight "weight-hops"] && \
+    ![string equal $weight "weight-fuel"] && \
+    ![string equal $acc "weight"]} {
+  append summ [format "%stotal metric = %s" $sep $tm]
+}
+append summ ")"
+if {![string equal $summ "# ()"]} { puts $summ }