#ifndef ROOT_THaRTTI
#define ROOT_THaRTTI

//////////////////////////////////////////////////////////////////////////
//
// THaRTTI
//
//////////////////////////////////////////////////////////////////////////

#include "TString.h"
#include "VarType.h"

class TDataMember;
class TRealData;
class TList;
class TObject;

class THaRTTI {

public:
  enum  EArrayType { kScalar, kFixed, kVariable };

  THaRTTI() : 
    fOffset(-1), fType(kDouble), fArrayType(kScalar), fCountOffset(-1),
    fDataMember(NULL), fRealData(NULL) {}
  virtual ~THaRTTI() {}
  
  Int_t        Find( TClass* cl, TString& var, 
		     const void* const p = NULL );

  EArrayType   GetArrayType()   const { return fArrayType; }
  TClass*      GetClass()       const;
  Int_t        GetCountOffset() const { return fCountOffset; }
  TDataMember* GetDataMember()  const { return fDataMember; }
  Int_t        GetOffset()      const { return fOffset; }
  TRealData*   GetRealData()    const { return fRealData; }
  const char*  GetSubscript()   const { return fSubscript.Data(); }
  VarType      GetType()        const { return fType; }
  Bool_t       IsArray()        const { return (fArrayType != kScalar); }
  Bool_t       IsObject()       const { return (fType == kObject || 
						fType == kObjectP ||
						fType == kObject2P ); }
  Bool_t       IsPointer()      const;
  Bool_t       IsValid()        const { return (fOffset != -1); }
  virtual void Print( Option_t* opt="" ) const;

protected:

  TObject*     FindRealDataVar( TList* lrd, TString& var );

  Int_t        fOffset;       // Offset with respect to THIS pointer
  VarType      fType;         // Variable type (kObject if object)
  EArrayType   fArrayType;    // Array type (0=scalar, 1=fixed, 2=variable)
  TString      fSubscript;    // For fixed array: Description of dimension(s)
  Int_t        fCountOffset;  // For var array: Offset of length specifier
  TDataMember* fDataMember;   // Associated ROOT TDataMember
  TRealData*   fRealData;     // Associated ROOT TRealData

  ClassDef(THaRTTI,0)   //RTTI information for a member variable of a ROOT class
};

#endif