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.
 
 
 
 
 
 

35 lines
841 B

use strict;
# failed attempt at a auto-newver script, keeping for future reference
my( $SdxRoot, $NtVerpFile, @NtVerpLines, $NtVerpLine, $Return );
$SdxRoot = $ENV{ "SDXROOT" };
#$NtVerpFile = "$SdxRoot\\Published\\sdk\\inc\\ntverp.h";
$NtVerpFile = "D\:\\tests\\ntverp\.h";
unless ( open( INFILE, "$NtVerpFile" ) ) {
print( "Failed to open ntverp.h, exiting.\n" );
exit( 1 );
}
@NtVerpLines = <INFILE>;
close( INFILE );
$Return = system( "echo sd edit $NtVerpFile" );
unless ( open( OUTFILE, ">$NtVerpFile" ) ) {
print( "Failed to open ntverp.h for writing, exiting.\n" );
exit( 1 );
}
foreach $NtVerpLine ( @NtVerpLines ) {
if ( $NtVerpLine =~ /^\#define VER_PRODUCTBUILD \/\* NT \*\/ (....)$/ ) {
$NtVerpLine =~ s/$1/$ARGV[0]/;
}
print( OUTFILE $NtVerpLine );
}
close( OUTFILE );
exit;