qse/ase/awk/awk.c

266 lines
6.5 KiB
C
Raw Normal View History

2006-03-02 15:36:30 +00:00
/*
2007-01-07 07:30:40 +00:00
* $Id: awk.c,v 1.104 2007-01-07 07:30:39 bacon Exp $
2006-03-02 15:36:30 +00:00
*/
2006-02-23 14:42:33 +00:00
2006-10-22 14:00:05 +00:00
#if defined(__BORLANDC__)
#pragma hdrstop
#define Library
#endif
2006-10-24 04:10:12 +00:00
#include <ase/awk/awk_i.h>
2006-02-23 14:42:33 +00:00
2006-06-20 15:27:50 +00:00
static void __free_afn (void* awk, void* afn);
2006-02-23 14:42:33 +00:00
2006-12-15 14:58:37 +00:00
ase_awk_t* ase_awk_open (const ase_awk_sysfns_t* sysfns, int* errnum)
2006-10-22 14:00:05 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_t* awk;
2006-12-15 14:58:37 +00:00
if (sysfns == ASE_NULL ||
sysfns->malloc == ASE_NULL ||
sysfns->free == ASE_NULL ||
sysfns->is_upper == ASE_NULL ||
2006-12-13 14:13:07 +00:00
sysfns->is_lower == ASE_NULL ||
sysfns->is_alpha == ASE_NULL ||
sysfns->is_digit == ASE_NULL ||
sysfns->is_xdigit == ASE_NULL ||
sysfns->is_alnum == ASE_NULL ||
sysfns->is_space == ASE_NULL ||
sysfns->is_print == ASE_NULL ||
sysfns->is_graph == ASE_NULL ||
sysfns->is_cntrl == ASE_NULL ||
sysfns->is_punct == ASE_NULL ||
sysfns->to_upper == ASE_NULL ||
2006-12-15 14:58:37 +00:00
sysfns->to_lower == ASE_NULL ||
sysfns->pow == ASE_NULL ||
sysfns->sprintf == ASE_NULL ||
sysfns->aprintf == ASE_NULL ||
sysfns->dprintf == ASE_NULL ||
sysfns->abort == ASE_NULL)
{
*errnum = ASE_AWK_ESYSFNS;
return ASE_NULL;
}
2006-10-31 14:32:50 +00:00
2006-11-29 03:19:49 +00:00
#if defined(_WIN32) && defined(_MSC_VER) && defined(_DEBUG)
2006-11-29 02:54:17 +00:00
awk = (ase_awk_t*) malloc (ASE_SIZEOF(ase_awk_t));
2006-09-01 04:03:28 +00:00
#else
2006-12-13 14:13:07 +00:00
awk = (ase_awk_t*) sysfns->malloc (
ASE_SIZEOF(ase_awk_t), sysfns->custom_data);
2006-09-01 04:03:28 +00:00
#endif
2006-12-15 14:58:37 +00:00
if (awk == ASE_NULL)
{
*errnum = ASE_AWK_ENOMEM;
return ASE_NULL;
}
2006-02-23 14:42:33 +00:00
2006-10-24 04:10:12 +00:00
/* it uses the built-in ase_awk_memset because awk is not
2006-10-16 08:48:19 +00:00
* fully initialized yet */
2006-11-29 02:54:17 +00:00
ase_awk_memset (awk, 0, ASE_SIZEOF(ase_awk_t));
2006-10-16 08:48:19 +00:00
2006-12-13 14:13:07 +00:00
if (sysfns->memcpy == ASE_NULL)
2006-10-12 14:36:25 +00:00
{
2006-12-13 14:13:07 +00:00
ase_awk_memcpy (&awk->sysfns, sysfns, ASE_SIZEOF(awk->sysfns));
awk->sysfns.memcpy = ase_awk_memcpy;
2006-10-12 14:36:25 +00:00
}
2006-12-13 14:13:07 +00:00
else sysfns->memcpy (&awk->sysfns, sysfns, ASE_SIZEOF(awk->sysfns));
if (sysfns->memset == ASE_NULL) awk->sysfns.memset = ase_awk_memset;
2006-08-31 15:09:24 +00:00
2006-10-24 04:10:12 +00:00
if (ase_awk_str_open (&awk->token.name, 128, awk) == ASE_NULL)
2006-04-21 16:21:27 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, awk);
2006-12-15 14:58:37 +00:00
*errnum = ASE_AWK_ENOMEM;
2006-10-24 04:10:12 +00:00
return ASE_NULL;
2006-02-23 14:42:33 +00:00
}
2006-04-22 13:54:53 +00:00
/* TODO: initial map size?? */
2006-10-24 04:10:12 +00:00
if (ase_awk_map_open (
&awk->tree.afns, awk, 256, __free_afn, awk) == ASE_NULL)
2006-04-21 16:21:27 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_str_close (&awk->token.name);
ASE_AWK_FREE (awk, awk);
2006-12-15 14:58:37 +00:00
*errnum = ASE_AWK_ENOMEM;
2006-10-24 04:10:12 +00:00
return ASE_NULL;
2006-02-23 14:42:33 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_open (&awk->parse.globals, awk) == ASE_NULL)
2006-04-21 16:21:27 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_str_close (&awk->token.name);
ase_awk_map_close (&awk->tree.afns);
ASE_AWK_FREE (awk, awk);
2006-12-15 14:58:37 +00:00
*errnum = ASE_AWK_ENOMEM;
2006-10-24 04:10:12 +00:00
return ASE_NULL;
2006-02-23 14:42:33 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_open (&awk->parse.locals, awk) == ASE_NULL)
2006-04-21 16:21:27 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_str_close (&awk->token.name);
ase_awk_map_close (&awk->tree.afns);
ase_awk_tab_close (&awk->parse.globals);
ASE_AWK_FREE (awk, awk);
2006-12-15 14:58:37 +00:00
*errnum = ASE_AWK_ENOMEM;
2006-10-24 04:10:12 +00:00
return ASE_NULL;
2006-02-23 14:42:33 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_open (&awk->parse.params, awk) == ASE_NULL)
2006-04-21 16:21:27 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_str_close (&awk->token.name);
ase_awk_map_close (&awk->tree.afns);
ase_awk_tab_close (&awk->parse.globals);
ase_awk_tab_close (&awk->parse.locals);
ASE_AWK_FREE (awk, awk);
2006-12-15 14:58:37 +00:00
*errnum = ASE_AWK_ENOMEM;
2006-10-24 04:10:12 +00:00
return ASE_NULL;
2006-02-23 14:42:33 +00:00
}
2006-08-04 17:36:40 +00:00
awk->option = 0;
2006-10-24 04:10:12 +00:00
awk->errnum = ASE_AWK_ENOERR;
2006-12-19 14:20:30 +00:00
awk->errlin = 0;
2006-03-07 15:55:14 +00:00
2006-02-23 14:42:33 +00:00
awk->parse.nlocals_max = 0;
2006-03-07 15:55:14 +00:00
2006-02-23 14:42:33 +00:00
awk->tree.nglobals = 0;
2006-08-04 16:31:22 +00:00
awk->tree.nbglobals = 0;
2006-10-24 04:10:12 +00:00
awk->tree.begin = ASE_NULL;
awk->tree.end = ASE_NULL;
awk->tree.chain = ASE_NULL;
awk->tree.chain_tail = ASE_NULL;
2006-08-13 05:55:02 +00:00
awk->tree.chain_size = 0;
2006-03-07 15:55:14 +00:00
2006-12-16 14:48:31 +00:00
awk->token.prev.type = 0;
awk->token.prev.line = 0;
awk->token.prev.column = 0;
2006-06-27 10:53:04 +00:00
awk->token.type = 0;
2006-08-03 09:54:16 +00:00
awk->token.line = 0;
awk->token.column = 0;
2006-05-13 16:33:07 +00:00
2006-10-24 04:10:12 +00:00
awk->src.lex.curc = ASE_CHAR_EOF;
2006-08-06 08:16:03 +00:00
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;
2006-02-23 14:42:33 +00:00
2006-10-24 04:10:12 +00:00
awk->bfn.sys = ASE_NULL;
awk->bfn.user = ASE_NULL;
2006-07-13 15:43:39 +00:00
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.block = 0;
awk->parse.depth.cur.loop = 0;
awk->parse.depth.cur.expr = 0;
2007-01-06 15:45:50 +00:00
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);
2006-10-28 12:17:57 +00:00
2006-08-10 16:02:15 +00:00
awk->run.count = 0;
2006-10-24 04:10:12 +00:00
awk->run.ptr = ASE_NULL;
2006-08-10 16:02:15 +00:00
2006-02-23 14:42:33 +00:00
return awk;
}
2006-12-16 16:14:40 +00:00
static void __free_afn (void* owner, void* afn)
{
ase_awk_afn_t* f = (ase_awk_afn_t*)afn;
/* f->name doesn't have to be freed */
/*ASE_AWK_FREE ((ase_awk_t*)owner, f->name);*/
ase_awk_clrpt ((ase_awk_t*)owner, f->body);
ASE_AWK_FREE ((ase_awk_t*)owner, f);
}
2006-10-24 04:10:12 +00:00
int ase_awk_close (ase_awk_t* awk)
2006-02-23 14:42:33 +00:00
{
2006-10-24 04:10:12 +00:00
if (ase_awk_clear (awk) == -1) return -1;
2006-11-28 04:30:57 +00:00
ase_awk_clrbfn (awk);
2006-08-10 16:02:15 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, awk->run.count == 0 && awk->run.ptr == ASE_NULL);
2006-03-05 17:07:33 +00:00
2006-10-24 04:10:12 +00:00
ase_awk_map_close (&awk->tree.afns);
ase_awk_tab_close (&awk->parse.globals);
ase_awk_tab_close (&awk->parse.locals);
ase_awk_tab_close (&awk->parse.params);
ase_awk_str_close (&awk->token.name);
2006-03-05 17:07:33 +00:00
2006-10-24 04:10:12 +00:00
/* ASE_AWK_ALLOC, ASE_AWK_FREE, etc can not be used
2006-08-31 15:09:24 +00:00
* from the next line onwards */
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, awk);
2006-02-23 14:42:33 +00:00
return 0;
}
2006-10-24 04:10:12 +00:00
int ase_awk_clear (ase_awk_t* awk)
2006-02-23 14:42:33 +00:00
{
2006-08-10 16:02:15 +00:00
/* you should stop all running instances beforehand */
2006-10-24 04:10:12 +00:00
if (awk->run.ptr != ASE_NULL)
2006-08-10 16:02:15 +00:00
{
2006-10-24 04:10:12 +00:00
awk->errnum = ASE_AWK_ERUNNING;
2006-08-10 16:02:15 +00:00
return -1;
}
2006-11-29 02:54:17 +00:00
ASE_AWK_MEMSET (awk, &awk->src.ios, 0, ASE_SIZEOF(awk->src.ios));
2006-10-24 04:10:12 +00:00
awk->src.lex.curc = ASE_CHAR_EOF;
2006-08-06 08:16:03 +00:00
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;
2006-04-20 16:17:01 +00:00
2006-10-24 04:10:12 +00:00
ase_awk_tab_clear (&awk->parse.globals);
ase_awk_tab_clear (&awk->parse.locals);
ase_awk_tab_clear (&awk->parse.params);
2006-04-22 13:54:53 +00:00
2006-02-23 14:42:33 +00:00
awk->parse.nlocals_max = 0;
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.block = 0;
awk->parse.depth.cur.loop = 0;
awk->parse.depth.cur.expr = 0;
2006-02-23 14:42:33 +00:00
/* clear parse trees */
2006-12-12 05:16:30 +00:00
awk->tree.ok = 0;
2006-08-06 08:16:03 +00:00
awk->tree.nbglobals = 0;
2006-02-23 14:42:33 +00:00
awk->tree.nglobals = 0;
2006-10-24 04:10:12 +00:00
ase_awk_map_clear (&awk->tree.afns);
2006-03-05 17:07:33 +00:00
2006-10-24 04:10:12 +00:00
if (awk->tree.begin != ASE_NULL)
2006-04-24 14:38:46 +00:00
{
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, awk->tree.begin->next == ASE_NULL);
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, awk->tree.begin);
awk->tree.begin = ASE_NULL;
2006-02-23 14:42:33 +00:00
}
2006-04-24 14:38:46 +00:00
2006-10-24 04:10:12 +00:00
if (awk->tree.end != ASE_NULL)
2006-04-24 14:38:46 +00:00
{
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, awk->tree.end->next == ASE_NULL);
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, awk->tree.end);
awk->tree.end = ASE_NULL;
2006-02-23 14:42:33 +00:00
}
2006-04-24 14:38:46 +00:00
2006-10-24 04:10:12 +00:00
while (awk->tree.chain != ASE_NULL)
2006-04-24 14:38:46 +00:00
{
2006-10-24 04:10:12 +00:00
ase_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);
2006-02-23 14:42:33 +00:00
awk->tree.chain = next;
}
2006-08-03 09:54:16 +00:00
2006-10-24 04:10:12 +00:00
awk->tree.chain_tail = ASE_NULL;
2006-08-13 05:55:02 +00:00
awk->tree.chain_size = 0;
2006-11-27 15:11:14 +00:00
2006-08-10 16:02:15 +00:00
return 0;
2006-02-23 14:42:33 +00:00
}
2007-01-07 07:30:40 +00:00
int ase_awk_getoption (ase_awk_t* awk)
2006-08-13 16:05:04 +00:00
{
return awk->option;
}
2007-01-07 07:30:40 +00:00
void ase_awk_setoption (ase_awk_t* awk, int opt)
2006-03-31 16:35:37 +00:00
{
2006-08-04 17:36:40 +00:00
awk->option = opt;
2006-04-09 15:31:13 +00:00
}