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

Last change on this file since 269 was 269, checked in by ansari, 26 years ago

Persist<NDataBlock> Reza 27/04/99

File size: 1.5 KB
Line 
1#include "machdefs.h"
2#include <stdlib.h>
3#include <stdio.h>
4#include "pexceptions.h"
5#include "ppersist.h"
6#include "peidainit.h"
7// --- Classe d'initialisation de PEIDA++, (PPersistMgr en particulier)
8int PeidaInitiator::FgInit = 0;
9
10PeidaInitiator::PeidaInitiator()
11{
12 FgInit++;
13 if (FgInit > 1) return;
14
15 InitFailNewHandler();
16
17 #ifdef xx__mac__
18 //InitToolBox();
19 //SIOUXSettings.initializeTB = FALSE;
20 SIOUXSettings.autocloseonquit = FALSE;
21 SIOUXSettings.asktosaveonclose = FALSE;
22 SIOUXSettings.showstatusline = TRUE;
23 #endif
24
25 PIOPersist::Initialize();
26//DEL PPersistMgr::classList = new PPersistMgr::ClassList;
27//DEL PShPersist::objList = new PShPersist::ObjList;
28
29
30#if (!defined(__GNUG__) && !defined(__MWERKS__) && !defined(HPUX))
31 // pas de bufferisation pour printf cmv 18/3/97 selon E.A.
32 // setvbuf(stdout,NULL,_IOLBF,0); setvbuf(stderr,NULL,_IOLBF,0);
33 setlinebuf(stdout);
34 setlinebuf(stderr);
35#endif
36
37 // si var env PEIDA_NOPRTVER definie pas de print
38 if(!getenv("PEIDA_NOPRTVER")) PrintPeidaVersion();
39}
40
41PeidaInitiator::~PeidaInitiator()
42{
43 FgInit--;
44/*
45 if (FgInit == 0)
46 {
47 delete PPersistMgr::classList; PPersistMgr::classList = NULL;
48 delete PShPersist::objList; PShPersist::objList = NULL;
49 }
50 */
51}
52
53double PeidaInitiator::Version(bool fgprt)
54{
55if (fgprt) PrintPeidaVersion();
56return(PeidaVersion());
57}
58
59// On met un objet initiator en statique, pour les loaders qui savent
60// appeler le constructeur des objets statiques Reza 08/98
61static PeidaInitiator ppeidainit;
Note: See TracBrowser for help on using the repository browser.