Jason Felds
21 lines
506 B
Raku
21 lines
506 B
Raku
#!/usr/bin/perl -w
|
|
use File::Copy;
|
|
|
|
$ver = 0;
|
|
if( open FH, '<ver.cpp' )
|
|
{
|
|
<FH> =~ /version_num = (\d+);/ and $ver = $1 + 1;
|
|
close FH;
|
|
}
|
|
chop( $date = `date` );
|
|
chop( $time = `time` );
|
|
open FH, '>.ver.tmp' or die $!;
|
|
print FH <<"EOF";
|
|
extern const unsigned long version_num = $ver;
|
|
extern const char *const version_date = "$date";
|
|
extern const char *const version_time = "$time";
|
|
extern char const * const product_version = "5.0-git-UNKNOWN";
|
|
EOF
|
|
close FH;
|
|
move '.ver.tmp', 'ver.cpp';
|