/* -*- C++ -*- */

/*

  Heap Layers: An Extensible Memory Allocation Infrastructure
  
  Copyright (C) 2000-2003 by Emery Berger
  http://www.cs.umass.edu/~emery
  emery@cs.umass.edu
  
  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.
  
  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
  
  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

*/

/*
 * @file   libreap.cpp
 * @brief  Replaces malloc and adds reap functionality to your application.
 * @author Emery Berger <http://www.cs.umass.edu/~emery>
 */

#include <stdlib.h>
#include <new>

#include "heaplayers.h"
#include "slopheap.h"
#include "regionheap.h"
#include "chunkheap.h"
#include "oneheap.h"
#include "regionheapapi.h" 
#include "nestedheap.h"

// Conservative assumption here...
// Note: this is used by wrapper.cpp.
volatile int anyThreadCreated = 1;

// All reaps eventually come from mmap.
class OneStore : public MmapHeap {};

// We'll grab chunks of 8K.
class TopHeap :
  //  public ChunkHeap<8192 - 20, SlopHeap<RegionHeap<OneStore>, 16> > {
  public ChunkHeap<8192 - 20, RegionHeap<OneStore> > {
};

#define MAIN_ALLOCATOR TopHeap

class TheCustomHeapType : public Reap<MAIN_ALLOCATOR> {};

inline static TheCustomHeapType * getCustomHeap (void) {
  static char thBuf[sizeof(TheCustomHeapType)];
  static TheCustomHeapType * th = new (thBuf) TheCustomHeapType;
  return th;
}

extern "C" void regionCreate (void ** reg, void ** parent)
{
  Reap<MAIN_ALLOCATOR> * psr;
  psr = new Reap<MAIN_ALLOCATOR> ();
  if (parent) {
    (*((Reap<MAIN_ALLOCATOR> **) parent))->addChild (psr);
  }

  *((Reap<MAIN_ALLOCATOR> **) reg) = psr;
}


extern "C" void regionDestroy (void ** reg)
{
  delete ((Reap<MAIN_ALLOCATOR> *) *reg);
  *reg = NULL;
}

extern "C" void * regionAllocate (void ** reg, size_t sz)
{
  void * ptr = ((Reap<MAIN_ALLOCATOR> *) *reg)->malloc (sz);
  return ptr;
}

extern "C" void regionFreeAll (void ** reg)
{
  ((Reap<MAIN_ALLOCATOR> *) *reg)->clear ();
}

extern "C" void regionFree (void ** reg, void * ptr)
{
  ((Reap<MAIN_ALLOCATOR> *) *reg)->free (ptr);
}

// Reap API wrappers.


extern "C" void reapcreate (void ** reg, void ** parent)
{
  regionCreate (reg, parent);
}

extern "C" void reapdestroy (void ** reg)
{
  regionDestroy (reg);
}

extern "C" void * reapmalloc (void ** reg, size_t sz)
{
  regionAllocate (reg, sz);
}

extern "C" void reapclear (void ** reg)
{
  regionFreeAll (reg);
}

extern "C" void reapfree (void ** reg, void * ptr)
{
  regionFree (reg, ptr);
}


extern "C" size_t reapgetsize (void ** reg, void * ptr)
{
  return ((Reap<MAIN_ALLOCATOR> *) *reg)->getSize (ptr);
}