Thoughts on using Text::Template for our autogenerated code?

#!/usr/bin/perl
#----------------------------------------------------------------------
#
# Generate wait events support files from waiteventnames.txt:
# - waiteventnames.h
# - waiteventnames.c
# - waiteventnames.sgml
#
# Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
# Portions Copyright (c) 1994, Regents of the University of California
#
# src/backend/utils/activity/generate-waiteventnames.pl
#
#----------------------------------------------------------------------

use strict;
use warnings;
use Getopt::Long;

my $output_path = '.';

my $continue    = "\n";
my %hashwe;
my $waitclass;
my @wait_classes = ("PG_WAIT_ACTIVITY", "PG_WAIT_CLIENT", "PG_WAIT_IPC", "PG_WAIT_TIMEOUT", "PG_WAIT_IO");

GetOptions(
	'outdir:s'       => \$output_path);

open my $waiteventnames, '<', $ARGV[0] or die;

# Include PID in suffix in case parallel make runs this multiple times.
my $htmp = "$output_path/waiteventnames.h.tmp$$";
my $ctmp = "$output_path/waiteventnames.c.tmp$$";
my $stmp = "$output_path/waiteventnames.s.tmp$$";
open my $h, '>', $htmp or die "Could not open $htmp: $!";
open my $c, '>', $ctmp or die "Could not open $ctmp: $!";
open my $s, '>', $stmp or die "Could not open $stmp: $!";

my $header_comment =
  '/*-------------------------------------------------------------------------
 *
 * %s
 *    Generated wait events infrastructure code
 *
 * Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
 * Portions Copyright (c) 1994, Regents of the University of California
 *
 * NOTES
 *  ******************************
 *  *** DO NOT EDIT THIS FILE! ***
 *  ******************************
 *
 *  It has been GENERATED by src/backend/utils/activity/generate-waiteventnames.pl
 *
 *-------------------------------------------------------------------------
 */
';

printf $h $header_comment, 'waiteventnames.h';
printf $h "#ifndef WAITEVENTNAMES_H\n";
printf $h "#define WAITEVENTNAMES_H\n\n";
printf $h "#include \"utils/wait_event.h\"\n\n";

printf $c $header_comment, 'waiteventnames.c';

# Read the input file and populate the hash table
while (<$waiteventnames>)
{
	chomp;

	# Skip comments
	next if /^#/;
	next if /^\s*$/;

	die "unable to parse waiteventnames.txt"
	  unless /^(\w+)\t+(\w+)\t+("\w+")\t+("\w.*\.")$/;

	(my $waitclassname, my $waiteventenumname, my $waiteventdescription, my $waitevendocsentence) = ($1, $2, $3, $4);

	my @waiteventlist = [$waiteventenumname, $waiteventdescription, $waitevendocsentence];
	my $trimmedwaiteventname = $waiteventenumname;
	$trimmedwaiteventname =~ s/^WAIT_EVENT_//;
	die "wait event names must start with 'WAIT_EVENT_'" if $trimmedwaiteventname eq $waiteventenumname;
	$continue    = ",\n";
	push(@{ $hashwe{$waitclassname} }, @waiteventlist);
}

