WebSVN – DevTools – Diff – /core_devl/branches/gitBuilder/TOOLS/LIB/PackageEntry.pm

     my $rec = $DescPkgCache{$tag};
     return $rec->{UNAME}, $rec->{UVERSION}, $rec->{type};
+}
 #-------------------------------------------------------------------------------
+# Function        : GetNameVersion
+#
+# Description     : Return a package name and version for display purposes
+#
+# Inputs          : $tag        - An iteration tag provided by GetPackageList()
+#
+# Returns         : A list of
+#                       Package name
+#                       Package version
+#                       Package type : build or link
+#
+sub GetNameVersion
+{
+    my ($tag) = @_;
+    my $rec = $DescPkgCache{$tag};
+    return join( ' ', $rec->{NAME}, $rec->{VERSION_FULL} );
+}
+#-------------------------------------------------------------------------------
 # Function        : GetPackageVersionList
+#
 # Description     : A class function to return a list of package names as used
 #                   to generate version strings
+#
     my ($tag) = @_;
     my $rec = $DescPkgCache{$tag};
     return $rec->{PKGSIG};
+}
+#-------------------------------------------------------------------------------
+# Function        : Dump
+#
+# Description     : Internal diagnostic tool
+#                   Dumps internal data structures
+#
+# Inputs          : None
+#
+# Returns         : Nothing
+#
+sub Dump
+{
+    ::DebugDumpData("PackageEntry",\%DescPkgCache);
+}
 ### End of package: PackageEntry
 ;

Subversion Repositories DevTools