Changeset 573 in Sophya for trunk/SophyaProg

Timestamp:

Nov 10, 1999, 5:30:50 PM (26 years ago)

Author:

ansari

Message:

ajout de tests

Location:

trunk/SophyaProg/Tests

Files:

• fitsioImage.cc (modified) (2 diffs)
• fitsioLocMap.cc (added)
• fitsioSphere.cc (added)
• piapp.cc (modified) (6 diffs)
• t_scan.cc (added)
• testfitsio.cc (added)
• tnt.cc (modified) (3 diffs)

trunk/SophyaProg/Tests/fitsioImage.cc

@@ -14 +14 @@
   // A faire au debut de main()
   PeidaInit();
-  ImageI4  img(20, 10);
-  int_4 compt=0;
+  ImageR4  img(20, 10);
+  r_4 compt=0;
   for(int i=0; i<20; i++)
     {
       for(int j=0; j<10; j++)
         {
-          compt+=1;
-          img(i,j) =compt;
+          compt+=1.;
+          img(i,j) =compt+0.6;
     }
     }
@@ -29 +29 @@
   FitsIoServer fserv;
   fserv.save(img,"image.fits");
-  ImageR4  img2(20, 10);
+  ImageI4  img2(20, 10);
   fserv.load(img2,"image.fits");
   img2.Print();

trunk/SophyaProg/Tests/piapp.cc

@@ -1 +1 @@
 #include <stdlib.h>
 #include <stdio.h>
+#ifdef OSF1
+#include <dlfcn.h>
+#else
+#define C_NO_SHLIBS
+#endif
+
+#include <string>
+#include "psighand.h"
+#include "dynccd.h"
+
+#include "timing.h"
+#include "piinit.h"
 
 #include "pistdimgapp.h"
-#include "piacmd.h"
-#include "piversion.h"
-#include "piaversion.h"
-
-#include "timing.h"
-#include "outilsinit.h"
-
 
 
@@ -18 +23 @@
 {
 int ofa;
-int fgfpe, fgsegv, fgred, fgexec;
+int fgsig, fgred;
 
-PeidaInit();
+PeidaInteractiveInitiator piinit;
    
 InitTim();
@@ -30 +35 @@
     {
     puts("\n piapp: Programme d'analyse interactive ");
-    puts("Usage: piapp [-nored] [-nosig] [-nosigfpe] [-nosigsegv] [-help2tex] [-exec file [args]]");
-    puts("  -nored : NoRedirect StdOut/StdErr");
-    puts("  -nosig : Don't catch SigFPE, SigSEGV");
-    puts("  -nosigfpe -nosigsegv: Don't catch SigFPE / SigSEGV");
-    puts("  -help2tex: Create a LaTeX help file (piahelp.tex)");
-    puts("  -exec file [args] : Execute command file \n");
+    puts("Usage: piapp [-nored] [-nosig]");
     exit(0);
     }
@@ -41 +41 @@
 
 ofa = 1;
-fgred = fgfpe = fgsegv = true;
-fgexec = false;
-string exfc;
-// Pour fabriquer le help
-bool fgtexh = false;
-int ka;
-for(ka=1; ka<narg; ka++) {
-  if (strcmp(arg[ka],"-nored") == 0)   fgred=false; 
-  else if (strcmp(arg[ka],"-nosig") == 0)   fgfpe=fgsegv=false; 
-  else if (strcmp(arg[ka],"-nosigfpe") == 0)   fgfpe=false; 
-  else if (strcmp(arg[ka],"-nosigsegv") == 0)   fgsegv=false; 
-  else if (strcmp(arg[ka],"-help2tex") == 0) { fgtexh=true; fgred=false; }
-  else if (strcmp(arg[ka],"-exec") == 0) {
-    if (ka < narg-1) {
-      fgexec = true;
-      exfc = "exec";
-      for(int kaa=ka+1; kaa<narg; kaa++)  { exfc += ' ';  exfc +=  arg[kaa]; }
-      }
-    break;
-    }
-  }
+fgred = fgsig = true;
+if (  (narg > 1) && (strcmp(arg[1],"-nored") == 0) )  { fgred=false;  ofa = 2; }
+if (  (narg > 1) && (strcmp(arg[1],"-nosig") == 0) )  { fgsig=false;  ofa = 2; }
+if (  (narg > 2) && (strcmp(arg[2],"-nored") == 0) )  { fgred=false;  ofa = 3; }
+if (  (narg > 2) && (strcmp(arg[2],"-nosig") == 0) )  { fgsig=false;  ofa = 3; }
 
-if (fgexec) printf(">>>>> Starting piapp , Executing %s \n", exfc.c_str()); 
-else printf(">>>>> Starting piapp <<<<< \n");
-printf("Version: piapp=%g  PI=%g  PEIDA=%g \n", (double)PIAPP_VERSIONNUMBER, 
-              (double)PI_VERSIONNUMBER, (float)PeidaVersion());
 
-PIStdImgApp * app = new PIStdImgApp(narg, arg);
-
-// Gestion de redirection stdout/err et Signaux
-if (fgred) app->RedirectStdOutErr(true);
-else app->RedirectStdOutErr(false);
-app->CatchSignals(fgfpe, fgsegv);
-
-// S'il y a un fichier de commande a executer
-if (fgexec) app->CmdInterpreter()->Interpret(exfc);
-
-// S'il y a besoin de faire le fichier Help
-if (fgtexh) { 
-  string thf = "piahelp.tex";
-  app->CmdInterpreter()->HelptoLaTex(thf);
-  printf("piapp : Help file piahelp.tex created --> exit(0) \n"); 
-  delete app;
-  exit(0);
-}
+PIStdImgApp * app = new PIStdImgApp(narg-ofa, arg+ofa);
+if (!fgred) app->RedirectStdOutErr(false);
+else app->RedirectStdOutErr(true);
+if (fgsig)  app->CatchSignals(true);
 
 int rc = 0;
@@ -93 +59 @@
   app->SetReady();
   if (fgred) app->RedirectStdOutErr(true);
-  try {
+  TRY {
   app->Run();
-  }  catch ( PException exc ) {
+  }  CATCH(merr) {
      char ans[32],rep;
      app->Stop();
@@ -102 +68 @@
      cout << endl; 
      cerr << endl;
-     cerr << "PIStdImg/main() Exception catched ! " << exc.Msg() << endl;
-     cerr << " continue <CR> , Stop program S<CR> ? " << endl;  gets(ans);
-     rc = 9;
+     printf("PIStdImg/main() Exception catched ! = %ld (%s) \n", (long)merr, PeidaExc(merr));
+     printf(" exit <CR> , continue c<CR> , close-windows, continue k<cr> ? ");  gets(ans);
+     rc = merr;
      rep = toupper(ans[0]);  
-     if (rep == 'S')  { 
-       printf(" !!!! Stopping piapp !!!! \n"); 
-       cont = false;
-       }
-     else { 
-       printf(" *** piapp - Continuing event loop *** \n");
-       cont = true;
-       }
-//     else { cont = true; if (rep == 'K') app->CloseAllWindows(); }
+     if ((rep != 'C')||(rep != 'K'))  cont = false;
+     else { cont = true; if (rep == 'K') app->CloseAllWindows(); }
   } ENDTRY;
 }
 
 app->RedirectStdOutErr(false);  
-// On de-charge le module erospiamodule
 delete app;
-
 printf("piapp : Exiting .... Rc= %d \n", rc); 
 exit(rc);

trunk/SophyaProg/Tests/tnt.cc

@@ -30 +30 @@
 
 printf("Ecriture NTuple ds nt.ppf ... \n");
-{
-// nt1.Write("nt.ppf");  c'etait du PEIDA
-POutPersist s("nt.ppf");
-s << nt1 ;
-}
+nt1.Write("nt.ppf");
 
 printf("Lecture NTuple (nt2) ds nt.ppf ... \n");
@@ -46 +42 @@
 printf("ReLecture NTuple (nt1) ds nt.ppf ... \n");
 
-{
-//  nt1.Read("nt.ppf");   c'etait du PEIDA !
-PInPersist s("nt.ppf");
-s >> nt1;
-}
-
+nt1.Read("nt.ppf");
 nt1.Show(cout);
 nt1.Print(0, 5);
@@ -57 +48 @@
 nt1.Print(94, 5);
 
-printf("Creation/Lecture Lecture NTuple (nt3) ds nt.ppf ... \n");
+printf("Creation/Lecture Lecture NTuple (nt1) ds nt.ppf ... \n");
 NTuple nt3;
-{
-//  nt3.Read("nt.ppf");   c'etait du PEIDA !
-PInPersist s("nt.ppf");
-s >> nt3;
-}
-
+nt3.Read("nt.ppf");
 nt3.Show(cout);
 nt3.Print(0, 5);