File: m4todef.pl

package info (click to toggle)
openvpn 2.1~rc11-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 4,556 kB
  • ctags: 5,488
  • sloc: ansic: 54,327; sh: 5,076; makefile: 294; perl: 234
file content (15 lines) | stat: -rw-r--r-- 264 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl

# used to convert version.m4 to simple
# definition format

while (<STDIN>) {
  chomp;
  if (/^\s*$/) {
    print "\n";
  } elsif (/^define\((\w+),\[(.*?)\]\)/) {
    print "!define $1 \"$2\"\n";
  } elsif (/^dnl(.*)$/) {
    print "#$1\n";
  }
}