#!/usr/bin/perl
#
# POT形式のトラックログをMapFanのカード形式に
# Nowral
# 98.12.4
#
@filename = @ARGV;
foreach $oldargv (@filename) {
open(ARGVIN, "<$oldargv");

$newargv = $oldargv . '.TRK';
open(ARGVOUT, ">$newargv");
select(ARGVOUT);
&MacPerl'SetFileInfo('ipcC', 'TRKP', $newargv);

print "16\n\r";
$fc = 1;
$lc = 0;

while (<ARGVIN>) {
    if(/[iI][dD][oO]=(\d+)'(\d+)'(\d+)'(\d)/) {
        $lat = int(($1*3600 + $2*60 + $3 + $4/10)*256 +0.5);
        if(/[kK][eE][iI]=(\d+)'(\d+)'(\d+)'(\d)/) { #東経北緯のみ
            $lon = int(($1*3600 + $2*60 + $3 + $4/10)*256 +0.5);
            print $lat,",",$lon,"\n\r";
            $lc++;

            if($lc >= 512 && eof()==0) {
                ++$fc;
                $fc =~ s/^(\d)$/0$1/;
                $newargv = $oldargv . ".TRK-" . $fc;
                open(ARGVOUT, ">$newargv");
                &MacPerl'SetFileInfo('ipcC', 'TRKP', $newargv);

                print "16\n\r";
                print $lat,",",$lon,"\n\r";
                $lc = 0;
            }
        }
    }
}

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