Subversion Repositories DevTools

Rev

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

Rev 6177 Rev 6192
Line 512... Line 512...
512
    my $rec = $DescPkgCache{$tag};
512
    my $rec = $DescPkgCache{$tag};
513
    return $rec->{UNAME}, $rec->{UVERSION}, $rec->{type};
513
    return $rec->{UNAME}, $rec->{UVERSION}, $rec->{type};
514
}
514
}
515
 
515
 
516
#-------------------------------------------------------------------------------
516
#-------------------------------------------------------------------------------
-
 
517
# Function        : GetNameVersion
-
 
518
#
-
 
519
# Description     : Return a package name and version for display purposes
-
 
520
#
-
 
521
# Inputs          : $tag        - An iteration tag provided by GetPackageList()
-
 
522
#
-
 
523
# Returns         : A list of
-
 
524
#                       Package name
-
 
525
#                       Package version
-
 
526
#                       Package type : build or link
-
 
527
#
-
 
528
sub GetNameVersion
-
 
529
{
-
 
530
    my ($tag) = @_;
-
 
531
    my $rec = $DescPkgCache{$tag};
-
 
532
    return join( ' ', $rec->{NAME}, $rec->{VERSION_FULL} );
-
 
533
}
-
 
534
 
-
 
535
#-------------------------------------------------------------------------------
517
# Function        : GetPackageVersionList
536
# Function        : GetPackageVersionList
518
#
537
#
519
# Description     : A class function to return a list of package names as used
538
# Description     : A class function to return a list of package names as used
520
#                   to generate version strings
539
#                   to generate version strings
521
#
540
#
Line 535... Line 554...
535
    }
554
    }
536
 
555
 
537
    return @list;
556
    return @list;
538
}
557
}
539
 
558
 
-
 
559
 
-
 
560
#-------------------------------------------------------------------------------
-
 
561
# Function        : Dump 
-
 
562
#
-
 
563
# Description     : Internal diagnostic tool
-
 
564
#                   Dumps internal data structures    
-
 
565
#
-
 
566
# Inputs          : None 
-
 
567
#
-
 
568
# Returns         : Nothing 
-
 
569
#
-
 
570
 
-
 
571
sub Dump
-
 
572
{
-
 
573
    ::DebugDumpData("PackageEntry",\%DescPkgCache);
-
 
574
}
-
 
575
 
540
### End of package: PackageEntry
576
### End of package: PackageEntry
541
 
577
 
542
1;
578
1;
543
 
579