#!/usr/bin/perl
#
# Generate the errcodes-table.sgml file from errcodes.txt
# Copyright (c) 2000-2017, PostgreSQL Global Development Group

use warnings;
use strict;

# A hash to store those lines, which belong to the same class/section, 
# with the intention to sort them before printing
my %linesInClass;

print
  "<!-- autogenerated from src/backend/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:/)
	{

		# print previous section
		generateLines();

		# Remove the Section: string
		s/^Section: //;

		# Escape dashes for SGML
		s/-/&mdash;/;

		# Wrap PostgreSQL in <productname/>
		s/PostgreSQL/<productname>PostgreSQL<\/>/g;

		print "\n\n";
		print "<row>\n";
		print "<entry spanname=\"span12\">";
		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);

	# store sqlcode and text
	$linesInClass{$1} = $4;

}

# last section
generateLines();

close $errcodes;

# Sort lines according to SQLCODE, generate output, and re-initialize the hash
sub generateLines {
	foreach my $sqlstate ( sort keys %linesInClass ) {
		print "\n";
		print "<row>\n";
		print "<entry><literal>$sqlstate</literal></entry>\n";
		print "<entry><symbol>$linesInClass{$sqlstate}</symbol></entry>\n";
		print "</row>\n";
	}
	undef %linesInClass;
}