svn commit - mysqldoc@docsrva: r8444 - in trunk: . tools

[paul]

Author: paul
Date: 2007-10-31 21:23:38 +0100 (Wed, 31 Oct 2007)
New Revision: 8444

Log:
 r32059@polar:  paul | 2007-10-31 15:07:13 -0500
 Fix bug in reserved-word identifier script. (Forgot to look for
 digits when examining sql_yacc.yy.) Thanks to Serg for spotting
 the problem.


Modified:
   trunk/tools/update-reserved-words.pl

Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 4767c598-dc10-0410-bea0-d01b485662eb:/mysqldoc-local/mysqldoc/trunk:32030
7d8d2c4e-af1d-0410-ab9f-b038ce55645b:/mysqldoc-local/mysqldoc:26370
b5ec3a16-e900-0410-9ad2-d183a3acac99:/mysqldoc-local/mysqldoc/trunk:14218
bf112a9c-6c03-0410-a055-ad865cd57414:/mysqldoc-local/mysqldoc/trunk:21581
   + 4767c598-dc10-0410-bea0-d01b485662eb:/mysqldoc-local/mysqldoc/trunk:32059
7d8d2c4e-af1d-0410-ab9f-b038ce55645b:/mysqldoc-local/mysqldoc:26370
b5ec3a16-e900-0410-9ad2-d183a3acac99:/mysqldoc-local/mysqldoc/trunk:14218
bf112a9c-6c03-0410-a055-ad865cd57414:/mysqldoc-local/mysqldoc/trunk:21581


Modified: trunk/tools/update-reserved-words.pl
===================================================================
--- trunk/tools/update-reserved-words.pl	2007-10-31 18:54:16 UTC (rev 8443)
+++ trunk/tools/update-reserved-words.pl	2007-10-31 20:23:38 UTC (rev 8444)
Changed blocks: 1, Lines Added: 2, Lines Deleted: 2; 739 bytes

@@ -180,12 +180,12 @@
 open YACC, "<$yaccfile" or die "Cannot open $yaccfile: $!\n";
 while(defined ($_ = <YACC>) && $_ !~ /^keyword:/) {};
 while(<YACC>) {
-  last unless /[\s|]+([A-Z_]+)/ || /keyword_sp/;
+  last unless /[\s|]+([A-Z0-9_]+)/ || /keyword_sp/;
   delete $words{$1} unless /keyword_sp/;
 };
 while(defined ($_ = <YACC>) && $_ !~ /^keyword_sp:/) {};
 while(<YACC>) {
-  last unless /[\s|]+([A-Z_]+)/;
+  last unless /[\s|]+([A-Z0-9_]+)/;
   delete $words{$1};
 };
 close YACC;