Subversion Repositories DevTools

              BuildVersionVB

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

# Function        : BuildVersionVB

#

# Description     : Create a VB6 file in Basic format

#

# Inputs          : $FileName       - Output filename (Optional)

#                   $Prefix         - Tag for all generated definitions

#

#

# Returns         : 

#

sub BuildVersionVB

{

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

    #

    #   Default name of the file

    #

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

    $fname .= '.bas'

        unless ( $fname =~ m~\.~ );

    #

    #   Store the files location for use at runtime

    #   It will be a file that is 'known' to JATS

    #

    $fname = ::BuildAddKnownFile ( $Srcdir, $fname );

    return if ( $Clobber );      # clobber mode ?

    Message ("Creating Visual Basic Version File: $fname" );

    #

    #   Generate version source file

    #   This file contains ONLY constant definitions.

    #

    #   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

    #

    sub pvbstring

    {

        my ($arg, $val) = @_;

        Error ("Undefined value for $arg") unless ( defined $val );

        return sprintf ( "Public Const %-24s = \"%s\"" , $arg, $val);

    }

    sub pvbnum

    {

        my ($arg, $val) = @_;

        Error ("Undefined value for $arg") unless ( defined $val );

        return sprintf ( "Public Const %-24s = %s" , $arg, strip_zeros($val) );

    }

    my $fh = ConfigurationFile::New( $fname, '--Type=Basic' );

    $fh->HeaderSimple( "buildlib (Version $BuildVersion)",

                       "Visual Basic Version Definition" );

    $fh->WriteLn(

        "Attribute VB_Name = \"JatsVersion\"",

        '',

        pvbstring ("${vtag}BUILDNAME",      $BUILDNAME),

        pvbstring ("${vtag}BUILDDATE",      $::CurrentTime),

        '',

        pvbstring ("${vtag}PACKAGE",        $BUILDNAME_PACKAGE),

        pvbstring ("${vtag}VERSION",        $BUILDNAME_VERSION),

        pvbstring ("${vtag}MAJOR_STR",      $major),

        pvbstring ("${vtag}MINOR_STR",      $minor),

        pvbstring ("${vtag}PATCH_STR",      $patch),

        pvbstring ("${vtag}BUILD_STR",      $build),

        pvbstring ("${vtag}PATCHBUILD_STR", $raw_patch),

        pvbstring ("${vtag}PROJECT",        $BUILDNAME_PROJECT),

        pvbnum    ("${vtag}MAJOR",          $major),

        pvbnum    ("${vtag}MINOR",          $minor),

        pvbnum    ("${vtag}PATCH",          $patch),

        pvbnum    ("${vtag}BUILD",          $build),

        pvbnum    ("${vtag}PATCHBUILD",     $raw_patch),

        pvbstring ("${vtag}ALL",            "$BUILDNAME_PACKAGE ($BUILDNAME_VERSION.$BUILDNAME_PROJECT) @PACKAGEVERS"),

        pvbnum    ("${vtag}BUILDTIME",      time()),

        ''

        );

    #

    #   Create a set of definitions for each dependent package

    #

    $fh->Comment("Dependent Packages and Versions\n");

    $fh->Comment("\n");

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

    {

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

        $fh->WriteLn(pstring ("${vtag}PACKAGE_$name", $version));

    }

    $fh->WriteLn();

    $fh->Close();

}