addming a dynamic array
This commit is contained in:
@ -62,3 +62,142 @@ ase_awk_t* ase_awk_openstd (void)
|
||||
|
||||
return awk;
|
||||
}
|
||||
|
||||
typedef struct sf_t sf_t;
|
||||
|
||||
struct sf_t
|
||||
{
|
||||
struct
|
||||
{
|
||||
const ase_char_t** files;
|
||||
ase_size_t count; /* the number of files */
|
||||
ase_size_t index; /* current file index */
|
||||
ASE_FILE* handle; /* the handle to an open file */
|
||||
} in;
|
||||
};
|
||||
|
||||
static ase_ssize_t sf_in (int cmd, void* arg, ase_char_t* data, ase_size_t size)
|
||||
{
|
||||
sf_t* sf = (sf_t*)arg;
|
||||
ase_cint_t c;
|
||||
|
||||
if (cmd == ASE_AWK_IO_OPEN)
|
||||
{
|
||||
if (sf->in.index >= sf->in.count) return 0;
|
||||
sf->in.handle = ase_fopen (sf->in.files[sf->in.index], ASE_T("r"));
|
||||
if (sf->in.handle == ASE_NULL) return -1;
|
||||
|
||||
/*
|
||||
ase_awk_setsinname ();
|
||||
*/
|
||||
|
||||
return 1;
|
||||
}
|
||||
else if (cmd == ASE_AWK_IO_CLOSE)
|
||||
{
|
||||
if (sf->in.index >= sf->in.count) return 0;
|
||||
|
||||
fclose (sf->in.handle);
|
||||
return 0;
|
||||
}
|
||||
else if (cmd == ASE_AWK_IO_READ)
|
||||
{
|
||||
ase_ssize_t n = 0;
|
||||
ASE_FILE* fp;
|
||||
|
||||
retry:
|
||||
fp = sf->in.handle;
|
||||
while (!ase_feof(fp) && n < size)
|
||||
{
|
||||
ase_cint_t c = ase_fgetc (fp);
|
||||
if (c == ASE_CHAR_EOF)
|
||||
{
|
||||
if (ase_ferror(fp)) n = -1;
|
||||
break;
|
||||
}
|
||||
data[n++] = c;
|
||||
}
|
||||
|
||||
if (n == 0)
|
||||
{
|
||||
sf->in.index++;
|
||||
if (sf->in.index < sf->in.count)
|
||||
{
|
||||
ase_fclose (fp);
|
||||
sf->in.handle = ase_fopen (sf->in.files[sf->in.index], ASE_T("r"));
|
||||
if (sf->in.handle == ASE_NULL) return -1;
|
||||
/* TODO: reset internal line counters...
|
||||
ase_awk_setsinname ();
|
||||
*/
|
||||
goto retry;
|
||||
}
|
||||
}
|
||||
return n;
|
||||
}
|
||||
|
||||
return -1;
|
||||
}
|
||||
|
||||
#if 0
|
||||
static ase_ssize_t sf_out (
|
||||
int cmd, void* arg, ase_char_t* data, ase_size_t size)
|
||||
{
|
||||
/*struct srcio_data_t* srcio = (struct srcio_data_t*)arg;*/
|
||||
|
||||
if (cmd == ASE_AWK_IO_OPEN) return 1;
|
||||
else if (cmd == ASE_AWK_IO_CLOSE)
|
||||
{
|
||||
ase_fflush (stdout);
|
||||
return 0;
|
||||
}
|
||||
else if (cmd == ASE_AWK_IO_WRITE)
|
||||
{
|
||||
ase_size_t left = size;
|
||||
|
||||
while (left > 0)
|
||||
{
|
||||
if (*data == ASE_T('\0'))
|
||||
{
|
||||
if (ase_fputc (*data, stdout) == ASE_CHAR_EOF) return -1;
|
||||
left -= 1; data += 1;
|
||||
}
|
||||
else
|
||||
{
|
||||
int chunk = (left > ASE_TYPE_MAX(int))? ASE_TYPE_MAX(int): (int)left;
|
||||
int n = ase_fprintf (stdout, ASE_T("%.*s"), chunk, data);
|
||||
if (n < 0) return -1;
|
||||
left -= n; data += n;
|
||||
}
|
||||
}
|
||||
|
||||
return size;
|
||||
}
|
||||
|
||||
return -1;
|
||||
}
|
||||
#endif
|
||||
|
||||
int ase_awk_parsefiles (ase_awk_t* awk, const ase_char_t* files[], ase_size_t count)
|
||||
{
|
||||
sf_t sf;
|
||||
ase_awk_srcios_t sio;
|
||||
|
||||
sf.in.files = files;
|
||||
sf.in.count = count;
|
||||
sf.in.index = 0;
|
||||
sf.in.handle = ASE_NULL;
|
||||
|
||||
sio.in = sf_in;
|
||||
//sio.out = deparse? sf_out: NULL;
|
||||
sio.out = ASE_NULL;
|
||||
sio.data = &sf;
|
||||
|
||||
return ase_awk_parse (awk, &sio);
|
||||
}
|
||||
|
||||
#if 0
|
||||
int ase_awk_parsestring (ase_awk_t* awk, const ase_char_t* str, ase_size_t len)
|
||||
{
|
||||
return -1;
|
||||
}
|
||||
#endif
|
||||
|
||||
341
ase/lib/cmn/dar.c
Normal file
341
ase/lib/cmn/dar.c
Normal file
@ -0,0 +1,341 @@
|
||||
/*
|
||||
* $Id: dar.c 337 2008-08-20 09:17:25Z baconevi $
|
||||
*
|
||||
* {License}
|
||||
*/
|
||||
|
||||
#include <ase/cmn/dar.h>
|
||||
#include "mem.h"
|
||||
|
||||
ase_dar_t* ase_dar_open (ase_mmgr_t* dar, ase_size_t ext, ase_size_t capa)
|
||||
{
|
||||
ase_dar_t* dar;
|
||||
|
||||
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;
|
||||
}
|
||||
|
||||
dar = ASE_MMGR_ALLOC (mmgr, ASE_SIZEOF(ase_dar_t) + ext);
|
||||
if (dar == ASE_NULL) return ASE_NULL;
|
||||
|
||||
return ase_dar_init (dar, mmgr, capa);
|
||||
}
|
||||
|
||||
void ase_dar_close (ase_dar_t* dar)
|
||||
{
|
||||
ase_dar_fini (dar);
|
||||
ASE_MMGR_FREE (dar->mmgr, dar);
|
||||
}
|
||||
|
||||
ase_dar_t* ase_dar_init (ase_dar_t* dar, ase_mmgr_t* mmgr, ase_size_t capa)
|
||||
{
|
||||
ASE_MEMSET (dar, 0, ASE_SIZEOF(*dar));
|
||||
|
||||
dar->mmgr = mmgr;
|
||||
dar->size = 0;
|
||||
dar->capa = capa;
|
||||
|
||||
if (capa == 0) dar->buf = ASE_NULL;
|
||||
else
|
||||
{
|
||||
dar->buf = ASE_MMGR_ALLOC (....);
|
||||
if (dar->buf == ASE_NULL) return ASE_NULL;
|
||||
}
|
||||
|
||||
return dar;
|
||||
}
|
||||
|
||||
void ase_dar_fini (ase_dar_t* dar)
|
||||
{
|
||||
ase_dar_clear (dar);
|
||||
|
||||
if (dar->buf != ASE_NULL)
|
||||
{
|
||||
ASE_MMGR_FREE (dar->mmgr, dar->buf);
|
||||
dar->buf = ASE_NULL;
|
||||
dar->capa = 0;
|
||||
}
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_getsize (ase_dar_t* dar)
|
||||
{
|
||||
return dar->size;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_getcapa (ase_dar_t* dar)
|
||||
{
|
||||
return dar->capa;
|
||||
}
|
||||
|
||||
ase_dar_t* ase_dar_setcapa (ase_dar_t* dar, ase_size_t capa)
|
||||
{
|
||||
void* tmp;
|
||||
|
||||
if (dar->size > capa)
|
||||
{
|
||||
ase_dar_delete (dar, capa, dar->size - capa);
|
||||
ASE_ASSERT (dar->size <= capa);
|
||||
}
|
||||
|
||||
if (capa > 0)
|
||||
{
|
||||
if (dar->awk->mmgr->realloc != ASE_NULL)
|
||||
{
|
||||
tmp = ASE_AWK_REALLOC (dar->awk,
|
||||
dar->buf, ASE_SIZEOF(*dar->buf) * capa);
|
||||
if (tmp == ASE_NULL) return ASE_NULL;
|
||||
}
|
||||
else
|
||||
{
|
||||
tmp = ASE_AWK_ALLOC (
|
||||
dar->awk, ASE_SIZEOF(*dar->buf) * capa);
|
||||
if (tmp == ASE_NULL) return ASE_NULL;
|
||||
if (dar->buf != ASE_NULL)
|
||||
{
|
||||
ase_size_t x;
|
||||
x = (capa > dar->capa)? dar->capa: capa;
|
||||
ASE_MEMCPY (
|
||||
tmp, dar->buf,
|
||||
ASE_SIZEOF(*dar->buf) * x);
|
||||
ASE_AWK_FREE (dar->awk, dar->buf);
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if (dar->buf != ASE_NULL) ASE_AWK_FREE (dar->awk, dar->buf);
|
||||
tmp = ASE_NULL;
|
||||
}
|
||||
|
||||
dar->buf = tmp;
|
||||
dar->capa = capa;
|
||||
|
||||
return dar;
|
||||
}
|
||||
|
||||
void ase_dar_clear (ase_dar_t* dar)
|
||||
{
|
||||
ase_size_t i;
|
||||
|
||||
for (i = 0; i < dar->size; i++)
|
||||
{
|
||||
ASE_AWK_FREE (dar->awk, dar->buf[i].name.ptr);
|
||||
dar->buf[i].name.ptr = ASE_NULL;
|
||||
dar->buf[i].name.len = 0;
|
||||
}
|
||||
|
||||
dar->size = 0;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_insert (
|
||||
ase_dar_t* dar, ase_size_t index,
|
||||
const ase_char_t* str, ase_size_t len)
|
||||
{
|
||||
ase_size_t i;
|
||||
ase_char_t* dup;
|
||||
|
||||
dup = ASE_AWK_STRXDUP (dar->awk, str, len);
|
||||
if (dup == ASE_NULL) return (ase_size_t)-1;
|
||||
|
||||
if (index >= dar->capa)
|
||||
{
|
||||
ase_size_t capa;
|
||||
|
||||
if (dar->capa <= 0) capa = (index + 1);
|
||||
else
|
||||
{
|
||||
do { capa = dar->capa * 2; } while (index >= capa);
|
||||
}
|
||||
|
||||
if (ase_dar_setcapa(dar,capa) == ASE_NULL)
|
||||
{
|
||||
ASE_AWK_FREE (dar->awk, dup);
|
||||
return (ase_size_t)-1;
|
||||
}
|
||||
}
|
||||
|
||||
for (i = dar->size; i > index; i--) dar->buf[i] = dar->buf[i-1];
|
||||
dar->buf[index].name.ptr = dup;
|
||||
dar->buf[index].name.len = len;
|
||||
|
||||
if (index > dar->size) dar->size = index + 1;
|
||||
else dar->size++;
|
||||
|
||||
return index;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_delete (
|
||||
ase_dar_t* dar, ase_size_t index, ase_size_t count)
|
||||
{
|
||||
ase_size_t i, j, k;
|
||||
|
||||
if (index >= dar->size) return 0;
|
||||
if (count > dar->size - index) count = dar->size - index;
|
||||
|
||||
i = index;
|
||||
j = index + count;
|
||||
k = index + count;
|
||||
|
||||
while (i < k)
|
||||
{
|
||||
ASE_AWK_FREE (dar->awk, dar->buf[i].name.ptr);
|
||||
|
||||
if (j >= dar->size)
|
||||
{
|
||||
dar->buf[i].name.ptr = ASE_NULL;
|
||||
dar->buf[i].name.len = 0;
|
||||
i++;
|
||||
}
|
||||
else
|
||||
{
|
||||
dar->buf[i].name.ptr = dar->buf[j].name.ptr;
|
||||
dar->buf[i].name.len = dar->buf[j].name.len;
|
||||
i++; j++;
|
||||
}
|
||||
}
|
||||
|
||||
dar->size -= count;
|
||||
return count;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_add (
|
||||
ase_dar_t* dar, const ase_char_t* str, ase_size_t len)
|
||||
{
|
||||
return ase_dar_insert (dar, dar->size, str, len);
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_adduniq (
|
||||
ase_dar_t* dar, const ase_char_t* str, ase_size_t len)
|
||||
{
|
||||
ase_size_t i;
|
||||
i = ase_dar_find (dar, 0, str, len);
|
||||
if (i != (ase_size_t)-1) return i; /* found. return the current index */
|
||||
|
||||
/* insert a new entry */
|
||||
return ase_dar_insert (dar, dar->size, str, len);
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_find (
|
||||
ase_dar_t* dar, ase_size_t index,
|
||||
const ase_char_t* str, ase_size_t len)
|
||||
{
|
||||
ase_size_t i;
|
||||
|
||||
for (i = index; i < dar->size; i++)
|
||||
{
|
||||
if (ase_strxncmp (
|
||||
dar->buf[i].name.ptr, dar->buf[i].name.len,
|
||||
str, len) == 0) return i;
|
||||
}
|
||||
|
||||
return (ase_size_t)-1;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_rfind (
|
||||
ase_dar_t* dar, ase_size_t index,
|
||||
const ase_char_t* str, ase_size_t len)
|
||||
{
|
||||
ase_size_t i;
|
||||
|
||||
if (index >= dar->size) return (ase_size_t)-1;
|
||||
|
||||
for (i = index + 1; i-- > 0; )
|
||||
{
|
||||
if (ase_strxncmp (
|
||||
dar->buf[i].name.ptr, dar->buf[i].name.len,
|
||||
str, len) == 0) return i;
|
||||
}
|
||||
|
||||
return (ase_size_t)-1;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_rrfind (
|
||||
ase_dar_t* dar, ase_size_t index,
|
||||
const ase_char_t* str, ase_size_t len)
|
||||
{
|
||||
ase_size_t i;
|
||||
|
||||
if (index >= dar->size) return (ase_size_t)-1;
|
||||
|
||||
for (i = dar->size - index; i-- > 0; )
|
||||
{
|
||||
if (ase_strxncmp (
|
||||
dar->buf[i].name.ptr, dar->buf[i].name.len,
|
||||
str, len) == 0) return i;
|
||||
}
|
||||
|
||||
return (ase_size_t)-1;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_findx (
|
||||
ase_dar_t* dar, ase_size_t index,
|
||||
const ase_char_t* str, ase_size_t len,
|
||||
void(*transform)(ase_size_t, ase_cstr_t*,void*), void* arg)
|
||||
{
|
||||
ase_size_t i;
|
||||
|
||||
for (i = index; i < dar->size; i++)
|
||||
{
|
||||
ase_cstr_t x;
|
||||
|
||||
x.ptr = dar->buf[i].name.ptr;
|
||||
x.len = dar->buf[i].name.len;
|
||||
|
||||
transform (i, &x, arg);
|
||||
if (ase_strxncmp (x.ptr, x.len, str, len) == 0) return i;
|
||||
}
|
||||
|
||||
return (ase_size_t)-1;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_rfindx (
|
||||
ase_dar_t* dar, ase_size_t index,
|
||||
const ase_char_t* str, ase_size_t len,
|
||||
void(*transform)(ase_size_t, ase_cstr_t*,void*), void* arg)
|
||||
{
|
||||
ase_size_t i;
|
||||
|
||||
if (index >= dar->size) return (ase_size_t)-1;
|
||||
|
||||
for (i = index + 1; i-- > 0; )
|
||||
{
|
||||
ase_cstr_t x;
|
||||
|
||||
x.ptr = dar->buf[i].name.ptr;
|
||||
x.len = dar->buf[i].name.len;
|
||||
|
||||
transform (i, &x, arg);
|
||||
if (ase_strxncmp (x.ptr, x.len, str, len) == 0) return i;
|
||||
}
|
||||
|
||||
return (ase_size_t)-1;
|
||||
}
|
||||
|
||||
ase_size_t ase_dar_rrfindx (
|
||||
ase_dar_t* dar, ase_size_t index,
|
||||
const ase_char_t* str, ase_size_t len,
|
||||
void(*transform)(ase_size_t, ase_cstr_t*,void*), void* arg)
|
||||
{
|
||||
ase_size_t i;
|
||||
|
||||
if (index >= dar->size) return (ase_size_t)-1;
|
||||
|
||||
for (i = dar->size - index; i-- > 0; )
|
||||
{
|
||||
ase_cstr_t x;
|
||||
|
||||
x.ptr = dar->buf[i].name.ptr;
|
||||
x.len = dar->buf[i].name.len;
|
||||
|
||||
transform (i, &x, arg);
|
||||
if (ase_strxncmp (x.ptr, x.len, str, len) == 0) return i;
|
||||
}
|
||||
|
||||
return (ase_size_t)-1;
|
||||
}
|
||||
@ -1,5 +1,5 @@
|
||||
/*
|
||||
* $Id: map.c 397 2008-09-29 07:11:08Z baconevi $
|
||||
* $Id: map.c 404 2008-09-30 11:14:20Z baconevi $
|
||||
*
|
||||
* {License}
|
||||
*/
|
||||
@ -235,7 +235,7 @@ map_t* ase_map_init (map_t* map, mmgr_t* mmgr, size_t capa, int factor)
|
||||
if (factor > 100) factor = 100;
|
||||
|
||||
/* do not zero out the extension */
|
||||
ASE_MEMSET (map, 0, SIZEOF(map_t));
|
||||
ASE_MEMSET (map, 0, SIZEOF(*map));
|
||||
map->mmgr = mmgr;
|
||||
|
||||
map->bucket = ASE_MMGR_ALLOC (mmgr, capa*SIZEOF(pair_t*));
|
||||
|
||||
@ -65,7 +65,7 @@ void ase_sll_close (sll_t* sll)
|
||||
sll_t* ase_sll_init (sll_t* sll, mmgr_t* mmgr)
|
||||
{
|
||||
/* do not zero out the extension */
|
||||
ASE_MEMSET (sll, 0, ASE_SIZEOF(sll_t));
|
||||
ASE_MEMSET (sll, 0, ASE_SIZEOF(*sll));
|
||||
|
||||
sll->mmgr = mmgr;
|
||||
sll->size = 0;
|
||||
|
||||
Reference in New Issue
Block a user