Changeset 2218 in Sophya for trunk/SophyaPI/PIext/piacmd.cc

Timestamp:

Oct 21, 2002, 5:38:02 PM (23 years ago)

Author:

ansari

Message:

Suite amelioration interpreteur PIACmd , variables de type $#varname
et $varname[indexvar] - Reza 21/10/2002

File:

• trunk/SophyaPI/PIext/piacmd.cc (modified) (3 diffs)

trunk/SophyaPI/PIext/piacmd.cc

@@ -889 +889 @@
       q3 = s.find_first_of("]",q2+1);
       string sia = s.substr(q2+1, q3-q2-1);
+      if (sia.length() < 1) {
+        cerr << " Syntax error - in $varname[index] : $"  
+             << vn << "[" << sia <<"]" << endl;
+        return(4);
+      }
+      if (isalpha(sia[0])) {
+        string sia2;
+        if (!GetVar(sia, sia2) || (sia2.length() < 1)) {
+          cerr << " Syntax error - in $varname[index] : $"  
+               << vn << "[" << sia <<"]" << endl;
+        return(4);        
+        }
+        sia = sia2;
+      }
       int rcdia = ctoi(sia.c_str(), &iarr);
       if (rcdia < 0) {
@@ -936 +950 @@
     cerr << " PIACmd::SubstituteVar/Error: ArgsStack empty ! " 
          << " ($" << vn << ")" << endl;
-    vv = ""; return(false);
+    vv = "";  return(false);
   }
   char buff[32];
   long an = ArgsStack.top().size();
   sprintf(buff,"%ld", an);
-  vv = buff;
+  vv = buff;  return(true);
 }
 else if (ctoi(vn.c_str(), &ka) > 0) {  // $0 $1 $2 ...
@@ -954 +968 @@
     vv = ""; return(false);
   }
-  vv = ArgsStack.top()[ka];
-}
+  vv = ArgsStack.top()[ka];  return(true);
+}
+else if (vn[0] == '#') {  // Variable de type $#vname --> size(vname) 
+  vn = vn.substr(1);
+  if (!omg.HasVar(vn) ) {
+    cerr << " PIACmd::SubstituteVarError: Undefined variable " 
+         << vn << " ! " << endl;
+    vv = "";  return(false);
+  }
+  vn = omg.GetVar(vn);
+  vector<string> vs;
+  FillVStringFrString(vn, vs);
+  char buff[32];
+  sprintf(buff,"%d", (int)vs.size());
+  vv = buff; return(true);
+  } 
 else {  // variable ordinaire geree par NamedObjMgr
   if ( (!omg.HasVar(vn)) )  {
     cerr << " PIACmd::SubstituteVarError: Undefined variable " 
          << vn << " ! " << endl;
-    vv = ""; return(false);
-  }
-  vv = omg.GetVar(vn);
-}
-
-return(true);
+    vv = "";  return(false);
+  }
+  vv = omg.GetVar(vn);  return(true);
+}
+
+return(false);
 }