/*

	Copyright (C) 2004 Michael Liebscher

	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.

*/

/*
 *	memory.c:	Memory allocation module.
 *	
 *	Author:	Michael Liebscher <johnnycanuck@users.sourceforge.net>	 
 *	Date:	2004  
 *
 *
 */

#include <stdlib.h>
#include <stdio.h>

#include "memory.h"



#ifndef PARANOID

	#define PARANOID 0

#endif /* PARANOID */


/*
-----------------------------------------------------------------------------
 Function: Memory_malloc -Allocates memory blocks.
 
 Parameters: size -[in] Bytes to allocate.
 
 Returns: 
			Void pointer to the allocated space on success, or NULL if
			there is insufficient memory available.
 
 Notes: 
 	
-----------------------------------------------------------------------------
*/
PUBLIC void *Memory_malloc( size_t size )
{
    void *ptr;
    ptr = malloc( size );
    
    if( ptr != NULL )
    {

#if PARANOID
		
		printf( "Memory malloc: %p size:%ld\n", ptr, size );
		
#endif

        return ptr;
    }
    
 
    printf( "[memory.c] Could not allocate %d bytes\n", size );
    
    return NULL;
}


/*
-----------------------------------------------------------------------------
 Function: Memory_calloc -Allocates an array in memory with elements 
							initialized to 0.
 
 Parameters: 
			num -[in] Number of elements.
			size -[in] Bytes to allocate.
 
 Returns: 
			Void pointer to the allocated space on success, or NULL if
			there is insufficient memory available.
 
 Notes: 
 	
-----------------------------------------------------------------------------
*/
PUBLIC void *Memory_calloc( size_t num, size_t size )
{
    void *ptr;
    ptr = calloc( num, size );

    if( ptr != NULL )
    {

#if PARANOID
		
		printf( "Memory calloc: %p size:%ld num:%ld\n", ptr, size, num );
		
#endif

        return ptr;
    }


    printf( "[memory.c] Could not allocate %d objects of size %d\n", num, size);

    return NULL;
}

/*
-----------------------------------------------------------------------------
 Function: Memory_realloc -Reallocate memory blocks.
 
 Parameters: 
			memblock -[in] Pointer to previously allocated memory block.
			size -[in] Bytes to allocate.
 
 Returns: 
		A void pointer to the reallocated (and possibly moved) memory 
		block. The return value is NULL if the size is zero and the 
		buffer argument is not NULL, or if there is not enough 
		available memory to expand the block to the given size.
 
 Notes: 
 	
-----------------------------------------------------------------------------
*/
PUBLIC void *Memory_realloc( void *memblock, size_t size )
{
    void *ptr;
    
    ptr = realloc( memblock, size );
    
    if( ptr != NULL )
    {

#if PARANOID
		
		printf( "Memory realloc: %p size:%ld\n", ptr, size );
		
#endif

        return ptr;
    }
        
    printf( "[memory.c] Could not reallocate %d bytes\n", size );
    
    return NULL;
}


/*
-----------------------------------------------------------------------------
 Function: Memory_free -Deallocates or frees a memory block.
 
 Parameters: 
			memblock -[in] Previously allocated memory block to be freed.

 Returns: Nothing.		
 
 Notes: 
 	
-----------------------------------------------------------------------------
*/
PUBLIC void Memory_free( void *memblock )
{
    if( memblock ) 
    {

#if PARANOID
		
		printf( "Memory free: %p\n", memblock );
		
#endif
	    
	    free( memblock );
    }
}


PUBLIC void Memory_outofmem( const char *name, const char *file, W32 line )
{

    printf( "%s:%ld failed allocation for \"%s\"\n", file, line, name );

}