From a2294117cdcd209edf993898d1af6abf180753aa Mon Sep 17 00:00:00 2001
From: Marc Zinnschlag <marc@zpages.de>
Date: Tue, 15 Sep 2015 14:57:07 +0200
Subject: [PATCH] replaced context-sensitive implementation of allowing digits
 at the beginning of names with a more general implementation (Fixes #1730)

(cherry picked from commit 4d94f38f4b7255fd1abbcdc8d2bd388e604bec04)
---
 components/compiler/fileparser.cpp |  2 --
 components/compiler/scanner.cpp    | 36 +++++++++++++++++-------------
 components/compiler/scanner.hpp    |  3 ---
 3 files changed, 21 insertions(+), 20 deletions(-)

diff --git a/components/compiler/fileparser.cpp b/components/compiler/fileparser.cpp
index 423841ac3e..e90e9a8f6e 100644
--- a/components/compiler/fileparser.cpp
+++ b/components/compiler/fileparser.cpp
@@ -65,7 +65,6 @@ namespace Compiler
         if (mState==BeginState && keyword==Scanner::K_begin)
         {
             mState = NameState;
-            scanner.allowNameStartingwithDigit();
             return true;
         }
 
@@ -112,7 +111,6 @@ namespace Compiler
                 scanner.scan (mScriptParser);
 
                 mState = EndNameState;
-                scanner.allowNameStartingwithDigit();
                 return true;
             }
 
diff --git a/components/compiler/scanner.cpp b/components/compiler/scanner.cpp
index 5af396d275..f25e69e399 100644
--- a/components/compiler/scanner.cpp
+++ b/components/compiler/scanner.cpp
@@ -47,9 +47,6 @@ namespace Compiler
 
     bool Scanner::scanToken (Parser& parser)
     {
-        bool allowDigit = mNameStartingWithDigit;
-        mNameStartingWithDigit = false;
-
         switch (mPutback)
         {
             case Putback_Special:
@@ -114,7 +111,6 @@ namespace Compiler
         else if (isWhitespace (c))
         {
             mLoc.mLiteral.clear();
-            mNameStartingWithDigit = allowDigit;
             return true;
         }
         else if (c==':')
@@ -123,7 +119,7 @@ namespace Compiler
             mLoc.mLiteral.clear();
             return true;
         }
-        else if (std::isalpha (c) || c=='_' || c=='"' || (allowDigit && std::isdigit (c)))
+        else if (std::isalpha (c) || c=='_' || c=='"')
         {
             bool cont = false;
 
@@ -179,10 +175,18 @@ namespace Compiler
             {
                 value += c;
             }
-            else if (std::isalpha (c) || c=='_')
+            else if (isStringCharacter (c))
+            {
                 error = true;
-            else if (c=='.' && !error)
+                value += c;
+            }
+            else if (c=='.')
             {
+                if (error)
+                {
+                    putback (c);
+                    break;
+                }
                 return scanFloat (value, parser, cont);
             }
             else
@@ -193,7 +197,15 @@ namespace Compiler
         }
 
         if (error)
-            return false;
+        {
+            /// workaround that allows names to begin with digits
+            /// \todo disable
+            TokenLoc loc (mLoc);
+            mLoc.mLiteral.clear();
+            cont = parser.parseName (value, loc, *this);
+            return true;
+//            return false;
+        }
 
         TokenLoc loc (mLoc);
         mLoc.mLiteral.clear();
@@ -555,8 +567,7 @@ namespace Compiler
     Scanner::Scanner (ErrorHandler& errorHandler, std::istream& inputStream,
         const Extensions *extensions)
     : mErrorHandler (errorHandler), mStream (inputStream), mExtensions (extensions),
-      mPutback (Putback_None), mPutbackCode(0), mPutbackInteger(0), mPutbackFloat(0),
-      mNameStartingWithDigit (false)
+      mPutback (Putback_None), mPutbackCode(0), mPutbackInteger(0), mPutbackFloat(0)
     {
     }
 
@@ -608,9 +619,4 @@ namespace Compiler
         if (mExtensions)
             mExtensions->listKeywords (keywords);
     }
-
-    void Scanner::allowNameStartingwithDigit()
-    {
-        mNameStartingWithDigit = true;
-    }
 }
diff --git a/components/compiler/scanner.hpp b/components/compiler/scanner.hpp
index ed01bbe44e..8478959785 100644
--- a/components/compiler/scanner.hpp
+++ b/components/compiler/scanner.hpp
@@ -124,9 +124,6 @@ namespace Compiler
 
             void listKeywords (std::vector<std::string>& keywords);
             ///< Append all known keywords to \a kaywords.
-
-            /// For the next token allow names to start with a digit.
-            void allowNameStartingwithDigit();
     };
 }