File: unconfig.pl

package info (click to toggle)
chromium 138.0.7204.183-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 6,071,908 kB
  • sloc: cpp: 34,937,088; ansic: 7,176,967; javascript: 4,110,704; python: 1,419,953; asm: 946,768; xml: 739,971; pascal: 187,324; sh: 89,623; perl: 88,663; objc: 79,944; sql: 50,304; cs: 41,786; fortran: 24,137; makefile: 21,806; php: 13,980; tcl: 13,166; yacc: 8,925; ruby: 7,485; awk: 3,720; lisp: 3,096; lex: 1,327; ada: 727; jsp: 228; sed: 36
file content (35 lines) | stat: -rwxr-xr-x 699 bytes parent folder | download | duplicates (19) 
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);