Subversion Repositories DevTools

Rev

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

Rev 6423 Rev 6619
Line 82... Line 82...
82 
    $self->{NAME}           = [];
 82 
    $self->{NAME}           = [];
83 
    $self->{RECIPE}         = [];
 83 
    $self->{RECIPE}         = [];
84 
    $self->{SHELL}          = [];
 84 
    $self->{SHELL}          = [];
85 
    $self->{PRINTED}        = 0;
 85 
    $self->{PRINTED}        = 0;
86 
    $self->{COMMENT}        = [];
 86 
    $self->{COMMENT}        = [];
87 
    $self->{DEFN}           = {};
 87 
    $self->{DEFN}           = [];
88 
    $self->{PHONY}          = 0;
 88 
    $self->{PHONY}          = 0;
89 
    $self->{DEFINE}         = 0;
 89 
    $self->{DEFINE}         = 0;
90 
    $self->{RAW}            = 0;
 90 
    $self->{RAW}            = 0;
91 
    $self->{FH}             = $handle;
 91 
    $self->{FH}             = $handle;
92 
    $self->{FH_inmemory}    = 0;
 92 
    $self->{FH_inmemory}    = 0;
Line 321... Line 321...
321 
 
 321 
 
322 
#-------------------------------------------------------------------------------
 322 
#-------------------------------------------------------------------------------
323 
# Function        : AddDefn
 323 
# Function        : AddDefn
324 
#
 324 
#
325 
# Description     : Add a definition to the entry
 325 
# Description     : Add a definition to the entry
- 
 
 326 
#                   Preserve the order
326 
#
 327 
#
327 
# Inputs          : A hash of definitions to add
 328 
# Inputs          : A hash of definitions to add
328 
#                   The Hash gets lost in the subcall. Its simply a list
 329 
#                   The Hash gets lost in the subcall. Its simply a list
329 
#                   of NAME, VALUE pairs
 330 
#                   of NAME, VALUE pairs
330 
#
 331 
#
Line 335... Line 336...
335 
    my $self = shift;
 336 
    my $self = shift;
336 
    while ( @_ )
 337 
    while ( @_ )
337 
    {
 338 
    {
338 
        my $defn = shift;
 339 
        my $defn = shift;
339 
        my $value = shift || '';
 340 
        my $value = shift || '';
340 
        $self->{DEFN}{$defn} = $value;
 341 
        push @{$self->{DEFN}}, join( $;, $defn, $value) ;
341 
    }
 342 
    }
342 
}
 343 
}
343 
 
 344 
 
344 
#-------------------------------------------------------------------------------
 345 
#-------------------------------------------------------------------------------
345 
# Function        : RecipePrefix
 346 
# Function        : RecipePrefix
Line 582... Line 583...
582 
    if ( $self->{DEFN}  )
 583 
    if ( $self->{DEFN}  )
583 
    {
 584 
    {
584 
        my $tstring = join $;, @{$self->{NAME}};
 585 
        my $tstring = join $;, @{$self->{NAME}};
585 
        my $join = length ($tstring) < $llength ? ' ' : " \\\n    ";
 586 
        my $join = length ($tstring) < $llength ? ' ' : " \\\n    ";
586 
        $tstring =~ s~$;~$join~g;
 587 
        $tstring =~ s~$;~$join~g;
- 
 
 588 
 
587 
        foreach  ( keys %{$self->{DEFN}}  )
 589 
        foreach ( @{$self->{DEFN}} ){
588 
        {
 - 
 
589 
            my $value = $self->{DEFN} {$_};
 590 
            my ($defn,$value) = split($;, $_);
590 
            print( "$tstring: $_ := $value\n" );
 591 
            print( "$tstring: $defn := $value\n" );
591 
        }
 592 
        }
592 
    }
 593 
    }
593 
 
 594 
 
594 
    if ( $self->{RAW}  )
 595 
    if ( $self->{RAW}  )
595 
    {
 596 
    {