Avoid using reserved identifiers.

[gob-dx.git] / src / generate_treefuncs.pl

diff --git a/src/generate_treefuncs.pl b/src/generate_treefuncs.pl
index 377fe434d0bd902e12eaca5cc5f9c5a683ba2c3b..ab47f3d79700effca730ab3b0dc08d22978db5cb 100755 (executable)
--- a/src/generate_treefuncs.pl
+++ b/src/generate_treefuncs.pl
@@ -11,7 +11,7 @@ print OUTC " * Do not edit by hand! */\n\n";
 print OUTH "/* Generated by generate_treefuncs.pl from treefuncs.def!\n";
 print OUTH " * Do not edit by hand! */\n\n";
 
-$typedefs = "typedef union _Node Node;\n";
+$typedefs = "typedef union Node Node;\n";
 $typeenums = "enum {\n";
 
 $typename = "";
@@ -126,9 +126,9 @@ while (<FILE>) {
 
                $typeenums .= "\t$uct"."_NODE,\n";
 
-               $typedefs .= "typedef struct _$typename $typename;\n";
+               $typedefs .= "typedef struct $typename $typename;\n";
 
-               $typestruct{$typename} = "struct _$typename {\n\tNodeType type;\n";
+               $typestruct{$typename} = "struct $typename {\n\tNodeType type;\n";
                $copyfunc_prot{$typename} = "static $typename *\ncopy_$lct ($typename * self)";
                $setfunc_prot{$typename} = "static void\nsetv_$lct ($typename * self, va_list __ap)";
                $freefunc_prot{$typename} = "void\nfree_$lct ($typename * self)";
@@ -261,7 +261,7 @@ foreach $t (sort keys %typestruct) {
        print OUTH "$typestruct{$t}\n\n";
 }
 
-print OUTH "union _Node {\n\tNodeType type;\n";
+print OUTH "union Node {\n\tNodeType type;\n";
 
 foreach $t (sort keys %typestruct) {
        $foo = lc $t;