Port backup check on psql lexer to MSVC.

adunstan · adunstan · commit 7327cb642010 · 2011-08-25T17:27:36.000-04:00
diff --git a/src/tools/msvc/pgflex.pl b/src/tools/msvc/pgflex.pl
@@ -65,6 +65,20 @@
         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;
 
