Subversion Repositories DevTools

#! perl

########################################################################

# Copyright (c) VIX TECHNOLOGY (AUST) LTD

#

# Module name   : jats.sh

# Module type   : Makefile system

# Compiler(s)   : n/a

# Environment(s): jats

#

# Description   : Class to provide utilities associated with a BuildName

#                 All functions are class functions.

#

#                 Used within buildlib.pl to provide basic parsing and also

#                 used within other programs that need to parse build.pl files

#

#                 The BuildName directive is a little bit complex due to a lot

#                 of history.

#

# Usage:

#

# Version   Who      Date        Description

#

#......................................................................#

require 5.006_001;

use strict;

use warnings;

package BuildName;

use JatsError;

our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);

use Exporter;

$VERSION = 1.00;

@ISA = qw(Exporter);

# Symbols to autoexport (:DEFAULT tag)

@EXPORT = qw( parseBuildName

            );

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

# Function        : parseBuildName

#

# Description     : Parse the BuildName directive

#                   Must support a number of different formats

#                       "name nn.nn.nn prj"

#                       "name nn.nn.nn.prj"

#

#                       "name nn.nn.nn prj", "nn.nn.nn"

#                       "name nn.nn.nn.prj", "nn.nn.nn"

#

#                       "name", "nn.nn.nn.prj"

#

#                       "name", "nn.nn.nn", "prj", --RelaxedVersion (deprecated)

#                       "name", "cots_version", "cots"

#                       "name", "nn.nn.nn", "prj"

#

# Inputs          : All the BuildName arguments

#

# Returns         : A hash with various arguments

#                       DEPLOY_PATCH        - Number(optional)

#                       RELAXED_VERSION     - Bool(optional)

#                       EXTRA_ARGS          - Array(optional)

#

#                       BUILDNAME_PACKAGE   - Mandatory

#                       BUILDNAME_VERSION   - Mandatory

#                       BUILDNAME_PROJECT   - Mandatory. May be empty

#

#                       BUILDNAME           - BUILDNAME_PACKAGE + BUILDNAME_VERSION + BUILDNAME_PROJECT

#                       BUILDVERSION        - BUILDNAME_VERSION + BUILDNAME_PROJECT

#

sub parseBuildName

