1#!/usr/bin/perl
2use strict;
3use FindBin qw($Bin);
4chdir "$Bin/.." or die;
5my @files = (glob("*.h"), glob("*.c"), glob("*.ac"));
6foreach my $f (@files) {
7    open(my $fh, $f) or die;
8    my $before = do { local $/; <$fh>; };
9    close ($fh);
10    my $after = $before;
11    $after =~ s/\t/    /g;
12    $after =~ s/ +$//mg;
13    $after .= "\n" unless $after =~ /\n$/;
14    next if $after eq $before;
15    open(my $fh, ">$f") or die;
16    print $fh $after;
17    close($fh);
18}
19