mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Port backup check on psql lexer to MSVC.

Browse Source
This commit is contained in:
Andrew Dunstan 2011-08-25 17:27:36 -04:00
parent 28190bacfd
commit 7327cb6420
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/tools/msvc/pgflex.pl
View File

@ -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;