Skip to content
Permalink
Browse files

unify_includes.pl:

* renamed from sort_includes.pl
* don't destroy order just remove duplicate includes
* run after astyle
  • Loading branch information
jef-n committed Jun 10, 2015
1 parent d077a16 commit 49286b304d406b0fca9e511a28b474735952e6bf
Showing with 13 additions and 30 deletions.
  1. +2 −2 scripts/astyle.sh
  2. +11 −28 scripts/{sort_includes.pl → unify_includes.pl}
@@ -45,8 +45,6 @@ set -e

astyleit()
{
scripts/sort_includes.pl "$1"

$ASTYLE \
--preserve-date \
--indent-preprocessor \
@@ -65,6 +63,8 @@ astyleit()
--pad=oper \
--pad=paren-in \
--unpad=paren "$1"

scripts/unify_includes.pl "$1"
}

for f in "$@"; do
@@ -1,6 +1,6 @@
#!/usr/bin/perl -i.sortinc -n
###########################################################################
# sort_includes.pl
# unify_includes.pl
# ---------------------
# begin : June 2015
# copyright : (C) 2015 by Juergen E. Fischer
@@ -20,39 +20,22 @@
use strict;
use warnings;

our %uis;
our %sys;
our %others;
our $sorting;
our %inc;
our @inc;

BEGIN { $sorting = 0; }
END { die "header files not empty" if keys %uis || keys %sys || keys %others; }

if(/^\s*#include/ ) {
if(/"ui_/ ) {
$uis{$_}=1;
} elsif(/</) {
$sys{$_}=1;
} else {
$others{$_}=1;
}
$sorting=1;
END { die "header files not empty" if @inc; }

if( /^\s*#include/ ) {
push @inc, $_ unless exists $inc{$_};
$inc{$_}=1;
next unless eof;
}

if( $sorting ) {
print foreach sort keys %uis;
print foreach sort keys %sys;
print foreach sort keys %others;

undef %uis;
undef %sys;
undef %others;

if( %inc ) {
print foreach @inc;
undef %inc;
undef @inc;
last if eof;
}

$sorting=0;

print;

0 comments on commit 49286b3

Please sign in to comment.
You can’t perform that action at this time.