#!/usr/bin/perl
#
# GPSy拡張形式のトラックログをUSGS海岸線データに変換
# Nowral
# 99.2.21
#
@filename = @ARGV;
foreach $oldargv (@filename) {
open(IN, "<$oldargv");

$newargv = $oldargv . '.usgs';
open(OUT, ">$newargv");
&MacPerl'SetFileInfo('ttxt', 'TEXT', $newargv);

$tr = 0;
while (<IN>) {
  if(/^\w+\t(\d+)\t.*\t(\d+)｡(\d+)'(\d+\.\d)"\t(\d+)｡(\d+)'(\d+\.\d)"/) {
    if($1 != $tr) {
      $tr = $1;
      print OUT "# -b\n";
    }
    print OUT sprintf("%.6f",$5+$6/60+$7/3600),"\t",sprintf("%09.6f",$2+$3/60+$4/3600),"\n";
  }
}
close(IN);
close(OUT);

}
&MacPerl'Quit(2);
die "The Unhappy End";