Re: Yet another Galaxy utility (uses awk)

From: dagibbs@quantum.on.ca (David Gibbs)

Date: Mon, 23 Nov 1992 04:04:55 +0000

In article <t8pq+5#@quantum.on.ca> dagibbs@quantum.on.ca (David Gibbs) writes:
>      <input_file> file containing the planet data, generally any turn
>         report that contains the two planets in question, it will
>         ignore extraneous junk

With further testing, I have found that routing tables have a tendency
to screw this program up; otherwise it works fine.

It has also been suggested to me that it would be a good idea
to insert the line:
#!/bin/awk -f

As the first line of the file, and make the file executable, then
this can be directly.  (note in place of /bin/awk; supply the
path of awk for your system; "which awk" might give this)

What follows is an updated version which ignores most
route orders (though you can fool it by naming a planet such
that the name include a '.' and routing Capital ($) to it).

-David
(dagibbs@quantum.qnx.com)
----------------cut here----------------------
#!/bin/awk -f
BEGIN {
if ( ARGC != 4 ) exit
planet1 = ARGV[1]
gsub( " ", "_", planet1 )
planet2 = ARGV[2]
gsub( " ", "_", planet2 )
ARGV[1] = ""
ARGV[2] = ""
}

$0 ~ planet1 {
  if ( ($1 == planet1) && ($2 ~ "\.")) {
    x1 = $2
    y1 = $3
  }
}

$0 ~ planet2 {
  if (($1 == planet2) && ($2 ~ "\.")) {
    x2 = $2
    y2 = $3
  }
}

END {
  dist = sqrt( (x1-x2)*(x1-x2) + (y1-y2)*(y1-y2) )
  printf("Dist from %s to %s is %7.3f \n", planet1, planet2, dist )
}

References

Yet another Galaxy utility (uses awk)
dagibbs@quantum.on.ca (David Gibbs)
Sun, 22 Nov 1992 05:52:07 +0000