2007-12-30 17:41:49 +01:00
|
|
|
/***************************************************************************
|
|
|
|
|
|
|
|
array.c
|
|
|
|
|
|
|
|
C array management routines
|
|
|
|
|
|
|
|
(c) 2000-2007 Benoit Minisini <gambas@users.sourceforge.net>
|
|
|
|
|
|
|
|
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 1, 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., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
|
|
|
|
#define __ARRAY_C
|
|
|
|
|
|
|
|
#include "gb_common.h"
|
|
|
|
#include "gb_error.h"
|
|
|
|
#include "gb_alloc.h"
|
|
|
|
#include "gb_array.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2008-01-05 15:07:21 +01:00
|
|
|
PUBLIC void ARRAY_create_with_size(void *p_data, size_t size, int inc)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
ARRAY *array;
|
|
|
|
|
|
|
|
ALLOC(&array, sizeof(ARRAY), "ARRAY_create");
|
|
|
|
|
|
|
|
array->count = 0;
|
|
|
|
array->max = 0;
|
|
|
|
array->size = size;
|
|
|
|
if (size > 2 && (size & 3))
|
|
|
|
fprintf(stderr, "WARNING: ARRAY_create_with_size: size = %d\n", size);
|
|
|
|
array->inc = inc;
|
|
|
|
|
|
|
|
*((void **)p_data) = ARRAY_TO_DATA(array);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
PUBLIC void ARRAY_delete(void *p_data)
|
|
|
|
{
|
|
|
|
void **data = (void **)p_data;
|
|
|
|
ARRAY *alloc = DATA_TO_ARRAY(*data);
|
|
|
|
|
|
|
|
if (!*data)
|
|
|
|
return;
|
|
|
|
|
|
|
|
FREE(&alloc, "ARRAY_delete");
|
|
|
|
|
|
|
|
*data = NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
PUBLIC void *ARRAY_add_data(void *p_data, int num, boolean zero)
|
|
|
|
{
|
|
|
|
void **data = (void **)p_data;
|
|
|
|
register ARRAY *array = DATA_TO_ARRAY(*data);
|
|
|
|
ARRAY *new_array;
|
|
|
|
char *ptr;
|
|
|
|
|
|
|
|
array->count += num;
|
|
|
|
|
|
|
|
if (array->count > array->max)
|
|
|
|
{
|
|
|
|
array->max = array->inc + ((array->count + array->inc) / array->inc) * array->inc;
|
|
|
|
new_array = array;
|
|
|
|
REALLOC(&new_array, sizeof(ARRAY) + array->max * array->size, "ARRAY_add_data");
|
|
|
|
array = new_array;
|
|
|
|
*data = ARRAY_TO_DATA(array);
|
|
|
|
}
|
|
|
|
|
|
|
|
ptr = (char *)array + sizeof(ARRAY) + array->size * (array->count - num);
|
|
|
|
|
|
|
|
if (zero) memset(ptr, 0, array->size * num);
|
|
|
|
|
|
|
|
return ptr;
|
|
|
|
}
|
|
|
|
|
|
|
|
PUBLIC void *ARRAY_add_data_one(void *p_data, boolean zero)
|
|
|
|
{
|
|
|
|
void **data = (void **)p_data;
|
|
|
|
register ARRAY *array = DATA_TO_ARRAY(*data);
|
|
|
|
ARRAY *new_array;
|
|
|
|
char *ptr;
|
|
|
|
|
|
|
|
array->count++;
|
|
|
|
|
|
|
|
if (array->count > array->max)
|
|
|
|
{
|
|
|
|
array->max = array->inc + ((array->count + array->inc) / array->inc) * array->inc;
|
|
|
|
new_array = array;
|
|
|
|
REALLOC(&new_array, sizeof(ARRAY) + array->max * array->size, "ARRAY_add_data_one");
|
|
|
|
array = new_array;
|
|
|
|
*data = ARRAY_TO_DATA(array);
|
|
|
|
}
|
|
|
|
|
|
|
|
ptr = (char *)array + sizeof(ARRAY) + array->size * (array->count - 1);
|
|
|
|
|
|
|
|
if (zero) memset(ptr, 0, array->size);
|
|
|
|
|
|
|
|
return ptr;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PUBLIC void ARRAY_remove_last(void *p_data)
|
|
|
|
{
|
|
|
|
void **data = (void **)p_data;
|
|
|
|
ARRAY *array = DATA_TO_ARRAY(*data);
|
|
|
|
|
|
|
|
if (!array->count)
|
|
|
|
return;
|
|
|
|
|
|
|
|
array->count--;
|
|
|
|
}
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
PUBLIC void *ARRAY_get(void *data, int pos)
|
|
|
|
{
|
|
|
|
ARRAY *array = DATA_TO_ARRAY(data);
|
|
|
|
|
|
|
|
return (char *)data + array->size * pos;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2008-01-05 15:07:21 +01:00
|
|
|
PUBLIC void *ARRAY_insert_many(void *p_data, int pos, int count)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
void **data;
|
|
|
|
ARRAY *array;
|
|
|
|
char *addr;
|
2008-01-05 15:07:21 +01:00
|
|
|
int len;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
data = (void **)p_data;
|
|
|
|
array = DATA_TO_ARRAY(*data);
|
|
|
|
|
|
|
|
if ((pos < 0) || (pos > array->count))
|
|
|
|
pos = array->count;
|
|
|
|
|
|
|
|
ARRAY_add_many(p_data, count);
|
|
|
|
array = DATA_TO_ARRAY(*data);
|
|
|
|
|
|
|
|
addr = ((char *)(*data)) + array->size * pos;
|
|
|
|
len = (array->count - pos - count) * array->size;
|
|
|
|
|
|
|
|
if (len > 0)
|
|
|
|
memmove(addr + array->size * count, addr, len);
|
|
|
|
|
|
|
|
memset(addr, 0, array->size * count);
|
|
|
|
|
|
|
|
return addr;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2008-01-05 15:07:21 +01:00
|
|
|
PUBLIC void ARRAY_remove_many(void *p_data, int pos, int count)
|
2007-12-30 17:41:49 +01:00
|
|
|
{
|
|
|
|
void **data = (void **)p_data;
|
|
|
|
ARRAY *array = DATA_TO_ARRAY(*data);
|
|
|
|
char *addr;
|
2008-01-05 15:07:21 +01:00
|
|
|
int len;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
if ((pos < 0) || (pos >= array->count))
|
|
|
|
return;
|
|
|
|
|
|
|
|
if (count > (array->count - pos))
|
|
|
|
count = array->count - pos;
|
|
|
|
|
|
|
|
addr = ((char *)(*data)) + array->size * pos;
|
|
|
|
len = (array->count - pos - count) * array->size;
|
|
|
|
|
|
|
|
if (len > 0)
|
|
|
|
memmove(addr, addr + array->size * count, len);
|
|
|
|
|
|
|
|
array->count -= count;
|
|
|
|
|
|
|
|
if (array->max <= array->inc)
|
|
|
|
return;
|
|
|
|
|
|
|
|
if (array->count > (array->max / 2))
|
|
|
|
return;
|
|
|
|
|
|
|
|
array->max = ((array->count + array->inc) / array->inc) * array->inc;
|
|
|
|
REALLOC(&array, sizeof(ARRAY) + array->max * array->size, "ARRAY_remove_many");
|
|
|
|
*data = ARRAY_TO_DATA(array);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
PUBLIC void ARRAY_qsort(void *data, ARRAY_COMP_FUNC cmp)
|
|
|
|
{
|
|
|
|
ARRAY *array = DATA_TO_ARRAY(data);
|
|
|
|
|
|
|
|
if (array->count)
|
|
|
|
qsort(data, array->count, array->size, cmp);
|
|
|
|
}
|
|
|
|
|