added StringFromName and NameFromString

Parser/Gmsh.l

@@ -210,6 +210,7 @@ MPI_Rank                return tMPI_Rank;
 MPI_Size                return tMPI_Size;
 Memory                  return tMemory;
 
+NameFromString          return tNameFromString;
 NewModel                return tNewModel;
 Nurbs			return tNurbs;
 
@@ -259,6 +260,7 @@ Spline                  return tSpline;
 Split                   return tSplit;
 Surface                 return tSurface;
 Str                     return tStr;
+StringFromName          return tStringFromName;
 Sprintf                 return tSprintf;
 StrCat                  return tStrCat;
 StrReplace              return tStrReplace;

Parser/Gmsh.tab.hpp

@@ -208,19 +208,21 @@ extern int gmsh_yydebug;
     tGMSH_PATCH_VERSION = 418,
     tGmshExecutableName = 419,
     tSetPartition = 420,
-    tAFFECTPLUS = 421,
-    tAFFECTMINUS = 422,
-    tAFFECTTIMES = 423,
-    tAFFECTDIVIDE = 424,
-    tOR = 425,
-    tAND = 426,
-    tEQUAL = 427,
-    tNOTEQUAL = 428,
-    tLESSOREQUAL = 429,
-    tGREATEROREQUAL = 430,
-    tPLUSPLUS = 431,
-    tMINUSMINUS = 432,
-    UNARYPREC = 433
+    tNameFromString = 421,
+    tStringFromName = 422,
+    tAFFECTPLUS = 423,
+    tAFFECTMINUS = 424,
+    tAFFECTTIMES = 425,
+    tAFFECTDIVIDE = 426,
+    tOR = 427,
+    tAND = 428,
+    tEQUAL = 429,
+    tNOTEQUAL = 430,
+    tLESSOREQUAL = 431,
+    tGREATEROREQUAL = 432,
+    tPLUSPLUS = 433,
+    tMINUSMINUS = 434,
+    UNARYPREC = 435
   };
 #endif
 
@@ -239,7 +241,7 @@ union YYSTYPE
   Shape s;
   List_T *l;
 
-#line 243 "Gmsh.tab.hpp" /* yacc.c:1909  */
+#line 245 "Gmsh.tab.hpp" /* yacc.c:1909  */
 };
 
 typedef union YYSTYPE YYSTYPE;

Parser/Gmsh.y

@@ -147,6 +147,7 @@ struct doubleXstring{
 %token tHomology tCohomology tBetti tSetOrder tExists tFileExists
 %token tGMSH_MAJOR_VERSION tGMSH_MINOR_VERSION tGMSH_PATCH_VERSION
 %token tGmshExecutableName tSetPartition
+%token tNameFromString tStringFromName
 
 %type <d> FExpr FExpr_Single
 %type <v> VExpr VExpr_Single CircleOptions TransfiniteType
@@ -3213,7 +3214,7 @@ Loop :
          (&gmsh_yyin, gmsh_yyname, gmsh_yylineno))
 	yymsg(0, "Error while exiting function");
     }
-  | tCall tSTRING tEND
+  | tCall String__Index tEND
     {
       if(!FunctionManager::Instance()->enterFunction
          (std::string($2), &gmsh_yyin, gmsh_yyname, gmsh_yylineno))
@@ -5567,6 +5568,10 @@ StringExpr :
     {
       $$ = $1;
     }
+  | tStringFromName '[' String__Index ']'
+    {
+      $$ = $3;
+    }
   | tToday
     {
       $$ = (char *)Malloc(32 * sizeof(char));
@@ -5780,6 +5785,9 @@ String__Index :
   | StringIndex
     { $$ = $1; }
 
+  // Name from any string
+  | tNameFromString '[' StringExprVar ']'
+    { $$ = $3; }
  ;
 
 %%