Helper script to apply PGDLLIMPORT markings.

This script isn't terribly smart and won't necessarily catch every
case, but it catches many of them and is better than a totally
manual approach.

Patch by me, reviewed by Andrew Dunstan.

Discussion: http://postgr.es/m/CA+TgmoYanc1_FSfimhgiWSqVyP5KKmh5NP2BWNwDhO8Pg2vGYQ@mail.gmail.com

diff --git a/src/tools/mark_pgdllimport.pl b/src/tools/mark_pgdllimport.pl
new file mode 100755 (executable)
index 0000000..3152c14
--- /dev/null
+++ b/src/tools/mark_pgdllimport.pl
@@ -0,0 +1,75 @@
+#!/usr/bin/perl
+
+#----------------------------------------------------------------------
+#
+# mark_pgdllimport.pl
+#      Perl script that tries to add PGDLLIMPORT markings to PostgreSQL
+#      header files.
+#
+# This relies on a few idiosyncracies of the PostgreSQL cding style,
+# such as the fact that we always use "extern" in function
+# declarations, and that we don't use // comments. It's not very
+# smart and may not catch all cases.
+#
+# It's probably a good idea to run pgindent on any files that this
+# script modifies before committing.
+#
+# Portions Copyright (c) 1996-2022, PostgreSQL Global Development Group
+# Portions Copyright (c) 1994, Regents of the University of California
+#
+# src/tools/mark_pgdllimport.pl
+#
+#----------------------------------------------------------------------
+
+use strict;
+use warnings;
+
+for my $include_file (@ARGV)
+{
+       open(my $rfh, '<', $include_file) || die "$include_file: $!";
+       my $buffer = '';
+       my $num_pgdllimport_added = 0;
+
+       while (my $raw_line = <$rfh>)
+       {
+               my      $needs_pgdllimport = 1;
+
+               # By convention we declare global variables explicitly extern. We're 
+               # looking for those not already marked with PGDLLIMPORT.
+               $needs_pgdllimport = 0 if $raw_line !~ /^extern\s+/
+                       || $raw_line =~ /PGDLLIMPORT/;
+
+               # Make a copy of the line and perform a simple-minded comment strip.
+               # Also strip trailing whitespace.
+               my $stripped_line = $raw_line;
+               $stripped_line =~ s/\/\*.*\*\///g;
+               $stripped_line =~ s/\s+$//;
+
+               # Variable declarations should end in a semicolon. If we see an
+               # opening parenthesis, it's probably a function declaration.
+               $needs_pgdllimport = 0 if $stripped_line !~ /;$/
+                       || $stripped_line =~ /\(/;
+
+               # Add PGDLLIMPORT marker, if required.
+               if ($needs_pgdllimport)
+               {
+                       $raw_line =~ s/^extern/extern PGDLLIMPORT/;
+                       ++$num_pgdllimport_added;
+               }
+
+               # Add line to buffer.
+               $buffer .= $raw_line;
+       }
+
+       close($rfh);
+
+       # If we added any PGDLLIMPORT markers, rewrite the file.
+       if ($num_pgdllimport_added > 0)
+       {
+               printf "%s: adding %d PGDLLIMPORT markers\n",
+                       $include_file, $num_pgdllimport_added;
+               open(my $wfh, '>', $include_file) || die "$include_file: $!";
+               print $wfh $buffer;
+               close($wfh);
+       }
+}