generate-errcodes.pl

#!/usr/bin/perl
#
# Generate the errcodes.h header from errcodes.txt

use warnings;
use strict;

print "/* autogenerated from src/include/utils/errcodes.txt, do not edit */\n";
print "/* there is deliberately not an #ifndef ERRCODES_H here */\n";

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

while (<$errcodes>) {
    chomp;

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

    # Skip section headers
    next if /^Section:/;

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

    (my $sqlstate, my $errcode_macro) = ($1, $2);

    # Split the sqlstate letters
    $sqlstate = join ",", split "", $sqlstate;
    # And quote them
    $sqlstate =~ s/([^,])/'$1'/g;

    print "#define $errcode_macro MAKE_SQLSTATE($sqlstate)\n";
}

close $errcodes;