Commit 1bdc711f authored by Ben Boeckel's avatar Ben Boeckel Committed by Kitware Robot

Merge topic 'reproducible-doc-build'

bdf3b9f3 Sort all hash usage in doc generation
Acked-by: Kitware Robot's avatarKitware Robot <kwrobot@kitware.com>
Acked-by: Ben Boeckel's avatarBen Boeckel <ben.boeckel@kitware.com>
Merge-request: !5634
parents dedb63f5 bdf3b9f3
......@@ -171,7 +171,7 @@ sub unique {
foreach my $item (@$ref) {
$uniques{$item}++;
}
return keys %uniques;
return sort keys %uniques;
}
sub parse {
......
......@@ -249,7 +249,7 @@ foreach my $source (@files) {
my $preamble = " \@par " . $args{"label"} . ":\n";
my $doc = $preamble .
" " . join(" ", keys %{$class2matches{$class}}) . "\n";
" " . join(" ", sort keys %{$class2matches{$class}}) . "\n";
if ($block !~ s/($preamble.+?)(\s*\@par|\z)/$doc$2/gms) {
$block .= "\n$doc";
......
......@@ -462,7 +462,7 @@ my $nb_removed = 0;
foreach my $signature (sort { (scalar keys %{$log_revision_by_signature_file{$b}}) <=> (scalar keys %{$log_revision_by_signature_file{$a}}) }
keys %log_revision_by_signature_file) {
my @files = keys %{$log_revision_by_signature_file{$signature}};
my @files = sort keys %{$log_revision_by_signature_file{$signature}};
if (scalar @files > $args{"massive"}) {
print " >> Removed: (" . scalar @files . ")\n " .
......@@ -521,7 +521,7 @@ $intermediate_time = time();
# Browse each file, each revision and use contribution
foreach my $file_name (keys %files_visited) {
foreach my $file_name (sort keys %files_visited) {
# Check if file is part of a class group
......@@ -533,7 +533,7 @@ foreach my $file_name (keys %files_visited) {
$classes{$class_name}{'creators'}{$log_by_file_revision{$file_name}{'1.1'}{'author'}} = 1;
}
foreach my $revision (keys %{$log_by_file_revision{$file_name}}) {
foreach my $revision (sort keys %{$log_by_file_revision{$file_name}}) {
my $author = $log_by_file_revision{$file_name}{$revision}{'author'};
......@@ -603,7 +603,7 @@ while (@classes_names) {
# Find the class header name
my $source_header_name = undef;
foreach my $file_name (keys %{$classes{$class_name}{'files'}}) {
foreach my $file_name (sort keys %{$classes{$class_name}{'files'}}) {
if ($file_name =~ m/\.h$/) {
$source_header_name = $file_name;
last;
......@@ -682,7 +682,7 @@ while (@classes_names) {
if (exists $args{"cvsweb"}) {
$doc .= "\n \@par CVS logs (CVSweb):\n";
foreach my $file (keys %{$classes{$class_name}{'files'}}) {
foreach my $file (sort keys %{$classes{$class_name}{'files'}}) {
my $shortname = get_short_relative_name($file, $args{"relativeto"});
my ($base, $dir, $ext) = fileparse($shortname, '\..*');
$doc .= ' - @htmlonly<A href="' . $args{"cvsweb"}
......@@ -769,10 +769,10 @@ my %contribution_by_author;
my %contribution_by_date;
foreach my $contributor (keys %contribution_by_author_file) {
foreach my $contributor (sort keys %contribution_by_author_file) {
foreach my $file_name
(keys %{$contribution_by_author_file{$contributor}}) {
(sort keys %{$contribution_by_author_file{$contributor}}) {
$contribution_by_author{$contributor} +=
$contribution_by_author_file{$contributor}{$file_name};
}
......
......@@ -213,7 +213,7 @@ foreach my $source (@files) {
}
}
my @words = keys %index;
my @words = sort keys %index;
print " => ", scalar @words, " word(s) grabbed in $nb_files file(s) in ", time() - $intermediate_time, " s.\n";
# -------------------------------------------------------------------------
......@@ -243,7 +243,7 @@ print "Grouping...\n";
sub transfer_keys {
my ($rfrom, $rto) = @_;
foreach my $key (keys %$rfrom) {
foreach my $key (sort keys %$rfrom) {
$rto->{$key} += $rfrom->{$key};
}
}
......@@ -350,7 +350,7 @@ foreach my $word (@words) {
# with these extensions that were not found and build a list of similar
# "words" by concatenating both.
my @verbs = keys %verbs;
my @verbs = sort keys %verbs;
if (@verbs) {
my %try = ("" => 1,
"e" => 1,
......@@ -397,7 +397,7 @@ print " => $nb_grouped word(s) grouped.\n";
print "Normalizing...\n";
@words = keys %index;
@words = sort keys %index;
foreach my $word (@words) {
my $lcw = lc $word;
......@@ -413,7 +413,7 @@ foreach my $word (@words) {
# Normalize group to lowercase
if (exists $group{$word}) {
foreach my $gword (keys %{$group{$word}}) {
foreach my $gword (sort keys %{$group{$word}}) {
my $lcgw = lc $gword;
if ($gword ne uc($gword) && $gword ne $lcgw) {
$group{$word}{$lcgw} = $group{$word}{$gword};
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment