memarray.hxx

Go to the documentation of this file.

#ifndef CH_MATRIX_CLASSES__MEMARRAY_HXX
#define CH_MATRIX_CLASSES__MEMARRAY_HXX

#include <iostream>
#include "matop.hxx"
#if (CONICBUNDLE_DEBUG>=1)
#include <iomanip>
#include <stdlib.h>
#endif


namespace CH_Matrix_Classes {


  class Memarray{
   private:

    class Entry{
     public:
      Entry *next;   
      char *addr;    
      long size;     
      int index;     
                   
      Entry(){next=0; addr=0; size=0;}
      ~Entry(){delete[] addr;}
    };

    long max_entries;        
    long max_sizes;          
    long max_addr_entr;      
    unsigned long addr_mask; 
    unsigned long in_use;    
    unsigned long memarray_users; 
    
    Entry first_empty;  
    Entry* entry_store; 
    Entry* first_free;  
    Entry* first_used;  
    
    int size_index(long size); 
    long index_size(int index);
    int addr_index(const char *addr); 
    int get_more_entries();
    
   public:
    Memarray(long number_of_entries,int number_of_sizes,int address_bits);
    ~Memarray();
    unsigned long get_in_use() const {return in_use;}
    unsigned long get_memarray_users() const {return memarray_users;}
    unsigned long increment_memarray_users() {return ++memarray_users;}
    unsigned long decrement_memarray_users() {return --memarray_users;}
   
    long get(long size,char *& addr);
    long get(long size,double *& addr)
    {return get(size*long(sizeof(double)),(char*&)addr)/long(sizeof(double));}
    long get(long size,float *& addr)
    {return get(size*long(sizeof(float)),(char*&)addr)/long(sizeof(float));}
    long get(long size,long *& addr)
    {return get(size*long(sizeof(long)),(char*&)addr)/long(sizeof(long));}
    long get(long size,int *& addr)
    {return get(size*long(sizeof(int)),(char*&)addr)/long(sizeof(int));}
    int free(void *addr);
  };

  class Memarrayuser
  {
   protected: 
    static Memarray* memarray;
   public:
    Memarrayuser()
    { 
      if (memarray==0) {
        memarray=new Memarray(1L,60,10);
      }
      memarray->increment_memarray_users();
    }
    
    virtual ~Memarrayuser()
    { 
#if (CONICBUNDLE_DEBUG>=1)
      if (memarray==0) {
        MEmessage(MatrixError(ME_unspec,"*** Error: Memarrayuser::~Memarrayuser(): memory management killed prematurely",MTglobalfun));
      }
#endif
      if (memarray->decrement_memarray_users()==0) {
        delete memarray;
        memarray=0;
      }   
    }
  };
  
  template<class T>
  inline int mem_provide(
                         Memarray& memarray,  
                         long provide,        
                         long in_use,         
                         long& avail,         
                         T*& store            
                         )
  {
    if (provide<avail) return 0;
    T* tmpstore;
    long tmpavail=memarray.get(((provide>2*avail)?provide:2*avail)*long(sizeof(T)),(char *&)tmpstore)/long(sizeof(T));
    if ((tmpstore==0)&&(provide<2*avail)){
      tmpavail=memarray.get(provide*long(sizeof(T)),(char *&)tmpstore)/long(sizeof(T));
    }
    if (tmpstore==0) return 1;
    long i;
    for(i=0;i<in_use;i++){
      tmpstore[i]=store[i];
    }
    memarray.free((void *)store);
    store=tmpstore;
    avail=tmpavail;
    return 0;
  }
  
  template<class T>
  inline int mem_provide_init0(
                               Memarray& memarray, 
                               long provide,       
                               long& avail,        
                               T*& store           
                               )
  {
    if (provide<avail) return 0;
    T* tmpstore;
    long tmpavail=memarray.get(((provide>2*avail)?provide:2*avail)*long(sizeof(T)),(char *&)tmpstore)/long(sizeof(T));
    if ((tmpstore==0)&&(provide<2*avail)){
      tmpavail=memarray.get(provide*long(sizeof(T)),(char *&)tmpstore)/long(sizeof(T));
    }
    if (tmpstore==0) return 1;
    long i;
    for(i=0;i<avail;i++){
     tmpstore[i]=store[i];
    }
    for(;i<tmpavail;i++){
      tmpstore[i]=0;
    }
    memarray.free((void *)store);
    store=tmpstore;
    avail=tmpavail;
    return 0;
  }
  

}

#endif