|
1 #!perl |
|
2 # Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies). |
|
3 # All rights reserved. |
|
4 # This component and the accompanying materials are made available |
|
5 # under the terms of the License "Eclipse Public License v1.0" |
|
6 # which accompanies this distribution, and is available |
|
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
8 # |
|
9 # Initial Contributors: |
|
10 # Nokia Corporation - initial contribution. |
|
11 # |
|
12 # Contributors: |
|
13 # |
|
14 # Description: |
|
15 # |
|
16 # |
|
17 |
|
18 use strict; |
|
19 use FindBin; |
|
20 use lib "$FindBin::Bin"; |
|
21 use Getopt::Long; |
|
22 use IniData; |
|
23 use EnvDb; |
|
24 use MrpData; |
|
25 use MakeRel; |
|
26 use CommandController; |
|
27 |
|
28 |
|
29 # |
|
30 # Globals. |
|
31 # |
|
32 |
|
33 my $verbose = 0; |
|
34 my $fixLibs = 0; |
|
35 my $iniData = IniData->New(); |
|
36 my $commandController = CommandController->New($iniData, 'MakeRel'); |
|
37 my $envDb; |
|
38 my $makeRel; |
|
39 my $notesSrc; |
|
40 my $project; |
|
41 my $reallyrun; |
|
42 my @mrpData; |
|
43 |
|
44 |
|
45 # |
|
46 # Main. |
|
47 # |
|
48 |
|
49 ProcessCommandLine(); |
|
50 PrintHeinousWarning(); |
|
51 MakeRel::MakeReleases($iniData, $envDb, \@mrpData, $notesSrc, 'MakeRel', $verbose, $project); |
|
52 |
|
53 |
|
54 # |
|
55 # Subs. |
|
56 # |
|
57 |
|
58 sub ProcessCommandLine { |
|
59 Getopt::Long::Configure ("bundling"); |
|
60 my $help; |
|
61 my $stdin; |
|
62 GetOptions("h" => \$help, "v+" => \$verbose, "n=s" => \$notesSrc, "p" => \$stdin, "l" => \$fixLibs, "w=s" => \$project, "f" => \$reallyrun); |
|
63 |
|
64 if ($help) { |
|
65 Usage(0); |
|
66 } |
|
67 |
|
68 # Create the MrpData objects. These will not write any files to disk, and so if any of |
|
69 # them die, there is no need to perform any file system cleanup. |
|
70 if ($#ARGV == -1 and $stdin) { |
|
71 # Read input from STDIN. |
|
72 MakeMrpData(\@mrpData, *STDIN); |
|
73 } |
|
74 elsif ($#ARGV == 0) { |
|
75 # Read input from a file. |
|
76 if (-f $ARGV[0]) { |
|
77 open (IN, $ARGV[0]) or die "Error: Couldn't open $ARGV[0] for reading: $!\n"; |
|
78 MakeMrpData(\@mrpData, *IN); |
|
79 close (IN); |
|
80 } |
|
81 else { |
|
82 print "Error: $ARGV[0] is not a file\n"; |
|
83 Usage(1); |
|
84 } |
|
85 } |
|
86 elsif ($#ARGV == 1) { |
|
87 # Read input from a single set of command line arguments. |
|
88 if ($iniData->RequireInternalVersions()) { |
|
89 die "Error: Internal version number not specified\n"; |
|
90 } |
|
91 else { |
|
92 push (@mrpData, MrpData->New(shift @ARGV, shift @ARGV, '', $iniData, $verbose, $fixLibs)); |
|
93 } |
|
94 } |
|
95 elsif ($#ARGV == 2) { |
|
96 # Read input from a single set of command line arguments. |
|
97 push (@mrpData, MrpData->New(shift @ARGV, shift @ARGV, shift @ARGV, $iniData, $verbose, $fixLibs)); |
|
98 } |
|
99 else { |
|
100 print "Error: invalid number of arguments\n"; |
|
101 Usage(1); |
|
102 } |
|
103 |
|
104 $envDb = EnvDb->Open($iniData, $verbose); |
|
105 } |
|
106 |
|
107 sub Usage { |
|
108 my $exitCode = shift; |
|
109 |
|
110 Utils::PrintDeathMessage($exitCode, "\nUsage: makerel [options] [[<mrp_file> <version> [<internal_version>]] | [mrp_list_file]] |
|
111 |
|
112 options: |
|
113 |
|
114 -h help |
|
115 -v verbose output (-vv very verbose) |
|
116 -n <notes_src_file> compile all release notes using a single source file |
|
117 -p read a piped mrp list from STDIN |
|
118 -l copy missing ARMI lib files from THUMB is possible |
|
119 -f force (no prompting) |
|
120 -w <project name> make the release in this \"project\" |
|
121 |
|
122 Unsupported tool.\n"); |
|
123 } |
|
124 |
|
125 sub PrintHeinousWarning { |
|
126 Utils::QueryUnsupportedTool(<<GUILTY, $reallyrun); |
|
127 ############################ WARNING ################################ |
|
128 # Do not use MakeRel under normal circumstances. If you wish to # |
|
129 # make a component release, use the PrepRel and MakeEnv commands. # |
|
130 # ( PrepRel to specify the version numbers, etc., then MakeEnv to # |
|
131 # actually make the release(s). ) # |
|
132 ##################################################################### |
|
133 |
|
134 The problem with MakeRel is that it doesn't ensure your environment |
|
135 is clean before making the releases. Hence, component releases made |
|
136 using MakeRel are not subject to the normal guarantees, that ensure |
|
137 users of your release can precisely reproduce what you have on your |
|
138 development drive. |
|
139 |
|
140 Usually, releases made using MakeRel are unacceptable to licensee |
|
141 integration teams. Use with caution. |
|
142 |
|
143 GUILTY |
|
144 } |
|
145 |
|
146 sub MakeMrpData { |
|
147 my $mrpData = shift; |
|
148 local *IN = shift; |
|
149 print "Gathering release info...\n"; |
|
150 my @failedReleases; |
|
151 my @lines; |
|
152 while (my $line = <IN>) { |
|
153 # Remove line feed, white space and comments. |
|
154 chomp $line; |
|
155 $line =~ s/^\s*$//; |
|
156 $line =~ s/#.*//; |
|
157 if ($line eq '') { |
|
158 # Nothing left. |
|
159 next; |
|
160 } |
|
161 push @lines, $line; |
|
162 } |
|
163 |
|
164 # Reading in a separate loop due to Perl 5.8.0 defect # 21217, due to be fixed in 5.8.1. |
|
165 |
|
166 my $lineNum = -1; |
|
167 foreach my $line (@lines) { |
|
168 $lineNum++; |
|
169 eval { |
|
170 (my $mrpName, my $extVer, my $intVer) = split (/\s+/, $line, 4); |
|
171 unless (defined $mrpName and defined $extVer) { |
|
172 die "Error: Invalid arguments at line $lineNum\n"; |
|
173 } |
|
174 if (not defined $intVer) { |
|
175 if ($iniData->RequireInternalVersions()) { |
|
176 die "Error: Internal version number not specified\n"; |
|
177 } |
|
178 else { |
|
179 $intVer = ''; |
|
180 } |
|
181 } |
|
182 my $thisMrpData = MrpData->New($mrpName, $extVer, $intVer, $iniData, $verbose, $fixLibs); |
|
183 push (@$mrpData, $thisMrpData); |
|
184 }; |
|
185 if ($@) { |
|
186 print $@; |
|
187 push (@failedReleases, "$line - $@"); |
|
188 } |
|
189 } |
|
190 |
|
191 if ($#failedReleases >= 0) { |
|
192 print "\nThere was an error making the following release(s):\n\n"; |
|
193 foreach my $rel (@failedReleases) { |
|
194 print "$rel"; |
|
195 } |
|
196 die "\n"; |
|
197 } |
|
198 } |
|
199 |
|
200 __END__ |
|
201 |
|
202 =head1 NAME |
|
203 |
|
204 MakeRel - Make a single, or set of component releases. |
|
205 |
|
206 =head1 SYNOPSIS |
|
207 |
|
208 makerel [options] [[<mrp_file> <version> [<internal_version>]] | [mrp_list_file]] |
|
209 |
|
210 options: |
|
211 |
|
212 -h help |
|
213 -v verbose output (-vv very verbose) |
|
214 -n <notes_src_file> compile all release notes using a single source file |
|
215 -p read a piped mrp list from STDIN |
|
216 -l copy missing ARMI lib files from THUMB is possible |
|
217 -f force (no prompting) |
|
218 -w <project> make the releases in this "project" |
|
219 |
|
220 =head1 DESCRIPTION |
|
221 |
|
222 C<MakeRel> is a tool that can generate one or more component releases. Where ever possible the tool C<MakeEnv> should be used instead of C<MakeRel> because this guarantees the ability to reproduce the entire environment from which a release was made, rather than just packaging up a particular set of source and binaries. |
|
223 |
|
224 See the document I<Making Releases> for more complete coverage of the process of making releases in general. |
|
225 |
|
226 =head1 STATUS |
|
227 |
|
228 Unsupported/experimental. If you find a problem, please send us a patch. |
|
229 |
|
230 =head1 KNOWN BUGS |
|
231 |
|
232 None. |
|
233 |
|
234 =head1 COPYRIGHT |
|
235 |
|
236 Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies). |
|
237 All rights reserved. |
|
238 This component and the accompanying materials are made available |
|
239 under the terms of the License "Eclipse Public License v1.0" |
|
240 which accompanies this distribution, and is available |
|
241 at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
242 |
|
243 Initial Contributors: |
|
244 Nokia Corporation - initial contribution. |
|
245 |
|
246 Contributors: |
|
247 |
|
248 Description: |
|
249 |
|
250 |
|
251 =cut |