Logo ROOT   6.12/07
Reference Guide
TKeySQL.cxx
Go to the documentation of this file.
1 // @(#)root/sql:$Id$
2 // Author: Sergey Linev 20/11/2005
3 
4 /*************************************************************************
5  * Copyright (C) 1995-2005, Rene Brun and Fons Rademakers. *
6  * All rights reserved. *
7  * *
8  * For the licensing terms see $ROOTSYS/LICENSE. *
9  * For the list of contributors see $ROOTSYS/README/CREDITS. *
10  *************************************************************************/
11 
12 /**
13 \class TKeySQL
14 \ingroup IO
15 
16 TKeySQL represents meta-inforamtion about object, which was written to
17 SQL database. It keeps object id, which used to locate object data
18 from database tables.
19 */
20 
21 #include "TKeySQL.h"
22 
23 #include "TROOT.h"
24 #include "TClass.h"
25 #include "TBrowser.h"
26 #include "Riostream.h"
27 
28 #include "TSQLResult.h"
29 #include "TBufferSQL2.h"
30 #include "TSQLStructure.h"
31 #include "TSQLFile.h"
32 #include <stdlib.h>
33 
35 
36 ////////////////////////////////////////////////////////////////////////////////
37 /// default constructor
38 
39 TKeySQL::TKeySQL() : TKey(), fKeyId(-1), fObjId(-1)
40 {
41 }
42 
43 ////////////////////////////////////////////////////////////////////////////////
44 /// Creates TKeySQL and convert obj data to TSQLStructure via TBufferSQL2
45 
46 TKeySQL::TKeySQL(TDirectory *mother, const TObject *obj, const char *name, const char *title)
47  : TKey(mother), fKeyId(-1), fObjId(-1)
48 {
49  if (name)
50  SetName(name);
51  else if (obj != 0) {
52  SetName(obj->GetName());
53  fClassName = obj->ClassName();
54  } else
55  SetName("Noname");
56 
57  if (title)
58  SetTitle(title);
59 
60  StoreKeyObject((void *)obj, obj ? obj->IsA() : 0);
61 }
62 
63 ////////////////////////////////////////////////////////////////////////////////
64 /// Creates TKeySQL and convert obj data to TSQLStructure via TBufferSQL2
65 
66 TKeySQL::TKeySQL(TDirectory *mother, const void *obj, const TClass *cl, const char *name, const char *title)
67  : TKey(mother), fKeyId(-1), fObjId(-1)
68 {
69  if (name && *name)
70  SetName(name);
71  else
72  SetName(cl ? cl->GetName() : "Noname");
73 
74  if (title)
75  SetTitle(title);
76 
77  StoreKeyObject(obj, cl);
78 }
79 
80 ////////////////////////////////////////////////////////////////////////////////
81 /// Create TKeySQL object, which corresponds to single entry in keys table
82 
83 TKeySQL::TKeySQL(TDirectory *mother, Long64_t keyid, Long64_t objid, const char *name, const char *title,
84  const char *keydatetime, Int_t cycle, const char *classname)
85  : TKey(mother), fKeyId(keyid), fObjId(objid)
86 {
87  SetName(name);
88  if (title)
89  SetTitle(title);
90  TDatime dt(keydatetime);
91  fDatime = dt;
92  fCycle = cycle;
93  fClassName = classname;
94 }
95 
96 ////////////////////////////////////////////////////////////////////////////////
97 /// TKeySQL destructor
98 
100 {
101 }
102 
103 ////////////////////////////////////////////////////////////////////////////////
104 /// Compares keydata with provided and return kTRUE if key was modified
105 /// Used in TFile::StreamKeysForDirectory() method to verify data for that keys
106 /// should be updated
107 
108 Bool_t TKeySQL::IsKeyModified(const char *keyname, const char *keytitle, const char *keydatime, Int_t cycle,
109  const char *classname)
110 {
111  Int_t len1 = (GetName() == 0) ? 0 : strlen(GetName());
112  Int_t len2 = (keyname == 0) ? 0 : strlen(keyname);
113  if (len1 != len2)
114  return kTRUE;
115  if ((len1 > 0) && (strcmp(GetName(), keyname) != 0))
116  return kTRUE;
117 
118  len1 = (GetTitle() == 0) ? 0 : strlen(GetTitle());
119  len2 = (keytitle == 0) ? 0 : strlen(keytitle);
120  if (len1 != len2)
121  return kTRUE;
122  if ((len1 > 0) && (strcmp(GetTitle(), keytitle) != 0))
123  return kTRUE;
124 
125  const char *tm = GetDatime().AsSQLString();
126  len1 = (tm == 0) ? 0 : strlen(tm);
127  len2 = (keydatime == 0) ? 0 : strlen(keydatime);
128  if (len1 != len2)
129  return kTRUE;
130  if ((len1 > 0) && (strcmp(tm, keydatime) != 0))
131  return kTRUE;
132 
133  if (cycle != GetCycle())
134  return kTRUE;
135 
136  len1 = (GetClassName() == 0) ? 0 : strlen(GetClassName());
137  len2 = (classname == 0) ? 0 : strlen(classname);
138  if (len1 != len2)
139  return kTRUE;
140  if ((len1 > 0) && (strcmp(GetClassName(), classname) != 0))
141  return kTRUE;
142 
143  return kFALSE;
144 }
145 
146 ////////////////////////////////////////////////////////////////////////////////
147 /// Removes key from current directory
148 /// Note: TKeySQL object is not deleted. You still have to call "delete key"
149 
150 void TKeySQL::Delete(Option_t * /*option*/)
151 {
152  TSQLFile *f = (TSQLFile *)GetFile();
153 
154  if (f != 0)
156 
157  fMotherDir->GetListOfKeys()->Remove(this);
158 }
159 
160 ////////////////////////////////////////////////////////////////////////////////
161 /// return sql id of parent directory
162 
164 {
165  return GetMotherDir() ? GetMotherDir()->GetSeekDir() : 0;
166 }
167 
168 ////////////////////////////////////////////////////////////////////////////////
169 /// Stores object, associated with key, into data tables
170 
171 void TKeySQL::StoreKeyObject(const void *obj, const TClass *cl)
172 {
173  TSQLFile *f = (TSQLFile *)GetFile();
174 
175  fCycle = GetMotherDir()->AppendKey(this);
176 
177  fKeyId = f->DefineNextKeyId();
178 
179  fObjId = f->StoreObjectInTables(fKeyId, obj, cl);
180 
181  if (cl)
182  fClassName = cl->GetName();
183 
184  if (GetDBObjId() >= 0) {
185  fDatime.Set();
186  if (!f->WriteKeyData(this)) {
187  // cannot add entry to keys table
188  Error("StoreKeyObject", "Cannot write data to key tables");
189  // delete everything relevant for that key
191  fObjId = -1;
192  }
193  }
194 
195  if (GetDBObjId() < 0)
196  GetMotherDir()->GetListOfKeys()->Remove(this);
197  // fix me !!! One should delete object by other means
198  // delete this;
199 }
200 
201 ////////////////////////////////////////////////////////////////////////////////
202 /// To read an object from the file.
203 /// The object associated to this key is read from the file into memory.
204 /// Before invoking this function, obj has been created via the
205 /// default constructor.
206 
208 {
209  if (tobj == 0)
210  return 0;
211 
212  void *res = ReadKeyObject(tobj, 0);
213 
214  return res == 0 ? 0 : 1;
215 }
216 
217 ////////////////////////////////////////////////////////////////////////////////
218 /// Read object derived from TObject class
219 /// If it is not TObject or in case of error, return 0
220 
222 {
223  TObject *tobj = (TObject *)ReadKeyObject(0, TObject::Class());
224 
225  if (tobj != 0) {
226  if (gROOT->GetForceStyle())
227  tobj->UseCurrentStyle();
228  if (tobj->IsA() == TDirectoryFile::Class()) {
229  TDirectoryFile *dir = (TDirectoryFile *)tobj;
230  dir->SetName(GetName());
231  dir->SetTitle(GetTitle());
232  dir->SetSeekDir(GetDBKeyId());
233  dir->SetMother(fMotherDir);
234  dir->ReadKeys();
235  fMotherDir->Append(dir);
236  }
237  }
238 
239  return tobj;
240 }
241 
242 ////////////////////////////////////////////////////////////////////////////////
243 /// Read object derived from TObject class
244 /// If it is not TObject or in case of error, return 0
245 
246 TObject *TKeySQL::ReadObjWithBuffer(char * /*bufferRead*/)
247 {
248  TObject *tobj = (TObject *)ReadKeyObject(0, TObject::Class());
249 
250  if (tobj != 0) {
251  if (gROOT->GetForceStyle())
252  tobj->UseCurrentStyle();
253  if (tobj->IsA() == TDirectoryFile::Class()) {
254  TDirectoryFile *dir = (TDirectoryFile *)tobj;
255  dir->SetName(GetName());
256  dir->SetTitle(GetTitle());
257  dir->SetSeekDir(GetDBKeyId());
258  dir->SetMother(fMotherDir);
259  dir->ReadKeys();
260  fMotherDir->Append(dir);
261  }
262  }
263 
264  return tobj;
265 }
266 
267 ////////////////////////////////////////////////////////////////////////////////
268 /// Read object of any type from SQL database
269 
270 void *TKeySQL::ReadObjectAny(const TClass *expectedClass)
271 {
272  void *res = ReadKeyObject(0, expectedClass);
273 
274  if (res && (expectedClass == TDirectoryFile::Class())) {
275  TDirectoryFile *dir = (TDirectoryFile *)res;
276  dir->SetName(GetName());
277  dir->SetTitle(GetTitle());
278  dir->SetSeekDir(GetDBKeyId());
279  dir->SetMother(fMotherDir);
280  dir->ReadKeys();
281  fMotherDir->Append(dir);
282  }
283 
284  return res;
285 }
286 
287 ////////////////////////////////////////////////////////////////////////////////
288 /// Read object, associated with key, from database
289 
290 void *TKeySQL::ReadKeyObject(void *obj, const TClass *expectedClass)
291 {
292  TSQLFile *f = (TSQLFile *)GetFile();
293 
294  if ((GetDBKeyId() <= 0) || (f == 0))
295  return obj;
296 
297  TBufferSQL2 buffer(TBuffer::kRead, f);
298 
299  TClass *cl = 0;
300 
301  void *res = buffer.SqlReadAny(GetDBKeyId(), GetDBObjId(), &cl, obj);
302 
303  if ((cl == 0) || (res == 0))
304  return 0;
305 
306  Int_t delta = 0;
307 
308  if (expectedClass != 0) {
309  delta = cl->GetBaseClassOffset(expectedClass);
310  if (delta < 0) {
311  if (obj == 0)
312  cl->Destructor(res);
313  return 0;
314  }
315  if (cl->GetState() > TClass::kEmulated && expectedClass->GetState() <= TClass::kEmulated) {
316  // we cannot mix a compiled class with an emulated class in the inheritance
317  Warning("XmlReadAny", "Trying to read an emulated class (%s) to store in a compiled pointer (%s)",
318  cl->GetName(), expectedClass->GetName());
319  }
320  }
321 
322  return ((char *)res) + delta;
323 }
virtual const char * GetName() const
Returns name of object.
Definition: TNamed.h:47
void * SqlReadAny(Long64_t keyid, Long64_t objid, TClass **cl, void *obj=0)
Recreate object from sql structure.
Long64_t fKeyId
! key identifier in KeysTables
Definition: TKeySQL.h:32
virtual TList * GetListOfKeys() const
Definition: TDirectory.h:150
long long Long64_t
Definition: RtypesCore.h:69
void SetSeekDir(Long64_t v)
void Set()
Set Date/Time to current time as reported by the system.
Definition: TDatime.cxx:288
void * ReadKeyObject(void *obj, const TClass *expectedClass)
Read object, associated with key, from database.
Definition: TKeySQL.cxx:290
Long64_t GetDBDirId() const
return sql id of parent directory
Definition: TKeySQL.cxx:163
const char Option_t
Definition: RtypesCore.h:62
virtual const char * GetClassName() const
Definition: TKey.h:71
virtual void SetName(const char *name)
Set the name of the TNamed.
Definition: TNamed.cxx:140
Long64_t fObjId
! stored object identifer
Definition: TKeySQL.h:33
#define gROOT
Definition: TROOT.h:402
Long64_t GetDBKeyId() const
Definition: TKeySQL.h:45
int Int_t
Definition: RtypesCore.h:41
Long64_t StoreObjectInTables(Long64_t keyid, const void *obj, const TClass *cl)
Store object in database. Return stored object id or -1 if error.
Definition: TSQLFile.cxx:2520
bool Bool_t
Definition: RtypesCore.h:59
virtual void UseCurrentStyle()
Set current style settings in this object This function is called when either TCanvas::UseCurrentStyl...
Definition: TObject.cxx:715
TKeySQL()
default constructor
Definition: TKeySQL.cxx:39
TDirectory * GetMotherDir() const
Definition: TKey.h:81
TDirectory * fMotherDir
!pointer to mother directory
Definition: TKey.h:47
Int_t GetBaseClassOffset(const TClass *toBase, void *address=0, bool isDerivedObject=true)
Definition: TClass.cxx:2710
Bool_t IsKeyModified(const char *keyname, const char *keytitle, const char *keydatime, Int_t cycle, const char *classname)
Compares keydata with provided and return kTRUE if key was modified Used in TFile::StreamKeysForDirec...
Definition: TKeySQL.cxx:108
virtual const char * ClassName() const
Returns name of class to which the object belongs.
Definition: TObject.cxx:128
void StoreKeyObject(const void *obj, const TClass *cl)
Stores object, associated with key, into data tables.
Definition: TKeySQL.cxx:171
void Class()
Definition: Class.C:29
virtual TObject * ReadObjWithBuffer(char *bufferRead)
Read object derived from TObject class If it is not TObject or in case of error, return 0...
Definition: TKeySQL.cxx:246
EState GetState() const
Definition: TClass.h:453
TString fClassName
Object Class name.
Definition: TKey.h:42
Book space in a file, create I/O buffers, to fill them, (un)compress them.
Definition: TKey.h:24
TDatime fDatime
Date/Time of insertion in file.
Definition: TKey.h:37
Long64_t DefineNextKeyId()
Returns next possible key identifier.
Definition: TSQLFile.cxx:1765
Bool_t WriteKeyData(TKeySQL *key)
Add entry into keys table.
Definition: TSQLFile.cxx:1699
virtual ~TKeySQL()
TKeySQL destructor.
Definition: TKeySQL.cxx:99
Access an SQL db via the TFile interface.
Definition: TSQLFile.h:30
A ROOT file is structured in Directories (like a file system).
TFile * GetFile() const
Returns file to which key belong.
Definition: TKey.cxx:572
virtual TObject * Remove(TObject *obj)
Remove object from the list.
Definition: TList.cxx:818
void Destructor(void *obj, Bool_t dtorOnly=kFALSE)
Explicitly call destructor for object.
Definition: TClass.cxx:5149
const char * AsSQLString() const
Return the date & time in SQL compatible string format, like: 1997-01-15 20:16:28.
Definition: TDatime.cxx:151
virtual void Error(const char *method, const char *msgfmt,...) const
Issue error message.
Definition: TObject.cxx:880
virtual void Append(TObject *obj, Bool_t replace=kFALSE)
Append object to this directory.
Definition: TDirectory.cxx:190
virtual Long64_t GetSeekDir() const
Definition: TDirectory.h:155
The ROOT global object gROOT contains a list of all defined classes.
Definition: TClass.h:75
void DeleteKeyFromDB(Long64_t keyid)
Remove key with specified id from keys table also removes all objects data, related to this table...
Definition: TSQLFile.cxx:1619
const Bool_t kFALSE
Definition: RtypesCore.h:88
virtual Int_t Read(const char *name)
Read contents of object with specified name from the current directory.
Definition: TKeySQL.h:28
virtual Int_t AppendKey(TKey *)
Definition: TDirectory.h:119
Converts data to SQL statements or read data from SQL tables.
Definition: TBufferSQL2.h:29
virtual void SetName(const char *newname)
Set the name for directory If the directory name is changed after the directory was written once...
Short_t fCycle
Cycle number.
Definition: TKey.h:39
#define ClassImp(name)
Definition: Rtypes.h:359
virtual Int_t ReadKeys(Bool_t forceRead=kTRUE)
Read the linked list of keys.
Describe directory structure in memory.
Definition: TDirectory.h:34
virtual const char * GetTitle() const
Returns title (title can contain 32x32 xpm thumbnail/icon).
Definition: TKey.cxx:1517
virtual void * ReadObjectAny(const TClass *expectedClass)
Read object of any type from SQL database.
Definition: TKeySQL.cxx:270
virtual TObject * ReadObj()
Read object derived from TObject class If it is not TObject or in case of error, return 0...
Definition: TKeySQL.cxx:221
Mother of all ROOT objects.
Definition: TObject.h:37
TKeySQL represents meta-inforamtion about object, which was written to SQL database.
Definition: TKeySQL.h:19
const TDatime & GetDatime() const
Definition: TKey.h:77
Long64_t GetDBObjId() const
Definition: TKeySQL.h:46
Short_t GetCycle() const
Return cycle number associated to this key.
Definition: TKey.cxx:564
virtual const char * GetName() const
Returns name of object.
Definition: TObject.cxx:357
virtual void SetTitle(const char *title="")
Set the title of the TNamed.
Definition: TNamed.cxx:164
virtual void SetMother(TObject *mother)
Definition: TDirectory.h:184
const Bool_t kTRUE
Definition: RtypesCore.h:87
char name[80]
Definition: TGX11.cxx:109
virtual void Warning(const char *method, const char *msgfmt,...) const
Issue warning message.
Definition: TObject.cxx:866
This class stores the date and time with a precision of one second in an unsigned 32 bit word (950130...
Definition: TDatime.h:37
virtual void Delete(Option_t *option="")
Removes key from current directory Note: TKeySQL object is not deleted.
Definition: TKeySQL.cxx:150