diff options
Diffstat (limited to 'doc/src/sgml/generate-errcodes-table.pl')
| -rw-r--r-- | doc/src/sgml/generate-errcodes-table.pl | 69 |
1 files changed, 36 insertions, 33 deletions
diff --git a/doc/src/sgml/generate-errcodes-table.pl b/doc/src/sgml/generate-errcodes-table.pl index e2945747e2e..b9c14d3f7de 100644 --- a/doc/src/sgml/generate-errcodes-table.pl +++ b/doc/src/sgml/generate-errcodes-table.pl @@ -6,51 +6,54 @@ 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"; 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 section headers - if (/^Section:/) { + # Emit section headers + if (/^Section:/) + { - # Remove the Section: string - s/^Section: //; - # Escape dashes for SGML - s/-/—/; - # Wrap PostgreSQL in <productname/> - s/PostgreSQL/<productname>PostgreSQL<\/>/g; + # Remove the Section: string + s/^Section: //; - print "\n\n"; - print "<row>\n"; - print "<entry spanname=\"span12\">"; - print "<emphasis role=\"bold\">$_</></entry>\n"; - print "</row>\n"; + # Escape dashes for SGML + s/-/—/; + + # Wrap PostgreSQL in <productname/> + s/PostgreSQL/<productname>PostgreSQL<\/>/g; - next; - } + print "\n\n"; + print "<row>\n"; + print "<entry spanname=\"span12\">"; + print "<emphasis role=\"bold\">$_</></entry>\n"; + print "</row>\n"; - die unless /^([^\s]{5})\s+([EWS])\s+([^\s]+)(?:\s+)?([^\s]+)?/; + next; + } - (my $sqlstate, - my $type, - my $errcode_macro, - my $condition_name) = ($1, $2, $3, $4); + die unless /^([^\s]{5})\s+([EWS])\s+([^\s]+)(?:\s+)?([^\s]+)?/; - # Skip lines without PL/pgSQL condition names - next unless defined($condition_name); + (my $sqlstate, my $type, my $errcode_macro, my $condition_name) = + ($1, $2, $3, $4); - print "\n"; - print "<row>\n"; - print "<entry><literal>$sqlstate</literal></entry>\n"; - print "<entry><symbol>$condition_name</symbol></entry>\n"; - print "</row>\n"; + # Skip lines without PL/pgSQL condition names + next unless defined($condition_name); + + print "\n"; + print "<row>\n"; + print "<entry><literal>$sqlstate</literal></entry>\n"; + print "<entry><symbol>$condition_name</symbol></entry>\n"; + print "</row>\n"; } close $errcodes; |