Allow underscores in identifiers.

(cherry picked from commit 619879b5bd86a99334affe1f05d17616cc2c1898)

diff --git a/ginac/parser/lexer.cpp b/ginac/parser/lexer.cpp
index 1cc2f49671d20023edb9c31e150ad03628479a3e..cc3be3d91768c1f930b89bd71b12ca8a0672e410 100644 (file)
--- a/ginac/parser/lexer.cpp
+++ b/ginac/parser/lexer.cpp
@@ -43,12 +43,12 @@ int lexer::gettok()
        // Skip any whitespace.
        c = skipspace(input, c, line_num);
 
        // Skip any whitespace.
        c = skipspace(input, c, line_num);
 

-       // identifier: [a-zA-Z][a-zA-Z0-9]*
+       // identifier: [a-zA-Z][a-zA-Z0-9_]*

        if (isalpha(c)) { 
                str = c;
                do {
                        c = input->get();
        if (isalpha(c)) { 
                str = c;
                do {
                        c = input->get();

-                       if (isalnum(c))
+                       if ( isalnum(c) || c=='_' )

                                str += c;
                        else
                                break;
                                str += c;
                        else
                                break;