//*-- Author : Valeriy Onuchin 11/09/2000 
//
//
////////////////////////////////////////////////////////////////////////////////
//
// rooVArrayEmbeddedClassType corresponds to VArray_Embedded_Class_Type Class
//
// The class rooVArrayEmbeddedClassType represents descriptors for
// embedded-class VArray types. An instance of this class is called an
// embedded-class-VArray type descriptor.
//
// An instance of this class provides information about a particular 
// embedded-class VArray type, called its described type. An embedded-class 
// VArray type is a variable-size array type whose elements are embedded 
// instances of a particular non-persistence-capable embedded class.
//
// You should never instantiate this class directly. Instead, you can obtain 
// an embedded-class-VArray type descriptor either from the module descriptor 
// for the top-level module or from an attribute descriptor for an 
// embedded-class VArray attribute. Typically, you obtain an instance by 
// calling the inherited type_of member function of an attribute descriptor.

#include "rooObjy.h"
#include <ooas.h>
#include <oo.h>

ClassImp(rooVArrayEmbeddedClassType)

////////////////////////////////////////////////////////////////////////////////
//______________________________________________________________________________
 rooVArrayEmbeddedClassType::rooVArrayEmbeddedClassType()
{
   // default ctor., for internal use only

   fImp = 0;
}

//______________________________________________________________________________
 rooVArrayEmbeddedClassType::~rooVArrayEmbeddedClassType()
{
   // dtor., for internal use only
   
   fImp = 0; 
}

//______________________________________________________________________________
rooClass & rooVArrayEmbeddedClassType::element_class_type()
{
   // Returns a class descriptor for the class of the elements of the described 
   // array  

   if(!fImp) return 0;
   d_Class& cl = ((VArray_Embedded_Class_Type*)fImp)->element_class_type();
   if(!cl) return 0;

   if(!fElementClassType) fElementClassType = new rooClass((void*)&cl);      
   else fElementClassType->setImp((void*)&cl);
   return *fElementClassType;
}

//______________________________________________________________________________
 Bool_t rooVArrayEmbeddedClassType::is_varray_embedded_class_type() const
{
   // Overrides the inherited member function. Indicates that the described 
   // type is a variable-size array type whose elements are instances of some
   // non-persistence-capable class.
   //
   // Returns kTRUE

   return fImp ? ((VArray_Embedded_Class_Type*)fImp)->is_varray_embedded_class_type() : 0;
}