Subversion Repositories DevTools

Rev

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

Rev 285 Rev 321
Line 1306... Line 1306...
1306 
#
 1306 
#
1307 
#                   The file may change while the build is running
 1307 
#                   The file may change while the build is running
1308 
#                   It can be read multiple times
 1308 
#                   It can be read multiple times
1309 
#
 1309 
#
1310 
# Inputs          : $dir            - Directory entry to read
 1310 
# Inputs          : $dir            - Directory entry to read
- 
 
 1311 
#                   $test           - 0: Read. Error if not available (default)
1311 
#                   $test           - 1: Read if available
 1312 
#                                     1: Read if available
1312 
#                                     2: Force read
 1313 
#                                     2: Force read
1313 
#
 1314 
#
1314 
# Returns         : Reference to the tag data for the requested directory
 1315 
# Returns         : Reference to the tag data for the requested directory
1315 
#                   Will error if no available
 1316 
#                   Will error if no available
1316 
#
 1317 
#
Line 1318... Line 1319...
1318 
our %cf_minfo2;
 1319 
our %cf_minfo2;
1319 
my %tag_data;
 1320 
my %tag_data;
1320 
sub ReadMaketags
 1321 
sub ReadMaketags
1321 
{
 1322 
{
1322 
    my ($dir, $test) = @_;
 1323 
    my ($dir, $test) = @_;
- 
 
 1324 
    $test ||= 0;
1323 
 
 1325 
 
1324 
    #
 1326 
    #
1325 
    #   Force data re-aquisition
 1327 
    #   Force data re-aquisition
1326 
    #
 1328 
    #
1327 
    delete $tag_data{$dir}
 1329 
    delete $tag_data{$dir}
1328 
        if ( $test && $test == 2 );
 1330 
        if ( $test == 2 );
1329 
 
 1331 
 
1330 
    #
 1332 
    #
1331 
    #   Do we already have the entry
 1333 
    #   Do we already have the entry
1332 
    #
 1334 
    #
1333 
    return \%tag_data
 1335 
    return \%tag_data
1334 
        if ( exists ($tag_data{$dir} ));
 1336 
        if ( exists ($tag_data{$dir} ));
1335 
 
 1337 
 
1336 
    #
 1338 
    #
1337 
    #   If the entry is not known, then re-read the index file
 1339 
    #   If the entry is not known, then re-read the index file
1338 
    #
 1340 
    #
- 
 
 1341 
#DebugDumpData ("ReadMaketags", \%::cf_filelist);
1339 
    unless ( $::cf_filelist{$dir} )
 1342 
    unless ( $::cf_filelist{$dir} )
1340 
    {
 1343 
    {
1341 
        my $index_file = "$::ScmRoot/$::ScmInterface/Makefile.cfg";
 1344 
        my $index_file = "$::ScmRoot/$::ScmInterface/Makefile.cfg";
1342 
        Error ("Makefile index missing. Rebuild required") unless ( -f $index_file );
 1345 
        Error ("Makefile index missing. Rebuild required") unless ( -f $index_file );
1343 
 
 1346