StiFactory.h

#ifndef StiFactory_H
#define StiFactory_H 
#include <cassert>
#include <stdexcept>
#include <string.h>
#include <typeinfo>
#include "Sti/Base/Factory.h"
//______________________________________________________________________________
template<class Object>
class StiHolder  {
public:
        StiHolder();
union {
  StiHolder *fNext;
  long       fLong;
  char       fChar[1];
};
 Object fObj;
};

//______________________________________________________________________________
template<class Object>
class StiBlock {
public:
enum {kSize=100};
     StiBlock(StiBlock **bTop,StiHolder<Object> **hTop,char *buf);
void reset(StiBlock **bTop,StiHolder<Object> **hTop);
int getSize() const {return kSize;}

StiBlock *fNext;
char     *fBuff;
StiHolder<Object> fArr[kSize];
};


//______________________________________________________________________________
template <class Concrete, class Abstract>
class StiFactory : public Factory<Abstract>
{
public:
void   free(Abstract *obj);  
void   free(void *obj) { free((Abstract*)obj);}
void clear();  

void reset();

Abstract* getInstance();
static StiFactory*  myInstance();

private:
   StiFactory();
  ~StiFactory(){clear();}
StiBlock<Concrete>  *fBTop;
StiHolder<Concrete> *fHTop;

};
//______________________________________________________________________________
//______________________________________________________________________________
//______________________________________________________________________________
template <class Object>
StiBlock<Object>::StiBlock(StiBlock **bTop,StiHolder<Object> **hTop,char *buf)
{
  fBuff=buf;
  reset(bTop,hTop);
}
template <class Object>
void StiBlock<Object>::reset(StiBlock **bTop,StiHolder<Object> **hTop)
{
  fNext=*bTop; *bTop=this;
  for (int i=0;i<kSize;i++) {
    fArr[i].fNext = *hTop;
   *hTop = fArr+i;
  }
}
//______________________________________________________________________________
//______________________________________________________________________________
template <class Object>
StiHolder<Object>::StiHolder()
{
  memset(fChar,0,((char*)&fObj)-fChar);
}
//______________________________________________________________________________
//______________________________________________________________________________
template <class Concrete, class Abstract>
StiFactory<Concrete,Abstract>::StiFactory():Factory<Abstract>("")
{
  fHTop=0;fBTop=0;
  this->setName(typeid(*this).name());
  printf("*** Factory created *** %s\n",this->getName().c_str());
}
template <class Concrete, class Abstract>
StiFactory<Concrete,Abstract>* StiFactory<Concrete,Abstract>::myInstance() 
{
   static StiFactory* my=0;
   if (!my) my = new StiFactory;
   return my;
}
//______________________________________________________________________________
template <class Concrete, class Abstract>
Abstract *StiFactory<Concrete,Abstract>::getInstance() 
{
  enum {FENCE = sizeof(double)+2*sizeof(long)+1};
  if (!fHTop)  {
    assert(this->fCurCount < this->fMaxCount);  
    if (this->fFastDel)    {
       int   nBuf = sizeof(StiBlock<Concrete>) + FENCE;
       char *cBuf = new char[nBuf];
       cBuf[nBuf-1]=46;
       new((StiBlock<Concrete>*)cBuf) StiBlock<Concrete>(&fBTop,&fHTop,cBuf);
       assert(cBuf[nBuf-1]==46);
    } else {
       new StiBlock<Concrete>(&fBTop,&fHTop,   0);
    }
    this->fCurCount += fBTop->getSize();
    this->fgTotal   += sizeof(StiBlock<Concrete>)*1e-6;
  }
  this->fInstCount++;
  StiHolder<Concrete> *h = fHTop;
  fHTop = h->fNext;
  h->fNext=0;
  h->fObj.reset();
  this->fUseCount++;
  h->fLong= ((long)this)+1;             //set factory addres+1
  return &h->fObj;  
}  
//______________________________________________________________________________
template <class Concrete, class Abstract>
void StiFactory<Concrete,Abstract>::free(Abstract *obj)
{
  static const int shift = (char*)(&(((StiHolder<Concrete>*)1)->fObj))-(char*)1;
  obj->unset();
  StiHolder<Concrete>* h = (StiHolder<Concrete>*)((char*)obj-shift);
  assert((h->fLong-1)== (long)this);
  h->fNext = fHTop; fHTop=h; this->fUseCount--; this->fFreeCount++;
}

//______________________________________________________________________________
template <class Concrete, class Abstract>
void StiFactory<Concrete,Abstract>::clear()
{
  double sz=0;
  StiBlock<Concrete>* b = fBTop;
  while (b) {
    StiBlock<Concrete>* d = b;
    b=b->fNext;
    if (this->fFastDel) {delete [] d->fBuff;} else { delete d;}
    sz += sizeof(StiBlock<Concrete>);
    this->fgTotal -= sizeof(StiBlock<Concrete>)*1e-6;
  }
  fBTop=0; fHTop=0; this->fCurCount=0; this->fUseCount=0;
  printf("*** %s::clear() %g MegaBytes Total %g Inst/Free=%d %d\n"
        ,this->getName().c_str(),sz*1e-6
        ,this->fgTotal,this->fInstCount,this->fFreeCount);
  this->fInstCount=0; this->fFreeCount=0;
}
//______________________________________________________________________________
template <class Concrete, class Abstract>
void StiFactory<Concrete,Abstract>::reset()
{
  if (!this->fUseCount) return;
  
  typedef StiBlock<Concrete> B_t;
  B_t* b = fBTop;
  fBTop=0;fHTop=0;
  while (b) {
    B_t* n = b->fNext;
    b->reset(&fBTop,&fHTop);
    b=n;
  }
  this->fUseCount=0;
}
#endif