1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
#!/usr/bin/env perl
# SPDX-FileCopyrightText: 2006-2025 Knut Reinert & Freie Universität Berlin
# SPDX-FileCopyrightText: 2016-2025 Knut Reinert & MPI für molekulare Genetik
# SPDX-License-Identifier: BSD-3-Clause
# Usage check_include_order.pl <file1> [<file2>] [<file3>] ....
# Will output the names of the files that have incorrect include order.
#
# Usage example: `check_include_order.pl $(git diff --name-only HEAD origin/main)`
# Checks all files that have been touch since last main for any incorrect include ordering
#
# Usage example: `check_include_order.pl $(find include -type f)
# Checks all files of seqan3 for incorrect include ordering
#
# This is a script checking for blocks of include statements:
#
# #include <cassert>
# #include <concepts>
# #include <utility>
#
# It will extract the include paths to
# cassert
# concepts
# utility
# and check if they appear in the correct order.
use strict;
use warnings;
# Loops through all input files
foreach my $file (@ARGV) {
# if file doesn't exists, jump to next file
next unless (open my $info, $file);
# variable to track current include block
my @includeList=();
# loop line by line through file
while (my $line = <$info>) {
# add included file to includeList (removing seqan3/std/)
if ($line =~ /\#include <(?:seqan3\/std\/)?(.*)>$/) {
push(@includeList, $1);
# Check at end of include block if all included files are in order
} elsif (scalar @includeList > 0) {
# check if include block is sorted
my $isSorted = 1;
foreach my $i (1 ...$#includeList) {
if ($includeList[$i-1] gt $includeList[$i]) {
$isSorted = 0;
}
}
# print file name if unsorted
if ($isSorted == 0) {
print "$file\n";
# print correct include order
my @orderedList = sort @includeList;
foreach my $i (0 ...$#includeList) {
print "*" unless ($includeList[$i] eq $orderedList[$i]);
print "\t$includeList[$i]";
print "\n";
}
}
# clear include block
@includeList=();
}
}
# close file
close $info;
}
|
