wine/gecko
0
0
Fork 0
mirror of https://gitlab.winehq.org/wine/wine-gecko.git synced 2024-09-13 09:24:08 -07:00
Code Issues Packages Projects Releases Wiki Activity

config bumper b=371325 r=preed

Browse Source
This commit is contained in:
rhelmer@mozilla.com 2007-04-17 15:49:31 -07:00
parent d40136cf5b
commit 8a13a51529
2 changed files with 81 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
tools/release/Bootstrap/Config.pm
View File

@ -6,6 +6,7 @@ package Bootstrap::Config;
use strict;
use POSIX "uname";
use File::Copy qw(move);
# shared static config
my %config;
@ -30,7 +31,7 @@ sub new {
sub Parse {
my $this = shift;
open (CONFIG, "< bootstrap.cfg")
open(CONFIG, "< bootstrap.cfg")
|| die("Can't open config file bootstrap.cfg");
while (<CONFIG>) {
@ -42,7 +43,7 @@ sub Parse {
my ($var, $value) = split(/\s*=\s*/, $_, 2);
$config{$var} = $value;
}
close CONFIG;
close(CONFIG);
}
##
@ -162,4 +163,72 @@ sub SystemInfo {
}
}
##
# Bump - modifies config files
#
# Searches and replaces lines of the form:
# # CONFIG: $BuildTag = '%productTag%_RELEASE';
# $BuildTag = 'FIREFOX_1_5_0_9_RELEASE';
#
# The comment containing "CONFIG:" is parsed, and the value in between %%
# is treated as the key. The next line will be overwritten by the value
# matching this key in the private %config hash.
#
# If any of the requested keys are not found, this function calls die().
##
sub Bump {
my $this = shift;
my %args = @_;
my $config = new Bootstrap::Config();
my $configFile = $args{'configFile'};
if (! defined($configFile)) {
die('ASSERT: Bootstrap::Config::Bump - configFile is a required argument');
}
my $tmpFile = $configFile . '.tmp';
open(INFILE, "< $configFile")
or die ("Bootstrap::Config::Bump - Could not open $configFile for reading: $!");
open(OUTFILE, "> $tmpFile")
or die ("Bootstrap::Config::Bump - Could not open $tmpFile for writing: $!");
my $skipNextLine = 0;
foreach my $line (<INFILE>) {
if ($skipNextLine) {
$skipNextLine = 0;
next;
} elsif ($line =~ /^# CONFIG:\s+/) {
print OUTFILE $line;
$skipNextLine = 1;
my $interpLine = $line;
$interpLine =~ s/^#\s+CONFIG:\s+//;
foreach my $variable (grep(/%\w+\-*%/, split(/\s+/, $line))) {
my $key = $variable;
if (! ($key =~ s/.*%(\w+\-*)%.*/$1/g)) {
die("ASSERT: could not parse $variable");
}
if (! $config->Exists(var => $key)) {
die("ASSERT: no replacement found for $key");
}
my $value = $config->Get(var => $key);
$interpLine =~ s/\%$key\%/$value/g;
}
print OUTFILE $interpLine;
} else {
print OUTFILE $line;
}
}
close(INFILE) or die ("Bootstrap::Config::Bump - Could not close $configFile for reading: $!");
close(OUTFILE) or die ("Bootstrap::Config::Bump - Could not close $tmpFile for writing: $!");
move($tmpFile, $configFile)
or die("Cannot rename $tmpFile to $configFile: $!");
}
1;

10
tools/release/t/test.pl
View File

@ -3,6 +3,7 @@ use strict;
use Bootstrap::Step;
use Bootstrap::Config;
use t::Bootstrap::Step::Dummy;
use MozBuild::Util;
my $config = new Bootstrap::Config();
unless ($config->Exists(sysvar => 'buildDir')) {
@ -23,3 +24,12 @@ $step->Verify();
$step->Push();
$step->Announce();
eval {
$config->Bump(
configFile => 't/tinder-config.pl',
);
};
if ($@) {
print("FAIL: should not have died, all matches\n");
}