source: Sophya/trunk/SophyaLib/BaseTools/peidainit.cc@ 441

#include "machdefs.h"
#include <stdlib.h>
#include <stdio.h>
#include <complex>
#include "pexceptions.h"
#include "ppersist.h"
#include "peidainit.h"
#include "ndatablock.h"

// ---  Classe d'initialisation de PEIDA++, (PPersistMgr en particulier)
int PeidaInitiator::FgInit = 0;

PeidaInitiator::PeidaInitiator()
{
  FgInit++;
  if (FgInit > 1)  return;

  InitFailNewHandler();

  #ifdef xx__mac__
  //InitToolBox();
  //SIOUXSettings.initializeTB = FALSE;
  SIOUXSettings.autocloseonquit = FALSE;
  SIOUXSettings.asktosaveonclose = FALSE;
  SIOUXSettings.showstatusline = TRUE;
  #endif

  PIOPersist::Initialize();
  PPRegister(FIO_NDataBlock<uint_1>);
  PPRegister(FIO_NDataBlock<uint_2>);
  PPRegister(FIO_NDataBlock<int_2>);
  PPRegister(FIO_NDataBlock<int_4>);
  PPRegister(FIO_NDataBlock<int_8>);
  PPRegister(FIO_NDataBlock<uint_4>);
  PPRegister(FIO_NDataBlock<uint_8>);
  PPRegister(FIO_NDataBlock<r_4>);
  PPRegister(FIO_NDataBlock<r_8>);
  PPRegister(FIO_NDataBlock< complex<float> >);
  PPRegister(FIO_NDataBlock< complex<double> >);

//DEL  PPersistMgr::classList = new PPersistMgr::ClassList;
//DEL  PShPersist::objList    = new PShPersist::ObjList;
  

#if (!defined(__GNUG__) && !defined(__MWERKS__) && !defined(HPUX))
  // pas de bufferisation pour printf   cmv 18/3/97 selon E.A.
  // setvbuf(stdout,NULL,_IOLBF,0); setvbuf(stderr,NULL,_IOLBF,0);
  setlinebuf(stdout);
  setlinebuf(stderr);
#endif

  // si var env PEIDA_NOPRTVER definie pas de print
  if(!getenv("PEIDA_NOPRTVER")) PrintPeidaVersion();
}

PeidaInitiator::~PeidaInitiator()
{
  FgInit--;
/*
  if (FgInit == 0)
    {
    delete PPersistMgr::classList; PPersistMgr::classList = NULL;
    delete PShPersist::objList;    PShPersist::objList = NULL;
    }
    */
}

double PeidaInitiator::Version(bool fgprt)
{
if (fgprt)  PrintPeidaVersion();
return(PeidaVersion());
}
 
// On met un objet initiator en statique, pour les loaders qui savent 
// appeler le constructeur des objets statiques   Reza 08/98
static PeidaInitiator ppeidainit;