summaryrefslogtreecommitdiffstats
path: root/src/pl/plpython/generate-spiexceptions.pl
blob: 43289d213b7306930b9a9628f4c838067d128b32 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl
#
# Generate the spiexceptions.h header from errcodes.txt
# Copyright (c) 2000-2022, PostgreSQL Global Development Group

use strict;
use warnings;

print
  "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n";
print "/* there is deliberately not an #ifndef SPIEXCEPTIONS_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]+)(?:\s+)?([^\s]+)?/;

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

	# Skip non-errors
	next unless $type eq 'E';

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

	# Change some_error_condition to SomeErrorCondition
	$condition_name =~ s/([a-z])([^_]*)(?:_|$)/\u$1$2/g;

	print "\n{\n\t\"spiexceptions.$condition_name\", "
	  . "\"$condition_name\", $errcode_macro\n},\n";
}

close $errcodes;