Subversion Repositories DevTools

Rev

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

Rev 6177 Rev 6387
Line 491... Line 491...
491 
#
 491 
#
492 
 
 492 
 
493 
sub SectionIfDef
 493 
sub SectionIfDef
494 
{
 494 
{
495 
    my $self = shift;
 495 
    my $self = shift;
496 
    $self->{SDEF} = $_[0];
 496 
    $self->{SDEF} = 'ifdef ' . $_[0];
497 
}
 497 
}
498 
 
 498 
 
499 
#-------------------------------------------------------------------------------
 499 
#-------------------------------------------------------------------------------
- 
 
 500 
# Function        : SectionIfEq
- 
 
 501 
#
- 
 
 502 
# Description     : Place the current section within a ifeq ... endif block
- 
 
 503 
#
- 
 
 504 
# Inputs          : arg1
- 
 
 505 
#                   arg2
- 
 
 506 
#
- 
 
 507 
# Returns         : Nothing
- 
 
 508 
#
- 
 
 509 
 
- 
 
 510 
sub SectionIfEq
- 
 
 511 
{
- 
 
 512 
    my $self = shift;
- 
 
 513 
    $self->{SDEF} = 'ifeq "' . $_[0] . '" "' . $_[1] . '"';
- 
 
 514 
}
- 
 
 515 
 
- 
 
 516 
#-------------------------------------------------------------------------------
- 
 
 517 
# Function        : SectionIfNeq
- 
 
 518 
#
- 
 
 519 
# Description     : Place the current section within a ifeq ... endif block
- 
 
 520 
#
- 
 
 521 
# Inputs          : arg1
- 
 
 522 
#                   arg2
- 
 
 523 
#
- 
 
 524 
# Returns         : Nothing
- 
 
 525 
#
- 
 
 526 
sub SectionIfNeq
- 
 
 527 
{
- 
 
 528 
    my $self = shift;
- 
 
 529 
    $self->{SDEF} = 'ifneq "' . $_[0] . '" "' . $_[1] . '"';
- 
 
 530 
}
- 
 
 531 
 
- 
 
 532 
 
- 
 
 533 
#-------------------------------------------------------------------------------
500 
# Function        : Print
 534 
# Function        : Print
501 
#
 535 
#
502 
# Description     : Print the entry
 536 
# Description     : Print the entry
503 
#
 537 
#
504 
# Inputs          : None
 538 
# Inputs          : None
Line 610... Line 644...
610 
            my $shell =   $recipeEntry->{SHELL};
 644 
            my $shell =   $recipeEntry->{SHELL};
611 
            my $sdef =    $recipeEntry->{SDEF};
 645 
            my $sdef =    $recipeEntry->{SDEF};
612 
 
 646 
 
613 
            if ($sdef)
 647 
            if ($sdef)
614 
            {
 648 
            {
615 
                print "\nifdef $sdef";
 649 
                print "\n$sdef";
616 
            }
 650 
            }
617 
 
 651 
 
618 
            #
 652 
            #
619 
            #   Print the Recipe runtime comment
 653 
            #   Print the Recipe runtime comment
620 
            #
 654 
            #