Subversion Repositories DevTools

                    getPackageList

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

# Function        : getPackageList

#

# Description     : Returns a list of package entries

#                   Only real use of the returnd values is to iterate over it

#                   and pass the values into other functiosn within this

#                   class.

#

# Inputs          : Nothing

#

# Returns         : A list of refs to package data

#

sub getPackageList

{

    Error ("BuildConfig. Not initialised") unless ( $platform );

    my @result;

    foreach ( @ {$ScmBuildPkgRules{$platform} } )

    {

#        my %self;

#        $self{DATA} = $_;

        push @result, bless $_, "PackageEntry";

    }

    return ( @result );

}

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

#   PackageEntry

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

#

#   A class to access the data embedded into $ScmBuildPkgRules

#   Use a class interface to abstract the data

#

package PackageEntry;

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

# Function        : dump

#

# Description     : Diagnostic Dump of the body of the package entry

#

# Inputs          : None

#

# Returns         : None

#

sub dump

{

    my $self = shift;

    ::DebugDumpData("PackageEntry", $self );

}

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

# Function        : getBase

#

# Description     : Determine the base directory of the package

#

# Inputs          : $self                   - Class Ref

#                   $type                   - 0: Empty

#                                             1: abs dpkg_archive

#                                             2: May be in the interface

#

# Returns         : As above

#

sub getBase

{

    my ($self, $type ) = @_;

    if ( $type == 1 ) {

        return $self->{ROOT};

    } elsif ( $type == 2 ) {

        if ( $self->{TYPE} eq 'link' ) {

            return $self->{ROOT};

        } else {

            return $interface;

        }

    } else  {

        return '';

    }

}

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

# Function        : getLibDirs

#

# Description     : Return an array of library directories

#

# Inputs          : $self                   - Class ref

#                   $type                   - 0 : Relative to base of the package

#                                             1 : abs to the dpkg_archive package

#                                             2 : abs to the interface

#

# Returns         : An array

#

sub getLibDirs

{

    my ($self, $type ) = @_;

    my @result;

    my $prefix = getBase( $self, $type );

    foreach ( @{$self->{PLIBDIRS}} )

    {

        push @result, $prefix . $_;

    }

    return @result;

}

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

# Function        : getIncDirs

#

# Description     : Return an array of include directories

#

# Inputs          : $self                   - Class ref

#                   $type                   - 0 : Relative to base of the package

#                                             1 : abs to the dpkg_archive package

#                                             2 : abs to the interface

#

# Returns         : An array

#

sub getIncDirs

{

    my ($self, $type ) = @_;

    my @result;

    my $prefix = getBase( $self, $type );

    foreach ( @{$self->{PINCDIRS}} )

    {

        push @result, $prefix . $_;

    }

    return @result;

}