ver_info.pl

#!/usr/bin/perl

use strict;

my @tmp_string;
my $svn_status;
my $svn_filename;
my $svn_version;

my $svn_root = ".";
my $svn_root_version;
my $svn_root_url;

my @header_defines = (
    "#ifndef _SSV_VERSION_H_",
    "#define _SSV_VERSION_H_",
    "",
);

sub get_version {
    foreach (@_) {
        if($_ =~ m/^Last Changed Rev: (\d*)/) {
            return $1;
        }
    } 
    # file doesn't exist on svn
    return -1;
}

sub get_url {
    foreach (@_) {
        if($_ =~ m/^URL: (.*)/) {
            return $1;
        }
    } 
    # file doesn't exist on svn
    return -1;
}

printf("## script to generate version infomation header ##\n");

# step-0: get root svn number 
$svn_root_version = get_version(qx(svn info $svn_root));

if ($svn_root_version == -1) {
    exit 0;
}

# step-1: get root svn url 
$svn_root_url = get_url(qx(svn info $svn_root));

OUTPUT_HEADER:
# step-3: output header files
if (defined($ARGV[0])) {
    open HEADER, ">", $ARGV[0];
    select HEADER;
}
else {
    print "Error! Please specify header file\n";
}


foreach (@header_defines) {
    printf("%s\n", $_);
}

##
printf("static u32 ssv_root_version = %d;\n\n", $svn_root_version);
printf("#define SSV_ROOT_URl \"$svn_root_url\"\n");

use Sys::Hostname;
my $host = hostname();

printf("#define COMPILERHOST \"$host\"\n");

use POSIX qw(strftime);
my $date = strftime "%m-%d-%Y-%H:%M:%S", localtime;
printf("#define COMPILERDATE \"$date\"\n");
##

use Config;
printf("#define COMPILEROS \"$Config{osname}\"\n");
printf("#define COMPILEROSARCH \"$Config{archname}\"\n");

printf("\n#endif\n\n");

exit 1;