18 lines
336 B
Perl
Executable File
18 lines
336 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
$ver = 0;
|
|
if( open FH, '<ver.cpp' )
|
|
{
|
|
$_ = <FH>;
|
|
/version_num = (\d+);/ and $ver = $1+1;
|
|
close FH;
|
|
}
|
|
chop( $date = `date` );
|
|
open FH, '>ver.cpp' or die $!;
|
|
# Cannot use const here since gcc will strip it out...
|
|
print FH <<"EOF";
|
|
unsigned long version_num = $ver;
|
|
const char *version_time = "$date";
|
|
EOF
|
|
close FH;
|