547 $zipname =~ s/\.(\w+)$/\.zip/i; |
547 $zipname =~ s/\.(\w+)$/\.zip/i; |
548 unlink $zipname; |
548 unlink $zipname; |
549 system("zip $zipname $romname"); |
549 system("zip $zipname $romname"); |
550 } |
550 } |
551 if ($opts{symbol}) { |
551 if ($opts{symbol}) { |
|
552 my $maksym = File::Spec->catfile($toolpath,"maksym.pl"); |
552 my $logname=$romname; |
553 my $logname=$romname; |
553 $logname =~ s/\.(\w+)$/\.log/i; |
554 $logname =~ s/\.(\w+)$/\.log/i; |
554 my $obyname=$romname; |
555 my $obyname=$romname; |
555 $obyname =~ s/\.(\w+)$/\.oby/i; |
556 $obyname =~ s/\.(\w+)$/\.oby/i; |
556 unlink $logname; |
557 unlink $logname; |
557 unlink $obyname; |
558 unlink $obyname; |
558 system("rename rombuild.log $logname"); |
559 unless (rename("ROMBUILD.LOG",$logname)) { |
559 system("rename rom.oby $obyname"); |
560 print "\"rename ROMBUILD.LOG -> $logname\" failed: $!\n"; |
560 system("maksym $logname"); |
561 exit 1; |
|
562 } |
|
563 unless (rename("rom.oby",$obyname)) { |
|
564 print "\"rename rom.oby -> $obyname\" failed: $!\n"; |
|
565 exit 1; |
|
566 } |
|
567 if (system("$maksym $logname")) { |
|
568 print "\"maksym.pl $logname\" failed: $!\n"; |
|
569 exit 1; |
|
570 } |
|
571 unless (rename($logname,"ROMBUILD.LOG")) { |
|
572 print "\"rename $logname -> ROMBUILD.LOG\" failed: $!\n"; |
|
573 exit 1; |
|
574 } |
|
575 unless (rename($obyname,"rom.oby")) { |
|
576 print "rename $obyname -\. rom.oby\" failed: $!\n"; |
|
577 exit 1; |
|
578 } |
561 } |
579 } |
562 |
580 |
563 #IMK if ($nerrors || $nwarnings || $rerrors) { |
581 #IMK if ($nerrors || $nwarnings || $rerrors) { |
564 #IMK exit 4; |
582 #IMK exit 4; |
565 #IMK} |
583 #IMK} |