Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-01-27 07:34:20 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

added some thoughts on how this should work. I still need to debug it.

Browse Source
This commit is contained in:
kestes%walrus.com 2002-01-29 21:11:59 +00:00
parent e6af3350ab
commit e3c9bc355d
1 changed files with 48 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
webtools/tinderbox2/src/lib/TinderDB/VC_Perforce.pm
View File

@ -26,6 +26,13 @@
# This means that tinderbox needs to run as a user which has Perforce
# 'list' privileges.
# Tinderbox works on the notion of "tree" which is a set of
# directories. Perforce has no easily identifiable analog. We create
# this notion using the variables
# $TreeData::VC_TREE{$tree}{'dir_pattern'} which define regular
# expressions of file names. There must be at least one file in the
# change set which matches the dir pattern for us to assume that this
# change set applies to this tree. If not we ignore the change set.
# The contents of this file are subject to the Mozilla Public
@ -125,7 +132,7 @@ use TreeData;
use VCDisplay;
$VERSION = ( qw $Revision: 1.2 $ )[1];
$VERSION = ( qw $Revision: 1.3 $ )[1];
@ISA = qw(TinderDB::BasicTxtDB);
@ -391,29 +398,33 @@ sub status_table_row {
Revision, Action, Comment);
$table .= list2table_header($header);
foreach $time (sort {$b <=> $a} keys %{ $affected_files{$author} }) {
foreach $row (@{ $affected_files{$author}{$time} }) {
$num_rows++;
$table .= list2table_row($time,$changenum,@row);
$table .= list2table_row($time,$changenum,$row);
$max_length = main::max(
$max_length,
length("@row"),
length("$row"),
);
}
}
}
my ($header) = qw(Time, ChangeNumber, JobName,
Author, Status, Comment);
$table .= list2table_header($header);
foreach $time (sort {$b <=> $a} keys %{ $jobs_fixed{$author} }) {
foreach $row (@{ $jobs_fixed{$author}{$time} }) {
$num_rows++;
$table .= list2table_row($time,$changenum,@row);
$table .= list2table_row($time,$changenum,$row);
$max_length = main::max(
$max_length,
length("@row"),
length("$row"),
);
}
}
$table .= "</table>";
@ -586,6 +597,8 @@ sub apply_db_updates {
($METADATA{$tree}{'next_change_num'} = 1);
while (1) {
# p4 changes @date1,@date2
# p4 changes @date1,@now
my $change_num = $METADATA{$tree}{'next_change_num'};
$ENV{'PATH'}=$ENV{'PATH'}.':/usr/src/perforce';
@ -593,8 +606,36 @@ sub apply_db_updates {
store_cmd_output(@cmd);
if (does_cmd_nextline_match("^Change ")) {
(does_cmd_nextline_match("^Change ")) ||
last;
# Ignore directories which are not in our module. Since we are not
# CVS we can only guess what these might be based on patterns.
# This is to correct a bug (lack of feature) in CVS history command.
# if ($TreeData::VC_TREE{$tree}{'dir_pattern'}) {
#
#
# # There must be at least one file in the change set which
# # matches the dir pattern for us to assume that this change
# # set applies to this tree. If not we ignore the change set.
#
# my $pattern = $TreeData::VC_TREE{$tree}{'dir_pattern'};
# my $count = (
# grep {/$pattern/}
# map { @{ $_ }[0] }
# @affected_files
# );
# ($count) ||
# next;
# }
# We can not ignore changes which are not on our branch without
# using bonsai CVS does not really support any analysis of
# branches. This is what bonsai was designed for.
$METADATA{$tree}{'next_change_num'}++;
$num_updates++;
@ -608,10 +649,6 @@ sub apply_db_updates {
$DATABASE{$tree}{$time}{'author'}{$author} =
[\@affected_files, \@jobs_fixed, $change_num];
} else {
last;
}
}
$METADATA{$tree}{'updates_since_trim'} += $num_updates;