Added transformation of . to _ in identifiers

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@1443 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: Peter Aronsson

flat_modelica_parser/src/flat_modelica_lexer.g

@@ -1,4 +1,14 @@
 header {
+    #include <string>
+    #include <iostream>
+    std::string & replaceAll(std::string & str, const char *src, const char* dst) 
+    {
+        size_t pos;
+        while((pos = str.find(".")) < str.size()-1) {
+                str.replace(pos,1,"_");
+            }
+        return str;
+    }
 
 }
 
@@ -155,7 +165,14 @@ SL_COMMENT :
   	;
 
 IDENT options { testLiterals = true; paraphrase = "an identifier";} :
-		NONDIGIT (NONDIGIT | DIGIT | DOT)*
+		NONDIGIT (NONDIGIT | DIGIT | DOT )* 
+        {
+            std::string tmp=$getText;
+            $setText(replaceAll(tmp,
+                ".",
+                "_"));
+        }
+            
 		;
 
 TYVARIDENT options { testLiterals = true; paraphrase = "a type identifier";} :