errcodes.pl

   1 #!/usr/bin/perl
   2 #
   3 # Generate the errcodes.h header from errcodes.txt
   4 # Copyright (c) 2000-2019, PostgreSQL Global Development Group
   5 # patched by Brian B.
   6
   7 use warnings;
   8 use strict;
   9
  10 print "#ifndef __PGERRCODES_H__\n";
  11 print "#define __PGERRCODES_H__\n";
  12
  13 open my $errcodes, '<', $ARGV[0] or die;
  14
  15 while (<$errcodes>)
  16 {
  17         chomp;
  18
  19         # Skip comments
  20         next if /^#/;
  21         next if /^\s*$/;
  22
  23         # Emit a comment for each section header
  24         if (/^Section:(.*)/)
  25         {
  26                 my $header = $1;
  27                 $header =~ s/^\s+//;
  28                 print "\n/* $header */\n";
  29                 next;
  30         }
  31
  32         die "unable to parse errcodes.txt"
  33           unless /^([^\s]{5})\s+[EWS]\s+([^\s]+)/;
  34
  35         (my $sqlstate, my $errcode_macro) = ($1, $2);
  36
  37         print "#define $errcode_macro \"$sqlstate\"\n";
  38 }
  39
  40 print "\n#endif\n";
  41
  42 close $errcodes;