smsvn -> ssc-hg glue: rearrange directory structure

2013-06-10 15:38:43 -04:00
parent 51576d5942
commit 80057f53cd
3362 changed files with 0 additions and 0 deletions
@@ -0,0 +1,17 @@
+#!/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` );
+open FH, '>.ver.tmp' or die $!;
+print FH <<"EOF";
+extern const unsigned long version_num = $ver;
+extern const char *const version_time = "$date";
+EOF
+close FH;
+move '.ver.tmp', 'ver.cpp';