TSQLClassInfo.cxx

Go to the documentation of this file.

// @(#)root/sql:$Id$
// Author: Sergey Linev  20/11/2005

/*************************************************************************
 * Copyright (C) 1995-2005, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/

/**
\class TSQLClassInfo
\ingroup IO

Contains information about tables specific to one class and
version. It provides names of table for that class. For each version of
class not more than two tables can exists. Normal table has typically
name like TH1_ver4 and additional table has name like TH1_raw4.
List of this objects are kept by TSQLFile class.
*/

#include "TSQLClassInfo.h"

#include "TObjArray.h"

ClassImp(TSQLClassColumnInfo);

////////////////////////////////////////////////////////////////////////////////
/// normal constructor

TSQLClassColumnInfo::TSQLClassColumnInfo(const char *name, const char *sqlname, const char *sqltype)
   : TObject(), fName(name), fSQLName(sqlname), fSQLType(sqltype)
{
}

ClassImp(TSQLClassInfo);


////////////////////////////////////////////////////////////////////////////////
/// normal constructor of TSQLClassInfo class
/// Sets names of tables, which are used for that version of class

TSQLClassInfo::TSQLClassInfo(Long64_t classid, const char *classname, Int_t version)
   : TObject(), fClassName(classname), fClassVersion(version), fClassId(classid)
{
   fClassTable.Form("%s_ver%d", classname, version);
   fRawTable.Form("%s_raw%d", classname, version);
}

////////////////////////////////////////////////////////////////////////////////
/// destructor

TSQLClassInfo::~TSQLClassInfo()
{
   SetColumns(nullptr);
}

////////////////////////////////////////////////////////////////////////////////
/// assigns new list of columns

void TSQLClassInfo::SetColumns(TObjArray *columns)
{
   if (fColumns) {
      fColumns->Delete();
      delete fColumns;
   }
   fColumns = columns;
}

////////////////////////////////////////////////////////////////////////////////
/// set current status of class tables

void TSQLClassInfo::SetTableStatus(TObjArray *columns, Bool_t israwtable)
{
   SetColumns(columns);
   fRawtableExist = israwtable;
}

////////////////////////////////////////////////////////////////////////////////
/// Search for column of that name
///
/// Can search either for full column name (sqlname = kFALSE, default)
/// or for name, used as column name (sqlname = kTRUE)
/// Return index of column in list (-1 if not found)

Int_t TSQLClassInfo::FindColumn(const char *name, Bool_t sqlname)
{
   if (!name || !fColumns)
      return -1;

   TIter next(fColumns);

   TSQLClassColumnInfo *col = nullptr;

   Int_t indx = 0;

   while ((col = (TSQLClassColumnInfo *)next()) != nullptr) {
      const char *colname = sqlname ? col->GetSQLName() : col->GetName();
      if (strcmp(colname, name) == 0)
         return indx;
      indx++;
   }

   return -1;
}