qemu/scripts/clean-header-guards.pl

12 # top-level directory.
14 # Usage: scripts/clean-header-guards.pl [OPTION]... [FILE]...
15 #     -c CC     Use a compiler other than cc
16 #     -n        Suppress actual cleanup
17 #     -v        Show which files are cleaned up, and which are skipped
20 # - Header files without a recognizable header guard are skipped.
21 # - Clean up any untidy header guards in-place.  Warn if the cleanup
24 # - Warn about duplicate header guard symbols.  To make full use of
26 # - Warn when preprocessing a header with its guard symbol defined
28 #   "cc -E -DGUARD_H -c -P -", and fed the test program on stdin.
35 my $exclude = qr,^(include/standard-headers/|linux-headers/
36     |pc-bios/|tests/tcg/|tests/multiboot/),x;
83     $fname =~ tr/a-z/A-Z/;
84     $fname =~ tr/A-Z0-9/_/cs;
91     open(my $pipe, "-|", "$opt_c -E -D$guard -c -P - <$fname")
123                        ([A-Za-z0-9_]+)/x) {
128     unless ($line2 =~ /^\s*\#\s*define\s+([A-Za-z0-9_]+)/) {
155         $guard =~ tr/a-z/A-Z/
160             and $& ne "_H" and push @issues, "doesn't end with _H";
161         unless ($guard =~ /^[A-Z][A-Z0-9_]*_H/) {
179         if $guard ne $oldg;
192         if ($line1 ne $newl1 or $line2 ne $newl2 or $line3 ne $newl3) {
211         print STDERR "    $old_guard{$guard} -> $guard\n";
214     print STDERR "    git grep -Ew '", join("|", sort values %old_guard),