//*-- Author : Valeriy Onuchin 11/09/2000 
//
//
////////////////////////////////////////////////////////////////////////////////
//
// rooBasicType corresponds to Basic_Type Class
//
// The class rooBasicType represents descriptors for basic numeric types. This
// document uses the term numeric type to include any fundamental character,
// integer, floating-point, or pointer type. An instance of rooBasicType is 
// called a numeric-type descriptor; it provides information about a particular
// numeric type, called its described type.
//   You should never instantiate this class directly. Instead, you can obtain 
// a numeric-type descriptor either from the module descriptor for the top-level
// module or from an attribute descriptor for a numeric 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(rooBasicType)

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

   fImp = 0;
}

//______________________________________________________________________________
 rooBasicType::~rooBasicType()
{
   // for internal use only 
   
   fImp = 0;
}

//______________________________________________________________________________
 Int_t rooBasicType::base_type() const
{
   // Returns A code identifying the described numeric type; one of:
   // 
   // kooTypeNONE      kooTypeCHAR     kooTypeINT8     kooTypeUINT8
   // kooTypeINT16     kooTypeUINT16   kooTypeINT32    kooTypeUINT32
   // kooTypeINT64     kooTypeUINT64   kooTypeFLOAT32  kooTypeFLOAT64
   // kooTypePTR

   return fImp ? ((Basic_Type*)fImp)->base_type() : 0;
}

//______________________________________________________________________________
 Bool_t rooBasicType::is_basic_type() const
{
   // Overrides the inherited member function. Indicates that the described 
   // type is a basic numeric type.
   //
   // Returns kTRUE
   
   return fImp ? ((Basic_Type*)fImp)->is_basic_type() : 0;
}