Changeset 2286 in Sophya for trunk/SophyaLib/TArray/utilarr.cc

Timestamp:

Dec 5, 2002, 12:15:55 PM (23 years ago)

Author:

ansari

Message:

Correction lecture tableaux en ASCII - Reza 5/12/02

File:

• trunk/SophyaLib/TArray/utilarr.cc (modified) (6 diffs)

trunk/SophyaLib/TArray/utilarr.cc

@@ -195 +195 @@
 /*!
   \param str : string to be decoded
-  \param nbad : number of unmatched quotes or parenthesis
+  \param nbad : number of unmatched quotes or parenthesis (returned value)
+  \param sep : word separator in string. Each word is decoded as a MuTyV value.
   \return the number of added elements.
 */ 
-sa_size_t EnumeratedSequence::Append(string const & str, int& nbad)
+sa_size_t EnumeratedSequence::Append(string const & str, int& nbad, const char* sep)
 {
   nbad = 0;
@@ -204 +205 @@
   size_t l = str.length();
   if (l < 1) return(0);
-  if ((str[0] == '#') || (str[0] == '*')) return(0);
+  //  if ((str[0] == '#') || (str[0] == '*')) return(0);
   size_t q = 0;
-  size_t p = str.find_first_not_of(" \t");
+  size_t p = 0;
+  /*
+  size_t p = str.find_first_not_of(sep);
   if ((str[p] == '+') || (str[p] == '-')) {
     if (p == l-1)  return(0);
@@ -212 +215 @@
   }
   else if (!isdigit(str[p]) && (str[p] != '\'') && (str[p] != '(') ) return(0);
-
+  */
   while(q < l) {
-    p = str.find_first_not_of(" \t",q);
+    p = str.find_first_not_of(sep,q);
     if (p >= l)  break;
     if (str[p] == '\'')    {  // Decodage d'un string
@@ -236 +239 @@
     }
     else { 
-      q = str.find_first_of(" \t",p);
+      q = str.find_first_of(sep,p);
       if (!isdigit(str[p]) && !(str[p] == '+') && !(str[p] == '-') ) { // une chaine
-        continue;
+        vecv_.push_back(MuTyV(str.substr(p,q-p)));
       }
       else {  // C'est un nombre 
@@ -260 +263 @@
     \param nr : Number of non empty (or comment) lines in stream (return value)
     \param nc : Number of columns (= ntot/nlines) (return value)
+    \param clm : Lines starting with clm character are treated as comment lines
+    \param sep : word separator in lines
     \return Number of decoded elements
 */
-sa_size_t EnumeratedSequence::FillFromFile(istream& is, 
-                                           sa_size_t& nr, sa_size_t& nc)
+sa_size_t EnumeratedSequence::FillFromFile(istream& is, sa_size_t& nr, sa_size_t& nc,
+                                           char clm, const char* sep)
 {
   nr = 0;
@@ -278 +283 @@
     line += buff;
     if (is.good()) {
-      nel = Append(line, nbad);
-      //      cout << " Decoding line = " << line << " Nel= " << nel << endl;
-      if (nel > 0)  { 
-        nr++;  n += nel;
-      }
-      nbadtot += nbad;
+      if ((line.length() > 0) && (line[0]!=clm)) {
+        nel = Append(line, nbad);
+        if (nel > 0)  { 
+          nr++;  n += nel;
+        }
+        nbadtot += nbad;
+      }
+              cout << " Decoding line = " << line << " Nel= " << nel << endl;
       line = "";
     }
   }
-  if (line.length() > 0) {
+  if ((line.length() > 0) && (line[0]!=clm)) {
     nel = Append(line, nbad);
-    //    cout << " Decoding Eline = " << line << " Nel= " << nel << endl;
+        cout << " Decoding Eline = " << line << " Nel= " << nel << endl;
     if (nel > 0)  { 
       nr++;  n += nel;