Subversion Repositories DevTools

Rev

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

Rev 365 Rev 369
Line 1265... Line 1265...
1265 
    #   consider as the base. Only want to see folders above this base.
 1265 
    #   consider as the base. Only want to see folders above this base.
1266 
    #   Don't want to add elements above the base
 1266 
    #   Don't want to add elements above the base
1267 
    #
 1267 
    #
1268 
    my $basepath = ($opt_path) ? "\"${VOB_PREFIX}${opt_path}\""     : $ROOT_VOB;
 1268 
    my $basepath = ($opt_path) ? "\"${VOB_PREFIX}${opt_path}\""     : $ROOT_VOB;
1269 
    my $elroot   = ($opt_path) ? "\"${VOB_PREFIX}${opt_path}/...\"" : '*';
 1269 
    my $elroot   = ($opt_path) ? "\"${VOB_PREFIX}${opt_path}/...\"" : '*';
- 
 
 1270 
    my $elpath   = ($opt_path) ? $opt_path : '';
1270 
 
 1271 
 
1271 
    #
 1272 
    #
1272 
    #   Create a config spec to be used to populate the view
 1273 
    #   Create a config spec to be used to populate the view
1273 
    #       Do not branch directories
 1274 
    #       Do not branch directories
1274 
    #       Do not extract files from lost+found
 1275 
    #       Do not extract files from lost+found
Line 1348... Line 1349...
1348 
        #   If we only have the VOB root then we will get all top level entries
 1349 
        #   If we only have the VOB root then we will get all top level entries
1349 
        #   in the vob - and this is not good.
 1350 
        #   in the vob - and this is not good.
1350 
        #
 1351 
        #
1351 
        #   Comment out the rule so that the user can use if they must
 1352 
        #   Comment out the rule so that the user can use if they must
1352 
        #
 1353 
        #
1353 
        my $count = ($elroot =~ tr~/~~);
 1354 
        my $count = ($elpath =~ tr~/~~);
1354 
        my $prefix = ( $count <= 2 ) ? '# ' : '';
 1355 
        my $prefix = ( $count <= 1 ) ? '# ' : '';
1355 
 
 - 
 
- 
 
 1356 
        Verbose2 ("Config Spec: Suppress /main/0. Path too short)") if $prefix;
1356 
        #
 1357 
        #
1357 
        #   Ensure that element-0 is visible (unless autobuilder)
 1358 
        #   Ensure that element-0 is visible (unless autobuilder)
1358 
        #   Note: mkbranch rule will modify this rule
 1359 
        #   Note: mkbranch rule will modify this rule
1359 
        #
 1360 
        #
1360 
        push @config, $prefix . "element $elroot /main/0";
 1361 
        push @config, $prefix . "element $elroot /main/0";
Line 1364... Line 1365...
1364 
    #   Load rule
 1365 
    #   Load rule
1365 
    #   Quote the path so that spaces will be correcly handled
 1366 
    #   Quote the path so that spaces will be correcly handled
1366 
    #
 1367 
    #
1367 
    push @config, "load $basepath";
 1368 
    push @config, "load $basepath";
1368 
 
 1369 
 
1369 
    Verbose ("Config Spec", @config );
 1370 
    Message ("Config Spec", @config )
- 
 
 1371 
        if ( IsVerbose(1) );
1370 
 
 1372 
 
1371 
    FileCreate ($config_file, \@config);
 1373 
    FileCreate ($config_file, \@config);
1372 
    return $config_file;
 1374 
    return $config_file;
1373 
}
 1375 
}
1374 
 
 1376