mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-10-02 09:11:18 +02:00
42 lines
948 B
Perl
42 lines
948 B
Perl
|
#!/usr/bin/perl
|
||
|
#
|
||
|
# Generate the errcodes.h header from errcodes.txt
|
||
|
# Copyright (c) 2000-2011, PostgreSQL Global Development Group
|
||
|
|
||
|
use warnings;
|
||
|
use strict;
|
||
|
|
||
|
print "/* autogenerated from src/backend/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*$/;
|
||
|
|
||
|
# Emit a comment for each section header
|
||
|
if (/^Section:(.*)/) {
|
||
|
my $header = $1;
|
||
|
$header =~ s/^\s+//;
|
||
|
print "\n/* $header */\n";
|
||
|
next;
|
||
|
}
|
||
|
|
||
|
die "unable to parse errcodes.txt" 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;
|