Subversion Repositories DevTools

Rev

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

Rev 311 Rev 369
Line 176... Line 176...
176 
    }
 176 
    }
177 
 
 177 
 
178 
    #   dump
 178 
    #   dump
179 
    #
 179 
    #
180 
    Debug( "Aliases:" );
 180 
    Debug( "Aliases:" );
181 
    if ( ! defined(%::ScmBuildAliases) ) {
 181 
    if ( ! (%::ScmBuildAliases) ) {
182 
        Debug( "  undefined" );
 182 
        Debug( "  undefined" );
183 
 
 183 
 
184 
    } else {
 184 
    } else {
185 
        foreach my $key (keys %::ScmBuildAliases) {
 185 
        foreach my $key (keys %::ScmBuildAliases) {
186 
            my( @value ) = split( ' ', $::ScmBuildAliases{ $key } );
 186 
            my( @value ) = split( ' ', $::ScmBuildAliases{ $key } );
187 
            Debug( " $key\t= @value" );
 187 
            Debug( " $key\t= @value" );
188 
        }
 188 
        }
189 
    }
 189 
    }
190 
 
 190 
 
191 
    Debug( "Products:" );
 191 
    Debug( "Products:" );
192 
    if ( ! defined(%::ScmBuildProducts) ) {
 192 
    if ( ! (%::ScmBuildProducts) ) {
193 
        Debug( "  undefined" );
 193 
        Debug( "  undefined" );
194 
 
 194 
 
195 
    } else {
 195 
    } else {
196 
        foreach my $key (keys %::ScmBuildProducts) {
 196 
        foreach my $key (keys %::ScmBuildProducts) {
197 
            my( @value ) = split( ',', $::ScmBuildProducts{ $key } );
 197 
            my( @value ) = split( ',', $::ScmBuildProducts{ $key } );
198 
            Debug( " $key\t= @value" );
 198 
            Debug( " $key\t= @value" );
199 
        }
 199 
        }
200 
    }
 200 
    }
201 
 
 201 
 
202 
    Debug( "Platforms:" );
 202 
    Debug( "Platforms:" );
203 
    if ( ! defined(%::ScmBuildPlatforms) ) {
 203 
    if ( ! (%::ScmBuildPlatforms) ) {
204 
        Debug( "  undefined" );
 204 
        Debug( "  undefined" );
205 
 
 205 
 
206 
    } else {
 206 
    } else {
207 
        foreach my $key (keys %::ScmBuildPlatforms) {
 207 
        foreach my $key (keys %::ScmBuildPlatforms) {
208 
            my( @args ) = split( /$;/, $::ScmBuildPlatforms{ $key } );
 208 
            my( @args ) = split( /$;/, $::ScmBuildPlatforms{ $key } );