| 1 | // This may look like C code, but it is really -*- C++ -*- | 
|---|
| 2 | // Classe DVList : Liste dynamique de variables (valeurs) | 
|---|
| 3 | // identifiees par un nom    Reza Ansari - Dec 96 | 
|---|
| 4 |  | 
|---|
| 5 | #ifndef DVLIST_H_SEEN | 
|---|
| 6 | #define DVLIST_H_SEEN | 
|---|
| 7 |  | 
|---|
| 8 | #include "objfio.h" | 
|---|
| 9 |  | 
|---|
| 10 | #include <stdio.h> | 
|---|
| 11 |  | 
|---|
| 12 | #include <iostream.h> | 
|---|
| 13 |  | 
|---|
| 14 | #include <list> | 
|---|
| 15 | #include <map> | 
|---|
| 16 | #include <string.h> | 
|---|
| 17 | #include <string> | 
|---|
| 18 |  | 
|---|
| 19 | namespace SOPHYA { | 
|---|
| 20 |  | 
|---|
| 21 | // Classe utilitaire pour manipuler des variables typees | 
|---|
| 22 | //! A simple class for holding string, integer and float type values. | 
|---|
| 23 | class MuTyV { | 
|---|
| 24 | public: | 
|---|
| 25 | union { | 
|---|
| 26 | int_8 iv; | 
|---|
| 27 | r_8 dv; | 
|---|
| 28 | char strv[39]; | 
|---|
| 29 | } mtv; | 
|---|
| 30 | char typ; | 
|---|
| 31 |  | 
|---|
| 32 | static char myStrBuf[64]; | 
|---|
| 33 |  | 
|---|
| 34 | inline MuTyV() { typ = 'I'; mtv.iv = 0;  mtv.dv = 0.;  mtv.strv[0] ='\0'; } | 
|---|
| 35 | inline MuTyV(MuTyV const & a) { typ = a.typ; mtv = a.mtv; } | 
|---|
| 36 | inline MuTyV(int_4 i) { typ = 'I'; mtv.iv = (int_8)i; mtv.dv = 0.;  mtv.strv[0] ='\0'; } | 
|---|
| 37 | inline MuTyV(int_8 i) { typ = 'I'; mtv.iv = i; mtv.dv = 0.;  mtv.strv[0] ='\0'; } | 
|---|
| 38 | inline MuTyV(r_4 f) { typ = 'D'; mtv.dv = (r_8)f;  mtv.iv = 0;  mtv.strv[0] ='\0'; } | 
|---|
| 39 | inline MuTyV(r_8 d) { typ = 'D'; mtv.dv = d; mtv.iv = 0;  mtv.strv[0] ='\0'; } | 
|---|
| 40 | inline MuTyV(char const* s)  { typ = 'S'; strncpy(mtv.strv, s, 39); mtv.strv[38] = '\0'; } | 
|---|
| 41 | inline MuTyV(string const& s) { typ = 'S'; strncpy(mtv.strv, s.c_str(), 39); mtv.strv[38] = '\0'; } | 
|---|
| 42 | inline MuTyV & operator= (MuTyV const & a) { typ = a.typ; mtv = a.mtv; return(*this); } | 
|---|
| 43 | inline int_4  operator= (int_4 v)  { typ = 'I'; mtv.iv = (int_8)v; return(v); } | 
|---|
| 44 | inline int_8  operator= (int_8 v)  { typ = 'I'; mtv.iv = v; return(v); } | 
|---|
| 45 | inline r_4  operator= (r_4 v)  { typ = 'D'; mtv.dv = (r_8)v; return(v); } | 
|---|
| 46 | inline r_8 operator= (r_8 v) { typ = 'D'; mtv.dv = v; return(v); } | 
|---|
| 47 | inline char*  operator= (char* s)  { typ = 'S'; strncpy(mtv.strv, s, 39); | 
|---|
| 48 | mtv.strv[38] = '\0';  return(s); } | 
|---|
| 49 | inline string& operator= (string& s)    { typ = 'S'; strncpy(mtv.strv, s.c_str(), 39); | 
|---|
| 50 | mtv.strv[38] = '\0'; return(s); } | 
|---|
| 51 |  | 
|---|
| 52 | inline operator int_4() { if (typ == 'I')  return((int_4)mtv.iv); | 
|---|
| 53 | else if (typ == 'D') return((int_4)mtv.dv); | 
|---|
| 54 | else return(atol(mtv.strv)); } | 
|---|
| 55 | inline operator int_8() { if (typ == 'I')  return((int_8)mtv.iv); | 
|---|
| 56 | else if (typ == 'D') return((int_8)mtv.dv); | 
|---|
| 57 | else return(atol(mtv.strv)); } | 
|---|
| 58 | inline operator r_4() { if (typ == 'I')  return((r_4)mtv.iv); | 
|---|
| 59 | else if (typ == 'D') return((r_4)mtv.dv); | 
|---|
| 60 | else return((r_4)atof(mtv.strv)); } | 
|---|
| 61 | inline operator r_8() { if (typ == 'I')  return((r_8)mtv.iv); | 
|---|
| 62 | else if (typ == 'D') return(mtv.dv); | 
|---|
| 63 | else return(atof(mtv.strv)); } | 
|---|
| 64 | inline operator string() { char *ss=myStrBuf; | 
|---|
| 65 | if (typ == 'I')  sprintf(ss,"%ld", (long)mtv.iv); | 
|---|
| 66 | else if (typ == 'D') sprintf(ss,"%.20g", mtv.dv); | 
|---|
| 67 | else ss = mtv.strv; | 
|---|
| 68 | return(ss); } | 
|---|
| 69 | }; | 
|---|
| 70 |  | 
|---|
| 71 | //  Classe liste de variables  Dynamic Variable List | 
|---|
| 72 |  | 
|---|
| 73 | //! Dynamic Variable List class. | 
|---|
| 74 | class DVList : public AnyDataObj { | 
|---|
| 75 | public: | 
|---|
| 76 | //  enum {classId = ClassId_DVList }; | 
|---|
| 77 |  | 
|---|
| 78 | DVList(); | 
|---|
| 79 | DVList(const DVList&); | 
|---|
| 80 | DVList(char *flnm); | 
|---|
| 81 |  | 
|---|
| 82 | virtual           ~DVList(); | 
|---|
| 83 |  | 
|---|
| 84 | DVList&           operator= (const DVList&); | 
|---|
| 85 |  | 
|---|
| 86 | void              Clear(); | 
|---|
| 87 | DVList&           Merge(const DVList&); | 
|---|
| 88 |  | 
|---|
| 89 | int_8             GetI(string const& key, int_8 def=-1); | 
|---|
| 90 | r_8               GetD(string const& key, r_8 def=-9.e19); | 
|---|
| 91 | string            GetS(string const& key, char* def=""); | 
|---|
| 92 | string            GetComment(string const& key); | 
|---|
| 93 |  | 
|---|
| 94 | void              SetI(string const& key, int_8 val); | 
|---|
| 95 | void              SetD(string const& key, r_8 val); | 
|---|
| 96 | void              SetS(string const& key, char const*  val); | 
|---|
| 97 | void              SetS(string const& key, string val); | 
|---|
| 98 | void              SetComment(string const& key, string const& comm); | 
|---|
| 99 |  | 
|---|
| 100 | MuTyV&            Get(string const& key); | 
|---|
| 101 | /*! Returns the value associated with the name \b key */ | 
|---|
| 102 | inline MuTyV&     operator()  (string const& key)  { return Get(key); } | 
|---|
| 103 | /*! Returns the value associated with the name \b key */ | 
|---|
| 104 | inline MuTyV&     operator[]  (string const& key)  { return Get(key); } | 
|---|
| 105 | /*! Returns the global comment string associated with the object */ | 
|---|
| 106 | inline string&    Comment() { return(comment); } | 
|---|
| 107 |  | 
|---|
| 108 | /*! Prints a brief description of object on \b cout */ | 
|---|
| 109 | inline  void      Show() const { Show(cout); } | 
|---|
| 110 | virtual void      Show(ostream& os)  const; | 
|---|
| 111 | /*! Prints the list of variables on \b cout */ | 
|---|
| 112 | inline  void      Print() const  { Print(cout); } | 
|---|
| 113 | virtual void      Print(ostream& os)  const; | 
|---|
| 114 |  | 
|---|
| 115 | // Chaque element dans un DVList est constitue desormais d'un MuTyV | 
|---|
| 116 | // et d'une chaine de caracteres (commentaire) regroupe dans la structure | 
|---|
| 117 | // dvlElement. Ces elements sont associes aux noms de variables dans un | 
|---|
| 118 | // map<...> ValList.            Reza 02/2000 | 
|---|
| 119 |  | 
|---|
| 120 | struct dvlElement {MuTyV elval; string elcomm; } ; | 
|---|
| 121 | typedef map<string, dvlElement, less<string> >  ValList; | 
|---|
| 122 | /*! Returns an iterator pointing on the first variable in the list */ | 
|---|
| 123 | inline ValList::const_iterator Begin() { return(mvlist.begin()); } | 
|---|
| 124 | /*! Returns the iterator end value */ | 
|---|
| 125 | inline ValList::const_iterator End() { return(mvlist.end()); } | 
|---|
| 126 |  | 
|---|
| 127 |  | 
|---|
| 128 | private: | 
|---|
| 129 |  | 
|---|
| 130 | ValList mvlist; | 
|---|
| 131 | string comment; | 
|---|
| 132 | }; | 
|---|
| 133 |  | 
|---|
| 134 | /*! operator << overloading - Prints the list on the stream \b s */ | 
|---|
| 135 | inline ostream& operator << (ostream& s, DVList const & dvl) | 
|---|
| 136 | {  dvl.Print(s);  return(s);  } | 
|---|
| 137 |  | 
|---|
| 138 | /*! Writes the object in the POutPersist stream \b os */ | 
|---|
| 139 | inline POutPersist& operator << (POutPersist& os, DVList & obj) | 
|---|
| 140 | { ObjFileIO<DVList> fio(&obj);  fio.Write(os);  return(os); } | 
|---|
| 141 | /*! Reads the object from the PInPersist stream \b is */ | 
|---|
| 142 | inline PInPersist& operator >> (PInPersist& is, DVList & obj) | 
|---|
| 143 | { ObjFileIO<DVList> fio(&obj);  fio.Read(is);  return(is); } | 
|---|
| 144 |  | 
|---|
| 145 | // Classe pour la gestion de persistance | 
|---|
| 146 | // ObjFileIO<DVList> | 
|---|
| 147 |  | 
|---|
| 148 | } // namespace SOPHYA | 
|---|
| 149 |  | 
|---|
| 150 | #endif /* DVLIST_H__SEEN */ | 
|---|
| 151 |  | 
|---|
| 152 |  | 
|---|