#include <stdio.h>
#include <stdlib.h>
#include <grass/imagery.h>


void *I_malloc(size_t n)
{
    void *b;

    b = G_malloc(n);

    return b;
}


void *I_realloc(void *b, size_t n)
{
    b = G_realloc(b, n);

    return b;
}


int I_free(void *b)
{
    if ((char *)b != NULL)
	G_free(b);

    return 0;
}


double **I_alloc_double2(int a, int b)
{
    double **x;
    int i;

    x = (double **)I_malloc((a + 1) * sizeof(double *));

    for (i = 0; i < a; i++) {
	int n;

	x[i] = (double *)I_malloc(b * sizeof(double));

	for (n = 0; n < b; n++)
	    x[i][n] = 0;
    }
    x[a] = NULL;

    return x;
}


int *I_alloc_int(int a)
{
    int *x;
    int i;

    x = (int *)I_malloc(a * sizeof(int));

    for (i = 0; i < a; i++)
	x[i] = 0;

    return x;
}

int **I_alloc_int2(int a, int b)
{
    int **x;
    int i, n;

    x = (int **)I_malloc((a + 1) * sizeof(int *));

    for (i = 0; i < a; i++) {
	x[i] = (int *)I_malloc(b * sizeof(int));

	for (n = 0; n < b; n++)
	    x[i][n] = 0;
    }
    x[a] = NULL;

    return x;
}


int I_free_int2(int **x)
{
    int i;

    if (x != NULL) {
	for (i = 0; x[i] != NULL; i++)
	    G_free(x[i]);
	G_free(x);
    }

    return 0;
}


int I_free_double2(double **x)
{
    int i;

    if (x != NULL) {
	for (i = 0; x[i] != NULL; i++)
	    G_free(x[i]);
	G_free(x);
    }

    return 0;
}


double ***I_alloc_double3(int a, int b, int c)
{
    double ***x;
    int i, n;

    x = (double ***)G_malloc((a + 1) * sizeof(double **));

    for (i = 0; i < a; i++) {
	x[i] = I_alloc_double2(b, c);
	if (x[i] == NULL) {
	    for (n = 0; n < i; n++)
		G_free(x[n]);
	    G_free(x);

	    return (double ***)NULL;
	}
    }
    x[a] = NULL;

    return x;
}


int I_free_double3(double ***x)
{
    int i;

    if (x != NULL) {
	for (i = 0; x[i] != NULL; i++)
	    I_free_double2(x[i]);
	G_free(x);
    }

    return 0;
}