#!/usr/bin/perl
#
# PostScriptファイルをUSGS海岸線データに変換
# Nowral
# 99.2.28
#
@filename = @ARGV;
foreach $oldargv (@filename) {
open(IN, "<$oldargv");

while (<IN>) { last if /^%AI3_Note:$/; }
$_ = <IN>;
/^0 D$/ || die "Illegal Input.";

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

$tf = 0;
while (<IN>) {
  if(/(\d+)(\d\d)\.(\d+) (\d+)(\d\d)\.(\d+) (\w)/) {
    $lat = $4; # + 25;
    $lon = $1; # + 125;
    if($7 eq "m") { print "# -b\n"; }
    print "$lon.$2$3\t$lat.$5$6\n";
  }
  elsif(/%%PageTrailer/) { last; }
}

close(IN);
close(OUT);

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