Subversion Repositories DevTools

use ArrayHashUtils;

buildfilter(@ARGV)                      if ( $cmd =~ m/^buildfilter$/  );

# Function        : buildfilter 

#

# Description     : Manipulate the sandbox build filter

#

# Inputs          : Optional filter names

#                       +NAME - will add filter

#                       -NAME will remove it

#                       NAME will set it

#                   No args will just display the build filter

#

# Returns         : Does not return

#

sub buildfilter

{

    my (@cmd_opts ) = @_;

    my @filter_list;

    my $first_arg = 1;

    my $modified;

    Getopt::Long::Configure('pass_through');

    getOptionsFromArray ( \@cmd_opts ) || Error ("Invalid command line" );

    SubCommandHelp( $opt_help, "Buildfilter") if ($opt_help );

    #

    #   Set the initial filter list

    #   This will have been parsed by JATS before we get here

    #

    @filter_list = split( /[,\s]+/, join(',', $GBE_BUILDFILTER));

    #

    #   Extract options for the jats extract utility

    #

    foreach ( @cmd_opts )

    {

        if (m~^\+(.*)~)

        {

            UniquePush( \@filter_list, $1);

        }

        elsif (m~^\-(.*)~)

        {

            ArrayDelete( \@filter_list, $1);

        }

        else

        {

            @filter_list = () if ($first_arg);

            UniquePush( \@filter_list, $_);

        }

        $first_arg = 0;

        $modified = 1;

    }

    #

    #   Display the results to the user

    #

    Message('BuildFilter:', @filter_list);

    #

    #   Write out a new file

    #

    if ($modified)

    {

        FileCreate($GBE_DPKG_SBOX . '/buildfilter', @filter_list);

    }

    #

    # This command does not return

    #

    exit (0);

}

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

    buildfilter         - Modify and display sandbox buildfilter

=head1 Buildfilter

=head2 NAME

Display and Modify Sandbox buildfilter

=head2 SYNOPSIS

jats sandbox buildfilter [command options] [TARGETS]+

 Command Options

    -help[=n]               - Command specific help, [n=1,2,3]

    -man                    - Same as -help=3

 Target Names

    -TARGET                 - Remove target from the current buildfilter

    +TARGET                 - Add target to current buildfilter

    TARGET                  - If first target, then reset buildfilter 

                              and add target, otherwise add target.

=head2 OPTIONS

The 'buildfilter' command takes the following options:

=over 8

=item -TARGET

If a target name starts with a '-' and is not an option, then that target will be

removed from the current buildfilter. 

If the named target is not a part of the current buildfilter then nothing will happen.

=item +TARGET

If a target name starts with a '+' then that target will be added to the current buildfilter.

If the named target is already a part of the current buildfilter then nothing will happen.

=item TARGET

If a target name does not start with either a '-' or a '+' then the target will be added to the

current buildfilter.

If this is the first named target then the build filter will be set to this one target.

=back

=head2 DESCRIPTION

The 'buildfilter' command will display and optionally modify the build filter used within

the sandbox.

=head2 EXAMPLES

The command

    jats sandbox buildfilter 

will simply display the current buildfilter.

The command

    jats sandbox buildfilter +COBRA +PPC_603E

will append the build targets COBRA and PPC_603E to the current buildfilter.

The command

    jats sandbox buildfilter -COBRA

will remove the build target COBRA from the current buildfilter.

The command

    jats sandbox buildfilter COBRA +PPC_603E

 or jats sandbox buildfilter COBRA PPC_603E

will set the buildfilter to be COBRA and PPC_603E