diff options
Diffstat (limited to 'src/backend/utils/generate-errcodes.pl')
| -rw-r--r-- | src/backend/utils/generate-errcodes.pl | 35 |
1 files changed, 20 insertions, 15 deletions
diff --git a/src/backend/utils/generate-errcodes.pl b/src/backend/utils/generate-errcodes.pl index cb2b5fc35cb..ee76cef47ed 100644 --- a/src/backend/utils/generate-errcodes.pl +++ b/src/backend/utils/generate-errcodes.pl @@ -6,36 +6,41 @@ use warnings; use strict; -print "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n"; +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; +while (<$errcodes>) +{ + chomp; - # Skip comments - next if /^#/; - next if /^\s*$/; + # Skip comments + next if /^#/; + next if /^\s*$/; - # Emit a comment for each section header - if (/^Section:(.*)/) { + # 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]+)/; + die "unable to parse errcodes.txt" + unless /^([^\s]{5})\s+[EWS]\s+([^\s]+)/; - (my $sqlstate, my $errcode_macro) = ($1, $2); + (my $sqlstate, my $errcode_macro) = ($1, $2); - # Split the sqlstate letters - $sqlstate = join ",", split "", $sqlstate; - # And quote them - $sqlstate =~ s/([^,])/'$1'/g; + # Split the sqlstate letters + $sqlstate = join ",", split "", $sqlstate; - print "#define $errcode_macro MAKE_SQLSTATE($sqlstate)\n"; + # And quote them + $sqlstate =~ s/([^,])/'$1'/g; + + print "#define $errcode_macro MAKE_SQLSTATE($sqlstate)\n"; } close $errcodes; |