Subversion Repositories DevTools

Rev

Rev 5109 | Rev 5262 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5109 Rev 5115
Line 553... Line 553...
553
# Inputs          : $product[,opts]+    The name of the product
553
# Inputs          : $product[,opts]+    The name of the product
554
#                                       This will be the base name for the family
554
#                                       This will be the base name for the family
555
#                                       Allowed options are:
555
#                                       Allowed options are:
556
#                                           --NotDefault    : This is not a default build platform
556
#                                           --NotDefault    : This is not a default build platform
557
#                                           --Uses=xxx      : All use another platform
557
#                                           --Uses=xxx      : All use another platform
-
 
558
#                                           --Alias=yyy     : All alias to this name
558
#
559
#
559
#                   platforms           One or more root platforms, with options
560
#                   platforms           One or more root platforms, with options
560
#                                       The platform is macro expanded.
561
#                                       The platform is macro expanded.
561
#                                       Options may be a part of the platform or
562
#                                       Options may be a part of the platform or
562
#                                       distinct.
563
#                                       distinct.
Line 567... Line 568...
567
sub BuildProduct
568
sub BuildProduct
568
{
569
{
569
    my( $product, @arguments ) = @_;
570
    my( $product, @arguments ) = @_;
570
    my $notdefault = 0;
571
    my $notdefault = 0;
571
    my @uses = ();
572
    my @uses = ();
-
 
573
    my @alias = ();
572
 
574
 
573
    Debug( "BuildProduct($product, @arguments)" );
575
    Debug( "BuildProduct($product, @arguments)" );
574
    Error( "BuildProduct must appear before BuildName()..." )
576
    Error( "BuildProduct must appear before BuildName()..." )
575
        if ( $BUILDNAME ne "" );
577
        if ( $BUILDNAME ne "" );
576
 
578
 
Line 585... Line 587...
585
                $notdefault++;
587
                $notdefault++;
586
 
588
 
587
            } elsif ( /^--Uses=(.*)/ ) {
589
            } elsif ( /^--Uses=(.*)/ ) {
588
                UniquePush (\@uses, $1);
590
                UniquePush (\@uses, $1);
589
 
591
 
-
 
592
            } elsif ( /^(--Alias=.*)/ ) {
-
 
593
                UniquePush (\@alias, $1);
-
 
594
 
590
            } else {
595
            } else {
591
                Warning( "BuildProduct() unknown attribute: $_ -- ignored" );
596
                Warning( "BuildProduct() unknown attribute: $_ -- ignored" );
592
            }
597
            }
593
 
598
 
594
        } else {
599
        } else {
Line 630... Line 635...
630
        push (@new_args, $_ );
635
        push (@new_args, $_ );
631
    }
636
    }
632
    push (@new_args, '++');
637
    push (@new_args, '++');
633
    shift @new_args if $new_args[0] eq '++';
638
    shift @new_args if $new_args[0] eq '++';
634
 
639
 
635
    my @targs = ();
640
    my @targs = @alias;
636
    my $target;
641
    my $target;
637
    my @tuses = @uses;
642
    my @tuses = @uses;
638
    foreach my $arg ( @new_args )
643
    foreach my $arg ( @new_args )
639
    {
644
    {
640
        #
645
        #
Line 665... Line 670...
665
        #   Do not provide a platform name. This will be created later when the
670
        #   Do not provide a platform name. This will be created later when the
666
        #   full name is known - or can be calculated.
671
        #   full name is known - or can be calculated.
667
        #
672
        #
668
        CreateBuildPlatformEntry('BuildProduct', $notdefault, $product, $target, \@tuses, \@targs );
673
        CreateBuildPlatformEntry('BuildProduct', $notdefault, $product, $target, \@tuses, \@targs );
669
 
674
 
670
        @targs = ();
675
        @targs = @alias;
671
        @tuses = @uses;
676
        @tuses = @uses;
672
        $target = undef;
677
        $target = undef;
673
    }
678
    }
674
}
679
}
675
 
680