Recovered from cvs revision 2007-11-07 14:40:00

This commit is contained in:
hyung-hwan 2007-11-08 00:32:00 +00:00
parent c2fb396c2e
commit 8e65525420
9 changed files with 252 additions and 99 deletions

View File

@ -1,5 +1,5 @@
/*
* $Id: err.c,v 1.11 2007/10/24 09:57:45 bacon Exp $
* $Id: err.c,v 1.12 2007/11/06 09:47:12 bacon Exp $
*
* {License}
*/
@ -281,7 +281,7 @@ void ase_awk_seterror (
awk->prmfns.misc.custom_data,
awk->errmsg,
ASE_COUNTOF(awk->errmsg),
errfmt, len, tmp);
errfmt, (int)len, tmp);
return;
}
@ -291,8 +291,8 @@ void ase_awk_seterror (
awk->errmsg,
ASE_COUNTOF(awk->errmsg),
errfmt,
errarg[0].len, errarg[0].ptr,
errarg[1].len, errarg[1].ptr);
(int)errarg[0].len, errarg[0].ptr,
(int)errarg[1].len, errarg[1].ptr);
return;
case 3:
@ -301,9 +301,9 @@ void ase_awk_seterror (
awk->errmsg,
ASE_COUNTOF(awk->errmsg),
errfmt,
errarg[0].len, errarg[0].ptr,
errarg[1].len, errarg[1].ptr,
errarg[2].len, errarg[2].ptr);
(int)errarg[0].len, errarg[0].ptr,
(int)errarg[1].len, errarg[1].ptr,
(int)errarg[2].len, errarg[2].ptr);
return;
case 4:
@ -312,10 +312,10 @@ void ase_awk_seterror (
awk->errmsg,
ASE_COUNTOF(awk->errmsg),
errfmt,
errarg[0].len, errarg[0].ptr,
errarg[1].len, errarg[1].ptr,
errarg[2].len, errarg[2].ptr,
errarg[3].len, errarg[3].ptr);
(int)errarg[0].len, errarg[0].ptr,
(int)errarg[1].len, errarg[1].ptr,
(int)errarg[2].len, errarg[2].ptr,
(int)errarg[3].len, errarg[3].ptr);
return;
case 5:
@ -324,11 +324,11 @@ void ase_awk_seterror (
awk->errmsg,
ASE_COUNTOF(awk->errmsg),
errfmt,
errarg[0].len, errarg[0].ptr,
errarg[1].len, errarg[1].ptr,
errarg[2].len, errarg[2].ptr,
errarg[3].len, errarg[3].ptr,
errarg[4].len, errarg[4].ptr);
(int)errarg[0].len, errarg[0].ptr,
(int)errarg[1].len, errarg[1].ptr,
(int)errarg[2].len, errarg[2].ptr,
(int)errarg[3].len, errarg[3].ptr,
(int)errarg[4].len, errarg[4].ptr);
return;
}
}

View File

@ -1,5 +1,5 @@
/*
* $Id: func.c,v 1.17 2007/11/05 14:59:23 bacon Exp $
* $Id: func.c,v 1.18 2007/11/06 09:47:12 bacon Exp $
*
* {License}
*/
@ -169,8 +169,8 @@ ase_awk_bfn_t* ase_awk_getbfn (
}
else
{
k = bfn->name.ptr;
l = bfn->name.len;
k = name;
l = len;
}
pair = ase_awk_map_get (awk->bfn.user, k, l);