# Generate the output files
foreach $waitclass (sort keys %hashwe) {
	my $last = $waitclass;
	$last =~ s/^WaitEvent//;
	my $lastuc = uc $last;
	my $lastlc = lc $last;
	my $firstpass = 1;
	my $pg_wait_class;

	printf $h "typedef enum\n{\n";

	printf $c "static const char *\npgstat_get_wait_$lastlc($waitclass w)\n{\n";
	printf $c "\tconst char *event_name = \"unknown wait event\";\n\n";
	printf $c "\tswitch (w)\n\t{\n";

	printf $s "  <table id=\"wait-event-%s-table\">\n", $lastlc;
	printf $s "   <title>Wait Events of Type <literal>%s</literal></title>\n", ucfirst($lastlc);
	printf $s "   <tgroup cols=\"2\">\n";
	printf $s "    <thead>\n";
	printf $s "     <row>\n";
	printf $s "      <entry><literal>Activity</literal> Wait Event</entry>\n";
	printf $s "      <entry>Description</entry>\n";
    printf $s "     </row>\n";
	printf $s "    </thead>\n\n";
	printf $s "    <tbody>\n";

	foreach my $wev (@{$hashwe{$waitclass}}) {
		if ($firstpass) {
			$pg_wait_class = "PG_WAIT_".$lastuc;
			die "waitclass $pg_wait_class does not exist" unless grep( /^$pg_wait_class$/, @wait_classes );
			printf $h "\t%s = %s", $wev->[0], $pg_wait_class;
			$continue = ",\n";
		} else {
			printf $h "%s\t%s", $continue, $wev->[0];
			$continue = ",\n";
		}
		$firstpass = 0;

		printf $c "\t\t case %s:\n", $wev->[0];
		printf $c "\t\t\t event_name = %s;\n\t\t\t break;\n", $wev->[1];

		printf $s "     <row>\n";
		printf $s "      <entry><literal>%s</literal></entry>\n", substr $wev->[1], 1, -1;
		printf $s "      <entry>%s</entry>\n", substr $wev->[2], 1, -1;
		printf $s "     </row>\n";
	}

	printf $h "\n} $waitclass;\n\n";

	printf $c "\t\t\t /* no default case, so that compiler will warn */\n";
	printf $c "\t}\n\n";
	printf $c "\treturn event_name;\n";
	printf $c "\n}\n";

	printf $s "    </tbody>\n";
	printf $s "   </tgroup>\n";
	printf $s "  </table>\n";
}

printf $h "#endif                          /* WAITEVENTNAMES_H */";
close $h;
close $c;
close $s;

rename($htmp, "$output_path/waiteventnames.h") || die "rename: $htmp to $output_path/waiteventnames.h: $!";
rename($ctmp, "$output_path/waiteventnames.c") || die "rename: $ctmp: $!";
rename($stmp, "$output_path/waiteventnames.sgml") || die "rename: $ctmp: $!";

close $waiteventnames;

#!/usr/bin/perl
#----------------------------------------------------------------------
#
# Generate wait events support files from waiteventnames.txt:
# - waiteventnames.h
# - waiteventnames.c
# - waiteventnames.sgml
#
# Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
# Portions Copyright (c) 1994, Regents of the University of California
#
# src/backend/utils/activity/generate-waiteventnames.pl
#
#----------------------------------------------------------------------

use strict;
use warnings;
use Getopt::Long;

my $output_path = '.';

my $continue    = "\n";
my %hashwe;
my $waitclass;
my @wait_classes = ("PG_WAIT_ACTIVITY", "PG_WAIT_CLIENT", "PG_WAIT_IPC", "PG_WAIT_TIMEOUT", "PG_WAIT_IO");

GetOptions(
	'outdir:s'       => \$output_path);

open my $waiteventnames, '<', $ARGV[0] or die;

# Include PID in suffix in case parallel make runs this multiple times.
my $htmp = "$output_path/waiteventnames.h.tmp$$";
my $ctmp = "$output_path/waiteventnames.c.tmp$$";
my $stmp = "$output_path/waiteventnames.s.tmp$$";
open my $h, '>', $htmp or die "Could not open $htmp: $!";
open my $c, '>', $ctmp or die "Could not open $ctmp: $!";
open my $s, '>', $stmp or die "Could not open $stmp: $!";

my $header_comment =
  '/*-------------------------------------------------------------------------
 *
 * waiteventnames.%s
 *    Generated wait events infrastructure code
 *
 * Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
 * Portions Copyright (c) 1994, Regents of the University of California
 *
 * NOTES
 *  ******************************
 *  *** DO NOT EDIT THIS FILE! ***
 *  ******************************
 *
 *  It has been GENERATED by src/backend/utils/activity/generate-waiteventnames.pl
 *
 *-------------------------------------------------------------------------
 */';

my $h_header_comment = sprintf $header_comment, 'h';
my $c_header_comment = sprintf $header_comment, 'c';


print $h <<"EOF";
$h_header_comment
#ifndef WAITEVENTNAMES_H
#define WAITEVENTNAMES_H

#include "utils/wait_event.h"

EOF

print $c <<"EOF";
$c_header_comment
EOF

