Subversion Repositories DevTools

Rev

Rev 5710 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
392 dpurdie 1 
#! perl
2 
########################################################################
6177 dpurdie 3 
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
392 dpurdie 4 
#
5 
# Module name   : jats.sh
6 
# Module type   : Makefile system
7 
# Compiler(s)   : n/a
8 
# Environment(s): jats
9 
#
10 
# Description   : Junk
11 
#
12 
# Usage:
13 
#
14 
# Version   Who      Date        Description
15 
#
16 
#......................................................................#
17 
 
18 
require 5.006_001;
19 
use strict;
20 
use warnings;
21 
use JatsError;
22 
 
23 
#use Data::Dumper;
24 
use Cwd;
25 
use DeployUtils::RmPkgInfo;
26 
my $GBE_PERL     = $ENV{'GBE_PERL'};        # Essential ENV variables
27 
my $GBE_CORE     = $ENV{'GBE_CORE'};
28 
my $opt_verbose = 1;
29 
 
30 
my %Package;
31 
my %Pkgs = (
32 
#"tp5000", "1.0.0.syd",
33 
"daf_br", "25.15.3001.syd",
34 
);
35 
 
36 
 
37 
ErrorConfig( 'name'    =>'PLAY1' );
38 
foreach my $name ( sort keys( %Pkgs) )
39 
{
40 
    GetDepends (0, $name , $Pkgs{$name} );
41 
}
42 
 
43 
 
44 
#
45 
#   Test the RM Interface
46 
#
47 
#GetDepends (0, 'daf_br', '25.14.3.syd' );
48 
#GetDepends (0, 'daf_br_oar','26.0.3001.syd' );
49 
#GetDepends (0, 'safpd', '2.0.6.syd' );
50 
 
51 
#-------------------------------------------------------------------------------
52 
# Function        : GetDepends
53 
#
54 
# Description     :
55 
#
56 
# Inputs          : pkg_name
57 
#                   pkg_ver
58 
#
59 
# Returns         :
60 
#
61 
sub GetDepends
62 
{
63 
    my ($level, $pkg_name, $pkg_ver ) = @_;
64 
 
65 
    print  ' ' x ($level * 4), "${pkg_name}_$pkg_ver\n";
66 
    return
67 
        if ( defined($Package{$pkg_name}{$pkg_ver}) );
68 
 
69 
    $Package{$pkg_name}{$pkg_ver} = 1;
70 
 
71 
    my $pkgInfo;
72 
 
73 
    $pkgInfo = DeployUtils::RmPkgInfo->new( { PKG_NAME => $pkg_name , PKG_VERSION => $pkg_ver } );
74 
    my $path = $pkgInfo->pv_source_path();
75 
    my $label = $pkgInfo->pv_label();
76 
 
77 
 
78 
    unless ( $pkgInfo->foundDetails() )
79 
    {
80 
#        print  "${pkg_name}_$pkg_ver - NO Details at all\n";
81 
        return;
82 
    }
83 
 
84 
    $pkgInfo->getDependencyNames();
85 
    foreach my $name ( $pkgInfo->getDependencyNames() )
86 
    {
87 
        my $depPkg = $pkgInfo->getDependencyObject($name);
88 
        my $version = $depPkg->pkg_version();
89 
        GetDepends ($level+1, $name , $version );
90 
 
91 
    }
92 
 
93 
    unless ( $path )
94 
    {
95 
#        print  "${pkg_name}_$pkg_ver - NO Path\n";
96 
        return;
97 
    }
98 
 
99 
    unless ( $label )
100 
    {
101 
#        print  "${pkg_name}_$pkg_ver - NO label\n";
102 
        return;
103 
    }
104 
 
105 
 
106 
#    print  "${pkg_name}_$pkg_ver $label $path\n";
107 
 
108 
 
109 
}
110