File: expand_macros.pl

package info (click to toggle)
ipset 2.5.0-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 636 kB
  • ctags: 1,153
  • sloc: ansic: 10,075; makefile: 191; sh: 108; perl: 13
file content (17 lines) | stat: -rwxr-xr-x 324 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl

my $expand = 0;

while (<STDIN>) {
  if ($expand) {
    print C;
  } elsif (m,include \<(linux/netfilter_ipv4/ip_set\.h)\>,) {
      $expand = 1;
      open(C, "|gcc -D__KERNEL__ -Iinclude -E - 2>/dev/null| indent -kr -i8") || die "Can't run gcc: $!\n";
      print C;
  } else {
    print;
  }
}
close C;