[ViewVC] Annotation 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 (14 years, 6 months 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 *
#	User	Rev	Content
1	root	1.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			}