windows-xp/Source/XPSP1/NT/tools/sp/mktabsed.pl

$Language = $ENV{LANGUAGE} || $ENV{LANG};
$_NTPOSTBLD = $ENV{_NTPOSTBLD};
$plan = ($#ARGV>=0 and (shift @ARGV) =~ /\-plan/i);

$IncludeFiles=0;
$FileCnt = 0;
while (<>)
    {
    s/(\000|\015|\012)//g;
    s/;.*$//;
    next if /^\s*$/;
    next if /#/;
    if (/\[/)
        {
        $includeFiles = /files\]\s*$/i;
        $includeFiles = 0 if /delfiles\]\s*$/i;
        next;
        }
    if ($includeFiles)
        {
        s/^[^,]*,//;
        $FileList[$FileCnt] = $_;
        $FileCnt++;
        }
    }

die $0, ": No files in inf or inf not found.\n" if !$FileCnt and !$plan;

PrintSedHeader() if !$plan;
print "SourceFiles0=$_NTPOSTBLD\n" if $FileCnt and !$plan;

if ($FileCnt)
    {
    print "[SourceFiles0]\n" if !$plan;
    foreach $a (@FileList)
        {
        $a .= "=" if !$plan;
        print "$a\n";
        }
    }

sub PrintSedHeader() 
    {
    print "[Version]\n";
    print "Class=IEXPRESS\n";
    print "SEDVersion=3\n";
    print "[Options]\n";
    print "PackagePurpose=CreateCAB\n";
    print "ShowInstallProgramWindow=0\n";
    print "HideExtractAnimation=0\n";
    print "UseLongFileName=1\n";
    print "InsideCompressed=0\n";
    print "CAB_FixedSize=0\n";
    print "CAB_ResvCodeSigning=6144\n";
    print "RebootMode=I\n";
    print "InstallPrompt=%InstallPrompt%\n";
    print "DisplayLicense=%DisplayLicense%\n";
    print "FinishMessage=%FinishMessage%\n";
    print "TargetName=%TargetName%\n";
    print "FriendlyName=%FriendlyName%\n";
    print "AppLaunched=%AppLaunched%\n";
    print "PostInstallCmd=%PostInstallCmd%\n";
    print "AdminQuietInstCmd=%AdminQuietInstCmd%\n";
    print "UserQuietInstCmd=%UserQuietInstCmd%\n";
    print "SourceFiles=SourceFiles\n";
    print "[Strings]\n";
    print "InstallPrompt=\n";
    print "DisplayLicense=\n";
    print "FinishMessage=\n";
    print "TargetName=$_NTPOSTBLD\\TabletPC\n";
    print "FriendlyName=IExpress Wizard\n";
    print "AppLaunched=\n";
    print "PostInstallCmd=\n";
    print "AdminQuietInstCmd=\n";
    print "UserQuietInstCmd=\n";
    print "[SourceFiles]\n";
    }