Subversion Repositories DevTools

Rev

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

Rev 1451 Rev 1453
Line 142... Line 142...
142
    'linux_drivers_cobra'   => ',protected,',
142
    'linux_drivers_cobra'   => ',protected,',
143
    'linux_drivers_bcp4600' => ',protected,',
143
    'linux_drivers_bcp4600' => ',protected,',
144
    'linux_drivers_etx86'   => ',protected,',
144
    'linux_drivers_etx86'   => ',protected,',
145
    'linux_drivers_tp5600'  => ',protected,',
145
    'linux_drivers_tp5600'  => ',protected,',
146
 
146
 
-
 
147
    'cs'                    => ',protected,',
-
 
148
 
147
    'ftp'                   => 'SetProjectBase,',
149
    'ftp'                   => 'SetProjectBase,',
148
 
150
 
149
    'icl'                   => 'IgnoreProjectBase,',
151
    'icl'                   => 'IgnoreProjectBase,',
150
    'itso'                  => 'IgnoreProjectBase,',
152
    'itso'                  => 'IgnoreProjectBase,',
151
    'daf_osa_mos'           => 'IgnoreProjectBase,',
153
    'daf_osa_mos'           => 'IgnoreProjectBase,',
Line 163... Line 165...
163
);
165
);
164
 
166
 
165
my $ukHopsMode = 0;
167
my $ukHopsMode = 0;
166
my %ukHopsReleases = (
168
my %ukHopsReleases = (
167
    '6222'      => { name => 'MainLine', 'trunk' => 1 },
169
    '6222'      => { name => 'MainLine', 'trunk' => 1 },
168
    '17223'     => { name => 'Hops4' },
-
 
169
    '21864'     => { name => 'Hops3.6' },
-
 
170
    '14503'     => { name => 'Hops3' },
170
    '14503'     => { name => 'Hops3' },
-
 
171
    '21864'     => { name => 'Hops3.6' },
-
 
172
    '22303'     => { name => 'Hops3.7' },
-
 
173
    '17223'     => { name => 'Hops4' },
171
);
174
);
172
 
175
 
173
################################################################################
176
################################################################################
174
#   Global data
177
#   Global data
175
#
178
#
Line 914... Line 917...
914
            my $entry = $_;
917
            my $entry = $_;
915
            my $count = 0;
918
            my $count = 0;
916
            while ( $entry )
919
            while ( $entry )
917
            {
920
            {
918
                last if ( $versions{$entry}{KeepMe} );
921
                last if ( $versions{$entry}{KeepMe} );
919
                unless ( $versions{$entry}{isaRipple} )
922
#                unless ( $versions{$entry}{isaRipple} )
920
                {
923
                {
921
                    my $keepFlag = ($count++ < $opt_retaincount);
924
                    my $keepFlag = ($count++ < $opt_retaincount);
922
                    last unless ( $keepFlag );
925
                    last unless ( $keepFlag );
923
                    $versions{$entry}{KeepMe} = $keepFlag;
926
                    $versions{$entry}{KeepMe} = $keepFlag;
924
                }
927
                }
Line 1671... Line 1674...
1671
 
1674
 
1672
    #
1675
    #
1673
    #   Some really ugly packages make use of a Jats feature called 'SetProjectBase'
1676
    #   Some really ugly packages make use of a Jats feature called 'SetProjectBase'
1674
    #   Detect such packages as we will need to handle them differently
1677
    #   Detect such packages as we will need to handle them differently
1675
    #   Can't really handle it on the fly
1678
    #   Can't really handle it on the fly
1676
    #   All we can do is detct it and report it - at the moment
1679
    #   All we can do is detect it and report it - at the moment
1677
    #
1680
    #
1678
    if (detectProjectBaseUsage($data, $cc_path) )
1681
    if (detectProjectBaseUsage($data, $cc_path) )
1679
    {
1682
    {
1680
        unless ( $opt_ignoreProjectBaseErrors )
1683
        unless ( $opt_ignoreProjectBaseErrors )
1681
        {
1684
        {