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
|
#!/usr/bin/perl
# This file is part of the LibreOffice project.
#
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
#
#
# fix-includes, a simple script replace local includes which should be global
# , to global includes. And global includes which should be local, to local includes.
# The script is expected to run in the root of the git repo, so it can fetch all the include directory's.
#
use strict;
use warnings;
use File::Basename;
use File::Find;
use IO::All;
my $dirname = "include";
# Fetch the list of includes
my @subdirs = map {basename $_} grep {-d} glob("$dirname/*");
# Add boost
push(@subdirs,"boost");
# Simple function to check and replace headers
sub check_headers
{
my ($dir,$file, @includes) = @_;
open(my $fh,"+<",$file) or die "Couldn't open file $file $!\n";
my @content = <$fh>;
my $line;
# seek to the first line, so we can replace then lines correctly
seek $fh,0,0;
foreach $line (@content){
if($line =~ m/#include "(\w*)\//){
# If a include is local and it should be global, make it global
if($1 ~~ @includes){
print "local header $line\n";
$line =~ s/"/</;
$line =~ s/"/>/;
print $fh $line;
print "converted to global header $line\n";
}
else {
print $fh $line;
}
}
# If a local file is defined global, make it local
elsif($line =~ /#include <((\w*)\.(hxx|h))>/){
# check if file exists, then it must be local so replace the <> to ""
if(-e "$dir/$1" ){
print "global header $line\n";
$line =~ s/</"/g;
$line =~ s/>/"/g;
print $fh $line;
print "converted to local header $line\n";
}
else {
print $fh $line;
}
}
else {
print $fh $line;
}
}
close($fh);
}
# routine that checks the headers of every cxx,hxx,c,h file in a directory
sub check_routine
{
my ($dir) = @_;
opendir(my $fh, $dir) or die "Program stopping, could't open directory \n";
while(my $file = readdir($fh)){
if($file =~ m/\.(cxx|hxx|c|h)$/i ){
check_headers($dir,"$dir/$file",@subdirs);
}
}
closedir($fh);
}
# Expect ARGV[0] to be a directory, then fetch all subdirectory's and check the header files.
if(-d $ARGV[0]){
my @directories = io->dir($ARGV[0])->All_Dirs;
foreach my $dir (@directories){
print "checking header files in $dir\n";
check_routine($dir);
}
}
else{
print "$ARGV[0] isn't a directory\n";
}
|
