From 49ddcb92d2a1a595803d2588728017680d4d7c2c Mon Sep 17 00:00:00 2001 From: unknown Date: Tue, 20 Nov 2001 13:29:02 +1000 Subject: Fix to reserved words script. Updated reserved words list in manual. Docs/Support/update-reserved-words.pl: Fix to reserved words script, 2 keywords and 15 synonyms were missing. Docs/manual.texi: Updated reserved word list. --- Docs/Support/update-reserved-words.pl | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'Docs/Support') diff --git a/Docs/Support/update-reserved-words.pl b/Docs/Support/update-reserved-words.pl index a93d63f678f..aeaa7471751 100755 --- a/Docs/Support/update-reserved-words.pl +++ b/Docs/Support/update-reserved-words.pl @@ -1,10 +1,14 @@ #!/usr/bin/perl +# Based on a Emacs macro by david@mysql.com +# Implemented in Perl by jeremy@mysql.com +# 2001-11-20 Fixups by arjen@mysql.com, 2 keywords and 15 synonyms were missing + print STDERR "Scanning lex.h for symbols..\n"; open LEX, "<../sql/lex.h"; while($line = ) { - if($line =~ /\{\s+\"([A-Z_]+)\",\s+SYM\(([A-Z_]+)\)/) { - $words{$2} = $1; + if($line =~ /\{\s*\"([A-Z_]+)\"/) { + $words{$1} = $1; } elsif($line =~ /sql_functions/) { last; }; @@ -15,7 +19,9 @@ print STDERR "Scanning sql_yacc.yy for non-reserved words...\n"; open YACC, "<../sql/sql_yacc.yy"; while( !~ /^keyword:/) {}; while(($line = ) =~ /[\s|]+([A-Z_]+)/) { - delete $words{$1}; + $keyword = $1; + $keyword =~ s/_SYM//; + delete $words{$keyword}; }; close YACC; -- cgit v1.2.1