diff options
Diffstat (limited to 'src/backend')
| -rw-r--r-- | src/backend/utils/Makefile | 2 | ||||
| -rw-r--r-- | src/backend/utils/generate-errcodes.pl | 30 |
2 files changed, 26 insertions, 6 deletions
diff --git a/src/backend/utils/Makefile b/src/backend/utils/Makefile index ebda1df72b5..2011c5148d3 100644 --- a/src/backend/utils/Makefile +++ b/src/backend/utils/Makefile @@ -52,7 +52,7 @@ fmgr-stamp: Gen_fmgrtab.pl $(catalogdir)/Catalog.pm $(top_srcdir)/src/include/ca touch $@ errcodes.h: $(top_srcdir)/src/backend/utils/errcodes.txt generate-errcodes.pl - $(PERL) $(srcdir)/generate-errcodes.pl $< > $@ + $(PERL) $(srcdir)/generate-errcodes.pl --outfile $@ $< ifneq ($(enable_dtrace), yes) probes.h: Gen_dummy_probes.sed diff --git a/src/backend/utils/generate-errcodes.pl b/src/backend/utils/generate-errcodes.pl index 5727ff76cc3..5045027fb26 100644 --- a/src/backend/utils/generate-errcodes.pl +++ b/src/backend/utils/generate-errcodes.pl @@ -5,12 +5,31 @@ use strict; use warnings; +use Getopt::Long; -print +my $outfile = ''; + +GetOptions( + 'outfile=s' => \$outfile) or die "$0: wrong arguments"; + +open my $errcodes, '<', $ARGV[0] + or die "$0: could not open input file '$ARGV[0]': $!\n"; + +my $outfh; +if ($outfile) +{ + open $outfh, '>', $outfile + or die "$0: could not open output file '$outfile': $!\n"; +} +else +{ + $outfh = *STDOUT; +} + +print $outfh "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n"; -print "/* there is deliberately not an #ifndef ERRCODES_H here */\n"; +print $outfh "/* there is deliberately not an #ifndef ERRCODES_H here */\n"; -open my $errcodes, '<', $ARGV[0] or die; while (<$errcodes>) { @@ -25,7 +44,7 @@ while (<$errcodes>) { my $header = $1; $header =~ s/^\s+//; - print "\n/* $header */\n"; + print $outfh "\n/* $header */\n"; next; } @@ -40,7 +59,8 @@ while (<$errcodes>) # And quote them $sqlstate =~ s/([^,])/'$1'/g; - print "#define $errcode_macro MAKE_SQLSTATE($sqlstate)\n"; + print $outfh "#define $errcode_macro MAKE_SQLSTATE($sqlstate)\n"; } close $errcodes; +close $outfh if ($outfile); |