hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial import

Browse Source
This commit is contained in:
hyung-hwan
2008-12-21 21:35:07 +00:00
parent 4c01ea1604
commit 4803bd861a
384 changed files with 24572 additions and 53621 deletions
Download Patch File Download Diff File Expand all files Collapse all files

458
qse/lib/awk/awk.c
View File

@ -11,132 +11,132 @@
#include "awk.h"
#define SETERR(awk,code) ase_awk_seterrnum(awk,code)
#define SETERR(awk,code) qse_awk_seterrnum(awk,code)
#define SETERRARG(awk,code,line,arg,leng) \
do { \
ase_cstr_t errarg; \
qse_cstr_t errarg; \
errarg.len = (leng); \
errarg.ptr = (arg); \
ase_awk_seterror ((awk), (code), (line), &errarg, 1); \
qse_awk_seterror ((awk), (code), (line), &errarg, 1); \
} while (0)
static void free_afn (ase_map_t* map, void* vptr, ase_size_t vlen)
static void free_afn (qse_map_t* map, void* vptr, qse_size_t vlen)
{
ase_awk_t* awk = *(ase_awk_t**)ASE_MAP_XTN(map);
ase_awk_afn_t* f = (ase_awk_afn_t*)vptr;
qse_awk_t* awk = *(qse_awk_t**)QSE_MAP_XTN(map);
qse_awk_afn_t* f = (qse_awk_afn_t*)vptr;
/* f->name doesn't have to be freed */
/*ASE_AWK_FREE (awk, f->name);*/
/*QSE_AWK_FREE (awk, f->name);*/
ase_awk_clrpt (awk, f->body);
ASE_AWK_FREE (awk, f);
qse_awk_clrpt (awk, f->body);
QSE_AWK_FREE (awk, f);
}
static void free_bfn (ase_map_t* map, void* vptr, ase_size_t vlen)
static void free_bfn (qse_map_t* map, void* vptr, qse_size_t vlen)
{
ase_awk_t* awk = *(ase_awk_t**)ASE_MAP_XTN(map);
ase_awk_bfn_t* f = (ase_awk_bfn_t*)vptr;
qse_awk_t* awk = *(qse_awk_t**)QSE_MAP_XTN(map);
qse_awk_bfn_t* f = (qse_awk_bfn_t*)vptr;
ASE_AWK_FREE (awk, f);
QSE_AWK_FREE (awk, f);
}
ase_awk_t* ase_awk_open (ase_mmgr_t* mmgr, ase_size_t ext)
qse_awk_t* qse_awk_open (qse_mmgr_t* mmgr, qse_size_t ext)
{
ase_awk_t* awk;
qse_awk_t* awk;
if (mmgr == ASE_NULL)
if (mmgr == QSE_NULL)
{
mmgr = ASE_MMGR_GETDFL();
mmgr = QSE_MMGR_GETDFL();
ASE_ASSERTX (mmgr != ASE_NULL,
"Set the memory manager with ASE_MMGR_SETDFL()");
QSE_ASSERTX (mmgr != QSE_NULL,
"Set the memory manager with QSE_MMGR_SETDFL()");
if (mmgr == ASE_NULL) return ASE_NULL;
if (mmgr == QSE_NULL) return QSE_NULL;
}
awk = ASE_MMGR_ALLOC (mmgr, ASE_SIZEOF(ase_awk_t) + ext);
if (awk == ASE_NULL) return ASE_NULL;
awk = QSE_MMGR_ALLOC (mmgr, QSE_SIZEOF(qse_awk_t) + ext);
if (awk == QSE_NULL) return QSE_NULL;
ASE_MEMSET (awk, 0, ASE_SIZEOF(ase_awk_t) + ext);
QSE_MEMSET (awk, 0, QSE_SIZEOF(qse_awk_t) + ext);
awk->mmgr = mmgr;
awk->token.name = ase_str_open (mmgr, 0, 128);
if (awk->token.name == ASE_NULL) goto oops;
awk->token.name = qse_str_open (mmgr, 0, 128);
if (awk->token.name == QSE_NULL) goto oops;
awk->wtab = ase_map_open (mmgr, ASE_SIZEOF(awk), 512, 70);
if (awk->wtab == ASE_NULL) goto oops;
*(ase_awk_t**)ASE_MAP_XTN(awk->wtab) = awk;
ase_map_setcopier (awk->wtab, ASE_MAP_KEY, ASE_MAP_COPIER_INLINE);
ase_map_setcopier (awk->wtab, ASE_MAP_VAL, ASE_MAP_COPIER_INLINE);
ase_map_setscale (awk->wtab, ASE_MAP_KEY, ASE_SIZEOF(ase_char_t));
ase_map_setscale (awk->wtab, ASE_MAP_VAL, ASE_SIZEOF(ase_char_t));
awk->wtab = qse_map_open (mmgr, QSE_SIZEOF(awk), 512, 70);
if (awk->wtab == QSE_NULL) goto oops;
*(qse_awk_t**)QSE_MAP_XTN(awk->wtab) = awk;
qse_map_setcopier (awk->wtab, QSE_MAP_KEY, QSE_MAP_COPIER_INLINE);
qse_map_setcopier (awk->wtab, QSE_MAP_VAL, QSE_MAP_COPIER_INLINE);
qse_map_setscale (awk->wtab, QSE_MAP_KEY, QSE_SIZEOF(qse_char_t));
qse_map_setscale (awk->wtab, QSE_MAP_VAL, QSE_SIZEOF(qse_char_t));
awk->rwtab = ase_map_open (mmgr, ASE_SIZEOF(awk), 512, 70);
if (awk->rwtab == ASE_NULL) goto oops;
*(ase_awk_t**)ASE_MAP_XTN(awk->rwtab) = awk;
ase_map_setcopier (awk->rwtab, ASE_MAP_KEY, ASE_MAP_COPIER_INLINE);
ase_map_setcopier (awk->rwtab, ASE_MAP_VAL, ASE_MAP_COPIER_INLINE);
ase_map_setscale (awk->rwtab, ASE_MAP_KEY, ASE_SIZEOF(ase_char_t));
ase_map_setscale (awk->rwtab, ASE_MAP_VAL, ASE_SIZEOF(ase_char_t));
awk->rwtab = qse_map_open (mmgr, QSE_SIZEOF(awk), 512, 70);
if (awk->rwtab == QSE_NULL) goto oops;
*(qse_awk_t**)QSE_MAP_XTN(awk->rwtab) = awk;
qse_map_setcopier (awk->rwtab, QSE_MAP_KEY, QSE_MAP_COPIER_INLINE);
qse_map_setcopier (awk->rwtab, QSE_MAP_VAL, QSE_MAP_COPIER_INLINE);
qse_map_setscale (awk->rwtab, QSE_MAP_KEY, QSE_SIZEOF(qse_char_t));
qse_map_setscale (awk->rwtab, QSE_MAP_VAL, QSE_SIZEOF(qse_char_t));
/* TODO: initial map size?? */
awk->tree.afns = ase_map_open (mmgr, ASE_SIZEOF(awk), 512, 70);
if (awk->tree.afns == ASE_NULL) goto oops;
*(ase_awk_t**)ASE_MAP_XTN(awk->tree.afns) = awk;
ase_map_setcopier (awk->tree.afns, ASE_MAP_KEY, ASE_MAP_COPIER_INLINE);
ase_map_setfreeer (awk->tree.afns, ASE_MAP_VAL, free_afn);
ase_map_setscale (awk->tree.afns, ASE_MAP_KEY, ASE_SIZEOF(ase_char_t));
awk->tree.afns = qse_map_open (mmgr, QSE_SIZEOF(awk), 512, 70);
if (awk->tree.afns == QSE_NULL) goto oops;
*(qse_awk_t**)QSE_MAP_XTN(awk->tree.afns) = awk;
qse_map_setcopier (awk->tree.afns, QSE_MAP_KEY, QSE_MAP_COPIER_INLINE);
qse_map_setfreeer (awk->tree.afns, QSE_MAP_VAL, free_afn);
qse_map_setscale (awk->tree.afns, QSE_MAP_KEY, QSE_SIZEOF(qse_char_t));
awk->parse.afns = ase_map_open (mmgr, ASE_SIZEOF(awk), 256, 70);
if (awk->parse.afns == ASE_NULL) goto oops;
*(ase_awk_t**)ASE_MAP_XTN(awk->parse.afns) = awk;
ase_map_setcopier (awk->parse.afns, ASE_MAP_KEY, ASE_MAP_COPIER_INLINE);
ase_map_setcopier (awk->parse.afns, ASE_MAP_VAL, ASE_MAP_COPIER_INLINE);
ase_map_setscale (awk->parse.afns, ASE_MAP_KEY, ASE_SIZEOF(ase_char_t));
awk->parse.afns = qse_map_open (mmgr, QSE_SIZEOF(awk), 256, 70);
if (awk->parse.afns == QSE_NULL) goto oops;
*(qse_awk_t**)QSE_MAP_XTN(awk->parse.afns) = awk;
qse_map_setcopier (awk->parse.afns, QSE_MAP_KEY, QSE_MAP_COPIER_INLINE);
qse_map_setcopier (awk->parse.afns, QSE_MAP_VAL, QSE_MAP_COPIER_INLINE);
qse_map_setscale (awk->parse.afns, QSE_MAP_KEY, QSE_SIZEOF(qse_char_t));
awk->parse.named = ase_map_open (mmgr, ASE_SIZEOF(awk), 256, 70);
if (awk->parse.named == ASE_NULL) goto oops;
*(ase_awk_t**)ASE_MAP_XTN(awk->parse.named) = awk;
ase_map_setcopier (awk->parse.named, ASE_MAP_KEY, ASE_MAP_COPIER_INLINE);
ase_map_setcopier (awk->parse.named, ASE_MAP_VAL, ASE_MAP_COPIER_INLINE);
ase_map_setscale (awk->parse.named, ASE_MAP_KEY, ASE_SIZEOF(ase_char_t));
awk->parse.named = qse_map_open (mmgr, QSE_SIZEOF(awk), 256, 70);
if (awk->parse.named == QSE_NULL) goto oops;
*(qse_awk_t**)QSE_MAP_XTN(awk->parse.named) = awk;
qse_map_setcopier (awk->parse.named, QSE_MAP_KEY, QSE_MAP_COPIER_INLINE);
qse_map_setcopier (awk->parse.named, QSE_MAP_VAL, QSE_MAP_COPIER_INLINE);
qse_map_setscale (awk->parse.named, QSE_MAP_KEY, QSE_SIZEOF(qse_char_t));
awk->parse.globals = ase_lda_open (mmgr, ASE_SIZEOF(awk), 128);
awk->parse.locals = ase_lda_open (mmgr, ASE_SIZEOF(awk), 64);
awk->parse.params = ase_lda_open (mmgr, ASE_SIZEOF(awk), 32);
awk->parse.globals = qse_lda_open (mmgr, QSE_SIZEOF(awk), 128);
awk->parse.locals = qse_lda_open (mmgr, QSE_SIZEOF(awk), 64);
awk->parse.params = qse_lda_open (mmgr, QSE_SIZEOF(awk), 32);
if (awk->parse.globals == ASE_NULL ||
awk->parse.locals == ASE_NULL ||
awk->parse.params == ASE_NULL) goto oops;
if (awk->parse.globals == QSE_NULL ||
awk->parse.locals == QSE_NULL ||
awk->parse.params == QSE_NULL) goto oops;
*(ase_awk_t**)ASE_LDA_XTN(awk->parse.globals) = awk;
ase_lda_setcopier (awk->parse.globals, ASE_LDA_COPIER_INLINE);
ase_lda_setscale (awk->parse.globals, ASE_SIZEOF(ase_char_t));
*(qse_awk_t**)QSE_LDA_XTN(awk->parse.globals) = awk;
qse_lda_setcopier (awk->parse.globals, QSE_LDA_COPIER_INLINE);
qse_lda_setscale (awk->parse.globals, QSE_SIZEOF(qse_char_t));
*(ase_awk_t**)ASE_LDA_XTN(awk->parse.locals) = awk;
ase_lda_setcopier (awk->parse.locals, ASE_LDA_COPIER_INLINE);
ase_lda_setscale (awk->parse.locals, ASE_SIZEOF(ase_char_t));
*(qse_awk_t**)QSE_LDA_XTN(awk->parse.locals) = awk;
qse_lda_setcopier (awk->parse.locals, QSE_LDA_COPIER_INLINE);
qse_lda_setscale (awk->parse.locals, QSE_SIZEOF(qse_char_t));
*(ase_awk_t**)ASE_LDA_XTN(awk->parse.params) = awk;
ase_lda_setcopier (awk->parse.params, ASE_LDA_COPIER_INLINE);
ase_lda_setscale (awk->parse.params, ASE_SIZEOF(ase_char_t));
*(qse_awk_t**)QSE_LDA_XTN(awk->parse.params) = awk;
qse_lda_setcopier (awk->parse.params, QSE_LDA_COPIER_INLINE);
qse_lda_setscale (awk->parse.params, QSE_SIZEOF(qse_char_t));
awk->option = 0;
awk->errnum = ASE_AWK_ENOERR;
awk->errnum = QSE_AWK_ENOERR;
awk->errlin = 0;
awk->stopall = ASE_FALSE;
awk->stopall = QSE_FALSE;
awk->parse.nlocals_max = 0;
awk->tree.nglobals = 0;
awk->tree.nbglobals = 0;
awk->tree.begin = ASE_NULL;
awk->tree.begin_tail = ASE_NULL;
awk->tree.end = ASE_NULL;
awk->tree.end_tail = ASE_NULL;
awk->tree.chain = ASE_NULL;
awk->tree.chain_tail = ASE_NULL;
awk->tree.begin = QSE_NULL;
awk->tree.begin_tail = QSE_NULL;
awk->tree.end = QSE_NULL;
awk->tree.end_tail = QSE_NULL;
awk->tree.chain = QSE_NULL;
awk->tree.chain_tail = QSE_NULL;
awk->tree.chain_size = 0;
awk->token.prev.type = 0;
@ -146,113 +146,113 @@ ase_awk_t* ase_awk_open (ase_mmgr_t* mmgr, ase_size_t ext)
awk->token.line = 0;
awk->token.column = 0;
awk->src.lex.curc = ASE_CHAR_EOF;
awk->src.lex.curc = QSE_CHAR_EOF;
awk->src.lex.ungotc_count = 0;
awk->src.lex.line = 1;
awk->src.lex.column = 1;
awk->src.shared.buf_pos = 0;
awk->src.shared.buf_len = 0;
awk->bfn.sys = ASE_NULL;
awk->bfn.user = ase_map_open (mmgr, ASE_SIZEOF(awk), 512, 70);
if (awk->bfn.user == ASE_NULL) goto oops;
*(ase_awk_t**)ASE_MAP_XTN(awk->bfn.user) = awk;
ase_map_setcopier (awk->bfn.user, ASE_MAP_KEY, ASE_MAP_COPIER_INLINE);
ase_map_setfreeer (awk->bfn.user, ASE_MAP_VAL, free_bfn);
ase_map_setscale (awk->bfn.user, ASE_MAP_KEY, ASE_SIZEOF(ase_char_t));
awk->bfn.sys = QSE_NULL;
awk->bfn.user = qse_map_open (mmgr, QSE_SIZEOF(awk), 512, 70);
if (awk->bfn.user == QSE_NULL) goto oops;
*(qse_awk_t**)QSE_MAP_XTN(awk->bfn.user) = awk;
qse_map_setcopier (awk->bfn.user, QSE_MAP_KEY, QSE_MAP_COPIER_INLINE);
qse_map_setfreeer (awk->bfn.user, QSE_MAP_VAL, free_bfn);
qse_map_setscale (awk->bfn.user, QSE_MAP_KEY, QSE_SIZEOF(qse_char_t));
awk->parse.depth.cur.block = 0;
awk->parse.depth.cur.loop = 0;
awk->parse.depth.cur.expr = 0;
ase_awk_setmaxdepth (awk, ASE_AWK_DEPTH_BLOCK_PARSE, 0);
ase_awk_setmaxdepth (awk, ASE_AWK_DEPTH_BLOCK_RUN, 0);
ase_awk_setmaxdepth (awk, ASE_AWK_DEPTH_EXPR_PARSE, 0);
ase_awk_setmaxdepth (awk, ASE_AWK_DEPTH_EXPR_RUN, 0);
ase_awk_setmaxdepth (awk, ASE_AWK_DEPTH_REX_BUILD, 0);
ase_awk_setmaxdepth (awk, ASE_AWK_DEPTH_REX_MATCH, 0);
qse_awk_setmaxdepth (awk, QSE_AWK_DEPTH_BLOCK_PARSE, 0);
qse_awk_setmaxdepth (awk, QSE_AWK_DEPTH_BLOCK_RUN, 0);
qse_awk_setmaxdepth (awk, QSE_AWK_DEPTH_EXPR_PARSE, 0);
qse_awk_setmaxdepth (awk, QSE_AWK_DEPTH_EXPR_RUN, 0);
qse_awk_setmaxdepth (awk, QSE_AWK_DEPTH_REX_BUILD, 0);
qse_awk_setmaxdepth (awk, QSE_AWK_DEPTH_REX_MATCH, 0);
awk->assoc_data = ASE_NULL;
awk->assoc_data = QSE_NULL;
if (ase_awk_initglobals (awk) == -1) goto oops;
if (qse_awk_initglobals (awk) == -1) goto oops;
return awk;
oops:
if (awk->bfn.user) ase_map_close (awk->bfn.user);
if (awk->parse.params) ase_lda_close (awk->parse.params);
if (awk->parse.locals) ase_lda_close (awk->parse.locals);
if (awk->parse.globals) ase_lda_close (awk->parse.globals);
if (awk->parse.named) ase_map_close (awk->parse.named);
if (awk->parse.afns) ase_map_close (awk->parse.afns);
if (awk->tree.afns) ase_map_close (awk->tree.afns);
if (awk->rwtab) ase_map_close (awk->rwtab);
if (awk->wtab) ase_map_close (awk->wtab);
if (awk->token.name) ase_str_close (awk->token.name);
ASE_AWK_FREE (awk, awk);
if (awk->bfn.user) qse_map_close (awk->bfn.user);
if (awk->parse.params) qse_lda_close (awk->parse.params);
if (awk->parse.locals) qse_lda_close (awk->parse.locals);
if (awk->parse.globals) qse_lda_close (awk->parse.globals);
if (awk->parse.named) qse_map_close (awk->parse.named);
if (awk->parse.afns) qse_map_close (awk->parse.afns);
if (awk->tree.afns) qse_map_close (awk->tree.afns);
if (awk->rwtab) qse_map_close (awk->rwtab);
if (awk->wtab) qse_map_close (awk->wtab);
if (awk->token.name) qse_str_close (awk->token.name);
QSE_AWK_FREE (awk, awk);
return ASE_NULL;
return QSE_NULL;
}
int ase_awk_close (ase_awk_t* awk)
int qse_awk_close (qse_awk_t* awk)
{
ase_size_t i;
qse_size_t i;
if (ase_awk_clear (awk) == -1) return -1;
/*ase_awk_clrbfn (awk);*/
ase_map_close (awk->bfn.user);
if (qse_awk_clear (awk) == -1) return -1;
/*qse_awk_clrbfn (awk);*/
qse_map_close (awk->bfn.user);
ase_lda_close (awk->parse.params);
ase_lda_close (awk->parse.locals);
ase_lda_close (awk->parse.globals);
ase_map_close (awk->parse.named);
ase_map_close (awk->parse.afns);
qse_lda_close (awk->parse.params);
qse_lda_close (awk->parse.locals);
qse_lda_close (awk->parse.globals);
qse_map_close (awk->parse.named);
qse_map_close (awk->parse.afns);
ase_map_close (awk->tree.afns);
ase_map_close (awk->rwtab);
ase_map_close (awk->wtab);
qse_map_close (awk->tree.afns);
qse_map_close (awk->rwtab);
qse_map_close (awk->wtab);
ase_str_close (awk->token.name);
qse_str_close (awk->token.name);
for (i = 0; i < ASE_COUNTOF(awk->errstr); i++)
for (i = 0; i < QSE_COUNTOF(awk->errstr); i++)
{
if (awk->errstr[i] != ASE_NULL)
if (awk->errstr[i] != QSE_NULL)
{
ASE_AWK_FREE (awk, awk->errstr[i]);
awk->errstr[i] = ASE_NULL;
QSE_AWK_FREE (awk, awk->errstr[i]);
awk->errstr[i] = QSE_NULL;
}
}
/* ASE_AWK_ALLOC, ASE_AWK_FREE, etc can not be used
/* QSE_AWK_ALLOC, QSE_AWK_FREE, etc can not be used
* from the next line onwards */
ASE_AWK_FREE (awk, awk);
QSE_AWK_FREE (awk, awk);
return 0;
}
int ase_awk_clear (ase_awk_t* awk)
int qse_awk_clear (qse_awk_t* awk)
{
awk->stopall = ASE_FALSE;
awk->stopall = QSE_FALSE;
ASE_MEMSET (&awk->src.ios, 0, ASE_SIZEOF(awk->src.ios));
awk->src.lex.curc = ASE_CHAR_EOF;
QSE_MEMSET (&awk->src.ios, 0, QSE_SIZEOF(awk->src.ios));
awk->src.lex.curc = QSE_CHAR_EOF;
awk->src.lex.ungotc_count = 0;
awk->src.lex.line = 1;
awk->src.lex.column = 1;
awk->src.shared.buf_pos = 0;
awk->src.shared.buf_len = 0;
ASE_ASSERT (ASE_LDA_SIZE(awk->parse.globals) == awk->tree.nglobals);
QSE_ASSERT (QSE_LDA_SIZE(awk->parse.globals) == awk->tree.nglobals);
/* delete all non-builtin global variables */
ase_lda_delete (
qse_lda_delete (
awk->parse.globals, awk->tree.nbglobals,
ASE_LDA_SIZE(awk->parse.globals) - awk->tree.nbglobals);
QSE_LDA_SIZE(awk->parse.globals) - awk->tree.nbglobals);
ase_lda_clear (awk->parse.locals);
ase_lda_clear (awk->parse.params);
ase_map_clear (awk->parse.named);
ase_map_clear (awk->parse.afns);
qse_lda_clear (awk->parse.locals);
qse_lda_clear (awk->parse.params);
qse_map_clear (awk->parse.named);
qse_map_clear (awk->parse.afns);
awk->parse.nlocals_max = 0;
awk->parse.depth.cur.block = 0;
@ -265,189 +265,189 @@ int ase_awk_clear (ase_awk_t* awk)
awk->tree.nglobals = 0; */
awk->tree.nglobals = awk->tree.nbglobals;
awk->tree.cur_afn.ptr = ASE_NULL;
awk->tree.cur_afn.ptr = QSE_NULL;
awk->tree.cur_afn.len = 0;
ase_map_clear (awk->tree.afns);
qse_map_clear (awk->tree.afns);
if (awk->tree.begin != ASE_NULL)
if (awk->tree.begin != QSE_NULL)
{
ase_awk_nde_t* next = awk->tree.begin->next;
/*ASE_ASSERT (awk->tree.begin->next == ASE_NULL);*/
ase_awk_clrpt (awk, awk->tree.begin);
awk->tree.begin = ASE_NULL;
awk->tree.begin_tail = ASE_NULL;
qse_awk_nde_t* next = awk->tree.begin->next;
/*QSE_ASSERT (awk->tree.begin->next == QSE_NULL);*/
qse_awk_clrpt (awk, awk->tree.begin);
awk->tree.begin = QSE_NULL;
awk->tree.begin_tail = QSE_NULL;
}
if (awk->tree.end != ASE_NULL)
if (awk->tree.end != QSE_NULL)
{
/*ASE_ASSERT (awk->tree.end->next == ASE_NULL);*/
ase_awk_clrpt (awk, awk->tree.end);
awk->tree.end = ASE_NULL;
awk->tree.end_tail = ASE_NULL;
/*QSE_ASSERT (awk->tree.end->next == QSE_NULL);*/
qse_awk_clrpt (awk, awk->tree.end);
awk->tree.end = QSE_NULL;
awk->tree.end_tail = QSE_NULL;
}
while (awk->tree.chain != ASE_NULL)
while (awk->tree.chain != QSE_NULL)
{
ase_awk_chain_t* next = awk->tree.chain->next;
qse_awk_chain_t* next = awk->tree.chain->next;
if (awk->tree.chain->pattern != ASE_NULL)
ase_awk_clrpt (awk, awk->tree.chain->pattern);
if (awk->tree.chain->action != ASE_NULL)
ase_awk_clrpt (awk, awk->tree.chain->action);
ASE_AWK_FREE (awk, awk->tree.chain);
if (awk->tree.chain->pattern != QSE_NULL)
qse_awk_clrpt (awk, awk->tree.chain->pattern);
if (awk->tree.chain->action != QSE_NULL)
qse_awk_clrpt (awk, awk->tree.chain->action);
QSE_AWK_FREE (awk, awk->tree.chain);
awk->tree.chain = next;
}
awk->tree.chain_tail = ASE_NULL;
awk->tree.chain_tail = QSE_NULL;
awk->tree.chain_size = 0;
return 0;
}
void* ase_awk_getxtn (ase_awk_t* awk)
void* qse_awk_getxtn (qse_awk_t* awk)
{
return (void*)(awk + 1);
}
ase_mmgr_t* ase_awk_getmmgr (ase_awk_t* awk)
qse_mmgr_t* qse_awk_getmmgr (qse_awk_t* awk)
{
return awk->mmgr;
}
void ase_awk_setmmgr (ase_awk_t* awk, ase_mmgr_t* mmgr)
void qse_awk_setmmgr (qse_awk_t* awk, qse_mmgr_t* mmgr)
{
awk->mmgr = mmgr;
}
ase_ccls_t* ase_awk_getccls (ase_awk_t* awk)
qse_ccls_t* qse_awk_getccls (qse_awk_t* awk)
{
return awk->ccls;
}
void ase_awk_setccls (ase_awk_t* awk, ase_ccls_t* ccls)
void qse_awk_setccls (qse_awk_t* awk, qse_ccls_t* ccls)
{
ASE_ASSERT (ccls->is_upper != ASE_NULL);
ASE_ASSERT (ccls->is_lower != ASE_NULL);
ASE_ASSERT (ccls->is_alpha != ASE_NULL);
ASE_ASSERT (ccls->is_digit != ASE_NULL);
ASE_ASSERT (ccls->is_xdigit != ASE_NULL);
ASE_ASSERT (ccls->is_alnum != ASE_NULL);
ASE_ASSERT (ccls->is_space != ASE_NULL);
ASE_ASSERT (ccls->is_print != ASE_NULL);
ASE_ASSERT (ccls->is_graph != ASE_NULL);
ASE_ASSERT (ccls->is_cntrl != ASE_NULL);
ASE_ASSERT (ccls->is_punct != ASE_NULL);
ASE_ASSERT (ccls->to_upper != ASE_NULL);
ASE_ASSERT (ccls->to_lower != ASE_NULL);
QSE_ASSERT (ccls->is_upper != QSE_NULL);
QSE_ASSERT (ccls->is_lower != QSE_NULL);
QSE_ASSERT (ccls->is_alpha != QSE_NULL);
QSE_ASSERT (ccls->is_digit != QSE_NULL);
QSE_ASSERT (ccls->is_xdigit != QSE_NULL);
QSE_ASSERT (ccls->is_alnum != QSE_NULL);
QSE_ASSERT (ccls->is_space != QSE_NULL);
QSE_ASSERT (ccls->is_print != QSE_NULL);
QSE_ASSERT (ccls->is_graph != QSE_NULL);
QSE_ASSERT (ccls->is_cntrl != QSE_NULL);
QSE_ASSERT (ccls->is_punct != QSE_NULL);
QSE_ASSERT (ccls->to_upper != QSE_NULL);
QSE_ASSERT (ccls->to_lower != QSE_NULL);
awk->ccls = ccls;
}
ase_awk_prmfns_t* ase_awk_getprmfns (ase_awk_t* awk)
qse_awk_prmfns_t* qse_awk_getprmfns (qse_awk_t* awk)
{
return awk->prmfns;
}
void ase_awk_setprmfns (ase_awk_t* awk, ase_awk_prmfns_t* prmfns)
void qse_awk_setprmfns (qse_awk_t* awk, qse_awk_prmfns_t* prmfns)
{
ASE_ASSERT (prmfns->pow != ASE_NULL);
ASE_ASSERT (prmfns->sprintf != ASE_NULL);
ASE_ASSERT (prmfns->dprintf != ASE_NULL);
QSE_ASSERT (prmfns->pow != QSE_NULL);
QSE_ASSERT (prmfns->sprintf != QSE_NULL);
QSE_ASSERT (prmfns->dprintf != QSE_NULL);
awk->prmfns = prmfns;
}
int ase_awk_getoption (ase_awk_t* awk)
int qse_awk_getoption (qse_awk_t* awk)
{
return awk->option;
}
void ase_awk_setoption (ase_awk_t* awk, int opt)
void qse_awk_setoption (qse_awk_t* awk, int opt)
{
awk->option = opt;
}
void ase_awk_stopall (ase_awk_t* awk)
void qse_awk_stopall (qse_awk_t* awk)
{
awk->stopall = ASE_TRUE;
awk->stopall = QSE_TRUE;
}
int ase_awk_getword (ase_awk_t* awk,
const ase_char_t* okw, ase_size_t olen,
const ase_char_t** nkw, ase_size_t* nlen)
int qse_awk_getword (qse_awk_t* awk,
const qse_char_t* okw, qse_size_t olen,
const qse_char_t** nkw, qse_size_t* nlen)
{
ase_map_pair_t* p;
qse_map_pair_t* p;
p = ase_map_search (awk->wtab, okw, olen);
if (p == ASE_NULL) return -1;
p = qse_map_search (awk->wtab, okw, olen);
if (p == QSE_NULL) return -1;
*nkw = ((ase_cstr_t*)p->vptr)->ptr;
*nlen = ((ase_cstr_t*)p->vptr)->len;
*nkw = ((qse_cstr_t*)p->vptr)->ptr;
*nlen = ((qse_cstr_t*)p->vptr)->len;
return 0;
}
int ase_awk_unsetword (ase_awk_t* awk, const ase_char_t* kw, ase_size_t len)
int qse_awk_unsetword (qse_awk_t* awk, const qse_char_t* kw, qse_size_t len)
{
ase_map_pair_t* p;
qse_map_pair_t* p;
p = ase_map_search (awk->wtab, kw, len);
if (p == ASE_NULL)
p = qse_map_search (awk->wtab, kw, len);
if (p == QSE_NULL)
{
SETERRARG (awk, ASE_AWK_ENOENT, 0, kw, len);
SETERRARG (awk, QSE_AWK_ENOENT, 0, kw, len);
return -1;
}
ase_map_delete (awk->rwtab, ASE_MAP_VPTR(p), ASE_MAP_VLEN(p));
ase_map_delete (awk->wtab, kw, len);
qse_map_delete (awk->rwtab, QSE_MAP_VPTR(p), QSE_MAP_VLEN(p));
qse_map_delete (awk->wtab, kw, len);
return 0;
}
void ase_awk_unsetallwords (ase_awk_t* awk)
void qse_awk_unsetallwords (qse_awk_t* awk)
{
ase_map_clear (awk->wtab);
ase_map_clear (awk->rwtab);
qse_map_clear (awk->wtab);
qse_map_clear (awk->rwtab);
}
int ase_awk_setword (ase_awk_t* awk,
const ase_char_t* okw, ase_size_t olen,
const ase_char_t* nkw, ase_size_t nlen)
int qse_awk_setword (qse_awk_t* awk,
const qse_char_t* okw, qse_size_t olen,
const qse_char_t* nkw, qse_size_t nlen)
{
ase_cstr_t* vn, * vo;
qse_cstr_t* vn, * vo;
if (nkw == ASE_NULL || nlen == 0)
if (nkw == QSE_NULL || nlen == 0)
{
ase_map_pair_t* p;
qse_map_pair_t* p;
if (okw == ASE_NULL || olen == 0)
if (okw == QSE_NULL || olen == 0)
{
/* clear the entire table */
ase_awk_unsetallwords (awk);
qse_awk_unsetallwords (awk);
return 0;
}
return ase_awk_unsetword (awk, okw, olen);
return qse_awk_unsetword (awk, okw, olen);
}
else if (okw == ASE_NULL || olen == 0)
else if (okw == QSE_NULL || olen == 0)
{
SETERR (awk, ASE_AWK_EINVAL);
SETERR (awk, QSE_AWK_EINVAL);
return -1;
}
/* set the word */
if (ase_map_upsert (awk->wtab,
(ase_char_t*)okw, olen, (ase_char_t*)nkw, nlen) == ASE_NULL)
if (qse_map_upsert (awk->wtab,
(qse_char_t*)okw, olen, (qse_char_t*)nkw, nlen) == QSE_NULL)
{
SETERR (awk, ASE_AWK_ENOMEM);
SETERR (awk, QSE_AWK_ENOMEM);
return -1;
}
if (ase_map_upsert (awk->rwtab,
(ase_char_t*)nkw, nlen, (ase_char_t*)okw, olen) == ASE_NULL)
if (qse_map_upsert (awk->rwtab,
(qse_char_t*)nkw, nlen, (qse_char_t*)okw, olen) == QSE_NULL)
{
ase_map_delete (awk->wtab, okw, olen);
SETERR (awk, ASE_AWK_ENOMEM);
qse_map_delete (awk->wtab, okw, olen);
SETERR (awk, QSE_AWK_ENOMEM);
return -1;
}
@ -455,14 +455,14 @@ int ase_awk_setword (ase_awk_t* awk,
}
/* TODO: XXXX */
int ase_awk_setrexfns (ase_awk_t* awk, ase_awk_rexfns_t* rexfns)
int qse_awk_setrexfns (qse_awk_t* awk, qse_awk_rexfns_t* rexfns)
{
if (rexfns->build == ASE_NULL ||
rexfns->match == ASE_NULL ||
rexfns->free == ASE_NULL ||
rexfns->isempty == ASE_NULL)
if (rexfns->build == QSE_NULL ||
rexfns->match == QSE_NULL ||
rexfns->free == QSE_NULL ||
rexfns->isempty == QSE_NULL)
{
SETERR (awk, ASE_AWK_EINVAL);
SETERR (awk, QSE_AWK_EINVAL);
return -1;
}