View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.26 2007/11/05 14:59:23 bacon Exp $
* $Id: parse.c,v 1.27 2007/11/06 09:47:12 bacon Exp $
*
* {License}
*/
@ -132,6 +132,10 @@ static ase_awk_t* parse_progunit (ase_awk_t* awk);
static ase_awk_t* collect_globals (ase_awk_t* awk);
static void adjust_static_globals (ase_awk_t* awk);
static ase_size_t get_global (
ase_awk_t* awk, const ase_char_t* name, ase_size_t len);
static ase_size_t find_global (
ase_awk_t* awk, const ase_char_t* name, ase_size_t len);
static int add_global (
ase_awk_t* awk, const ase_char_t* name, ase_size_t len,
ase_size_t line, int force);
@ -876,16 +880,12 @@ static ase_awk_nde_t* parse_function (ase_awk_t* awk)
if (awk->option & ASE_AWK_UNIQUEFN)
{
/* check if it coincides to be a global variable name */
ase_size_t g;
// TODO: setword
g = ase_awk_tab_find (&awk->parse.globals, 0, name, name_len);
ase_size_t g = find_global (awk, name, name_len);
if (g != (ase_size_t)-1)
{
SETERRARG (
awk, ASE_AWK_EGBLRED, awk->token.line,
name, name_len);
return ASE_NULL;
}
}
@ -1395,7 +1395,8 @@ static void adjust_static_globals (ase_awk_t* awk)
for (id = ASE_AWK_MIN_GLOBAL_ID; id <= ASE_AWK_MAX_GLOBAL_ID; id++)
{
if (gtab[id].valid != 0 && (awk->option & gtab[id].valid) == 0)
if (gtab[id].valid != 0 &&
(awk->option & gtab[id].valid) != gtab[id].valid)
{
awk->parse.globals.buf[id].name.len = 0;
}
@ -1406,6 +1407,45 @@ static void adjust_static_globals (ase_awk_t* awk)
}
}
static void trans_global (
ase_size_t index, ase_cstr_t* word, void* arg)
{
ase_awk_tab_t* tab = (ase_awk_tab_t*)arg;
ase_awk_t* awk = tab->awk;
/*
if (index >= ASE_AWK_MIN_GLOBAL_ID &&
index <= ASE_AWK_MAX_GLOBAL_ID)
*/
if (index < awk->tree.nbglobals)
{
ase_awk_pair_t* pair;
pair = ase_awk_map_get (awk->wtab, word->ptr, word->len);
if (pair != ASE_NULL)
{
word->ptr = ((ase_cstr_t*)(pair->val))->ptr;
word->len = ((ase_cstr_t*)(pair->val))->len;
}
}
}
static ase_size_t get_global (
ase_awk_t* awk, const ase_char_t* name, ase_size_t len)
{
return ase_awk_tab_rrfindx (
&awk->parse.globals, 0, name, len,
trans_global, &awk->parse.globals);
}
static ase_size_t find_global (
ase_awk_t* awk, const ase_char_t* name, ase_size_t len)
{
return ase_awk_tab_findx (
&awk->parse.globals, 0, name, len,
trans_global, &awk->parse.globals);
}
static int add_global (
ase_awk_t* awk, const ase_char_t* name, ase_size_t len,
ase_size_t line, int disabled)
@ -1435,8 +1475,7 @@ static int add_global (
}
/* check if it conflicts with other global variable names */
if (ase_awk_tab_find (
&awk->parse.globals, 0, name, len) != (ase_size_t)-1)
if (find_global (awk, name, len) != (ase_size_t)-1)
{
SETERRARG (awk, ASE_AWK_EDUPGBL, line, name, len);
return -1;
@ -1483,7 +1522,6 @@ int ase_awk_addglobal (
SETERR (awk, ASE_AWK_ENOPER);
return -1;
}
n = add_global (awk, name, len, 0, 0);
/* update the count of the static globals.
@ -1628,7 +1666,7 @@ static ase_awk_t* collect_locals (ase_awk_t* awk, ase_size_t nlocals)
}
/* check if it conflicts with global variable names */
n = ase_awk_tab_find (&awk->parse.globals, 0, local, local_len);
n = find_global (awk, local, local_len);
if (n != (ase_size_t)-1)
{
if (n < awk->tree.nbglobals)
@ -2984,7 +3022,6 @@ static ase_awk_nde_t* parse_primary (ase_awk_t* awk, ase_size_t line)
return ASE_NULL;
}
#include <windows.h>
static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line)
{
ase_char_t* name_dup;
@ -3026,8 +3063,8 @@ static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line)
return ASE_NULL;
}
ASE_AWK_FREE (awk, name_dup);
nde = parse_fncall (awk, ASE_NULL, 0, bfn, line);
nde = parse_fncall (awk, name_dup, name_len, bfn, line);
if (nde == ASE_NULL) ASE_AWK_FREE (awk, name_dup);
return (ase_awk_nde_t*)nde;
}
@ -3052,9 +3089,6 @@ static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line)
/* normal variable */
ase_awk_nde_var_t* nde;
ase_size_t idxa;
ase_awk_pair_t* pair;
const ase_char_t* k;
ase_size_t l;
nde = (ase_awk_nde_var_t*) ASE_AWK_MALLOC (
awk, ASE_SIZEOF(ase_awk_nde_var_t));
@ -3099,33 +3133,8 @@ static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line)
return (ase_awk_nde_t*)nde;
}
/* check if the word given should be replaced */
pair = ase_awk_map_get (awk->rwtab, name_dup, name_len);
if (pair != ASE_NULL)
{
/* found in the customized word table */
k = ((ase_cstr_t*)(pair->val))->ptr;
l = ((ase_cstr_t*)(pair->val))->len;
}
else
{
pair = ase_awk_map_get (awk->wtab, name_dup, name_len);
if (pair != ASE_NULL)
{
/* found in the customized word table */
k = ((ase_cstr_t*)(pair->val))->ptr;
l = ((ase_cstr_t*)(pair->val))->len;
}
else
{
k = name_dup;
l = name_len;
}
}
/* search the global variable list */
idxa = ase_awk_tab_rrfind (&awk->parse.globals, 0, k, l);
/* gets the global variable index */
idxa = get_global (awk, name_dup, name_len);
if (idxa != (ase_size_t)-1)
{
nde->type = ASE_AWK_NDE_GLOBAL;
@ -3142,6 +3151,25 @@ static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line)
if (awk->option & ASE_AWK_IMPLICIT)
{
if (awk->option & ASE_AWK_UNIQUEFN)
{
/* the name should not conflict with a function name */
/* check if it is a builtin function */
if (ase_awk_getbfn (awk, name_dup, name_len) != ASE_NULL)
{
SETERRARG (awk, ASE_AWK_EBFNRED, line, name_dup, name_len);
goto exit_func;
}
/* check if it is an AWK function */
if (ase_awk_map_get(awk->tree.afns, name_dup, name_len) != ASE_NULL)
{
/* the function is defined previously */
SETERRARG (awk, ASE_AWK_EAFNRED, line, name_dup, name_len);
goto exit_func;
}
}
nde->type = ASE_AWK_NDE_NAMED;
nde->line = line;
nde->next = ASE_NULL;
@ -3153,9 +3181,10 @@ static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line)
return (ase_awk_nde_t*)nde;
}
/* undefined variable */
SETERRARG (awk, ASE_AWK_EUNDEF, line, name_dup, name_len);
/* undefined variable */
exit_func:
ASE_AWK_FREE (awk, name_dup);
ASE_AWK_FREE (awk, nde);
@ -3169,9 +3198,6 @@ static ase_awk_nde_t* parse_hashidx (
ase_awk_nde_t* idx, * tmp, * last;
ase_awk_nde_var_t* nde;
ase_size_t idxa;
ase_awk_pair_t* pair;
const ase_char_t* k;
ase_size_t l;
idx = ASE_NULL;
last = ASE_NULL;
@ -3261,22 +3287,8 @@ static ase_awk_nde_t* parse_hashidx (
return (ase_awk_nde_t*)nde;
}
/* check if the word given should be replaced */
pair = ase_awk_map_get (awk->rwtab, name, name_len);
if (pair != ASE_NULL)
{
/* found in the customized word table */
k = ((ase_cstr_t*)(pair->val))->ptr;
l = ((ase_cstr_t*)(pair->val))->len;
}
else
{
k = name;
l = name_len;
}
/* search the global variable list */
idxa = ase_awk_tab_rrfind(&awk->parse.globals, 0, k, l);
/* gets the global variable index */
idxa = get_global (awk, name, name_len);
if (idxa != (ase_size_t)-1)
{
nde->type = ASE_AWK_NDE_GLOBALIDX;
@ -3293,6 +3305,24 @@ static ase_awk_nde_t* parse_hashidx (
if (awk->option & ASE_AWK_IMPLICIT)
{
if (awk->option & ASE_AWK_UNIQUEFN)
{
/* check if it is a builtin function */
if (ase_awk_getbfn (awk, name, name_len) != ASE_NULL)
{
SETERRARG (awk, ASE_AWK_EBFNRED, line, name, name_len);
goto exit_func;
}
/* check if it is an AWK function */
if (ase_awk_map_get(awk->tree.afns, name, name_len) != ASE_NULL)
{
/* the function is defined previously */
SETERRARG (awk, ASE_AWK_EAFNRED, line, name, name_len);
goto exit_func;
}
}
nde->type = ASE_AWK_NDE_NAMEDIDX;
nde->line = line;
nde->next = ASE_NULL;
@ -3305,10 +3335,13 @@ static ase_awk_nde_t* parse_hashidx (
}
/* undefined variable */
SETERRARG (awk, ASE_AWK_EUNDEF, line, name, name_len);
exit_func:
ase_awk_clrpt (awk, idx);
ASE_AWK_FREE (awk, nde);
SETERRARG (awk, ASE_AWK_EUNDEF, line, name, name_len);
return ASE_NULL;
}
@ -3394,8 +3427,13 @@ static ase_awk_nde_t* parse_fncall (
call->next = ASE_NULL;
/*call->what.bfn = bfn; */
/*
call->what.bfn.name.ptr = bfn->name.ptr;
call->what.bfn.name.len = bfn->name.len;
*/
call->what.bfn.name.ptr = name;
call->what.bfn.name.len = name_len;
call->what.bfn.arg.min = bfn->arg.min;
call->what.bfn.arg.max = bfn->arg.max;
call->what.bfn.arg.spec = bfn->arg.spec;

View File

@ -1,5 +1,5 @@
/*
* $Id: tab.c,v 1.4 2007/09/23 16:48:55 bacon Exp $
* $Id: tab.c,v 1.5 2007/11/06 09:47:12 bacon Exp $
*
* {License}
*/
@ -237,3 +237,70 @@ ase_size_t ase_awk_tab_rrfind (
return (ase_size_t)-1;
}
ase_size_t ase_awk_tab_findx (
ase_awk_tab_t* tab, 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 < tab->size; i++)
{
ase_cstr_t x;
x.ptr = tab->buf[i].name.ptr;
x.len = tab->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_awk_tab_rfindx (
ase_awk_tab_t* tab, 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 >= tab->size) return (ase_size_t)-1;
for (i = index + 1; i-- > 0; )
{
ase_cstr_t x;
x.ptr = tab->buf[i].name.ptr;
x.len = tab->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_awk_tab_rrfindx (
ase_awk_tab_t* tab, 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 >= tab->size) return (ase_size_t)-1;
for (i = tab->size - index; i-- > 0; )
{
ase_cstr_t x;
x.ptr = tab->buf[i].name.ptr;
x.len = tab->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;
}

View File

@ -1,5 +1,5 @@
/*
* $Id: tab.h,v 1.4 2007/09/23 16:48:55 bacon Exp $
* $Id: tab.h,v 1.5 2007/11/06 09:47:12 bacon Exp $
*
* {License}
*/
@ -65,6 +65,19 @@ ase_size_t ase_awk_tab_rrfind (
ase_awk_tab_t* tab, ase_size_t index,
const ase_char_t* str, ase_size_t len);
ase_size_t ase_awk_tab_findx (
ase_awk_tab_t* tab, 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 ase_awk_tab_rfindx (
ase_awk_tab_t* tab, 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 ase_awk_tab_rrfindx (
ase_awk_tab_t* tab, ase_size_t index,
const ase_char_t* str, ase_size_t len,
void(*transform)(ase_size_t, ase_cstr_t*,void*), void* arg);
#ifdef __cplusplus
}
#endif

View File

@ -1,5 +1,5 @@
/*
* $Id: tree.c,v 1.5 2007/09/25 15:27:54 bacon Exp $
* $Id: tree.c,v 1.6 2007/11/06 09:47:12 bacon Exp $
*
* {License}
*/
@ -1155,6 +1155,7 @@ void ase_awk_clrpt (ase_awk_t* awk, ase_awk_nde_t* tree)
{
ase_awk_nde_call_t* px = (ase_awk_nde_call_t*)p;
/* ASE_AWK_FREE (awk, px->what.bfn); */
ASE_AWK_FREE (awk, px->what.bfn.name.ptr);
ase_awk_clrpt (awk, px->args);
ASE_AWK_FREE (awk, p);
break;

View File

@ -1,5 +1,5 @@
/*
* $Id: tree.h,v 1.5 2007/09/25 15:27:54 bacon Exp $
* $Id: tree.h,v 1.6 2007/11/06 09:47:12 bacon Exp $
*
* {License}
*/
@ -271,7 +271,7 @@ struct ase_awk_nde_call_t
{
struct
{
const ase_char_t* ptr;
ase_char_t* ptr;
ase_size_t len;
} name;

View File

@ -1,5 +1,5 @@
/*
* $Id: AseAwkPanel.java,v 1.23 2007/11/05 14:59:23 bacon Exp $
* $Id: AseAwkPanel.java,v 1.24 2007/11/06 09:47:12 bacon Exp $
*/
import java.awt.*;
@ -107,6 +107,7 @@ public class AseAwkPanel extends Panel implements DropTargetListener
setWord ("sin", "cain");
setWord ("length", "len");
setWord ("OFMT", "ofmt");
setWord ("END", "end");
}
public void sleep (Context ctx, String name, Return ret, Argument[] args) throws ase.awk.Exception

View File

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.21 2007/10/28 06:12:37 bacon Exp $
* $Id: awk.c,v 1.22 2007/11/06 09:47:12 bacon Exp $
*/
#include <ase/awk/awk.h>
@ -262,9 +262,17 @@ static ase_ssize_t awk_srcio_out (
}
else if (cmd == ASE_AWK_IO_WRITE)
{
int n = ase_fprintf (stdout, ASE_T("%.*s"), size, data);
while (size > 0)
{
int n, chunk;
chunk = (size > ASE_TYPE_MAX(int))? ASE_TYPE_MAX(int): size;
n = ase_fprintf (stdout, ASE_T("%.*s"), (int)chunk, data);
if (n < 0) return -1;
data += n; size -= n;
}
return size;
}
@ -340,21 +348,23 @@ static ase_ssize_t awk_extio_pipe (
* pointer opened by popen, as of this writing.
* anyway, hopefully the following replacement
* will work all the way. */
int n = fprintf (fp, "%.*ls", left, data);
int chunk = (left > ASE_TYPE_MAX(int))? ASE_TYPE_MAX(int): left;
int n = fprintf (fp, "%.*ls", chunk, data);
if (n >= 0)
{
size_t x;
for (x = 0; x < left; x++)
for (x = 0; x < chunk; x++)
{
if (data[x] == ASE_T('\0')) break;
}
n = x;
}
#else
int n = ase_fprintf (fp, ASE_T("%.*s"), left, data);
int chunk = (left > ASE_TYPE_MAX(int))? ASE_TYPE_MAX(int): left;
int n = ase_fprintf (fp, ASE_T("%.*s"), chunk, data);
#endif
if (n < 0 || n > left) return -1;
if (n < 0 || n > chunk) return -1;
left -= n; data += n;
}
}
@ -447,7 +457,8 @@ static ase_ssize_t awk_extio_file (
}
else
{
int n = ase_fprintf (fp, ASE_T("%.*s"), left, data);
int chunk = (left > ASE_TYPE_MAX(int))? ASE_TYPE_MAX(int): left;
int n = ase_fprintf (fp, ASE_T("%.*s"), chunk, data);
if (n < 0) return -1;
left -= n; data += n;
}
@ -522,7 +533,7 @@ static ase_ssize_t awk_extio_console (
{
ase_cstr_t errarg;
errarg.ptr = ASE_T("consolXXXe");
errarg.ptr = ASE_T("console");
errarg.len = 7;
ase_awk_setrunerror (epa->run, ASE_AWK_ECLOSE, 0, &errarg, 1);
@ -593,10 +604,32 @@ static ase_ssize_t awk_extio_console (
}
else if (cmd == ASE_AWK_IO_WRITE)
{
/*
int n = ase_fprintf (
(FILE*)epa->handle, ASE_T("%.*s"), size, data);
if (n < 0) return -1;
return size;
*/
FILE* fp = (FILE*)epa->handle;
ase_ssize_t left = size;
while (left > 0)
{
if (*data == ASE_T('\0'))
{
if (ase_fputc (*data, fp) == ASE_CHAR_EOF) return -1;
left -= 1; data += 1;
}
else
{
int chunk = (left > ASE_TYPE_MAX(int))? ASE_TYPE_MAX(int): left;
int n = ase_fprintf (fp, ASE_T("%.*s"), chunk, data);
if (n < 0) return -1;
left -= n; data += n;
}
}
return size;
}
else if (cmd == ASE_AWK_IO_FLUSH)