Subversion Repositories DevTools

Rev

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

Rev 1454 Rev 2016
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 
# Not in the ukHops migration at the moment
147 
    'cs'                    => ',protected,',
 148 
    'cs'                        => ',protected,',
- 
 
 149 
 
- 
 
 150 
    'DBA-Common'                => ',protected,',
- 
 
 151 
    'DBA-DatabaseInstall'       => ',protected,',
- 
 
 152 
    'DBA-ExternalPerlModules'   => ',protected,',
- 
 
 153 
    'DBA-OraUserBuild'          => ',protected,',
- 
 
 154 
    'DBA-OST'                   => ',protected,',
- 
 
 155 
    'orahops-install'           => ',protected,',
- 
 
 156 
    'orahops-patch'             => ',protected,',
- 
 
 157 
    'orahops-ssw-install'       => ',protected,',
- 
 
 158 
    'orahops-ssw-patch'         => ',protected,',
- 
 
 159 
# End of ukHops migration exclussion
148 
 
 160 
 
149 
    'ftp'                   => 'SetProjectBase,',
 161 
    'ftp'                   => 'SetProjectBase,',
150 
 
 162 
 
151 
    'icl'                   => 'IgnoreProjectBase,',
 163 
    'icl'                   => 'IgnoreProjectBase,',
152 
    'itso'                  => 'IgnoreProjectBase,',
 164 
    'itso'                  => 'IgnoreProjectBase,',
Line 155... Line 167...
155 
    'itso_ud'               => 'IgnoreProjectBase,',
 167 
    'itso_ud'               => 'IgnoreProjectBase,',
156 
#    'mos_api'               => 'IgnoreProjectBase,',
 168 
#    'mos_api'               => 'IgnoreProjectBase,',
157 
#    'mos_fonts'             => 'IgnoreProjectBase,',
 169 
#    'mos_fonts'             => 'IgnoreProjectBase,',
158 
#    'sntp'                  => 'IgnoreProjectBase,',
 170 
#    'sntp'                  => 'IgnoreProjectBase,',
159 
#    'time_it'               => 'IgnoreProjectBase,',
 171 
#    'time_it'               => 'IgnoreProjectBase,',
160 
 
 - 
 
161 
);
 172 
);
162 
 
 173 
 
163 
my %notCots = (
 174 
my %notCots = (
164 
    'isl'       => 1,
 175 
    'isl'       => 1,
165 
);
 176 
);
Line 171... Line 182...
171 
    '21864'     => { name => 'Hops3.6' },
 182 
    '21864'     => { name => 'Hops3.6' },
172 
    '22303'     => { name => 'Hops3.7' },
 183 
    '22303'     => { name => 'Hops3.7' },
173 
    '17223'     => { name => 'Hops4' },
 184 
    '17223'     => { name => 'Hops4' },
174 
);
 185 
);
175 
 
 186 
 
- 
 
 187 
# The following packages will have the version in the specified release forced to be on the trunk
- 
 
 188 
# A trunk will be forced and the version will be on it.
- 
 
 189 
#   May only work if the version in the release is also a TIP
- 
 
 190 
my %ukHopsTip = (
- 
 
 191 
    'ItsoMessaging'         => '6222',
- 
 
 192 
    'MessageProcessor'      => '6222',
- 
 
 193 
    'StrongNameKey'         => '6222',
- 
 
 194 
);
- 
 
 195 
 
176 
################################################################################
 196 
################################################################################
177 
#   Global data
 197 
#   Global data
178 
#
 198 
#
179 
my $VERSION = "1.0.0";
 199 
my $VERSION = "1.0.0";
180 
my $RM_DB;
 200 
my $RM_DB;
Line 544... Line 564...
544 
        $opt_flat = 1 unless defined $opt_flat;
 564 
        $opt_flat = 1 unless defined $opt_flat;
545 
        setPruneMode('none') unless (defined $opt_pruneModeString);
 565 
        setPruneMode('none') unless (defined $opt_pruneModeString);
546 
 
 566 
 
547 
    } elsif ( exists $suffixes{'.tool'} ) {
 567 
    } elsif ( exists $suffixes{'.tool'} ) {
548 
        $packageType = 'TOOL';
 568 
        $packageType = 'TOOL';
549 
        $Projects{'.tool'}{'Trunk'} = 1;
 569 
        $Projects{'.tool'}{Trunk} = 1;
550 
        $singleProject = 1;
 570 
        $singleProject = 1;
551 
        setPruneMode('none') unless (defined $opt_pruneModeString);
 571 
        setPruneMode('none') unless (defined $opt_pruneModeString);
552 
#        $opt_flat = 1;
 572 
#        $opt_flat = 1;
553 
 
 573 
 
554 
    } elsif ( scalar (keys %suffixes ) == 1 ) {
 574 
    } elsif ( scalar (keys %suffixes ) == 1 ) {
Line 1064... Line 1084...
1064 
        #
 1084 
        #
1065 
        calcRippleGroups();
 1085 
        calcRippleGroups();
1066 
    }
 1086 
    }
1067 
 
 1087 
 
1068 
    #
 1088 
    #
- 
 
 1089 
    #   Want some versions to be forced to tip trunk
- 
 
 1090 
    #
- 
 
 1091 
    foreach my $name ( keys %ukHopsTip )
- 
 
 1092 
    {
- 
 
 1093 
        foreach my $entry ( keys(%versions) )
- 
 
 1094 
        {
- 
 
 1095 
            next unless ( $versions{$entry}{name} eq $name  );
- 
 
 1096 
            next unless ( exists $versions{$entry}{Releases}{$ukHopsTip{$name}} );
- 
 
 1097 
 
- 
 
 1098 
            #
- 
 
 1099 
            #   Force this suffix to be the trunk
- 
 
 1100 
            #   Remove all others
- 
 
 1101 
            #
- 
 
 1102 
            foreach my $suffix ( keys %Projects )
- 
 
 1103 
            {
- 
 
 1104 
                delete $Projects{$suffix}{Trunk};
- 
 
 1105 
            }
- 
 
 1106 
            my $suffix = $versions{$entry}{suffix};
- 
 
 1107 
            $Projects{$suffix}{Trunk} = 1;
- 
 
 1108 
        }
- 
 
 1109 
    }
- 
 
 1110 
 
- 
 
 1111 
    #
1069 
    #   Calculate best through-path for branches in the tree
 1112 
    #   Calculate best through-path for branches in the tree
1070 
    #   Attempt to keep that 'max' version on the mainline
 1113 
    #   Attempt to keep that 'max' version on the mainline
1071 
    #   May be modified by -tip=nnnn
 1114 
    #   May be modified by -tip=nnnn
1072 
    #
 1115 
    #
1073 
    #   For each leaf (end point), walk backwards and mark each node with the
 1116 
    #   For each leaf (end point), walk backwards and mark each node with the
Line 1079... Line 1122...
1079 
    #   be recalculated
 1122 
    #   be recalculated
1080 
    #
 1123 
    #
1081 
 
 1124 
 
1082 
    Message ("Calculate Max Version");
 1125 
    Message ("Calculate Max Version");
1083 
    my $maxVersion;
 1126 
    my $maxVersion;
1084 
 
 - 
 
1085 
    foreach my $entry ( @endPoints )
 1127 
    foreach my $entry ( @endPoints )
1086 
    {
 1128 
    {
1087 
        my $lastSuffix;
 1129 
        my $lastSuffix;
1088 
        my $forceTip;
 1130 
        my $forceTip;
1089 
        while ( $entry )
 1131 
        while ( $entry )