2008-10-03 06:06:10 +00:00
|
|
|
/*
|
|
|
|
* $Id: lda.c 337 2008-08-20 09:17:25Z baconevi $
|
|
|
|
*
|
|
|
|
* {License}
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <ase/cmn/lda.h>
|
|
|
|
#include "mem.h"
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
#define DPTR(cell) ASE_LDA_DPTR(cell)
|
|
|
|
#define DLEN(cell) ASE_LDA_DLEN(cell)
|
2008-10-03 06:06:10 +00:00
|
|
|
#define TOB(lda,len) ((len)*(lda)->scale)
|
2008-10-06 08:52:15 +00:00
|
|
|
#define INVALID ASE_LDA_INVALID
|
2008-10-03 06:06:10 +00:00
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
#define cell_t ase_lda_cell_t
|
|
|
|
#define lda_t ase_lda_t
|
|
|
|
#define size_t ase_size_t
|
|
|
|
#define mmgr_t ase_mmgr_t
|
|
|
|
|
|
|
|
lda_t* ase_lda_open (mmgr_t* mmgr, size_t ext, size_t capa)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
lda_t* lda;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
if (mmgr == ASE_NULL)
|
|
|
|
{
|
|
|
|
mmgr = ASE_MMGR_GETDFL();
|
|
|
|
|
|
|
|
ASE_ASSERTX (mmgr != ASE_NULL,
|
|
|
|
"Set the memory manager with ASE_MMGR_SETDFL()");
|
|
|
|
|
|
|
|
if (mmgr == ASE_NULL) return ASE_NULL;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
lda = ASE_MMGR_ALLOC (mmgr, ASE_SIZEOF(lda_t) + ext);
|
2008-10-03 06:06:10 +00:00
|
|
|
if (lda == ASE_NULL) return ASE_NULL;
|
|
|
|
|
|
|
|
return ase_lda_init (lda, mmgr, capa);
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
void ase_lda_close (lda_t* lda)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
|
|
|
ase_lda_fini (lda);
|
|
|
|
ASE_MMGR_FREE (lda->mmgr, lda);
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
lda_t* ase_lda_init (lda_t* lda, mmgr_t* mmgr, size_t capa)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
|
|
|
ASE_MEMSET (lda, 0, ASE_SIZEOF(*lda));
|
|
|
|
|
|
|
|
lda->mmgr = mmgr;
|
|
|
|
lda->size = 0;
|
|
|
|
lda->capa = 0;
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell = ASE_NULL;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
if (ase_lda_setcapa (lda, capa) == ASE_NULL) return ASE_NULL;
|
|
|
|
return lda;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
void ase_lda_fini (lda_t* lda)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
|
|
|
ase_lda_clear (lda);
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
if (lda->cell != ASE_NULL)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
ASE_MMGR_FREE (lda->mmgr, lda->cell);
|
|
|
|
lda->cell = ASE_NULL;
|
2008-10-03 06:06:10 +00:00
|
|
|
lda->capa = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
void* ase_lda_getextension (lda_t* lda)
|
|
|
|
{
|
|
|
|
return lda + 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
mmgr_t* ase_lda_getmmgr (lda_t* lda)
|
|
|
|
{
|
|
|
|
return lda->mmgr;
|
|
|
|
}
|
|
|
|
|
|
|
|
void ase_lda_setmmgr (lda_t* lda, mmgr_t* mmgr)
|
|
|
|
{
|
|
|
|
lda->mmgr = mmgr;
|
|
|
|
}
|
|
|
|
|
|
|
|
size_t ase_lda_getsize (lda_t* lda)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
|
|
|
return lda->size;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_getcapa (lda_t* lda)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
|
|
|
return lda->capa;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
lda_t* ase_lda_setcapa (lda_t* lda, size_t capa)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
|
|
|
void* tmp;
|
|
|
|
|
|
|
|
if (lda->size > capa)
|
|
|
|
{
|
|
|
|
ase_lda_delete (lda, capa, lda->size - capa);
|
|
|
|
ASE_ASSERT (lda->size <= capa);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (capa > 0)
|
|
|
|
{
|
|
|
|
if (lda->mmgr->realloc != ASE_NULL)
|
|
|
|
{
|
|
|
|
tmp = ASE_MMGR_REALLOC (lda->mmgr,
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell, ASE_SIZEOF(*lda->cell) * capa);
|
2008-10-03 06:06:10 +00:00
|
|
|
if (tmp == ASE_NULL) return ASE_NULL;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
tmp = ASE_MMGR_ALLOC (
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->mmgr, ASE_SIZEOF(*lda->cell) * capa);
|
2008-10-03 06:06:10 +00:00
|
|
|
if (tmp == ASE_NULL) return ASE_NULL;
|
2008-10-06 08:52:15 +00:00
|
|
|
if (lda->cell != ASE_NULL)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t x;
|
2008-10-03 06:06:10 +00:00
|
|
|
x = (capa > lda->capa)? lda->capa: capa;
|
2008-10-06 08:52:15 +00:00
|
|
|
ASE_MEMCPY (tmp, lda->cell,
|
|
|
|
ASE_SIZEOF(*lda->cell) * x);
|
|
|
|
ASE_MMGR_FREE (lda->mmgr, lda->cell);
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
if (lda->cell != ASE_NULL)
|
|
|
|
{
|
|
|
|
ase_lda_clear (lda);
|
|
|
|
ASE_MMGR_FREE (lda->mmgr, lda->cell);
|
|
|
|
}
|
2008-10-03 06:06:10 +00:00
|
|
|
tmp = ASE_NULL;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell = tmp;
|
2008-10-03 06:06:10 +00:00
|
|
|
lda->capa = capa;
|
|
|
|
|
|
|
|
return lda;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
static cell_t* alloc_cell (lda_t* lda, void* dptr, size_t dlen)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
cell_t* n;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
if (lda->copier == ASE_NULL)
|
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
n = ASE_MMGR_ALLOC (lda->mmgr, ASE_SIZEOF(cell_t));
|
2008-10-03 06:06:10 +00:00
|
|
|
if (n == ASE_NULL) return ASE_NULL;
|
|
|
|
DPTR(n) = dptr;
|
|
|
|
}
|
|
|
|
else if (lda->copier == ASE_LDA_COPIER_INLINE)
|
|
|
|
{
|
|
|
|
n = ASE_MMGR_ALLOC (lda->mmgr,
|
2008-10-06 08:52:15 +00:00
|
|
|
ASE_SIZEOF(cell_t) + TOB(lda,dlen));
|
2008-10-03 06:06:10 +00:00
|
|
|
if (n == ASE_NULL) return ASE_NULL;
|
|
|
|
|
|
|
|
ASE_MEMCPY (n + 1, dptr, TOB(lda,dlen));
|
|
|
|
DPTR(n) = n + 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
n = ASE_MMGR_ALLOC (lda->mmgr, ASE_SIZEOF(cell_t));
|
2008-10-03 06:06:10 +00:00
|
|
|
if (n == ASE_NULL) return ASE_NULL;
|
|
|
|
DPTR(n) = lda->copier (lda, dptr, dlen);
|
|
|
|
if (DPTR(n) == ASE_NULL)
|
|
|
|
{
|
|
|
|
ASE_MMGR_FREE (lda->mmgr, n);
|
|
|
|
return ASE_NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
DLEN(n) = dlen;
|
|
|
|
|
|
|
|
return n;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_insert (lda_t* lda, size_t index, void* dptr, size_t dlen)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
|
|
|
cell_t* cell;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
cell = alloc_cell (lda, dptr, dlen);
|
|
|
|
if (cell == ASE_NULL) return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
if (index >= lda->capa)
|
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t capa;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
if (lda->capa <= 0) capa = (index + 1);
|
|
|
|
else
|
|
|
|
{
|
|
|
|
do { capa = lda->capa * 2; } while (index >= capa);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (ase_lda_setcapa(lda,capa) == ASE_NULL)
|
|
|
|
{
|
|
|
|
if (lda->freeer)
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->freeer (lda, DPTR(cell), DLEN(cell));
|
|
|
|
return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
for (i = lda->size; i > index; i--)
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell[i] = lda->cell[i-1];
|
|
|
|
lda->cell[index] = cell;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
if (index > lda->size) lda->size = index + 1;
|
|
|
|
else lda->size++;
|
|
|
|
|
|
|
|
return index;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_delete (lda_t* lda, size_t index, size_t count)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i, j, k;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
if (index >= lda->size) return 0;
|
|
|
|
if (count > lda->size - index) count = lda->size - index;
|
|
|
|
|
|
|
|
i = index;
|
|
|
|
j = index + count;
|
|
|
|
k = index + count;
|
|
|
|
|
|
|
|
while (i < k)
|
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
cell_t* c = lda->cell[i];
|
|
|
|
|
|
|
|
if (lda->freeer != ASE_NULL)
|
|
|
|
lda->freeer (lda, DPTR(c), DLEN(c));
|
|
|
|
ASE_MMGR_FREE (lda->mmgr, c);
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
if (j >= lda->size)
|
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell[i] = ASE_NULL;
|
2008-10-03 06:06:10 +00:00
|
|
|
i++;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell[i] = lda->cell[j];
|
2008-10-03 06:06:10 +00:00
|
|
|
i++; j++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
lda->size -= count;
|
|
|
|
return count;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
void ase_lda_clear (lda_t* lda)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
for (i = 0; i < lda->size; i++)
|
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
cell_t* c = lda->cell[i];
|
|
|
|
if (lda->freeer)
|
|
|
|
lda->freeer (lda, DPTR(c), DLEN(c));
|
|
|
|
ASE_MMGR_FREE (lda->mmgr, c);
|
|
|
|
lda->cell[i] = ASE_NULL;
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
lda->size = 0;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_add (
|
|
|
|
lda_t* lda, ase_char_t* str, size_t len)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
|
|
|
return ase_lda_insert (lda, lda->size, str, len);
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_adduniq (
|
|
|
|
lda_t* lda, ase_char_t* str, size_t len)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
2008-10-03 06:06:10 +00:00
|
|
|
i = ase_lda_find (lda, 0, str, len);
|
2008-10-06 08:52:15 +00:00
|
|
|
if (i != INVALID) return i; /* found. return the current index */
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
/* insert a new entry */
|
|
|
|
return ase_lda_insert (lda, lda->size, str, len);
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
#if 0
|
|
|
|
size_t ase_lda_find (
|
|
|
|
lda_t* lda, size_t index,
|
|
|
|
const ase_char_t* str, size_t len)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
for (i = index; i < lda->size; i++)
|
|
|
|
{
|
|
|
|
if (ase_strxncmp (
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell[i].name.ptr, lda->cell[i].name.len,
|
2008-10-03 06:06:10 +00:00
|
|
|
str, len) == 0) return i;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_rfind (
|
|
|
|
lda_t* lda, size_t index,
|
|
|
|
const ase_char_t* str, size_t len)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
if (index >= lda->size) return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
for (i = index + 1; i-- > 0; )
|
|
|
|
{
|
|
|
|
if (ase_strxncmp (
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell[i].name.ptr, lda->cell[i].name.len,
|
2008-10-03 06:06:10 +00:00
|
|
|
str, len) == 0) return i;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_rrfind (
|
|
|
|
lda_t* lda, size_t index,
|
|
|
|
const ase_char_t* str, size_t len)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
if (index >= lda->size) return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
for (i = lda->size - index; i-- > 0; )
|
|
|
|
{
|
|
|
|
if (ase_strxncmp (
|
2008-10-06 08:52:15 +00:00
|
|
|
lda->cell[i].name.ptr, lda->cell[i].name.len,
|
2008-10-03 06:06:10 +00:00
|
|
|
str, len) == 0) return i;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_findx (
|
|
|
|
lda_t* lda, size_t index,
|
|
|
|
const ase_char_t* str, size_t len,
|
|
|
|
void(*transform)(size_t, ase_cstr_t*,void*), void* arg)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
for (i = index; i < lda->size; i++)
|
|
|
|
{
|
|
|
|
ase_cstr_t x;
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
x.ptr = lda->cell[i].name.ptr;
|
|
|
|
x.len = lda->cell[i].name.len;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
transform (i, &x, arg);
|
|
|
|
if (ase_strxncmp (x.ptr, x.len, str, len) == 0) return i;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_rfindx (
|
|
|
|
lda_t* lda, size_t index,
|
|
|
|
const ase_char_t* str, size_t len,
|
|
|
|
void(*transform)(size_t, ase_cstr_t*,void*), void* arg)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
if (index >= lda->size) return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
for (i = index + 1; i-- > 0; )
|
|
|
|
{
|
|
|
|
ase_cstr_t x;
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
x.ptr = lda->cell[i].name.ptr;
|
|
|
|
x.len = lda->cell[i].name.len;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
transform (i, &x, arg);
|
|
|
|
if (ase_strxncmp (x.ptr, x.len, str, len) == 0) return i;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t ase_lda_rrfindx (
|
|
|
|
lda_t* lda, size_t index,
|
|
|
|
const ase_char_t* str, size_t len,
|
|
|
|
void(*transform)(size_t, ase_cstr_t*,void*), void* arg)
|
2008-10-03 06:06:10 +00:00
|
|
|
{
|
2008-10-06 08:52:15 +00:00
|
|
|
size_t i;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
if (index >= lda->size) return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
for (i = lda->size - index; i-- > 0; )
|
|
|
|
{
|
|
|
|
ase_cstr_t x;
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
x.ptr = lda->cell[i].name.ptr;
|
|
|
|
x.len = lda->cell[i].name.len;
|
2008-10-03 06:06:10 +00:00
|
|
|
|
|
|
|
transform (i, &x, arg);
|
|
|
|
if (ase_strxncmp (x.ptr, x.len, str, len) == 0) return i;
|
|
|
|
}
|
|
|
|
|
2008-10-06 08:52:15 +00:00
|
|
|
return INVALID;
|
2008-10-03 06:06:10 +00:00
|
|
|
}
|
2008-10-06 08:52:15 +00:00
|
|
|
|
|
|
|
|
|
|
|
void* ase_lda_copyinline (lda_t* lda, void* dptr, size_t dlen)
|
|
|
|
{
|
|
|
|
/* this is a dummy copier */
|
|
|
|
return ASE_NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|