equal
deleted
inserted
replaced
562 } |
562 } |
563 unless (rename("rom.oby",$obyname)) { |
563 unless (rename("rom.oby",$obyname)) { |
564 print "\"rename rom.oby -> $obyname\" failed: $!\n"; |
564 print "\"rename rom.oby -> $obyname\" failed: $!\n"; |
565 exit 1; |
565 exit 1; |
566 } |
566 } |
567 if (system("$maksym $logname")) { |
567 if (system("perl $maksym $logname")) { |
568 print "\"maksym.pl $logname\" failed: $!\n"; |
568 print "\"maksym.pl $logname\" failed: $!\n"; |
569 exit 1; |
569 exit 1; |
570 } |
570 } |
571 unless (rename($logname,"ROMBUILD.LOG")) { |
571 unless (rename($logname,"ROMBUILD.LOG")) { |
572 print "\"rename $logname -> ROMBUILD.LOG\" failed: $!\n"; |
572 print "\"rename $logname -> ROMBUILD.LOG\" failed: $!\n"; |
626 |
626 |
627 sub rectify($$$) { |
627 sub rectify($$$) { |
628 my ($in, $out, $k) = @_; |
628 my ($in, $out, $k) = @_; |
629 my $lastblank; |
629 my $lastblank; |
630 my $lineno = 0; |
630 my $lineno = 0; |
631 my $epocroot_pattern = $on_windows ? $epocroot . '\\\\' : $epocroot; |
631 my $epocroot_pattern = $epocroot; |
632 |
632 if ($on_windows) { |
|
633 $epocroot_pattern .= '\\'; |
|
634 $epocroot_pattern = ~ s/\\/\\\\/g; |
|
635 } |
633 open(OUTPUT_FILE, "> $out") or die "Cannot open $out for output"; |
636 open(OUTPUT_FILE, "> $out") or die "Cannot open $out for output"; |
634 open(INPUT_FILE, "< $in") or die "Cannot open for $in input"; |
637 open(INPUT_FILE, "< $in") or die "Cannot open for $in input"; |
635 |
638 |
636 while ($line=<INPUT_FILE>) { |
639 while ($line=<INPUT_FILE>) { |
637 ++$lineno; |
640 ++$lineno; |