Source code of Windows XP (NT5)
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.
 
 
 
 
 
 

22 lines
766 B

$DependencyListFile=$ARGV[0];
$OutPutFile=($ARGV[1]);
$BuildErrorMsg="nmake : error PTHVAR : ";
open (DEPLIST,$DependencyListFile) || die "$BuildErrorMsg Unable to open dependencylist.txt at,".$DependencyListFile." for input\n";
@Dependencies=<DEPLIST>;
close DEPLIST;
foreach (@Dependencies) {
s/^\s*(.*?)\s*\\$/\L$1/;
push @NewArray,((m/\\/) ? substr($_,$[,(rindex $_,"\\",(length $_)))."; \\\n" : ".; \\\n");
}
undef %DupSmasher;
@UniqueArray = grep(!$DupSmasher{$_}++, @NewArray);
open (OUTPUT,">$OutPutFile") || die "$BuildErrorMsg Unable to open $OutPutFile at ".$OutPutFile." for output\n";
print OUTPUT "DEPENDENCY_PATHS=\\\n";
print OUTPUT @UniqueArray;
print OUTPUT "\nDEPENDENCY_PATHS=\$(DEPENDENCY_PATHS:; =;)\n";
close OUTPUT;