/[jscoverage]/trunk/js/config/version_win.pl
ViewVC logotype

Contents of /trunk/js/config/version_win.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 460 - (show annotations)
Sat Sep 26 23:15:22 2009 UTC (12 years, 9 months ago) by siliconforks
File MIME type: text/plain
File size: 14674 byte(s)
Upgrade to SpiderMonkey from Firefox 3.5.3.

1 #!/usr/bin/perl -w
2
3 # ***** BEGIN LICENSE BLOCK *****
4 # Version: MPL 1.1/GPL 2.0/LGPL 2.1
5 #
6 # The contents of this file are subject to the Mozilla Public License Version
7 # 1.1 (the "License"); you may not use this file except in compliance with
8 # the License. You may obtain a copy of the License at
9 # http://www.mozilla.org/MPL/
10 #
11 # Software distributed under the License is distributed on an "AS IS" basis,
12 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
13 # for the specific language governing rights and limitations under the
14 # License.
15 #
16 # The Original Code is the Win32 Version System.
17 #
18 # The Initial Developer of the Original Code is Brian Bober <netdemonz@yahoo.com>
19 # Portions created by the Initial Developer are Copyright (C) 2001
20 # the Initial Developer. All Rights Reserved.
21 #
22 # Contributor(s):
23 #
24 # Alternatively, the contents of this file may be used under the terms of
25 # either the GNU General Public License Version 2 or later (the "GPL"), or
26 # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
27 # in which case the provisions of the GPL or the LGPL are applicable instead
28 # of those above. If you wish to allow use of your version of this file only
29 # under the terms of either the GPL or the LGPL, and not to allow others to
30 # use your version of this file under the terms of the MPL, indicate your
31 # decision by deleting the provisions above and replace them with the notice
32 # and other provisions required by the GPL or the LGPL. If you do not delete
33 # the provisions above, a recipient may use your version of this file under
34 # the terms of any one of the MPL, the GPL or the LGPL.
35 #
36 # ***** END LICENSE BLOCK *****
37
38 #use diagnostics;
39 require strict;
40 my $dir = $0;
41 $dir =~ s/[^\/]*$//;
42 push(@INC, "$dir");
43 require "Moz/Milestone.pm";
44 use Getopt::Long;
45 use Getopt::Std;
46 use POSIX;
47
48 # Calculate the number of days since Jan. 1, 2000 from a buildid string
49 sub daysFromBuildID
50 {
51 my ($buildid,) = @_;
52
53 my ($y, $m, $d, $h) = ($buildid =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/);
54 $d || die("Unrecognized buildid string.");
55
56 my $secondstodays = 60 * 60 * 24;
57 return (POSIX::mktime(00, 00, 00, $d, $m - 1, $y - 1900) -
58 POSIX::mktime(00, 00, 00, 01, 00, 100)) / $secondstodays;
59 }
60
61 #Creates version resource file
62
63 #Paramaters are passed on the command line:
64
65 #Example: -MODNAME nsToolkitCompsModule -DEBUG=1
66
67 # DEBUG - Mozilla's global debug variable - tells if its debug version
68 # OFFICIAL - tells Mozilla is building a milestone or nightly
69 # MSTONE - tells which milestone is being built;
70 # OBJDIR - Holds the object directory;
71 # MODNAME - tells what the name of the module is like nsBMPModule
72 # DEPTH - Holds the path to the root obj dir
73 # TOPSRCDIR - Holds the path to the root mozilla dir
74 # SRCDIR - Holds module.ver and source
75 # BINARY - Holds the name of the binary file
76 # DISPNAME - Holds the display name of the built application
77 # APPVERSION - Holds the version string of the built application
78 # BITS - 16 or 32 bit
79 # RCINCLUDE - Holds the name of the RC File to include or ""
80 # QUIET - Turns off output
81
82 #Description and Comment come from module.ver
83 #Bug 23560
84 #http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/rc_7x2d.asp
85
86 #Get next .ver file entry
87 sub getNextEntry
88 {
89 while (<VERFILE>)
90 {
91 my $mline = $_;
92 ($mline) = split(/#/,$mline);
93 my ($entry, $value)=split(/=/,$mline,2);
94 if (defined($entry))
95 {
96 if (defined($value))
97 {
98 $entry =~ s/^\s*(.*?)\s*$/$1/;
99 $value =~ s/^\s*(.*?)\s*$/$1/;
100 return ($entry,$value);
101 }
102 }
103 }
104 return undef;
105 }
106
107 my ($quiet,$objdir,$debug,$official,$milestone,$buildid,$module,$binary,$depth,$rcinclude,$bits,$srcdir,$fileversion,$productversion);
108
109 GetOptions( "QUIET" => \$quiet,
110 "DEBUG=s" => \$debug,
111 "OFFICIAL=s" => \$official,
112 "MSTONE=s" => \$milestone,
113 "MODNAME=s" => \$module,
114 "BINARY=s" => \$binary,
115 "DISPNAME=s" => \$displayname,
116 "APPVERSION=s" => \$appversion,
117 "SRCDIR=s" => \$srcdir,
118 "TOPSRCDIR=s" => \$topsrcdir,
119 "DEPTH=s" => \$depth,
120 "RCINCLUDE=s" => \$rcinclude,
121 "OBJDIR=s" => \$objdir,
122 "BITS=s" => \$bits);
123 if (!defined($debug)) {$debug="";}
124 if (!defined($official)) {$official="";}
125 if (!defined($milestone)) {$milestone="";}
126 if (!defined($module)) {$module="";}
127 if (!defined($binary)) {$binary="";}
128 if (!defined($displayname)) {$displayname="Mozilla";}
129 if (!defined($appversion)) {$appversion=$milestone;}
130 if (!defined($depth)) {$depth=".";}
131 if (!defined($rcinclude)) {$rcinclude="";}
132 if (!defined($objdir)) {$objdir=".";}
133 if (!defined($srcdir)) {$srcdir=".";}
134 if (!defined($topsrcdir)) {$topsrcdir=".";}
135 if (!defined($bits)) {$bits="";}
136 my $mfversion = "Personal";
137 my $mpversion = "Personal";
138 my @fileflags = ("0");
139 my $comment="";
140 my $description="";
141 if (!defined($module))
142 {
143 $module = $binary;
144 ($module) = split(/\./,$module);
145 }
146
147 my $fileos = "VOS__WINDOWS32";
148 if ($bits eq "16") { $fileos="VOS__WINDOWS16"; }
149
150 my $bufferstr=" ";
151
152 my $MILESTONE_FILE = "$topsrcdir/config/milestone.txt";
153 my $BUILDID_FILE = "$depth/config/buildid";
154
155 #Read module.ver file
156 #Version file overrides for WIN32:
157 #WIN32_MODULE_COMMENT
158 #WIN32_MODULE_DESCRIPTION
159 #WIN32_MODULE_FILEVERSION
160 #WIN32_MODULE_COMPANYNAME
161 #WIN32_MODULE_FILEVERSION_STRING
162 #WIN32_MODULE_NAME
163 #WIN32_MODULE_COPYRIGHT
164 #WIN32_MODULE_TRADEMARKS
165 #WIN32_MODULE_ORIGINAL_FILENAME
166 #WIN32_MODULE_PRODUCTNAME
167 #WIN32_MODULE_PRODUCTVERSION
168 #WIN32_MODULE_PRODUCTVERSION_STRING
169
170 #Override values obtained from the .ver file
171 my $override_comment;
172 my $override_description;
173 my $override_fileversion;
174 my $override_company;
175 my $override_mfversion;
176 my $override_module;
177 my $override_copyright;
178 my $override_trademarks;
179 my $override_filename;
180 my $override_productname;
181 my $override_productversion;
182 my $override_mpversion;
183 if (open(VERFILE, "<$srcdir/module.ver"))
184 {
185
186 my ($a,$b) = getNextEntry();
187 while (defined($a))
188 {
189 if ($a eq "WIN32_MODULE_COMMENT") { $override_comment = $b; }
190 if ($a eq "WIN32_MODULE_DESCRIPTION") { $override_description = $b; }
191 if ($a eq "WIN32_MODULE_FILEVERSION") { $override_fileversion = $b; }
192 if ($a eq "WIN32_MODULE_COMPANYNAME") { $override_company = $b; }
193 if ($a eq "WIN32_MODULE_FILEVERSION_STRING") { $override_mfversion = $b; }
194 if ($a eq "WIN32_MODULE_NAME") { $override_module = $b; }
195 if ($a eq "WIN32_MODULE_COPYRIGHT") { $override_copyright = $b; }
196 if ($a eq "WIN32_MODULE_TRADEMARKS") { $override_trademarks = $b; }
197 if ($a eq "WIN32_MODULE_ORIGINAL_FILENAME") { $override_filename = $b; }
198 if ($a eq "WIN32_MODULE_PRODUCTNAME") { $override_productname = $b; }
199 if ($a eq "WIN32_MODULE_PRODUCTVERSION") { $override_productversion = $b; }
200 if ($a eq "WIN32_MODULE_PRODUCTVERSION_STRING") { $override_mpversion = $b; }
201 ($a,$b) = getNextEntry();
202 }
203 close(VERFILE)
204 }
205 else
206 {
207 if (!$quiet || $quiet ne "1") { print "$bufferstr" . "WARNING: No module.ver file included ($module, $binary). Default values used\n"; }
208 }
209 #Get rid of trailing and leading whitespace
210 $debug =~ s/^\s*(.*)\s*$/$1/;
211 $comment =~ s/^\s*(.*)\s*$/$1/;
212 $official =~ s/^\s*(.*)\s*$/$1/;
213 $milestone =~ s/^\s*(.*)\s*$/$1/;
214 $description =~ s/^\s*(.*)\s*$/$1/;
215 $module =~ s/^\s*(.*)\s*$/$1/;
216 $depth =~ s/^\s*(.*)\s*$/$1/;
217 $binary =~ s/^\s*(.*)\s*$/$1/;
218 $displayname =~ s/^\s*(.*)\s*$/$1/;
219
220 open(BUILDID, "<", $BUILDID_FILE) || die("Couldn't open buildid file: $BUILDID_FILE");
221 $buildid = <BUILDID>;
222 $buildid =~ s/\s*$//;
223 close BUILDID;
224
225 my $daycount = daysFromBuildID($buildid);
226
227 if ($milestone eq "") {
228 $milestone = Moz::Milestone::getOfficialMilestone($MILESTONE_FILE);
229 }
230
231 $mfversion = $mpversion = $milestone;
232 if ($appversion eq "") {
233 $appversion = $milestone;
234 }
235
236 if ($debug eq "1")
237 {
238 push @fileflags, "VS_FF_DEBUG";
239 $mpversion .= " Debug";
240 $mfversion .= " Debug";
241 }
242
243 if ($official ne "1") {
244 push @fileflags, "VS_FF_PRIVATEBUILD";
245 }
246
247 if ($milestone =~ /[a-z]/) {
248 push @fileflags, "VS_FF_PRERELEASE";
249 }
250
251 my @mstone = split(/\./,$milestone);
252 $mstone[1] =~s/\D.*$//;
253 if (!$mstone[2]) {
254 $mstone[2] = "0";
255 }
256 else {
257 $mstone[2] =~s/\D.*$//;
258 }
259 $fileversion = $productversion="$mstone[0],$mstone[1],$mstone[2],$daycount";
260
261 my @appver = split(/\./,$appversion);
262 for ($j = 1; $j < 4; $j++)
263 {
264 if (!$appver[$j]) {
265 $appver[$j] = "0";
266 }
267 else {
268 $appver[$j] =~s/\D.*$//;
269 }
270 }
271 my $winappversion = "$appver[0],$appver[1],$appver[2],$appver[3]";
272
273 my $copyright = "License: MPL 1.1/GPL 2.0/LGPL 2.1";
274 my $company = "Mozilla Foundation";
275 my $trademarks = "Mozilla";
276 my $productname = $displayname;
277
278
279 if (defined($override_comment)){$override_comment =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $comment=$override_comment;}
280 if (defined($override_description)){$override_description =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $description=$override_description;}
281 if (defined($override_fileversion)){$override_fileversion =~ s/\@MOZ_APP_WINVERSION\@/$winappversion/g; $fileversion=$override_fileversion;}
282 if (defined($override_mfversion)){$override_mfversion =~ s/\@MOZ_APP_VERSION\@/$appversion/g; $mfversion=$override_mfversion;}
283 if (defined($override_company)){$company=$override_company;}
284 if (defined($override_module)){$override_module =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $module=$override_module;}
285 if (defined($override_copyright)){$override_copyright =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $copyright=$override_copyright;}
286 if (defined($override_trademarks)){$override_trademarks =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $trademarks=$override_trademarks;}
287 if (defined($override_filename)){$binary=$override_filename;}
288 if (defined($override_productname)){$override_productname =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $productname=$override_productname;}
289 if (defined($override_productversion)){$override_productversion =~ s/\@MOZ_APP_WINVERSION\@/$winappversion/g; $productversion=$override_productversion;}
290 if (defined($override_mpversion)){$override_mpversion =~ s/\@MOZ_APP_VERSION\@/$appversion/g; $mpversion=$override_mpversion;}
291
292
293 #Override section
294
295 open(RCFILE, ">$objdir/module.rc") || die("Can't edit module.rc - It must be locked.\n");
296 print RCFILE qq{
297 // ***** BEGIN LICENSE BLOCK *****
298 // Version: MPL 1.1/GPL 2.0/LGPL 2.1
299 //
300 // The contents of this file are subject to the Mozilla Public License Version
301 // 1.1 (the "License"); you may not use this file except in compliance with
302 // the License. You may obtain a copy of the License at
303 // http://www.mozilla.org/MPL/
304 //
305 // Software distributed under the License is distributed on an "AS IS" basis,
306 // WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
307 // for the specific language governing rights and limitations under the
308 // License.
309 //
310 // The Original Code is the Win32 Version System.
311 //
312 // The Initial Developer of the Original Code is Brian Bober <netdemonz\@yahoo.com>
313 // Portions created by the Initial Developer are Copyright (C) 2001
314 // the Initial Developer. All Rights Reserved.
315 //
316 // Contributor(s):
317 //
318 // Alternatively, the contents of this file may be used under the terms of
319 // either the GNU General Public License Version 2 or later (the "GPL"), or
320 // the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
321 // in which case the provisions of the GPL or the LGPL are applicable instead
322 // of those above. If you wish to allow use of your version of this file only
323 // under the terms of either the GPL or the LGPL, and not to allow others to
324 // use your version of this file under the terms of the MPL, indicate your
325 // decision by deleting the provisions above and replace them with the notice
326 // and other provisions required by the GPL or the LGPL. If you do not delete
327 // the provisions above, a recipient may use your version of this file under
328 // the terms of any one of the MPL, the GPL or the LGPL.
329 //
330 // ***** END LICENSE BLOCK *****
331
332 #include<winver.h>
333
334 // Note: if you contain versioning information in an included
335 // RC script, it will be discarded
336 // Use module.ver to explicitly set these values
337
338 // Do not edit this file. Changes won't affect the build.
339
340 };
341
342 my $versionlevel=0;
343 my $insideversion=0;
344 if (open(RCINCLUDE, "<$rcinclude"))
345 {
346 print RCFILE "// From included resource $rcinclude\n";
347 # my $mstring="";
348 while (<RCINCLUDE>)
349 {
350 $_ =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g;
351 print RCFILE $_;
352 # my $instr=$_;
353 # chomp($instr);
354 # $mstring .= "$instr\;";
355 }
356 close(RCINCLUDE);
357 # $mstring =~ s/\/\*.*\*\///g;
358 # my @mlines = split(/\;/,$mstring);
359 # for(@mlines)
360 # {
361 # my ($nocomment)=split(/\/\//,$_);
362 # if (defined($nocomment) && $nocomment ne "")
363 # {
364 # my ($firststring,$secondstring) = split(/\s+/,$nocomment);
365 # if (!defined($firststring)) {$firststring="";}
366 # if (!defined($secondstring)) {$secondstring="";}
367 # if ($secondstring eq "VERSIONINFO")
368 # {
369 #if (!$quiet || $quiet ne "1") {
370 # print "$bufferstr" . "WARNING: Included RC file ($rcinclude, $module, $binary)\n";
371 # print "$bufferstr" . "WARNING: contains versioning information that will be discarded\n";
372 # print "$bufferstr" . "WARNING: Remove it and use relevant overrides (in module.ver)\n";
373 #}
374 # $versionlevel = 0;
375 # $insideversion = 1;
376 # }
377 # if ($firststring eq "BEGIN") { $versionlevel++; }
378 # if ($secondstring eq "END")
379 # {
380 # $versionlevel--;
381 # if ($insideversion==1 && $versionlevel==0) {$versionlevel=0;}
382 # }
383 # my $includecheck = $firststring . $secondstring;
384 # $includecheck =~ s/<|>/"/g;
385 # $includecheck = lc($includecheck);
386 # if ($includecheck ne "#include\"winver.h\"")
387 # {
388 # if ($insideversion == 0 && $versionlevel == 0)
389 # {
390 # print RCFILE "$nocomment\n";
391 # }
392 # }
393 # }
394 # }
395
396 }
397
398 my $fileflags = join(' | ', @fileflags);
399
400 print RCFILE qq{
401
402
403 /////////////////////////////////////////////////////////////////////////////
404 //
405 // Version
406 //
407
408 1 VERSIONINFO
409 FILEVERSION $fileversion
410 PRODUCTVERSION $productversion
411 FILEFLAGSMASK 0x3fL
412 FILEFLAGS $fileflags
413 FILEOS $fileos
414 FILETYPE VFT_DLL
415 FILESUBTYPE 0x0L
416 BEGIN
417 BLOCK "StringFileInfo"
418 BEGIN
419 BLOCK "000004b0"
420 BEGIN
421 VALUE "Comments", "$comment"
422 VALUE "LegalCopyright", "$copyright"
423 VALUE "CompanyName", "$company"
424 VALUE "FileDescription", "$description"
425 VALUE "FileVersion", "$mfversion"
426 VALUE "ProductVersion", "$mpversion"
427 VALUE "InternalName", "$module"
428 VALUE "LegalTrademarks", "$trademarks"
429 VALUE "OriginalFilename", "$binary"
430 VALUE "ProductName", "$productname"
431 VALUE "BuildID", "$buildid"
432 END
433 END
434 BLOCK "VarFileInfo"
435 BEGIN
436 VALUE "Translation", 0x0, 1200
437 END
438 END
439
440 };
441 close(RCFILE);

  ViewVC Help
Powered by ViewVC 1.1.24