{

    my( @arguments ) = @_;

    my @args;

    my %result;

    my $unknownForm;

    my @errors;

    Debug( "BuildName(@arguments)" );

#.. Parse arguments

#.

    foreach (@arguments)

    {

        s~["']~~g;

        if ( m/^--PatchNum=(.*)/ ) {

            $result{DEPLOY_PATCH} = $1;         # Deployment patch number

        } elsif ( m/^--RelaxedVersion/ ) {

            $result{RELAXED_VERSION} = 1;       # Legacy (COTS) packages have no number scheme

        } elsif ( m/^--/ ) {

            push @{$result{EXTRA_ARGS}}, $_;    # Unknown options. Just save

        } else {

            push @args, $_;                     # Save other arguments

        }

    }

    #

    #   Auto detect Relaxed versioning

    #       cots packages

    #       tool packages

    #   Must be of the 3 arg form ('PkgName', PkgVer', 'Proj')

    #

    if ( $#args == 2 && ($args[2] eq 'cots' || $args[2] eq 'tool' ))

    {

        $result{RELAXED_VERSION} = 1;           # Legacy (COTS) packages have no number scheme

    }

    #

    #   Process non-flagged options

    #

    Error ("BuildName. No name provided") unless ( defined($args[0]) );

    my $BUILDNAME = $args[0];

    my $BUILDVERSION = $args[1] if ( defined($args[1]) );

    #

    #   Validate the format of BUILDNAME

    #   BUILDNAME is inserted into the descpkg file and tools rely on the

    #   correct form:

    #

    if ( $result{RELAXED_VERSION} )

    {

        #

        #   Relaxed version allows for some old cots packages

        #   DO NOT USE THIS AS A REGULAR OPTION. ITS A KLUDGE

        #

        #   This form will only accept two or three fields as

        #       "name", "version"

        #       "name", "version", "project"

        #

        $result{BUILDNAME_PACKAGE} = $args[0];

        $result{BUILDNAME_VERSION} = $args[1] || '';

        $result{BUILDNAME_PROJECT} = $args[2] || '';

        push (@errors , "Package Name should not contain spaces",

               "Name: \'$args[0]\'" ) if ( $args[0] =~ m~\s~ );

        push (@errors , "Package Version not specified" ) 

            unless ( $args[1] );

        push (@errors , "Package Version should not contain spaces",

               "Version: \'$args[1]\'" ) if ( $args[1] && $args[1] =~ m~\s~ );

        push (@errors , "Package Project should not contain spaces",

               "Project: \'$args[2]\'" ) if ( $args[2] && $args[2] =~ m~\s~ );

    }

    elsif ( $#args == 2 )

    {

        # Three argument form

        # 'name', 'nn.nn.nn', 'prj'

        # 

        $result{BUILDNAME_PACKAGE} = $args[0];

        $result{BUILDNAME_VERSION} = $args[1] || '';

        $result{BUILDNAME_PROJECT} = $args[2] || '';

        push (@errors , "Package Name should not contain spaces",

               "Name: \'$args[0]\'" ) if ( $args[0] =~ m~\s~ );

        push (@errors , "Package Version not specified" ) 

            unless ( $args[1] );

        push (@errors , "Package Project not specified" ) 

            unless ( $args[2] );

        push (@errors , "Package Project should not contain spaces",

               "Project: \'$args[2]\'" ) if ( $args[2] && $args[2] =~ m~\s~ );

         push (@errors , "Package Version is not in form nn.nn.nn",

               "Version: \'$args[1]\'" ) unless ( $args[1] =~ m~^\d+\.\d+\.\d+$~ );

    }

    elsif ( $BUILDNAME =~ m~^\s*([\w-]+)\s+(\d+\.\d+\.\d+)[\s.]+(\w+)\s*$~ )

    {

        # One argument form

        #   name nn.nn.nn prj

        $result{BUILDNAME_PACKAGE} = $1;

        $result{BUILDNAME_VERSION} = $2;

        $result{BUILDNAME_PROJECT} = $3;

    }

    elsif ( $BUILDNAME =~ m~^\s*[\w-]+$~ and $BUILDVERSION =~ m~^(\d+\.\d+\.\d+)\.(\w+)\s*$~ )

    {

        # Two argument form

        # 'name', 'nn.nn.nn prj'

        $result{BUILDNAME_PACKAGE} = $BUILDNAME;

        $result{BUILDNAME_VERSION} = $1;

        $result{BUILDNAME_PROJECT} = $2;

    }

    else

    {

        $unknownForm = 1;

    }

    #

    #   Descriptive error message

    if (@errors || $unknownForm)

    {

        Error("BUILDNAME is not compatible with dpkg_archive tools","Allowed formats:",

                    "'name nn.nn.nn prj'",

                    "'name', 'nn.nn.nn.prj'",

                    "'name', 'nn.nn.nn', 'prj'",

                    "'name', 'cots_version', 'cots'",

                    @errors,

                    "Arguments: '@arguments'" );

    }

    #

    #   Compatability values

    #       BUILDNAME       - A space seperated name of name, ver, project

    #       BUILDVERSION    - Version number and project if available

    $result{BUILDNAME} = $result{BUILDNAME_PACKAGE};

    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_VERSION};

    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_PROJECT} if ($result{BUILDNAME_PROJECT}) ;

    $result{BUILDVERSION} = $result{BUILDNAME_VERSION};

    $result{BUILDVERSION} .= '.' . $result{BUILDNAME_PROJECT} if ( $result{BUILDNAME_PROJECT} );

#    DebugDumpData ("BuildNameInfo", \%result);

    return \%result;

}

1;