tools/unconfig.pl


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

#!/usr/bin/perl

#
# Generate config/unconfig.h from config/config.h.in
#

use strict;
use File::Spec;

my($srcdir,$infile,$outfile) = @ARGV;

my $in;
if (!open($in, '<', $infile)) {
    open($in, '<', File::Spec->catfile($srcdir, $infile)) or
	die "$0: $infile not found\n";
}

open(my $out, '>', $outfile) or
    die "$0: $outfile: $!\n";

print $out "/* config/unconfig.h: autogenerated by tools/unconfig.pl */\n\n";
print $out "#ifndef CONFIG_UNCONFIG_H\n";
print $out "#define CONFIG_UNCONFIG_H\n";

my $o = 0;
while (defined(my $l = <$in>)) {
    print $out $l if ($o);
    $o |= ($l =~ m:/\*.*unconfig\.h.*\*/:);
}

close($in);

print $out "\n#endif /* CONFIG_UNCONFIG_H */\n";

close($out);