X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/86d4727e727a55648196205cff450c96569ec4a6..bb6822c219eb531a497d0829626ac3b29af198fa:/src/generate_treefuncs.pl

diff --git a/src/generate_treefuncs.pl b/src/generate_treefuncs.pl
index 377fe43..ab47f3d 100755
--- 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;