The Tor Browser / file comparison

comparison: config/version_win.pl

config/version_win.pl

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

Mercurial Repository: The Tor Browser

Europalab SCM Repository Server

mercurial