mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 lines
1.6 KiB
64 lines
1.6 KiB
@echo off
|
|
REM ------------------------------------------------------------------
|
|
REM
|
|
REM nullcopy.cmd - JeremyD
|
|
REM Fix up null files by force copying files reported by nullfile
|
|
REM
|
|
REM Copyright (c) Microsoft Corporation. All rights reserved.
|
|
REM
|
|
REM ------------------------------------------------------------------
|
|
perl -x "%~f0" %*
|
|
goto :EOF
|
|
#!perl
|
|
use strict;
|
|
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
|
|
use lib $ENV{RAZZLETOOLPATH};
|
|
use PbuildEnv;
|
|
use ParseArgs;
|
|
use File::Copy;
|
|
|
|
sub Usage { print<<USAGE; exit(1) }
|
|
nullcopy [-list:<null file list>] <source> <destination>
|
|
|
|
Files in the destination reported as bad by nullfile.exe will be
|
|
copied from the source. The -list option can be used to specifiy a
|
|
text file containing the output from a previous run of nullfile.exe.
|
|
USAGE
|
|
|
|
my ($listfile, $src, $dst);
|
|
parseargs('?' => \&Usage,
|
|
'list:' => \$listfile,
|
|
\$src,
|
|
\$dst);
|
|
|
|
if (!-d $src or !-d $dst or @ARGV) {
|
|
Usage();
|
|
}
|
|
|
|
|
|
my @lines;
|
|
|
|
if ($listfile) {
|
|
open FILE, $listfile
|
|
or die "Failed to read file list from $listfile: $!\n";
|
|
@lines = <FILE>;
|
|
close FILE;
|
|
}
|
|
else {
|
|
# would be nice to check for an error here, but you'd have to
|
|
# parse the output
|
|
@lines = `nullfile.exe $dst`;
|
|
}
|
|
|
|
|
|
for my $line (@lines) {
|
|
# extract filename relative to destination directory
|
|
# from nullfile.exe output
|
|
my ($file) = $line =~ /\Q$dst\E\\(\S+)/i;
|
|
if ($file) {
|
|
if (-e "$src\\$file") {
|
|
print "Copying $src\\$file to $dst\\$file\n";
|
|
copy("$src\\$file" => "$dst\\$file");
|
|
}
|
|
}
|
|
}
|