From 7327cb6420106d60d3a1a817648b145d602fbc52 Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Thu, 25 Aug 2011 17:27:36 -0400
Subject: [PATCH] Port backup check on psql lexer to MSVC.

---
 src/tools/msvc/pgflex.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/tools/msvc/pgflex.pl b/src/tools/msvc/pgflex.pl
index 332d422f64..36636ccaf3 100644
--- a/src/tools/msvc/pgflex.pl
+++ b/src/tools/msvc/pgflex.pl
@@ -65,6 +65,20 @@ if ($? == 0)
         print $cfile $ccode;
         close($cfile);
     }
+	if ($flexflags =~ /\s-b\s/)
+	{
+		my $lexback = dirname($input) . "/lex.backup";
+		open($lfile,$lexback) || die "opening $lexback for reading: $!";
+		my $lexbacklines = <$lfile>;
+		close($lfile);
+		my $linecount = $lexbacklines =~ tr /\n/\n/;
+		if ($linecount != 1)
+		{
+			print "Scanner requires backup, see lex.backup.\n";
+			exit 1;
+		}
+		unlink $lexback;
+	}
 
     exit 0;