windows-xp/Source/XPSP1/NT/multimedia/directx/deliveryimages/cabpacks/win9x/makesedscr.pl

$Language=$ARGV[0];
$SedName=$ARGV[1];
$CatName=$ARGV[2];
$OutputPath=$ARGV[3];
$DefaultLanguage=$ARGV[4];
$MakeSedNamed=$ARGV[5];
$LocalizedRoot=$ARGV[6];
$CabType=$ARGV[7];
$PackOption=$ARGV[8];
	
$RootDir=lc($ENV{DXROOT});
$BuildType=$ENV{NTDEBUG};
$NTTree=$ENV{_NTTREE};

$TouchedCommonDirRoot=$ENV{DXROOT}."\\DeliveryImages\\CabPacks\\temp";
$BuildErrorMsg="nmake : error GENSED : ";
$RootDir=$ENV{DXROOT};
$LocalizedDirectory = "$LocalizedRoot\\$Language";
$MultiLocalizedDirectory=$LocalizedRoot."\\multi";
$ExtraPath = (-e ".\\$Language.txt")?".\\$Language.txt":"..\\$DefaultLanguage\\$DefaultLanguage.txt";
$SedPath = (-e ".\\sed$Language.txt")?".\\sed$Language.txt":"..\\$DefaultLanguage\\sed$DefaultLanguage.txt";

$Path="$OutputPath\\$MakeSedNamed.sed";
open(OUTPUT,">$Path") || die "$BuildErrorMsg Unable to open ".$Path." for output\n";

$Path = ".\\".$SedName;
open(MASTERSED,$Path) || die "$BuildErrorMsg Unable to open master sed file ".$Path." for input\n";
@MasterSed = <MASTERSED>;
close (MASTERSED);

open(SEDTEXT,$SedPath) || die "$BuildErrorMsg Unable to open sed file at".$SedPath." for input\n";
@SedText = <SEDTEXT>;
close (SEDTEXT);

foreach (@MasterSed)
{
	$SedLine= $_;
	if (m/TargetNTVers=F/g)
	{                       
		print OUTPUT sprintf( "TargetNTVers=0: %s\n", $SedText[0]);
	}
	elsif (m/MultiInstanceChk=E/g)
	{
		print OUTPUT sprintf( "MultiInstanceChk=B, %s", $SedText[1]);
	}
	else
	{
		print OUTPUT $_;
	}
}
	
$Path="$RootDir\\public\\sdk\\lib\\placefil.txt";
open(PLACEFIL, $Path) || die "$BuildErrorMsg Unable to open placefil.txt at ".$Path." for input\n";
@LocalizedFiles =grep(m/;localize/, <PLACEFIL>);
close (PLACEFIL);	

$Path=$RootDir."\\DeliveryImages\\inc\\redistfiles.dat";
open(REDISTFILES,$Path) || die "$BuildErrorMsg Unable to open redistfiles.dat at ".$Path." for input\n";
	
foreach (<REDISTFILES>)
{
	if (!(m/;/i))
	{
		($FileName, $SubPath, $TimeDateStamp, $Filters) = split /,/,$_,4;

		$FileName=~s/^\s*(.*?)\s*$/$1/;
		$SubPath=~s/^\s*(.*?)\s*$/$1/;
		$Filters=~s/^\s*(.*?)\s*$/$1/;

		if (grep(m/$FileName/i, @LocalizedFiles))
		{
#			if ($Filters=~m/SINGLELANGUAGE/ig)
			if (!($Language eq "eng" && $FileName eq "dxdiag.exe"))
			{
				$SubPath=($Language ne "eng")?$LocalizedDirectory:$SubPath; 
			} else {
				$SubPath=$MultiLocalizedDirectory;	
			}
		}  

		if ($FileName=~m/\.cat/i) {
			$SubPath=$SubPath."\\".$Language; 
		}

		if ($Language ne "multi" && ($FileName=~m/\.chm/i || $FileName=~m/\.hlp/i)) {
			if ($FileName=~m/\.chm/i) {
				$HelpFile = "dxdia".$Language.".chm";
			} else {
				$HelpFile = "dijoy".$Language.".hlp";
			}

			if ($FileName eq "dxdiag.chm" || $FileName eq "dijoy.hlp" || $FileName eq $HelpFile) {
				print OUTPUT sprintf( "%s\\%s=\n",$SubPath,$FileName);
			}
		}
		elsif ($Filters!~m/nocab/i || $CabType!~m/core/i)
		{
			if($PackOption!~/NoDLS/i || ($FileName!~m/gm16\.dls/i && $FileName!~m/gmreadme\.txt/i)) {
				if ($Filters=~m/SWITCHFILED/i)
				{
					if (($BuildType ne "" && $BuildType ne "ntsdnodbg") || ($CabType=~/core/i && $Language eq "eng")) {
						print OUTPUT sprintf( "%s\\%s=\n",$SubPath,$FileName);
					}
				} else {
					print OUTPUT sprintf( "%s\\%s=\n",$SubPath,$FileName);
				}
			}
		}                   
	}
}

	if($PackOption=~m/W\/BDA/i) {
		$BDACAB=$NTTree."\\cabpack\\bda.cab";
		if (!(-e $BDACAB)) {
			die "nmake : error : can not find the file to pack: $BDACAB";
		}
		print OUTPUT ("[SourceFiles1]\n");
		print OUTPUT sprintf( "cabpack\\bda.cab=\n");
	}

close (OUTPUT);
close (REDISTFILES);
exit;