Subversion Repositories DevTools

#! perl

########################################################################

# Copyright ( C ) 2004 ERG Limited, All rights reserved

#

# Module name   : jats.sh

# Module type   : Makefile system

# Compiler(s)   : n/a

# Environment(s): jats

#

# Description   : Get package dependancies and sub-dependancies

#                 for a package name and version as specified on the

#                 command line.

#

#                 No formatting of the output

#

# Usage:

#

# Version   Who      Date        Description

#

#......................................................................#

require 5.006_001;

use strict;

use warnings;

#use Data::Dumper;

use Cwd;

use DeployUtils::RmPkgInfo;

my  %Package;

my $ONLY_DISPLAY_ONCE = 1;

my $DISPLAY_SUB_DEPEND = 1;

#

#   Determine root package

#

unless ( $ARGV[0] && $ARGV[1] )

{

    print "Specify a package as 'name' 'version'\n";

    exit;

}

#

#   Test the RM Interface

#

GetDepends (0, $ARGV[0], $ARGV[1] );

#-------------------------------------------------------------------------------

# Function        : GetDepends

#

# Description     :

#

# Inputs          : pkg_name

#                   pkg_ver

#

# Returns         :

#

sub GetDepends

{

    my ($level, $pkg_name, $pkg_ver ) = @_;

#    return

#        if ( defined($Package{$pkg_name}) );

    displayName( $level, $pkg_name, $pkg_ver );

    return if ( !$DISPLAY_SUB_DEPEND && $level > 0 );

    my $pkgInfo = $Package{$pkg_name}{$pkg_ver};

    unless ( defined $pkgInfo )

    {

        $pkgInfo = DeployUtils::RmPkgInfo->new( { PKG_NAME => $pkg_name , PKG_VERSION => $pkg_ver } );

        $Package{$pkg_name}{$pkg_ver} = $pkgInfo;

        if ( ! $pkgInfo->foundDetails() )

        {

            print "PACKAGE DETAILS NOT FOUND: $pkg_name $pkg_ver\n";

        }

    }

    else

    {

        return if ( $ONLY_DISPLAY_ONCE );

    }

    foreach my $depName ( $pkgInfo->getDependencyNames() )

    {

        my $depPkg = $pkgInfo->getDependencyObject($depName);

        my $depVer = $depPkg->pkg_version();

#        next if ( exists( $Package{$depName}{$depVer} ) );

#        print ' ' x ($level * 4), "Depends: Name $depName $depVer, \n";

        GetDepends( $level + 1, $depName, $depVer );

    }

}

sub displayName

{

    my ($level, $name, $ver ) = @_;

    if ( $ONLY_DISPLAY_ONCE )

    {

        print  "Package $name $ver\n" unless $Package{$name};

    }

    else

    {

        print  ' ' x ($level * 4), "Package $name $ver\n";

    }

}

#-------------------------------------------------------------------------------

# Function        : StorePackage

#

# Description     : Store Package information

#

# Inputs          : $pkg_name

#                   $pkg_ver

#                   $pkg_info

#

# Returns         :

#

#DebugDumpData("PackageData2", \$pkgInfo );