# Read the input file and populate the hash table
while (<$waiteventnames>)
{
	chomp;

	# Skip comments
	next if /^#/;
	next if /^\s*$/;

	die "unable to parse waiteventnames.txt"
	  unless /^(\w+)\t+(\w+)\t+("\w+")\t+("\w.*\.")$/;

	(my $waitclassname, my $waiteventenumname, my $waiteventdescription, my $waitevendocsentence) = ($1, $2, $3, $4);

	my @waiteventlist = [$waiteventenumname, $waiteventdescription, $waitevendocsentence];
	my $trimmedwaiteventname = $waiteventenumname;
	$trimmedwaiteventname =~ s/^WAIT_EVENT_//;
	die "wait event names must start with 'WAIT_EVENT_'" if $trimmedwaiteventname eq $waiteventenumname;
	$continue    = ",\n";
	push(@{ $hashwe{$waitclassname} }, @waiteventlist);
}

# Generate the output files
foreach $waitclass (sort keys %hashwe) {
	my $last = $waitclass;
	$last =~ s/^WaitEvent//;
	my $lastuc = uc $last;
	my $lastlc = lc $last;
	my $firstpass = 1;
	my $pg_wait_class;

	print $h <<"EOF";
typedef enum
{
EOF

	print $c <<"EOF";
static const char *
pgstat_get_wait_$lastlc($waitclass w)
{
	const char *event_name = "unknown wait event";

	switch (w)
	{
EOF

	my $ucfirst_lastlc = ucfirst($lastlc);
	print $s <<"EOF";
  <table id="wait-event-$ucfirst_lastlc-table">
   <title>Wait Events of Type <literal>$ucfirst_lastlc</literal></title>
   <tgroup cols="2">
    <thead>
     <row>
      <entry><literal>Activity</literal> Wait Event</entry>
      <entry>Description</entry>
     </row>
    </thead>

    <tbody>
EOF

	foreach my $wev (@{$hashwe{$waitclass}}) {

		my $wev0 = $wev->[0];
		my $wev1 = $wev->[1];
		my $wev1_substr = substr $wev->[1], 1, -1;
		my $wev2_substr = substr $wev->[2], 1, -1;

		if ($firstpass) {
			$pg_wait_class = "PG_WAIT_".$lastuc;
			die "waitclass $pg_wait_class does not exist" unless grep( /^$pg_wait_class$/, @wait_classes );
			printf $h "\t%s = %s", $wev->[0], $pg_wait_class;
			$continue = ",\n";
		} else {
			printf $h "%s\t%s", $continue, $wev->[0];
			$continue = ",\n";
		}
		$firstpass = 0;

		print $c <<"EOF";
		 case $wev0:
			 event_name = $wev1;
			 break;
EOF

		print $s <<"EOF";
     <row>
      <entry><literal>$wev1_substr</literal></entry>
      <entry>$wev2_substr</entry>
     </row>
EOF
	}

	printf $h "\n} $waitclass;\n\n";

	print $c <<"EOF";
			 /* no default case, so that compiler will warn */
	}

	return event_name;

}
EOF

print $s <<"EOF";
    </tbody>
   </tgroup>
  </table>
EOF
}

printf $h "#endif                          /* WAITEVENTNAMES_H */";
close $h;
close $c;
close $s;

rename($htmp, "$output_path/waiteventnames.h") || die "rename: $htmp to $output_path/waiteventnames.h: $!";
rename($ctmp, "$output_path/waiteventnames.c") || die "rename: $ctmp: $!";
rename($stmp, "$output_path/waiteventnames.sgml") || die "rename: $ctmp: $!";

close $waiteventnames;

#!/usr/bin/perl
#----------------------------------------------------------------------
#
# Generate wait events support files from waiteventnames.txt:
# - waiteventnames.h
# - waiteventnames.c
# - waiteventnames.sgml
#
# Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
# Portions Copyright (c) 1994, Regents of the University of California
#
# src/backend/utils/activity/generate-waiteventnames.pl
#
#----------------------------------------------------------------------

use strict;
use warnings;
use Getopt::Long;

my $output_path = '.';

my %hashwe;
my $waitclass;
my @wait_classes = ("PG_WAIT_ACTIVITY", "PG_WAIT_CLIENT", "PG_WAIT_IPC", "PG_WAIT_TIMEOUT", "PG_WAIT_IO");


GetOptions(
	'outdir:s'       => \$output_path);

open my $waiteventnames, '<', $ARGV[0] or die;

# Read the input file and populate the hash table
while (<$waiteventnames>)
{
	chomp;

	# Skip comments
	next if /^#/;
	next if /^\s*$/;

	die "unable to parse waiteventnames.txt"
	  unless /^(\w+)\t+(\w+)\t+("\w+")\t+("\w.*\.")$/;

	(my $waitclassname, my $waiteventenumname, my $waiteventdescription, my $waitevendocsentence) = ($1, $2, $3, $4);

	my @waiteventlist = [$waiteventenumname, $waiteventdescription, $waitevendocsentence];
	my $trimmedwaiteventname = $waiteventenumname;
	$trimmedwaiteventname =~ s/^WAIT_EVENT_//;
	die "wait event names must start with 'WAIT_EVENT_'" if $trimmedwaiteventname eq $waiteventenumname;
	push(@{ $hashwe{$waitclassname} }, @waiteventlist);
}
close $waiteventnames;

# Generate the output data
my @classes;
foreach $waitclass (sort keys %hashwe) {
	my $last = $waitclass;
	$last =~ s/^WaitEvent//;
	my $lastuc = uc $last;
	my $lastlc = lc $last;
	my $pg_wait_class = "PG_WAIT_".$lastuc;
	die "waitclass $pg_wait_class does not exist" unless grep( /^$pg_wait_class$/, @wait_classes );

	my @events;
	foreach my $wev (@{$hashwe{$waitclass}}) {
		push @events, {
			PG_WAIT_CLASS => $pg_wait_class,
			ENUM_NAME => $wev->[0],
			WAIT_EVENT_ENUM => $wev->[1],
			WAIT_EVENT_NAME => substr($wev->[1], 1, -1),
			WAIT_EVENT_DOC =>  substr($wev->[2], 1, -1)
			};
	}
	push @classes, {
		WAIT_CLASS => $waitclass,
		DISPLAY_NAME => ucfirst($lastlc),
		LASTLC => $lastlc,
		EVENTS => \@events
		};
}

my $header_comment =
  '/*-------------------------------------------------------------------------
 *
 * waiteventnames.%s
 *    Generated wait events infrastructure code
 *
 * Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
 * Portions Copyright (c) 1994, Regents of the University of California
 *
 * NOTES
 *  ******************************
 *  *** DO NOT EDIT THIS FILE! ***
 *  ******************************
 *
 *  It has been GENERATED by src/backend/utils/activity/generate-waiteventnames.pl
 *
 *-------------------------------------------------------------------------
 */
';



# Include PID in suffix in case parallel make runs this multiple times.
my $htmp = "$output_path/waiteventnames.h.tmp$$";
open my $h, '>', $htmp or die "Could not open $htmp: $!";
my $ctmp = "$output_path/waiteventnames.c.tmp$$";
open my $c, '>', $ctmp or die "Could not open $ctmp: $!";
my $stmp = "$output_path/waiteventnames.s.tmp$$";
open my $s, '>', $stmp or die "Could not open $stmp: $!";

printf $h $header_comment, 'h';
print $h <<'H1';
#ifndef WAITEVENTNAMES_H
#define WAITEVENTNAMES_H

#include "utils/wait_event.h"

H1

foreach my $cl (@classes) {
	my $wait_class = $cl->{WAIT_CLASS};
	print $h <<'HC1';
typedef enum
{
HC1
	my $evs = $cl->{EVENTS};
	my $last_event = scalar(@$evs) - 1;
	my $ectr = 0;
	for my $event (@$evs) {
		printf $h "\t%s%s%s\n",
			$event->{ENUM_NAME},
			($ectr == 0) ? " = $event->{PG_WAIT_CLASS}" : "",
			($ectr == $last_event) ? "" : ",";
		$ectr++;
	}
	print $h <<"HC2";
} $wait_class;

HC2
}

print $h <<'H2';
#endif                          /* WAITEVENTNAMES_H */
H2

close $h;


printf $c $header_comment, 'c';
foreach my $cl (@classes) {
	my $wait_class = $cl->{WAIT_CLASS};
	my $lastlc = $cl->{LASTLC};
	print $c <<"CC1";
static const char *
pgstat_get_wait_$lastlc($wait_class w)
{
	const char *event_name = "unknown wait event";

	switch (w)
	{
CC1
	my $evs = $cl->{EVENTS};
	for my $event (@$evs) {
		my $enum_name = $event->{ENUM_NAME};
		my $wait_event_enum = $event->{WAIT_EVENT_ENUM};
		print $c <<"CCEV"
		 case $enum_name:
			 event_name = $wait_event_enum;
			 break;
CCEV
	}
	print $c <<"CC2";
			 /* no default case, so that compiler will warn */
	}

	return event_name;

}
CC2
}

close $c;

foreach my $cl (@classes) {
	my $display_name = $cl->{DISPLAY_NAME};
	my $lastlc = $cl->{LASTLC};
	print $s <<"SC1";
  <table id="wait-event-$lastlc-table">
   <title>Wait Events of Type <literal>$display_name</literal></title>
   <tgroup cols="2">
    <thead>
     <row>
      <entry><literal>Activity</literal> Wait Event</entry>
      <entry>Description</entry>
     </row>
    </thead>

    <tbody>
SC1
	my $evs = $cl->{EVENTS};
	for my $event (@$evs) {
		my $wait_event_name = $event->{WAIT_EVENT_NAME};
		my $wait_event_doc = $event->{WAIT_EVENT_DOC};
		print $s <<"SCEV";
     <row>
      <entry><literal>$wait_event_name</literal></entry>
      <entry>$wait_event_doc</entry>
     </row>
SCEV
	}
	print $s <<"SC2";
    </tbody>
   </tgroup>
  </table>
SC2
}

close $s;

rename($htmp, "$output_path/waiteventnames.h") || die "rename: $htmp to $output_path/waiteventnames.h: $!";
rename($ctmp, "$output_path/waiteventnames.c") || die "rename: $ctmp: $!";
rename($stmp, "$output_path/waiteventnames.sgml") || die "rename: $ctmp: $!";

#!/usr/bin/perl
#----------------------------------------------------------------------
#
# Generate wait events support files from waiteventnames.txt:
# - waiteventnames.h
# - waiteventnames.c
# - waiteventnames.sgml
#
# Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
# Portions Copyright (c) 1994, Regents of the University of California
#
# src/backend/utils/activity/generate-waiteventnames.pl
#
#----------------------------------------------------------------------

use strict;
use warnings;
use Getopt::Long;

my $output_path = '.';

my %hashwe;
my $waitclass;
my @wait_classes = ("PG_WAIT_ACTIVITY", "PG_WAIT_CLIENT", "PG_WAIT_IPC", "PG_WAIT_TIMEOUT", "PG_WAIT_IO");


GetOptions(
	'outdir:s'       => \$output_path);

open my $waiteventnames, '<', $ARGV[0] or die;

# Read the input file and populate the hash table
while (<$waiteventnames>)
{
	chomp;

	# Skip comments
	next if /^#/;
	next if /^\s*$/;

	die "unable to parse waiteventnames.txt"
	  unless /^(\w+)\t+(\w+)\t+("\w+")\t+("\w.*\.")$/;

	(my $waitclassname, my $waiteventenumname, my $waiteventdescription, my $waitevendocsentence) = ($1, $2, $3, $4);

	my @waiteventlist = [$waiteventenumname, $waiteventdescription, $waitevendocsentence];
	my $trimmedwaiteventname = $waiteventenumname;
	$trimmedwaiteventname =~ s/^WAIT_EVENT_//;
	die "wait event names must start with 'WAIT_EVENT_'" if $trimmedwaiteventname eq $waiteventenumname;
	push(@{ $hashwe{$waitclassname} }, @waiteventlist);
}
close $waiteventnames;

# Generate the output data
my @classes;
foreach $waitclass (sort keys %hashwe) {
	my $last = $waitclass;
	$last =~ s/^WaitEvent//;
	my $lastuc = uc $last;
	my $lastlc = lc $last;
	my $pg_wait_class = "PG_WAIT_".$lastuc;
	die "waitclass $pg_wait_class does not exist" unless grep( /^$pg_wait_class$/, @wait_classes );

	my @events;
	foreach my $wev (@{$hashwe{$waitclass}}) {
		push @events, {
			PG_WAIT_CLASS => $pg_wait_class,
			ENUM_NAME => $wev->[0],
			WAIT_EVENT_ENUM => $wev->[1],
			WAIT_EVENT_NAME => substr($wev->[1], 1, -1),
			WAIT_EVENT_DOC =>  substr($wev->[2], 1, -1)
			};
	}
	push @classes, {
		WAIT_CLASS => $waitclass,
		DISPLAY_NAME => ucfirst($lastlc),
		LASTLC => $lastlc,
		EVENTS => \@events
		};
}

my $header_comment =
  '/*-------------------------------------------------------------------------
 *
 * waiteventnames.%s
 *    Generated wait events infrastructure code
 *
 * Portions Copyright (c) 1996-2023, PostgreSQL Global Development Group
 * Portions Copyright (c) 1994, Regents of the University of California
 *
 * NOTES
 *  ******************************
 *  *** DO NOT EDIT THIS FILE! ***
 *  ******************************
 *
 *  It has been GENERATED by src/backend/utils/activity/generate-waiteventnames.pl
 *
 *-------------------------------------------------------------------------
 */
';



# Include PID in suffix in case parallel make runs this multiple times.
my $htmp = "$output_path/waiteventnames.h.tmp$$";
open my $h, '>', $htmp or die "Could not open $htmp: $!";
my $ctmp = "$output_path/waiteventnames.c.tmp$$";
open my $c, '>', $ctmp or die "Could not open $ctmp: $!";
my $stmp = "$output_path/waiteventnames.s.tmp$$";
open my $s, '>', $stmp or die "Could not open $stmp: $!";

printf $h $header_comment, 'h';
print $h qq[
	#ifndef WAITEVENTNAMES_H
	#define WAITEVENTNAMES_H
	#include "utils/wait_event.h"
	];

foreach my $cl (@classes) {
	my $wait_class = $cl->{WAIT_CLASS};
	print $h qq[
		typedef enum
		{
		];
	my $evs = $cl->{EVENTS};
	my $last_event = scalar(@$evs) - 1;
	my $ectr = 0;
	for my $event (@$evs) {
		printf $h "%s%s%s\n",
			$event->{ENUM_NAME},
			($ectr == 0) ? " = $event->{PG_WAIT_CLASS}" : "",
			($ectr == $last_event) ? "" : ",";
		$ectr++;
	}
	print $h qq[
		} $wait_class;

		];
}

print $h '#endif                          /* WAITEVENTNAMES_H */';
close $h;


printf $c $header_comment, 'c';
foreach my $cl (@classes) {
	my $wait_class = $cl->{WAIT_CLASS};
	my $lastlc = $cl->{LASTLC};
	print $c qq[
		static const char *
		pgstat_get_wait_$lastlc($wait_class w)
		{
			const char *event_name = "unknown wait event";
			switch (w)
			{
		];
	my $evs = $cl->{EVENTS};
	for my $event (@$evs) {
		my $enum_name = $event->{ENUM_NAME};
		my $wait_event_enum = $event->{WAIT_EVENT_ENUM};
		print $c qq[
			case $enum_name:
				event_name = $wait_event_enum;
				break;
			];
	}
	print $c qq[
				/* no default case, so that compiler will warn */
				}
				return event_name;
			}
			];
}

close $c;

foreach my $cl (@classes) {
	my $display_name = $cl->{DISPLAY_NAME};
	my $lastlc = $cl->{LASTLC};
	print $s <<"SC1";
  <table id="wait-event-$lastlc-table">
   <title>Wait Events of Type <literal>$display_name</literal></title>
   <tgroup cols="2">
    <thead>
     <row>
      <entry><literal>Activity</literal> Wait Event</entry>
      <entry>Description</entry>
     </row>
    </thead>

    <tbody>
SC1
	my $evs = $cl->{EVENTS};
	for my $event (@$evs) {
		my $wait_event_name = $event->{WAIT_EVENT_NAME};
		my $wait_event_doc = $event->{WAIT_EVENT_DOC};
		print $s <<"SCEV";
     <row>
      <entry><literal>$wait_event_name</literal></entry>
      <entry>$wait_event_doc</entry>
     </row>
SCEV
	}
	print $s <<"SC2";
    </tbody>
   </tgroup>
  </table>
SC2
}

close $s;

rename($htmp, "$output_path/waiteventnames.h") || die "rename: $htmp to $output_path/waiteventnames.h: $!";
rename($ctmp, "$output_path/waiteventnames.c") || die "rename: $ctmp: $!";
rename($stmp, "$output_path/waiteventnames.sgml") || die "rename: $ctmp: $!";