Changeset 2268 in Sophya for trunk/SophyaPI/PIext/basexecut.cc

Timestamp:

Nov 15, 2002, 10:37:01 AM (23 years ago)

Author:

ansari

Message:

Ajout commande arrtoascii - Reza 15/11/2002

File:

• trunk/SophyaPI/PIext/basexecut.cc (modified) (2 diffs)

trunk/SophyaPI/PIext/basexecut.cc

@@ -804 +804 @@
   }
 }
+else if (kw == "arrtoascii")  {
+  if(tokens.size() < 2) { 
+    cout<<"Usage: arrtoascii array_name file_name "<<endl;
+    return(0);
+  }
+  
+  AnyDataObj* obj;
+  obj = mObjMgr->GetObj(tokens[0]);
+  if(obj == NULL) {
+    cerr << "arrtoascii Error , No such object " << tokens[0] << endl; 
+    return(0);
+  }
+  BaseArray* ba = dynamic_cast<BaseArray *>(obj);
+  if(ba == NULL) {
+    cerr << "arrtoascii Error " << tokens[0] << " not a BaseArray ! " << endl;
+    return(0);
+  }
+  ofstream os(tokens[1].c_str());  
+  ba->WriteASCII(os);
+  cout << "arrtoascii: Array " << tokens[0] << " written to file " << tokens[1] << endl;
+}
+  
 #endif
 
@@ -1235 +1257 @@
 usage = "Reads a matrix from an ASCII file (TMatrix<r_8>)";
 usage += "\n Usage: mtxfrascii mtx_name file_name";
-usage += "\n  Related commands: vecfrascii ntfrascii ";
+usage += "\n  Related commands: arrtoascii vecfrascii ntfrascii ";
 mpiac->RegisterCommand(kw, usage, this, "FileIO");
 kw = "vecfrascii";
-usage = "Reads a vactor from an ASCII file (TVector<r_8>)";
+usage = "Reads a vector from an ASCII file (TVector<r_8>)";
 usage += "\n Usage: vecfrascii vec_name file_name";
-usage += "\n  Related commands: mtxfrascii ntfrascii ";
+usage += "\n  Related commands: arrtoascii mtxfrascii ntfrascii ";
+mpiac->RegisterCommand(kw, usage, this, "FileIO");
+kw = "arrtoascii";
+usage = "Writes an array (TArray<T>) to an ASCII file ";
+usage += "\n Usage: arrtoascii array_name file_name";
+usage += "\n  Related commands:  mtxfrascii vecfrascii ntfrascii ";
 mpiac->RegisterCommand(kw, usage, this, "FileIO");
 #endif