Subversion Repositories DevTools

Rev

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

Rev 7301 Rev 7302
Line 513... Line 513...
513
    my $rec = $DescPkgCache{$tag};
513
    my $rec = $DescPkgCache{$tag};
514
    return $rec->{UNAME}, $rec->{UVERSION}, $rec->{type};
514
    return $rec->{UNAME}, $rec->{UVERSION}, $rec->{type};
515
}
515
}
516
 
516
 
517
#-------------------------------------------------------------------------------
517
#-------------------------------------------------------------------------------
-
 
518
# Function        : GetNameVersion
-
 
519
#
-
 
520
# Description     : Return a package name and version for display purposes
-
 
521
#
-
 
522
# Inputs          : $tag        - An iteration tag provided by GetPackageList()
-
 
523
#
-
 
524
# Returns         : A list of
-
 
525
#                       Package name
-
 
526
#                       Package version
-
 
527
#                       Package type : build or link
-
 
528
#
-
 
529
sub GetNameVersion
-
 
530
{
-
 
531
    my ($tag) = @_;
-
 
532
    my $rec = $DescPkgCache{$tag};
-
 
533
    return join( ' ', $rec->{NAME}, $rec->{VERSION_FULL} );
-
 
534
}
-
 
535
 
-
 
536
#-------------------------------------------------------------------------------
518
# Function        : GetPackageVersionList
537
# Function        : GetPackageVersionList
519
#
538
#
520
# Description     : A class function to return a list of package names as used
539
# Description     : A class function to return a list of package names as used
521
#                   to generate version strings
540
#                   to generate version strings
522
#
541
#
Line 554... Line 573...
554
    my ($tag) = @_;
573
    my ($tag) = @_;
555
    my $rec = $DescPkgCache{$tag};
574
    my $rec = $DescPkgCache{$tag};
556
    return $rec->{PKGSIG};
575
    return $rec->{PKGSIG};
557
}
576
}
558
 
577
 
-
 
578
#-------------------------------------------------------------------------------
-
 
579
# Function        : Dump 
-
 
580
#
-
 
581
# Description     : Internal diagnostic tool
-
 
582
#                   Dumps internal data structures    
-
 
583
#
-
 
584
# Inputs          : None 
-
 
585
#
-
 
586
# Returns         : Nothing 
-
 
587
#
-
 
588
 
-
 
589
sub Dump
-
 
590
{
-
 
591
    ::DebugDumpData("PackageEntry",\%DescPkgCache);
-
 
592
}
-
 
593
 
559
 
594
 
560
### End of package: PackageEntry
595
### End of package: PackageEntry
561
 
596
 
562
1;
597
1;
563
 
598