| 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 | 
 | 
|---|