Subversion Repositories DevTools

Rev

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

Rev 5710 Rev 5986
Line 480... Line 480...
480 
        print "$phony_string$tstring\n";
 480 
        print "$phony_string$tstring\n";
481 
    }
 481 
    }
482 
 
 482 
 
483 
    #
 483 
    #
484 
    #   Print any definitions
 484 
    #   Print any definitions
485 
    #       target: DEFN = VALUE
 485 
    #       target: DEFN := VALUE
486 
    #
 486 
    #
487 
    if ( $self->{DEFN}  )
 487 
    if ( $self->{DEFN}  )
488 
    {
 488 
    {
489 
        my $tstring = join $;, @{$self->{NAME}};
 489 
        my $tstring = join $;, @{$self->{NAME}};
490 
        my $join = length ($tstring) < $llength ? ' ' : " \\\n    ";
 490 
        my $join = length ($tstring) < $llength ? ' ' : " \\\n    ";
491 
        $tstring =~ s~$;~$join~g;
 491 
        $tstring =~ s~$;~$join~g;
492 
        foreach  ( keys %{$self->{DEFN}}  )
 492 
        foreach  ( keys %{$self->{DEFN}}  )
493 
        {
 493 
        {
494 
            my $value = $self->{DEFN} {$_};
 494 
            my $value = $self->{DEFN} {$_};
495 
            print( "$tstring: $_ = $value\n" );
 495 
            print( "$tstring: $_ := $value\n" );
496 
        }
 496 
        }
497 
    }
 497 
    }
498 
 
 498 
 
499 
    if ( $self->{RAW}  )
 499 
    if ( $self->{RAW}  )
500 
    {
 500 
    {