/*
   (c) Copyright 2000-2002  convergence integrated media GmbH.
   (c) Copyright 2002       convergence GmbH.
   
   All rights reserved.

   Written by Denis Oliver Kropp <dok@directfb.org>,
              Andreas Hundt <andi@fischlustig.de> and
              Sven Neumann <sven@convergence.de>.

   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.

   This library 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
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with this library; if not, write to the
   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.
*/

#include <config.h>
#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <errno.h>
#include <time.h>

#include <core/coredefs.h>

#include <misc/memcpy.h>

#include "shmalloc.h"

#include "shmalloc/shmalloc_internal.h"

/* Allocate SIZE bytes of memory.  */
void *shmalloc (size_t __size)
{
     void *ret;

     DFB_ASSERT( _sheap != NULL );

     skirmish_prevail( &_sheap->lock );
     
     ret = _fusion_shmalloc( __size );
     
     skirmish_dismiss( &_sheap->lock );

     return ret;
}

/* Re-allocate the previously allocated block
   in __ptr, making the new block SIZE bytes long.  */
void *shrealloc (void *__ptr, size_t __size)
{
     void *ret;

     DFB_ASSERT( _sheap != NULL );

     skirmish_prevail( &_sheap->lock );
     
     ret = _fusion_shrealloc( __ptr, __size );
     
     skirmish_dismiss( &_sheap->lock );

     return ret;
}

/* Allocate NMEMB elements of SIZE bytes each, all initialized to 0.  */
void *shcalloc (size_t __nmemb, size_t __size)
{
     void *ret;

     DFB_ASSERT( _sheap != NULL );

     skirmish_prevail( &_sheap->lock );
     
     ret = _fusion_shcalloc( __nmemb, __size );
     
     skirmish_dismiss( &_sheap->lock );

     return ret;
}

/* Free a block allocated by `shmalloc', `shrealloc' or `shcalloc'.  */
void  shfree (void *__ptr)
{
     DFB_ASSERT( _sheap != NULL );

     skirmish_prevail( &_sheap->lock );
     
     _fusion_shfree( __ptr );
     
     skirmish_dismiss( &_sheap->lock );
}

/* Allocate SIZE bytes allocated to ALIGNMENT bytes.  */
void *shmemalign (size_t __alignment, size_t __size)
{
     void *ret;

     DFB_ASSERT( _sheap != NULL );

     skirmish_prevail( &_sheap->lock );
     
     ret = _fusion_shmemalign( __alignment, __size );
     
     skirmish_dismiss( &_sheap->lock );

     return ret;
}

/* Allocate SIZE bytes on a page boundary.  */
void *shvalloc (size_t __size)
{
     void *ret;

     DFB_ASSERT( _sheap != NULL );

     skirmish_prevail( &_sheap->lock );
     
     ret = _fusion_shvalloc( __size );
     
     skirmish_dismiss( &_sheap->lock );

     return ret;
}

/* Pick up the current statistics. */
struct shmstats shmstats (void)
{
     struct shmstats ret;

     DFB_ASSERT( _sheap != NULL );

     skirmish_prevail( &_sheap->lock );
     
     ret = _fusion_shmstats();
     
     skirmish_dismiss( &_sheap->lock );

     return ret;
}

char *shstrdup (const char* string)
{
     void *ret;
     int   len;

     DFB_ASSERT( _sheap != NULL );
     DFB_ASSERT( string != NULL );

     len = strlen( string ) + 1;

     skirmish_prevail( &_sheap->lock );
     
     ret = _fusion_shmalloc( len );
     if (ret)
          dfb_memcpy( ret, string, len );
     
     skirmish_dismiss( &_sheap->lock );

     return ret;
}