| [754] | 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 | 
|---|
| [913] | 22 | //! A simple class for holding string, integer and float type values. | 
|---|
| [754] | 23 | class MuTyV { | 
|---|
|  | 24 | public: | 
|---|
|  | 25 | union { | 
|---|
|  | 26 | int_8 iv; | 
|---|
|  | 27 | r_8 dv; | 
|---|
| [827] | 28 | char strv[39]; | 
|---|
| [754] | 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'; } | 
|---|
| [827] | 35 | inline MuTyV(MuTyV const & a) { typ = a.typ; mtv = a.mtv; } | 
|---|
| [754] | 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'; } | 
|---|
| [827] | 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); } | 
|---|
| [754] | 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); } | 
|---|
| [827] | 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); } | 
|---|
| [754] | 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; | 
|---|
| [827] | 65 | if (typ == 'I')  sprintf(ss,"%ld", (long)mtv.iv); | 
|---|
| [754] | 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 |  | 
|---|
| [895] | 73 | //! Dynamic Variable List class. | 
|---|
| [754] | 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); | 
|---|
| [895] | 101 | /*! Returns the value associated with the name \b key */ | 
|---|
| [754] | 102 | inline MuTyV&     operator()  (string const& key)  { return Get(key); } | 
|---|
| [895] | 103 | /*! Returns the value associated with the name \b key */ | 
|---|
| [754] | 104 | inline MuTyV&     operator[]  (string const& key)  { return Get(key); } | 
|---|
| [895] | 105 | /*! Returns the global comment string associated with the object */ | 
|---|
| [754] | 106 | inline string&    Comment() { return(comment); } | 
|---|
|  | 107 |  | 
|---|
| [895] | 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); } | 
|---|
| [754] | 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; | 
|---|
| [895] | 122 | /*! Returns an iterator pointing on the first variable in the list */ | 
|---|
| [754] | 123 | inline ValList::const_iterator Begin() { return(mvlist.begin()); } | 
|---|
| [895] | 124 | /*! Returns the iterator end value */ | 
|---|
| [754] | 125 | inline ValList::const_iterator End() { return(mvlist.end()); } | 
|---|
|  | 126 |  | 
|---|
|  | 127 |  | 
|---|
|  | 128 | private: | 
|---|
|  | 129 |  | 
|---|
|  | 130 | ValList mvlist; | 
|---|
|  | 131 | string comment; | 
|---|
|  | 132 | }; | 
|---|
|  | 133 |  | 
|---|
| [895] | 134 | /*! operator << overloading - Prints the list on the stream \b s */ | 
|---|
| [754] | 135 | inline ostream& operator << (ostream& s, DVList const & dvl) | 
|---|
|  | 136 | {  dvl.Print(s);  return(s);  } | 
|---|
|  | 137 |  | 
|---|
| [895] | 138 | /*! Writes the object in the POutPersist stream \b os */ | 
|---|
| [754] | 139 | inline POutPersist& operator << (POutPersist& os, DVList & obj) | 
|---|
|  | 140 | { ObjFileIO<DVList> fio(&obj);  fio.Write(os);  return(os); } | 
|---|
| [895] | 141 | /*! Reads the object from the PInPersist stream \b is */ | 
|---|
| [754] | 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 |  | 
|---|