generate-errcodes-table.pl

#!/usr/bin/perl
#
# Generate the errcodes-table.sgml file from errcodes.txt

use warnings;
use strict;

print "<!-- autogenerated from src/include/utils/errcodes.txt, do not edit -->\n";

open my $errcodes, $ARGV[0] or die;

while (<$errcodes>) {
    chomp;

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

    # Emit section headers
    if (/^Section:/) {

	# Remove the Section: string
	s/^Section: //;
	# Escape dashes for SGML
	s/-/&mdash;/;
	# Wrap PostgreSQL in <productname/>
	s/PostgreSQL/<productname>PostgreSQL<\/>/g;

	print "<row>\n";
	print "<entry spanname=\"span13\">";
	print "<emphasis role=\"bold\">$_</></entry>\n";
	print "</row>\n";

	next;
    }

    die unless /^([^\s]{5})\s+([EWS])\s+([^\s]+)(?:\s+)?([^\s]+)?/;

    (my $sqlstate,
     my $type,
     my $errcode_macro,
     my $condition_name) = ($1, $2, $3, $4);

    # Skip lines without PL/pgSQL condition names
    next unless defined($condition_name);

    my $meaning = $condition_name;
    # Remove underscores
    $meaning =~ s/_/ /g;
    # And capitalize
    $meaning =~ tr/[a-z]/[A-Z]/;

    print "<row>\n";
    print "<entry><literal>$sqlstate</literal></entry>\n";
    print "<entry>$meaning</entry>\n";
    print "<entry>$condition_name</entry>\n";
    print "</row>\n";
}

close $errcodes;