Changeset 1561 in Sophya for trunk/SophyaProg/Tests/arrt.cc

Timestamp:

Jul 3, 2001, 5:42:50 PM (24 years ago)

Author:

ansari

Message:

Ajout test lecture/ecriture ASCII de TArray et EnumeratedSequence - Reza 3/7/2001

File:

• trunk/SophyaProg/Tests/arrt.cc (modified) (6 diffs)

trunk/SophyaProg/Tests/arrt.cc

@@ -3 +3 @@
 #include <math.h>
 #include <iostream.h>
+#include <fstream.h>
 
 #include "tarrinit.h"
@@ -9 +10 @@
 
 static void tstarr(bool tio);
+static void tstasciiio();
 static void tstioarr(TArray<int_4> & ia, TArray<int_4> & ib, TArray<int_4> & ic);
 static void tstmtx(int n);
@@ -24 +26 @@
          << " a: Simple Array Test  w: a+ PPersist Test (FIO_TArray<T>) \n" 
          << " m: Matrix and Vector Test \n" 
+         << " ascio: Test of ascii I/O \n" 
          << " z: Appel_ZZ_TestTMatrixRC_YY_ " << endl;
     exit(0);
   }
 
-  int opt = *(arg[1]);
+  string opt = arg[1];
   int n = 5;
   if (narg > 2) n = atoi(arg[2]);
@@ -39 +42 @@
 
   try {
-    if ((opt == 'w') || (opt == 'a')) tstarr((opt=='w'));
-    else if (opt == 'z') {
+    if (opt == "w")  tstarr(true);
+    else if (opt == "a") tstarr(false);
+    else if (opt == "z") {
       if (n<5) n = 5;
       TMatrix<r_8> tza(n,n+3);
@@ -48 +52 @@
       _ZZ_TestTMatrixRC_YY_(tza2);
     }
-    else tstmtx(n);
+    else if (opt == "m") tstmtx(n);
+    else if (opt == "ascio") tstasciiio();
+    else {
+      cout << " arrt/Error : unknown option ! " << endl;
+    }
   }
   catch (PThrowable exc) {
@@ -287 +295 @@
   }
 
-
-}
+}
+
+
+void tstasciiio()
+{
+
+cout << "\n -----> Testing EnumeratedSequence/TArray ASCII I/O <---- " << endl; 
+
+EnumeratedSequence ess;
+int nbad;
+ess.Append("56.5 (1.,-1.) 4 8 16", nbad);
+cout << " --- ess.Append(\"56.5 (1.,-1.) 4 8 16\", nbad) :  ess=" << endl;
+cout << ess;
+
+EnumeratedSequence ess2;
+ess2.Append("56.5 (-3.14, 12) 'Hello' 4. 8.565432 12 32 3.1415e-6", nbad);
+cout << " --- ess2.Append(...) ess2=" << endl; 
+cout << ess2;
+cout << " --- ess2.Append(...) (2) ess2=" << endl; 
+ess2.Append("(2.7, -8) Bonjour ByeBye 'Comment ca va ?' 64 64.7 128 1.28 25.6e3", 
+            nbad);
+cout << ess2;
+
+Matrix A(4,6);
+A = RegularSequence(0.5, 0.2);
+cout << " Matrix A(4,6); A=RegularSequence(0.5, 0.2) : " << endl;
+cout << A ;
+
+char * flnm = "arr_ascii.txt";
+{
+cout << " Writing A to file " << flnm << endl;
+ofstream ofs(flnm);
+A.WriteASCII(ofs);
+}
+
+Matrix B;
+sa_size_t nr, nc;
+{
+ifstream ifs(flnm);
+B.ReadASCII(ifs,nr,nc);
+}
+
+cout << " Matrix B; B.ReadASCII() from file " << flnm << endl;
+cout << B ;
+
+Vector C;
+{
+ifstream ifs(flnm);
+C.ReadASCII(ifs,nr,nc);
+}
+cout << " Vector C; C.ReadASCII() from file " << flnm << endl;
+cout << " C.Transpose()= " << C.Transpose() ;
+
+TVector<int_4> IC;
+{
+ifstream ifs(flnm);
+IC.ReadASCII(ifs,nr,nc);
+}
+cout << " TVector<int_4> IC; IC.ReadASCII() from file " << flnm << endl;
+cout << " IC.Transpose()= " << IC.Transpose() ;
+
+TArray<r_4> D(4,6,2);
+{
+ifstream ifs(flnm);
+D.ReadASCII(ifs,nr,nc);
+}
+cout << " TArray<r_4> D(4,6,2); D.ReadASCII() from file " << flnm << endl;
+cout << D ;
+
+}