Added: get a list of reals from a structure member

Interface/ProParser.h

@@ -102,6 +102,18 @@ public:
     }
   }
 
+  int getMember_Vector (std::string & key_member, const std::vector<double> * & out_vector) const
+  {
+    std::map<std::string, std::vector<double> >::const_iterator
+      it = _fopt.find(key_member);
+    if (it != _fopt.end()) {
+      out_vector = &it->second; return 0;
+    }
+    else {
+      out_vector = NULL; return 1; // Error: Unknown member of Struct
+    }
+  }
+
   int getMember_ValMax () const { return _member_ValMax; }
 
   void sprint(std::string & str,
@@ -341,6 +353,26 @@ public:
     return 0; // 0: no error
   }
 
+  int getMember_Vector(std::string & key_namespace, std::string & key_name,
+                       std::string & key_member, const std::vector<double> * & out_vector) const {
+
+    const Structs * structs_P = this->Find(key_namespace);
+    const Struct * struct_P = (structs_P)? structs_P->Find(key_name) : NULL;
+    if (structs_P && struct_P) {
+      switch (struct_P->getMember_Vector(key_member, out_vector)) {
+      case 0:
+        break;
+      case 1:
+        out_vector = NULL; return 2; // 2: Error: Unknown member of Struct
+        break;
+      }
+    }
+    else  {
+      out_vector = NULL; return 1; // 1: Error: Unknown Struct
+    }
+    return 0; // 0: no error
+  }
+
   int get_key_struct_from_tag(std::string & key_namespace,
                               int tag, const std::string * & key_struct) const
   {

Interface/ProParser.tab.hpp

@@ -804,7 +804,7 @@
 
 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 typedef union YYSTYPE
-#line 182 "ProParser.y"
+#line 184 "ProParser.y"
 {
   char    *c;
   int     i;

Interface/ProParser.y

@@ -162,6 +162,8 @@ double Treat_Struct_FullName_Float
 double Treat_Struct_FullName_dot_tSTRING_Float
   (char* c1, char* c2, char* c3, int index = 0,
    double val_default = 0., int type_treat = 0);
+List_T * Treat_Struct_FullName_dot_tSTRING_ListOfFloat
+  (char* c1, char* c2, char* c3);
 int Treat_Struct_FullName_dot_tSTRING_Float_getDim
   (char* c1, char* c2, char* c3);
 char* Treat_Struct_FullName_String
@@ -9132,6 +9134,11 @@ MultiFExpr :
       Free($1.char1); Free($1.char2);
     }
 
+  | Struct_FullName '.' tSTRING_Member_Float LP RP
+    {
+      $$ = Treat_Struct_FullName_dot_tSTRING_ListOfFloat($1.char1, $1.char2, $3);
+    }
+
   // same as tSTRING '(' ')'
   | tList '[' String__Index ']'
     {
@@ -10334,6 +10341,36 @@ double Treat_Struct_FullName_dot_tSTRING_Float
   return out;
 }
 
+List_T * Treat_Struct_FullName_dot_tSTRING_ListOfFloat
+(char* c1, char* c2, char* c3)
+{
+  List_T * out, * val_default = NULL;
+  const std::vector<double> * out_vector; double val_;
+  std::string struct_namespace(c1? c1 : std::string("")), struct_name(c2);
+  std::string key_member(c3);
+  switch (nameSpaces.getMember_Vector
+          (struct_namespace, struct_name, key_member, out_vector)) {
+  case 0:
+    out = List_Create(out_vector->size(), 1, sizeof(double));
+    for(int i = 0; i < out_vector->size(); i++) {
+      val_ = out_vector->at(i);
+      List_Add(out, &val_);
+    }
+    break;
+  case 1:
+    vyyerror(0, "Unknown Struct: %s", struct_name.c_str());
+    out = val_default;
+    break;
+  case 2:
+    out = val_default;
+    vyyerror(0, "Unknown member '%s' of Struct %s", c3, struct_name.c_str());
+    break;
+  }
+  Free(c1); Free(c2);
+  if (flag_tSTRING_alloc) Free(c3);
+  return out;
+}
+
 int Treat_Struct_FullName_dot_tSTRING_Float_getDim
 (char* c1, char* c2, char* c3)
 {