FilesExpand file tree

 master

/

checkincludes.pl

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

executable file

·

98 lines (84 loc) · 1.94 KB

 master

/

checkincludes.pl

Copy path

Top

File metadata and controls

• Code
• Blame

executable file

·

98 lines (84 loc) · 1.94 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

#!/usr/bin/env perl

# SPDX-License-Identifier: GPL-2.0

#

# checkincludes: find/remove files included more than once

#

# Copyright abandoned, 2000, Niels Kristian Bech Jensen <nkbj@image.dk>.

# Copyright 2009 Luis R. Rodriguez <mcgrof@gmail.com>

#

# This script checks for duplicate includes. It also has support

# to remove them in place. Note that this will not take into

# consideration macros so you should run this only if you know

# you do have real dups and do not have them under #ifdef's. You

# could also just review the results.

use strict;

sub usage {

print "Usage: checkincludes.pl [-r]\n";

print "By default we just warn of duplicates\n";

print "To remove duplicated includes in place use -r\n";

exit 1;

}

my $remove = 0;

if ($#ARGV < 0) {

usage();

}

if ($#ARGV >= 1) {

if ($ARGV[0] =~ /^-/) {

if ($ARGV[0] eq "-r") {

$remove = 1;

shift;

} else {

usage();

}

}

}

my $dup_counter = 0;

foreach my $file (@ARGV) {

open(my $f, '<', $file)

or die "Cannot open $file: $!.\n";

my %includedfiles = ();

my @file_lines = ();

while (<$f>) {

if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {

++$includedfiles{$1};

}

push(@file_lines, $_);

}

close($f);

if (!$remove) {

foreach my $filename (keys %includedfiles) {

if ($includedfiles{$filename} > 1) {

print "$file: $filename is included more than once.\n";

++$dup_counter;

}

}

next;

}

open($f, '>', $file)

or die("Cannot write to $file: $!");

my $dups = 0;

foreach (@file_lines) {

if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {

foreach my $filename (keys %includedfiles) {

if ($1 eq $filename) {

if ($includedfiles{$filename} > 1) {

$includedfiles{$filename}--;

$dups++;

++$dup_counter;

} else {

print {$f} $_;

}

}

}

} else {

print {$f} $_;

}

}

if ($dups > 0) {

print "$file: removed $dups duplicate includes\n";

}

close($f);

}

if ($dup_counter == 0) {

print "No duplicate includes found.\n";

}