Subversion Repositories DevTools

Rev

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

Rev 5710 Rev 6177
Line 1... Line 1...
1 
#! perl
 1 
#! perl
2 
########################################################################
 2 
########################################################################
3 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
 3 
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
4 
#
 4 
#
5 
# Module name   : jats.sh
 5 
# Module name   : jats.sh
6 
# Module type   : Makefile system
 6 
# Module type   : Makefile system
7 
# Compiler(s)   : n/a
 7 
# Compiler(s)   : n/a
8 
# Environment(s): jats
 8 
# Environment(s): jats
Line 134... Line 134...
134 
        {
 134 
        {
135 
            ::Warning( "Package versions do not match: $name : $rec->{VERSION_FULL}, $version" );
 135 
            ::Warning( "Package versions do not match: $name : $rec->{VERSION_FULL}, $version" );
136 
        }
 136 
        }
137 
 
 137 
 
138 
        #
 138 
        #
139 
        #   Extend the package information to contain suffiecient data
 139 
        #   Extend the package information to contain sufficient data
140 
        #   for general use. Information will be retained to allow the
 140 
        #   for general use. Information will be retained to allow the
141 
        #   user to extact specific package information
 141 
        #   user to extact specific package information
142 
        #
 142 
        #
143 
        $version =~ m~(\d+\.\d+\.\d+)\.(\w+)~ ;
 143 
        $version =~ m~(\d+\.\d+\.\d+)\.(\w+)~ ;
144 
        my $vnum = $1 || $version;
 144 
        my $vnum = $1 || $version;
Line 476... Line 476...
476 
 
 476 
 
477 
#-------------------------------------------------------------------------------
 477 
#-------------------------------------------------------------------------------
478 
# Function        : GetPackageList
 478 
# Function        : GetPackageList
479 
#
 479 
#
480 
# Description     : A class function to return a list of packages
 480 
# Description     : A class function to return a list of packages
481 
#                   The list cannot be used directory. It is really a set of
 481 
#                   The list cannot be used directly. It is really a set of
482 
#                   keys to an internal data structure.
 482 
#                   keys to an internal data structure.
483 
#
 483 
#
484 
#                   The result can be used to iterate over the list of packages
 484 
#                   The result can be used to iterate over the list of packages
485 
#                   using other functions.
 485 
#                   using other functions.
486 
#
 486 
#