Subversion Repositories DevTools

{

{

    my( $platform_spec ) = @_;

    my( $platform_spec ) = @_;

    my( @platforms, $scmplatform, $platform );

    my( @platforms, $scmplatform, $platform );

    my( %arguments, @args );

    my( %arguments, @args );

    my @plist;

    my @plist;

    #

    #

    #   Short circuit check

    #   Short circuit check

    #       '*' is used so often that it pays to check it first

    #       '*' is used so often that it pays to check it first

    #

    #

    #       Process additive rules before removal rules

    #       Process additive rules before removal rules

    #       If there are no additive rules, then assume all protaforms

    #       If there are no additive rules, then assume all protaforms

    #

    #

    my %calcList;

    my %calcList;

    @add = @::BUILDPLATFORMS unless @add;

    @add = @::BUILDPLATFORMS unless @add;

#DebugDumpData("Add", \@add);

#DebugDumpData("Add", \@add);

#DebugDumpData("Remove", \@remove);

#DebugDumpData("Remove", \@remove);

#DebugDumpData("calcList", \%calcList);

#DebugDumpData("calcList", \%calcList);

    #

    #