Subversion Repositories DevTools

              BuildVersionProperties

# Function        : BuildVersionProperties

#

# Description     : Generate a "Java" style version definitions file

#                   This is a simple properties file

#

# Inputs          : $FileName       - Output filename (Optional)

#                   $Prefix         - Tag for all generated definitions

#

# Returns         :

#

sub BuildVersionProperties

{

    my ( $fname, $Prefix ) = @_;

    #

    #   Default name of the file

    #

    $fname = 'version.properties' unless $fname;

    if ( $Clobber )                             # clobber mode ?

    {

        System( "$::GBE_BIN/rm -f $Srcdir/$fname" );

        return;

    }

    #

    #   Generate version properties file

    #

    #   This file contains ONLY definitions. It may be included by the ANT

    #   builds. Its not intended to be imported by the java code

    #

    #   Allow for a user supplied property prefix

    #   Not really needed as

    #

    my $vtag = '';

    $vtag = $Prefix . '.' if $Prefix;

    my ($major, $minor, $patch, $build, $raw_patch) = SplitVersion($BUILDNAME_VERSION);

    my @PACKAGEVERS = PackageEntry::GetPackageVersionList();

    #

    #   Create properties in the same form as for "C" definitions

    #   Note:

    #       The 'ALL' is in a format used by other software. Do not change

    #

    open( VERSIOND, ">$Srcdir/$fname" ) ||

        Error( "cannot create $Srcdir/$fname" );

    print VERSIOND

        "# Please do not edit this file.\n" .

        "# It was auto-generated by Buildlib ($BuildVersion) on $::CurrentTime\n" .

        "#\n" .

        "${vtag}BUILDNAME      = $BUILDNAME\n".

        "${vtag}BUILDDATE      = $::CurrentTime\n".

        "\n".

        "${vtag}PACKAGE        = $BUILDNAME_PACKAGE\n".

        "${vtag}VERSION        = $BUILDNAME_VERSION\n".

        "${vtag}MAJOR_STR      = $major\n".

        "${vtag}MINOR_STR      = $minor\n".

        "${vtag}PATCH_STR      = $patch\n".

        "${vtag}BUILD_STR      = $build\n".

        "${vtag}PATCHBUILD_STR = $raw_patch\n".

        "${vtag}PROJECT        = $BUILDNAME_PROJECT\n".

        "${vtag}MAJOR          = " . strip_zeros($major) . "\n".

        "${vtag}MINOR          = " . strip_zeros($minor) . "\n".

        "${vtag}PATCH          = " . strip_zeros($patch) . "\n".

        "${vtag}BUILD          = " . strip_zeros($build) . "\n".

        "${vtag}PATCHBUILD     = " . strip_zeros($raw_patch) . "\n".

        "${vtag}ALL            = $BUILDNAME_PACKAGE ($BUILDNAME_VERSION.$BUILDNAME_PROJECT) @PACKAGEVERS\n".

        "${vtag}BUILDTIME      = " . strip_zeros(time()) . "\n".

        "\n";

    #

    #   Create a set of definitions for each dependent package

    #

    print VERSIOND "# Dependent Packages and Versions\n".

                   "#\n";

    foreach my $tag ( PackageEntry::GetPackageList() )

    {

        my ($name, $version, $type) = PackageEntry::GetPackageData($tag);

#        push @attributes, "build=\"true\"" if $type =~ /Build/i;

        print VERSIOND "${vtag}PACKAGE.$name=$version\n";

    }

    close VERSIOND;

}

#-------------------------------------------------------------------------------