* src/scan-gram.l (id): Can start with an underscore.

diff --git a/ChangeLog b/ChangeLog
index a903fdd65629fee8410334382bb6e1062778d378..b9b7d58ebe70a17f4eaab7de51d8b006d4c5757a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-19  Akim Demaille  <akim@epita.fr>
+
+       * src/scan-gram.l (id): Can start with an underscore.
+
 2002-07-16  Akim Demaille  <akim@epita.fr>
 
        * src/assoc.c, src/asssoc.h (assoc_t, assoc_to_string): New.

diff --git a/src/scan-gram.c b/src/scan-gram.c
index cd75ac0a470eab43c9c76e4dba98bd094299dc7c..9a9420ca99fd33cc1c66a8ba20dd2056230e2ecb 100644 (file)
--- a/src/scan-gram.c
+++ b/src/scan-gram.c
@@ -499,7 +499,7 @@ static yyconst short int yy_nxt[891] =
     {   0,
        20,   21,   22,   23,   24,   20,   25,   26,   20,   20,
        27,   28,   29,   29,   30,   31,   32,   33,   20,   20,
-       27,   20,   20,   20,   20,   27,   27,   27,   27,   27,
+       27,   20,   20,   20,   27,   27,   27,   27,   27,   27,
        27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
        27,   27,   27,   27,   27,   27,   27,   34,   35,   20,
        37,   38,  112,   37,   38,  113,   39,   89,   90,   39,

diff --git a/src/scan-gram.l b/src/scan-gram.l
index 9574743b2fa8296bc355c8987ba106fea134ef76..d52984526e661fccb61eb9318f9c2871c0d3f15d 100644 (file)
--- a/src/scan-gram.l
+++ b/src/scan-gram.l
@@ -90,7 +90,7 @@ static void handle_at PARAMS ((braced_code_t code_kind,
 %x SC_ESCAPED_STRING SC_ESCAPED_CHARACTER
 %x SC_BRACED_CODE SC_PROLOGUE SC_EPILOGUE
 
-id      [.a-zA-Z][.a-zA-Z_0-9]*
+id      [.a-zA-Z_][.a-zA-Z_0-9]*
 int     [0-9]+
 eols     (\n|\r|\n\r|\r\n)+
 blanks   [ \t\f]+