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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-06-28 03:44:40 +00:00
parent 9bd13da27c
commit 69b807966c
5 changed files with 76 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
ase/awk/extio.c
View File

@ -1,5 +1,5 @@
/*
* $Id: extio.c,v 1.11 2006-06-26 15:09:28 bacon Exp $
* $Id: extio.c,v 1.12 2006-06-28 03:44:39 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -100,14 +100,43 @@ xp_printf(XP_TEXT("%s"), buf);
}
int xp_awk_writeextio (
xp_awk_run_t* run, int type,
xp_awk_run_t* run, int out_type,
const xp_char_t* name, xp_awk_val_t* v, int* errnum)
{
xp_awk_extio_t* p = run->extio;
xp_awk_io_t handler = run->awk->extio[type];
xp_awk_io_t handler;
xp_str_t buf;
int ioopt;
int extio_type, extio_opt;
static int __out_type_map[] =
{
/* the order should match the order of the
* XP_AWK_OUT_XXX values in tree.h */
XP_AWK_EXTIO_PIPE,
XP_AWK_EXTIO_COPROC,
XP_AWK_EXTIO_FILE,
XP_AWK_EXTIO_FILE,
XP_AWK_EXTIO_CONSOLE
};
static int __out_opt_map[] =
{
/* the order should match the order of the
* XP_AWK_OUT_XXX values in tree.h */
XP_AWK_IO_PIPE_WRITE,
0,
XP_AWK_IO_FILE_WRITE,
XP_AWK_IO_FILE_APPEND,
XP_AWK_IO_CONSOLE_WRITE
};
xp_assert (out_type >= 0 && out_type <= xp_countof(__out_type_map));
xp_assert (out_type >= 0 && out_type <= xp_countof(__out_opt_map));
extio_type = __out_type_map[out_type];
extio_opt = __out_opt_map[out_type];
handler = run->awk->extio[extio_type];
if (handler == XP_NULL)
{
/* no io handler provided */
@ -132,7 +161,9 @@ int xp_awk_writeextio (
/* look for the corresponding extio for name */
while (p != XP_NULL)
{
if (p->type == type && xp_strcmp(p->name,name) == 0) break;
/* TODO: should it be extio_type or out_type???? */
if (p->type == extio_type &&
xp_strcmp(p->name,name) == 0) break;
p = p->next;
}
@ -156,19 +187,16 @@ int xp_awk_writeextio (
return -1;
}
p->type = type;
/* TODO: should it be extio_type or out_type???? */
/* TODO: should it be extio_type or out_type???? */
/* TODO: should it be extio_type or out_type???? */
/* TODO: should it be extio_type or out_type???? */
/* TODO: should it be extio_type or out_type???? */
p->type = extio_type;
p->handle = XP_NULL;
p->next = XP_NULL;
if (type == XP_AWK_EXTIO_PIPE)
ioopt = XP_AWK_IO_PIPE_WRITE;
else if (type == XP_AWK_EXTIO_FILE)
ioopt = XP_AWK_IO_FILE_WRITE;
else if (type == XP_AWK_EXTIO_CONSOLE)
ioopt = XP_AWK_IO_CONSOLE_WRITE;
else ioopt = 0; /* TODO: how to handle this??? */
if (handler (XP_AWK_IO_OPEN, ioopt, p, XP_NULL, 0) == -1)
if (handler (XP_AWK_IO_OPEN, extio_opt, p, XP_NULL, 0) == -1)
{
xp_free (p->name);
xp_free (p);

18
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.125 2006-06-27 14:32:03 bacon Exp $
* $Id: parse.c,v 1.126 2006-06-28 03:44:39 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -2852,7 +2852,7 @@ static xp_awk_nde_t* __parse_print (xp_awk_t* awk)
else args = ep->left;
out = ep->right;
out_type = XP_AWK_PRINT_FILE;
out_type = XP_AWK_OUT_FILE;
xp_free (tmp);
}
@ -2865,7 +2865,7 @@ static xp_awk_nde_t* __parse_print (xp_awk_t* awk)
else args = ep->left;
out = ep->right;
out_type = XP_AWK_PRINT_FILE_APPEND;
out_type = XP_AWK_OUT_FILE_APPEND;
xp_free (tmp);
}
@ -2874,13 +2874,13 @@ static xp_awk_nde_t* __parse_print (xp_awk_t* awk)
if (out == XP_NULL)
{
out_type = MATCH(awk,TOKEN_GT)? XP_AWK_PRINT_FILE:
MATCH(awk,TOKEN_RSHIFT)? XP_AWK_PRINT_FILE_APPEND:
MATCH(awk,TOKEN_BOR)? XP_AWK_PRINT_PIPE:
MATCH(awk,TOKEN_BORAND)? XP_AWK_PRINT_COPROC:
XP_AWK_PRINT_CONSOLE;
out_type = MATCH(awk,TOKEN_GT)? XP_AWK_OUT_FILE:
MATCH(awk,TOKEN_RSHIFT)? XP_AWK_OUT_FILE_APPEND:
MATCH(awk,TOKEN_BOR)? XP_AWK_OUT_PIPE:
MATCH(awk,TOKEN_BORAND)? XP_AWK_OUT_COPROC:
XP_AWK_OUT_CONSOLE;
if (out_type != XP_AWK_PRINT_CONSOLE)
if (out_type != XP_AWK_OUT_CONSOLE)
{
if (__get_token(awk) == -1)
{

34
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.110 2006-06-27 14:18:19 bacon Exp $
* $Id: run.c,v 1.111 2006-06-28 03:44:39 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -1099,28 +1099,14 @@ static int __run_print (xp_awk_run_t* run, xp_awk_nde_print_t* nde)
const xp_char_t* dst;
xp_awk_val_t* v;
xp_awk_nde_t* np;
int extio_type, errnum, n;
static int __print_extio_map[] =
{
/* the order should match the order of the
* XP_AWK_PRINT_XXX values in tree.h */
XP_AWK_EXTIO_PIPE,
XP_AWK_EXTIO_COPROC,
XP_AWK_EXTIO_FILE,
XP_AWK_EXTIO_FILE,
XP_AWK_EXTIO_CONSOLE
};
int errnum, n;
xp_assert (
(p->out_type == XP_AWK_PRINT_PIPE && p->out != XP_NULL) ||
(p->out_type == XP_AWK_PRINT_COPROC && p->out != XP_NULL) ||
(p->out_type == XP_AWK_PRINT_FILE && p->out != XP_NULL) ||
(p->out_type == XP_AWK_PRINT_FILE_APPEND && p->out != XP_NULL) ||
(p->out_type == XP_AWK_PRINT_CONSOLE && p->out == XP_NULL));
xp_assert (p->out_type >= 0 && p->out_type < xp_countof(__print_extio_map));
extio_type = __print_extio_map[p->out_type];
(p->out_type == XP_AWK_OUT_PIPE && p->out != XP_NULL) ||
(p->out_type == XP_AWK_OUT_COPROC && p->out != XP_NULL) ||
(p->out_type == XP_AWK_OUT_FILE && p->out != XP_NULL) ||
(p->out_type == XP_AWK_OUT_FILE_APPEND && p->out != XP_NULL) ||
(p->out_type == XP_AWK_OUT_CONSOLE && p->out == XP_NULL));
if (p->out != XP_NULL)
{
@ -1151,7 +1137,7 @@ static int __run_print (xp_awk_run_t* run, xp_awk_nde_print_t* nde)
}
xp_awk_refupval (v);
n = xp_awk_writeextio (run, extio_type, dst, v, &errnum);
n = xp_awk_writeextio (run, p->out_type, dst, v, &errnum);
if (n < 0 && errnum != XP_AWK_ENOERR)
{
if (out != XP_NULL) xp_free (out);
@ -1174,7 +1160,7 @@ static int __run_print (xp_awk_run_t* run, xp_awk_nde_print_t* nde)
xp_awk_refupval (v);
n = xp_awk_writeextio (
run, extio_type, dst, v, &errnum);
run, p->out_type, dst, v, &errnum);
if (n < 0 && errnum != XP_AWK_ENOERR)
{
if (out != XP_NULL) xp_free (out);
@ -1199,7 +1185,7 @@ static int __run_print (xp_awk_run_t* run, xp_awk_nde_print_t* nde)
xp_awk_refupval (v);
n = xp_awk_writeextio (
run, extio_type, dst, v, &errnum);
run, p->out_type, dst, v, &errnum);
if (n < 0 && errnum != XP_AWK_ENOERR)
{
if (out != XP_NULL) xp_free (out);

17
ase/awk/tree.h
View File

@ -1,5 +1,5 @@
/*
* $Id: tree.h,v 1.51 2006-06-27 14:18:19 bacon Exp $
* $Id: tree.h,v 1.52 2006-06-28 03:44:40 bacon Exp $
*/
#ifndef _XP_AWK_TREE_H_
@ -67,13 +67,14 @@ enum
enum
{
/* the order of these values match __print_extio_map in run.c */
/* the order of these values match
* __out_type_map and __out_opt_map in extio.c */
XP_AWK_PRINT_PIPE,
XP_AWK_PRINT_COPROC,
XP_AWK_PRINT_FILE,
XP_AWK_PRINT_FILE_APPEND,
XP_AWK_PRINT_CONSOLE
XP_AWK_OUT_PIPE,
XP_AWK_OUT_COPROC,
XP_AWK_OUT_FILE,
XP_AWK_OUT_FILE_APPEND,
XP_AWK_OUT_CONSOLE
};
typedef struct xp_awk_afn_t xp_awk_afn_t;
@ -322,7 +323,7 @@ struct xp_awk_nde_print_t
{
XP_AWK_NDE_HDR;
xp_awk_nde_t* args;
int out_type; /* XP_AWK_PRINT_XXX */
int out_type; /* XP_AWK_OUT_XXX */
xp_awk_nde_t* out;
};

5
ase/test/awk/t11.awk
View File

@ -10,4 +10,9 @@ BEGIN
delete abc;
delete abc["aaaa"] ;
/*
print 1 > 2 + 3;
print 1 < 2 + 3;
*/
}