[ViewVC] Contents of: cvs/IO-AIO/gendef0

#!/usr/bin/perl

open STDIN, "<AIO.xs"
   or die "AIO.xs: $!";

open STDOUT, ">def0.h"
   or die "def0.h: $!";

while (<>) {
   if (/^\s*const_iv\s*\((\S+)\)\s*$/ || /^\s*const_niv\s*\([^,]+,\s*(\S+)\)\s*$/) {
      print "#ifndef $1\n",
            "#define $1 0\n",
            "#endif\n";
   }
}
Revision:	1.1
Committed:	Fri Apr 6 11:39:25 2012 UTC (12 years, 1 month ago) by root
Branch:	MAIN
CVS Tags:	rel-4_17, rel-4_14, rel-4_15, rel-4_18, rel-4_19
Log Message:	* empty log message *
#	Content
1	#!/usr/bin/perl
2
3	open STDIN, "<AIO.xs"
4	or die "AIO.xs: $!";
5
6	open STDOUT, ">def0.h"
7	or die "def0.h: $!";
8
9	while (<>) {
10	if (/^\sconst_iv\s\((\S+)\)\s$/ \|\| /^\sconst_niv\s\([^,]+,\s(\S+)\)\s*$/) {
11	print "#ifndef $1\n",
12	"#define $1 0\n",
13	"#endif\n";
14	}
15	}