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