projects/linux·blob uaccess-cleanups · refs

53 lines · 1.1 KiB

1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3#
4# checkdeclares: find struct declared more than once
5#
6# Copyright 2021 Wan Jiabing<[email protected]>
7# Inspired by checkincludes.pl
8#
9# This script checks for duplicate struct declares.
10# Note that this will not take into consideration macros so
11# you should run this only if you know you do have real dups
12# and do not have them under #ifdef's.
13# You could also just review the results.
14
15use strict;
16
17sub usage {
18 print "Usage: checkdeclares.pl file1.h ...\n";
19 print "Warns of struct declaration duplicates\n";
20 exit 1;
21}
22
23if ($#ARGV < 0) {
24 usage();
25}
26
27my $dup_counter = 0;
28
29foreach my $file (@ARGV) {
30 open(my $f, '<', $file)
31 or die "Cannot open $file: $!.\n";
32
33 my %declaredstructs = ();
34
35 while (<$f>) {
36 if (m/^\s*struct\s*(\w*);$/o) {
37 ++$declaredstructs{$1};
38 }
39 }
40
41 close($f);
42
43 foreach my $structname (keys %declaredstructs) {
44 if ($declaredstructs{$structname} > 1) {
45 print "$file: struct $structname is declared more than once.\n";
46 ++$dup_counter;
47 }
48 }
49}
50
51if ($dup_counter == 0) {
52 print "No duplicate struct declares found.\n";
53}